Belirtilen Satiri Bos satira Kopyalamak

[tanerzan]

Selamlar,

Yapmak istedigim şu: a1 hucresindeki degeri b2 hucresine kopyalasin b2 dolu ise b3 e oda dolu ise b4'e..yani b sutunu icinde bos olan ilk hucreye kopyalasin istiyorum.

Bununla ilgili makro yada formul hangisi uygunsa yardimlarinizi rica ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ee48d8a787]Sub kopyala()
say = WorksheetFunction.CountA([b2:b65536]) + 2
Range("b" & say) = [a1]
End Sub
[/vb:1:ee48d8a787]