sıradaki hücreye değer getirme

[umitumit]

Merhaba,

Aşağıdaki makro ile 2016 sayfasının D sütununun ilk boş hücresini buluyorum.
Mesela D56
İstediğim, F56 ya Sayfa1(A1) değerini getirmek.
Makroyu tekrar çalıştırdığımda yine D sütunundaki boş hücreyi bulup o satırın F sütununa değeri getirecek.


Sub Düğme10_Tıklat()
Sheets("2016").Activate
Sheets("2016").Range("d6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[Ömer BARAN]

Mevcut kod'u silip, yerine aşağıdakini kullanabilirsiniz.

Sub Düğme10_Tıklat()
[SIZE="2"]    Sheets("2016").Cells(Sheets("2016").[D65536].End(3).Row+1, 6) = Sheets("Sayfa1").Cells(1, 1)[/SIZE]
End Sub

 

[Orion1]

Buyurun.

Sub Düğme10_Tıklat()
Sheets("2016").Activate
Sheets("2016").Range("d6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, -3).Value
End Sub