İ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
Range("C5").Select
işaretleniyor. Acaba kodlarda ne gibi hata var. Yardımcı olursanız memnun olurum.
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
Kod:
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
işaretleniyor. Acaba kodlarda ne gibi hata var. Yardımcı olursanız memnun olurum.