formülü makro koduna cevirme

[capoeirista64]

=VLOOKUP('p2'!D3;'p1'!$B$3:$C$22;2;0) bu formulü makro koduna nasıl cevirebilirim?



Sub questions()

Dim questions As String

Range("d3").Select
Do Until Selection.Offset(0, -1).Value = ""
Selection.Value = "=VLOOKUP(p2!D3;p1!$B$3:$C$22;2;0)"
Selection.Offset(1, 0).Select
Loop

End Sub
//böyle bişrşey denedim ama sürekli hata veriyor..

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[capoeirista64]

şimdi burda p3 sayfasında ki soruları p1 sayfasından alıyor bu soruları alırken p2 sayfasında kişiler var ve bu kişilerin soru sıralaması var bu sorularıda bunlara göre alıyor ben bunu formulle yaptım ama projem gereği makro koduyla yapmam gerekiyor. proje dosyamı ekledim yardımcı olabilirseniz cok sevinirim

 

[hamitcan]

Böyle deneyin.

Sub questions()
For i = 3 To Sheets("p2").[c65536].End(3).Row
    Sıra = WorksheetFunction.Match(Sheets("p2").Cells(i, 4), Sheets("p1").Columns(2), 0)
    Soru = Sheets("p1").Cells(Sıra, 3)
    Cevap1 = Sheets("p1").Cells(Sıra, "e")
    Cevap2 = Sheets("p1").Cells(Sıra, "f")
    Cevap3 = Sheets("p1").Cells(Sıra, "g")
    Cevap4 = Sheets("p1").Cells(Sıra, "h")
    Sheets("p3").Cells(i, "d") = Soru
    Sheets("p3").Cells(i, "e") = Cevap1
    Sheets("p3").Cells(i, "f") = Cevap2
    Sheets("p3").Cells(i, "g") = Cevap3
    Sheets("p3").Cells(i, "h") = Cevap4
Next
End Sub