Yeni Başladım ve İlk Makro Hatamı Aldım

[truededective]

Herkese selam. Excel'de makro yazmaya henüz yeni başladım. Ve ikinci adımda bir hata aldım. Şöyle anlatayım:
İsmi ''ahmet'' olan bir çalışma kitabı oluşturdum ve deneme amaçlı bir tablo koyup normal şekilde (makro içermeyen) kaydettim.
İsmi ''veli'' olan bir çalışma kitabı oluşturdum ve deneme amaçlı bir tablo koyup normal şekilde (makro içermeyen) kaydettim.

ve ismi deneme makro olan bir çalışma kitabı oluşturdum. Makro kaydetme butonuna bastım. ahmet çalışma kitabındaki tabloyu kopyaladım ve yapıştırdım. bu tablonun altına mehmet çalışma kitabındaki makroyu kopyaladım.

makroların ikisinide özel yapıştır seçeneğiyle yapıştırdım.

birden runtime 9 error hatası verdi.

şu dersin aynısını yaptım arkadaşlar.

 

[truededective]

arkadaşlar excel'in kralı olmak için çıktığım bu yolda yardım istiyorum. ileride tahta oturduğumda tapınağınıza zarar vermeyeceğim.

 

[mustafa1205]

Öncelikle Hayırlı olsun. Sonrasında ise üslubunuzu gözden geçirin. Burası kimsenin tapınağı değil. Forum kurallarını gözden geçirip sorunuzu buna göre örnek dosya üzerinden sorun. Kimse dosyanızı görmeden hatayı anlamayaz. Anlamak zorunda da değil.

 

[truededective]

Öncelikle Hayırlı olsun. Sonrasında ise üslubunuzu gözden geçirin. Burası kimsenin tapınağı değil. Forum kurallarını gözden geçirip sorunuzu buna göre örnek dosya üzerinden sorun. Kimse dosyanızı görmeden hatayı anlamayaz. Anlamak zorunda da değil.

sayın hocam. elbette şaka yapıyorum. cengizhan filminde cengizhanın kafeste papazla olan konuşmasına atıfta bulundum. yoksa ne kralı ne tapınağı

yolun daha başındayım. ve sorduğum şeyler aşırı basit şeylerdir. yine de dediğiniz gibi sorayım.

Sub gorelimakrom()
'
' gorelimakrom Makro
'

'
Windows("isletmedefteri.xlsx").Activate
ActiveCell.Offset(-1, -8).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("denemeyeni.xlsx").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(5, 0).Range("A1").Select
Windows("basitusul.xlsx").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-6
Windows("denemeyeni.xlsx").Activate
ActiveSheet.Paste
End Sub

göreli makro kaydediyorum. makroyu çalıştır dedim ve kalın olan yer uyarı verdi. ne yapabilirim

bu arada bahsettiim sahne

Cengizhanın Verdiği Söz… #shorts

www.youtube.com

.