Private Sub CommandButton4_Click()
Son_Dolu_Satir = Sheets("ÇIKIŞ").Range("b65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Worksheets("BEKLEME").Range("a2:a200").Copy
Worksheets("ÇIKIŞ").Range("Bos_Satir").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
yukarıdaki kodla bekleme sayfasından çıkış sayfası b sütunu son boş hücresine verileri kopyalamak istiyorum kırmızıyla yazan alana b2:b200 yazınca işlemi yapıyor burdaki problem nedir ve dogrusu nasıl olmalı? yardımlarınız için şimdiden teşekkürler.
Son_Dolu_Satir = Sheets("ÇIKIŞ").Range("b65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Worksheets("BEKLEME").Range("a2:a200").Copy
Worksheets("ÇIKIŞ").Range("Bos_Satir").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
yukarıdaki kodla bekleme sayfasından çıkış sayfası b sütunu son boş hücresine verileri kopyalamak istiyorum kırmızıyla yazan alana b2:b200 yazınca işlemi yapıyor burdaki problem nedir ve dogrusu nasıl olmalı? yardımlarınız için şimdiden teşekkürler.