Makrom hata veriyor neden sizce ?

[semira_]

Sub sıralama()


Range("A1").Select
Worksheets("Sayfa1").Range("A2" & Cells(Rows.Count, "A").End(3).Row).ClearContents
For i = 1 To 5
For j = 1 To 4
For k = 1 To 5
s = s + 1
ActiveCell.Offset(s, 0) = i
ActiveCell.Offset(s, 1) = j
ActiveCell.Offset(s, 2) = k


Next

Next

Next

Dim m(5) As Variant

For j = 1 To m

For i = 1 To 4



ActiveCell.Offset(j, 3) = Int(Rnd * 11) + 20

Next


Next

 

[Necdet]

Merhaba,

For j = 1 To m

döngüdeki m bir dizi. dolayısıyla dizinin indisini belirtmezseniz örneğin m(2) gibi hatayı alırsınız.

 

[semira_]

statık dızılerde dızı lerın her bır ındıs degerı için bir değişken mi atamam gerekır ?
m(1)
m(2)
m(3)
m(4)

 

[Necdet]

Merhaba,

Böyle anlaşmak zor, siz ne yapmak istediğiniz belirtiniz, kodları arkadaşlar yazarlar. Siz de onları inceleyerek durumu anlarsınız.

 

[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

 

[semira_]

debug yapın range de aralık dısı kalmış olabilir

 

[ark123]

debug yapın range de aralık dısı kalmış olabilir

nasıl yapacağım