Hücre değeri orantılı bir şekilde artacak formülü nasıl yazarım

[demgüzar]

Örneğin SAYFA2 A1 hücresine SAYFA1 D2 hücresindeki veriyi
SAYFA2 A2 hücresine SAYFA1 D14 hücresindeki veriyi
SAYFA2 A3 hücresine SAYFA1 D26 hücresindeki veriyi alacak ve bu şekilde D sütunundaki hücre değerinin 12'şer olarak arttığı 1000 veriyi alacak formülü ya da makroyu nasıl yazabilirim?

Amacım düzensiz olan listeyi düzenli bir hale getirmek. Yardımınızı bekliyor ilgilenen herkese şimdiden şükranlarımı sunuyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    Dim S1 As Worksheet, S2 As Worksheet
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A:A").ClearContents
    say = 1
    For i = 2 To S1.Cells(Rows.Count, "D").End(3).Row Step 12
        S2.Cells(say, "A") = S1.Cells(i, "D")
        say = say + 1
    Next i
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[demgüzar]

teşekkür ederim çok makbule geçti.