Makrom hata veriyor

[mert25]

İnternetten indirdiğim bir belgedeki makro hoşuma gitti ve kendi belgeme uygulamak istedim. Fakat çalıştırınca

Run-time error '1004':
Range sınıfının select yöntemi başarısız

diyor. Debug a tıklayınca aşağıdaki kodda ki

Private Sub CommandButton1_Click() 
'MATRAH 
Sheets("Çizelge").Select 
        Range("K11:L36").Select 
        Selection.Copy 
Sheets("Matrah").Select 
        Range("C5").Select 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
        False, Transpose:=False 

'BANKA LİSTESİ 
Sheets("Çizelge").Select 
        Range("K11:L36").Select 
        Selection.Copy 
Sheets("Banka Listesi").Select 
        Range("C12").Select 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
        False, Transpose:=False 
        
Sheets("Çizelge").Select 
        Range("BD11:BD36").Select 
        Selection.Copy 
Sheets("Banka Listesi").Select 
        Range("G12").Select 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
        False, Transpose:=False 
'================================================================================== 
'MATRAH BÃ?LÜMÜ 
  If Sheets("Çizelge").Range("AY11") = "" Then 
  Else 
        Sheets("Çizelge").Select 
        Range("AY11:AY36").Select 
        Selection.Copy 
        
    If Sheets("Çizelge").Range("Q2") = "OCAK" Then 
    Sheets("Matrah").Select 
        Range("G5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "ÞUBAT" Then 
    Sheets("Matrah").Select 
        Range("J5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 
    
    ElseIf Sheets("Çizelge").Range("Q2") = "MART" Then 
    Sheets("Matrah").Select 
        Range("M5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "NİSAN" Then 
    Sheets("Matrah").Select 
        Range("P5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "MAYIS" Then 
    Sheets("Matrah").Select 
        Range("S5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "HAZİRAN" Then 
    Sheets("Matrah").Select 
        Range("V5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "TEMMUZ" Then 
    Sheets("Matrah").Select 
        Range("Z5").Select 
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "AÐUSTOS" Then 
    Sheets("Matrah").Select 
        Range("AC5").Select 
    
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "EYLÜL" Then 
    Sheets("Matrah").Select 
        Range("AF5").Select 
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "EKİM" Then 
    Sheets("Matrah").Select 
        Range("AI5").Select 
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "KASIM" Then 
    Sheets("Matrah").Select 
        Range("AL5").Select 
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 

    ElseIf Sheets("Çizelge").Range("Q2") = "ARALIK" Then 
    Sheets("Matrah").Select 
        Range("AO5").Select 
        
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
            False, Transpose:=False 
              
      End If
      End If  
Application.CutCopyMode = False 
        
End Sub

Range("C5").Select

işaretleniyor. Acaba kodlarda ne gibi hata var. Yardımcı olursanız memnun olurum.

 

[zimamdar]

kodlarda herhangibir sorun gözükmüyor benim aklıma gelen bişi hariç
acaba bu kodları Module içinde kullanmıyor olabilir misin ?

 

[mert25]

selam commandbuton kullanınca hata veriyordu. normal buton kullanınca hata vermedi. fakat anlayamadığı commandbuton kullanırken .select i .show a çevirmeme rağmen hata vermesi.