range sınıfının select yönetimi başarısız HATASINI NASIL GİDERİRİM

[ark123]

arkadaşlar MAKBUZ sayfasında a1-j24 arasındaki hücreleri seçip yazdırmak istiyorum. Run-time error "1004": range sınıfının select yönetimi başarısız hatası veriyor. nedendir?

Sheets("MAKBUZ").Select
Sheets("MAKBUZ").Cells(6, 5) = Sheets("ANA SAYFA").Cells(6, 6)
Sheets("MAKBUZ").Cells(7, 5) = Sheets("ANA SAYFA").Cells(7, 6): Sheets("MAKBUZ").Cells(9, 5) = Sheets("ANA SAYFA").Cells(9, 6)
Sheets("MAKBUZ").Cells(8, 5) = Sheets("ANA SAYFA").Cells(8, 6)
Sheets("MAKBUZ").Cells(13, 2) = Sheets("ANA SAYFA").Cells(13, 7)

If Sheets("ANA SAYFA").Cells(13, 2) >= 2 Then Sheets("MAKBUZ").Cells(13, 7) = Sheets("ANA SAYFA").Cells(13, 2) & " Adet" Else Sheets("MAKBUZ").Cells(13, 7) = ""
Sheets("MAKBUZ").Cells(13, 8) = Sheets("ANA SAYFA").Cells(13, 10)
Sheets("MAKBUZ").Cells(14, 2) = Sheets("ANA SAYFA").Cells(14, 7)

If Sheets("ANA SAYFA").Cells(14, 2) >= 2 Then Sheets("MAKBUZ").Cells(14, 7) = Sheets("ANA SAYFA").Cells(14, 2) & " Adet" Else Sheets("MAKBUZ").Cells(14, 7) = ""
Sheets("MAKBUZ").Cells(14, 8) = Sheets("ANA SAYFA").Cells(14, 10)
Sheets("MAKBUZ").Cells(15, 2) = Sheets("ANA SAYFA").Cells(15, 7)
If Sheets("ANA SAYFA").Cells(15, 2) >= 2 Then Sheets("MAKBUZ").Cells(15, 7) = Sheets("ANA SAYFA").Cells(15, 2) & " Adet" Else Sheets("MAKBUZ").Cells(15, 7) = ""
Sheets("MAKBUZ").Cells(15, 8) = Sheets("ANA SAYFA").Cells(15, 10)
Sheets("MAKBUZ").Cells(16, 2) = Sheets("ANA SAYFA").Cells(16, 7)
If Sheets("ANA SAYFA").Cells(16, 2) >= 2 Then Sheets("MAKBUZ").Cells(16, 7) = Sheets("ANA SAYFA").Cells(16, 2) & " Adet" Else Sheets("MAKBUZ").Cells(16, 7) = ""
Sheets("MAKBUZ").Cells(16, 8) = Sheets("ANA SAYFA").Cells(16, 10)
Sheets("MAKBUZ").Cells(17, 8) = Sheets("ANA SAYFA").Cells(17, 10)
Sheets("MAKBUZ").Cells(20, 1) = Sheets("ANA SAYFA").Cells(20, 1)
Sheets("MAKBUZ").Cells(20, 6) = Sheets("ANA SAYFA").Cells(20, 6)
Sheets("MAKBUZ").Cells(21, 8) = Sheets("ANA SAYFA").Cells(21, 9)


YAZZ4 = MsgBox("YAZDIRMAK İSTİYOR MUSUNUZ?", vbYesNo)
If YAZZ4 = 6 Then
Sheets("MAKBUZ").Cells(1, 8) = Sheets("ANA SAYFA").Cells(4, 10)
Range("a1, j24").Select
'Range("a1:j24").Select
Selection.PrintOut Copies:=1
End If
Next

 

[antonio]

'Range("a1:j24").Select

satırının başındaki kesme işaretini kaldırın.

Range("a1, j24").Select

satırını silip deneyiniz.

 

[Orion1]

Bu hücrelerin bulunduğu satır ve sütunlar gizlenmiş olabilir veya birleştirilmiş olabilir.