Fonksiyon Formülünün VBA Koduna Dönüştürülmesi

[Feylosof]

İyi günler diliyorum.
Aşağıdaki formülü VBA kod olarak nasıl yazılır. 1200 satırlık bir sayfada uygulanacak şekilde.
Not: Makro kaydet yoluyla olunca sıkıntı yaşıyorum.

=EĞERHATA(İNDİS($F$1:$Q$1;KAÇINCI("X";F2:Q2;0));"")

 

[ÖmerFaruk]

Sub VBAkodu()
On Error Resume Next
For i = 2 To 1200
    If IsNumeric(WorksheetFunction.Match("X", Range("F" & i, "Q" & i), 0)) Then
        Sonuc = Range("F1").Offset(0, WorksheetFunction.Match("X", Range("F" & i, "Q" & i), 0))
    Else
        Sonuc = ""
    'Sonucu hangi hücreye yazdıracaksanız kendinize göre uyarlarsınız'
    End If
Next i
End Sub

 

[Feylosof]

Sayın @NextLevel yardımınız için çok teşekkür ederim.
Sonuç her satırda ayrı ayrı olması gerek
Sonuc= i yapsak olur mu

 

[ÖmerFaruk]

Sonucu örneğin A sütununa yazaksanız SONUÇ olan yerleri aşağıdaki gibi değiştirin
Range("A" & i) =.....

 

[Feylosof]

Tamam. çok teşekkür ederim.