lütfen ekteki debugı çözermisiniz. 2 haftadır uğraşıyorum aynı kodları başka bir sayfada açıyorum çalışıyor. ama ekteki dosyada çalıştıramıyorum... eğer çözerseniz hatam nerede anlatırmısınız lütfen
u = MsgBox("VERLER AKTARILSIN MI?", vbYesNo)
If u = vbNo Then
End If
If u = vbYes Then
Set s1 = Sheets("sayfa2")
Range("b2").Copy
sonsat = s1.[a65536].End(3).Row + 1
s1.Cells(sonsat, 1).PasteSpecial
Application.CutCopyMode = True ( olarak değiştirmeyi deneyiniz)
MsgBox ("veriler aktarıldı!")
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.