Döngü oluşturmak

[oguzgok]

Arkadaşlar slm..
Aşağıda bir döngü oluşturmak istedim ama olmadı..

[F65536].End(3).Select
ActiveCell.Offset(1, -5).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 1).Value = Sheets("ENDEKS").Range("B2").Value

[L65536].End(3).Select
ActiveCell.Offset(1, -5).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 1).Value = Sheets("ENDEKS").Range("B3").Value

[R65536].End(3).Select
ActiveCell.Offset(1, -5).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 1).Value = Sheets("ENDEKS").Range("B4").Value


Arkadaşlar burada 6 şarlı artan sütunları (F sütunu L sütunu .....) döngü oluşturarak son dolu hücreleri bularak işlem yapmak istedim. Ayrıca B2 B3 B4 hücrelerindende döngü kurarak veri almak istedim. Ama olmuyo..
Yardım eden arkadaşa minnettar kalcağım.. Tşk .

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek ne yapmak istediğinizi açıklarmısınız.