excel mikrosoft visual basic hatası yardımm

[fatihgund]

bu hatayı alıyorum makrolu bolume tıkladıgım zaman yardımcı olabılecek varmı.
excel 2010 kullanıyorum

 

[Asri]

VBA kodlarındaki Application.Run "DENEME.xlsx!LİSTELE" satırlarını,

Application.Run "LİSTELE" şeklinde değiştirin.

 

[fatihgund]

teşekkurler sorun çözüldü fakat tıklama yaptıgımız zaman sayfa kayma yapıyor bunu nasıl engelleye bılırız

 

[Asri]

teşekkurler sorun çözüldü fakat tıklama yaptıgımız zaman sayfa kayma yapıyor bunu nasıl engelleye bılırız

Dosyanızın yedeğini alın.

Module1 deki tüm kodları silip , aşağıdaki kodları yapıştırıp deneyiniz.

Sub LİSTELE()
' Klavye Kısayolu: Ctrl+Shift+L
    Range("LİSTE").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "KRİTER"), CopyToRange:=Range("C13:I13"), Unique:=False
    Range("B4").Select
End Sub

Sub LİSTELEKOD()
    Range("D5").Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2:G2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("L1").Select
    Application.Run "LİSTELE"
    Range("B4").Select
End Sub

Sub KAYIT()
    Sheets("KAYIT").Select
    Range("A2:G2").Select
    Selection.Copy
    Sheets("STOK HAREKETLERİ").Select
    Application.Goto Reference:="R65000C1"
    Range("A64996").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B21").Select
    Range("A16").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("GİRİŞ-ÇIKIŞ").Select
    Application.Run "LİSTELE"
    Range("B4").Select
End Sub

Sub LİSTELEGRUP()
Application.ScreenUpdating = False
    Range("D4").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2:G2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("SABİTLER").Select
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("L10").Select
    Sheets("GİRİŞ-ÇIKIŞ").Select
    Application.Run "LİSTELE"
    Range("B4").Select
    Application.ScreenUpdating = True
End Sub