En alttaki hücreye atama.

[mtozer]

Merhaba
Sayfa 2 de A sütununda verilerim var ve ben command buton ile Sayfa1 A1 hücresindeki veriyi A sutununun en sonuna atmak istiyorum. Yardım edermisiniz.

iyi çalışmalar.

 

[muygun]

Merhaba;

Sub kaydet()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(1, 1)
MsgBox "İşlem TAMAM."
End Sub

İyi çalışmalar.

 

[mtozer]

tesekkur ederim. iyi çalışmalar.