Sayfadan Kesip Diğer Sayfanın Son Satırına Yapıştırma

[Astalavista58]

Merhabalar, herkese hayırlı günler dilerim. Alttakı gibi bir kod yazmaya çalıştım. Amacım TextBox1'deki veriyi Sayfa1'de bulup, onun bulunduğu satırı kesip, sayfa2'nin son satırdan sonraki satıra yazdırma. Veriyi kesicek yere kadar geldim ama bir türlü Sayfa2'nin son satırına yapıştıramadım yardımcı olabilir misiniz.

Private Sub cbAktar_Click()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim k As Range

Set ws = Sheets("Sayfa1")
Set ws1 = Sheets("Sayfa2")

ss = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row + 1
ss1 = Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row + 1

Set ws = Sheets("Sayfa1")
Set ws1 = Sheets("Sayfa2")

Set k = Range("a2:a65536").Find(TextBox1.Value, , xlValues, xlWhole)
k.Select
Selection.EntireRow.Cut

ws1.Select

End Sub

 

[YUSUF44]

Selection.EntireRow.Cut ws1.Cells(ss1,"A")

şeklinde deneyin.

 

[Astalavista58]

Selection.EntireRow.Cut ws1.Cells(ss1,"A")

şeklinde deneyin.

Çok teşekkür ederim Yusuf Hocam, böyle böyle öğreneceğiz