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.