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.