DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sheets("Veri").Range("AY4:BH18").Copy
Sheets("Araçlar").Activate
ActiveSheet.Range("AJ9").Activate
ActiveSheet.Paste
Sheets("Veri").Range("AY4:BH18").Copy Sheets("Araçlar").[AJ9]
Deneyin.Kod:Sheets("Veri").Range("AY4:BH18").Copy Sheets("Araçlar").Range("AJ9:AS23").Paste
Bu kodda debug hatası alıyorum. Nerede hata yapıyorum ?
Sheets("Araçlar").[AJ9:AS23].Value =Sheets("Veri").[AY4:BH18].Value
....
...
..
Adresi Sheets("AAAA").Range("A1:B5") şeklinde yazmakla Sheets("AAAA").[A1:B5] aynı anlama geliyor.
[Veri!AY4:BH18].Copy Destination:=[Araçlar!AJ9:AS23]
[Veri!AY4:BH18].Copy Destination:=[Araçlar!AJ9]