ChatGPT rahatlıkla yapabilir hocam, deneyin isterseniz:
- Geliştirici sekmesinde Visual Basic butonuna tıklayın.
- Ekle > Modül seçeneğine tıklayarak yeni bir modül oluşturun ve aşağıdaki kodu yapıştırın:
Sub GetDAandPA() Dim cell As Range
Dim URL As String
Dim DA As Double
Dim PA As Double
' Linklerin bulunduğu A sütununu belirtin
For Each cell In Range("A1:A10") ' A1'den A10'a kadar olan hücreler
URL = cell.Value
' Moz API kullanarak DA ve PA değerlerini al
' Burada API anahtarınızı ve kullanıcı adınızı kullanın
' Bu kısımda gerekli kodu eklemelisiniz.
' Örnek değerler
DA = 30 ' Örnek DA değeri
PA = 40 ' Örnek PA değeri
' Değerleri B ve C sütununa yaz
cell.Offset(0, 1).Value = DA
cell.Offset(0, 2).Value = PA
Next cell
End Sub
Kodu Çalıştırın:
- Kodu kaydedin ve çalıştırmak için F5 tuşuna basın.
Hocam ben DA ve PA sorgusunu da sistemden yapıp otomatik yazmasını istiyorum
