- Katılım
- 26 Ocak 2006
- Mesajlar
- 304
- Excel Vers. ve Dili
- Excel 2007 tr
- Altın Üyelik Bitiş Tarihi
- 12.06.2023
Merhabalar,
Forum arakadaşları yardımı ile hazırlanmış olan kodda şimdi hata mesajı almaya başladım
Compile error:
Invalid outside procedure
Kod sayfasıaçılıp Range("K16") ya geliyor.
Nasıl düzeltebilirim ?
' Düğme3_Tıklat Makro
'İki_tarih_arası_aktar_66()
'
'
Range("K16").Select
ActiveSheet.Shapes("Button 3").Select
Selection.OnAction = "'YABA MUHAsebe 2009.V161.xlsm'!Module4.Düğme3_Tıklat"
Range("L14").Select
ActiveSheet.Shapes("Button 3").Select
Range("L18:L19").Select
Range("L19").Activate
ActiveSheet.Shapes("Button 3").Select
Range("M10").Select
ActiveSheet.Buttons.Add(600, 105.75, 100.5, 31.5).Select
Selection.OnAction = "SÜZDÜR"
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = "Düğme 4"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("O16").Select
ActiveSheet.Shapes("Button 4").Select
Range("H3").Select
Sheets("Sayfa2").Select
ActiveWorkbook.Save
Range("M14").Select
ActiveSheet.Shapes("Button 4").Select
Selection.Cut
Range("N12").Select
ActiveSheet.Shapes("Button 3").Select
Selection.Cut
Range("L12").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Range("L10").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("B1").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("C9").Select
Windows("Yb_muh.xlsx").Activate
Sheets("Sayfa2").Select
Range("E24").Select
Windows("YABA MUHAsebe 2009.V161.xlsm").Activate
Range("I7").Select
ActiveSheet.Shapes("Button 2").Select
Selection.Cut
Range("J4").Select
ActiveSheet.Buttons.Add(503.25, 79.5, 90.75, 32.25).Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("H7").Select
Windows("Yb_muh.xlsx").Activate
ActiveSheet.Shapes("Button 1").Select
Range("M20").Select
ActiveWindow.Close
Range("I8").Select
ActiveSheet.Shapes("Button 5").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Sayfa20.iki_tarih_arası_aktar_66"
Range("J12").Select
Sheets("Sayfa2").Select
End Sub
Forum arakadaşları yardımı ile hazırlanmış olan kodda şimdi hata mesajı almaya başladım
Compile error:
Invalid outside procedure
Kod sayfasıaçılıp Range("K16") ya geliyor.
Nasıl düzeltebilirim ?
' Düğme3_Tıklat Makro
'İki_tarih_arası_aktar_66()
'
'
Range("K16").Select
ActiveSheet.Shapes("Button 3").Select
Selection.OnAction = "'YABA MUHAsebe 2009.V161.xlsm'!Module4.Düğme3_Tıklat"
Range("L14").Select
ActiveSheet.Shapes("Button 3").Select
Range("L18:L19").Select
Range("L19").Activate
ActiveSheet.Shapes("Button 3").Select
Range("M10").Select
ActiveSheet.Buttons.Add(600, 105.75, 100.5, 31.5).Select
Selection.OnAction = "SÜZDÜR"
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = "Düğme 4"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("O16").Select
ActiveSheet.Shapes("Button 4").Select
Range("H3").Select
Sheets("Sayfa2").Select
ActiveWorkbook.Save
Range("M14").Select
ActiveSheet.Shapes("Button 4").Select
Selection.Cut
Range("N12").Select
ActiveSheet.Shapes("Button 3").Select
Selection.Cut
Range("L12").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Range("L10").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("B1").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("C9").Select
Windows("Yb_muh.xlsx").Activate
Sheets("Sayfa2").Select
Range("E24").Select
Windows("YABA MUHAsebe 2009.V161.xlsm").Activate
Range("I7").Select
ActiveSheet.Shapes("Button 2").Select
Selection.Cut
Range("J4").Select
ActiveSheet.Buttons.Add(503.25, 79.5, 90.75, 32.25).Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Module3.iki_tarih_arası_aktar_66"
Range("H7").Select
Windows("Yb_muh.xlsx").Activate
ActiveSheet.Shapes("Button 1").Select
Range("M20").Select
ActiveWindow.Close
Range("I8").Select
ActiveSheet.Shapes("Button 5").Select
Selection.OnAction = _
"'YABA MUHAsebe 2009.V161.xlsm'!Sayfa20.iki_tarih_arası_aktar_66"
Range("J12").Select
Sheets("Sayfa2").Select
End Sub