Makroyla Tablo Hazırlama

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar A1:C6 sütununda verilerim var. Bu verileri F1:I4 aralığında hazırladığım tabloya makro ile yerleştirmek istiyorum. Basitt bir örnek dosya hazırladım. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[excellcan]

For i = 1 To 6
sütun = Cells(i, "B")
satır = Cells(i, "A")
Range("F2:F4").Select
Selection.Find(Sheets("Sayfa1").Cells(i, "A"), , , xlWhole).Select
ActiveCell.Offset(0, sütun) = Cells(i, "C")

Range("F2:F4").Select
Selection.Find(Sheets("Sayfa1").Cells(i, "B"), , , xlWhole).Select
ActiveCell.Offset(0, satır) = Cells(i, "C")

Next


Arkadaşlar benim kendimce bulduğum çözüm bu. Bu gecekondu çözümden daha iyisi mutlaka vardır. Sanırım bu kod bloğu geniş aralıklar için pek verimli olmasa gerek.