Herkese iyi akşamlar.
Aşağıdaki kod hata vermekte ve ben bunu aşamıyorum. Sebep nedir. LÜtfen yardım edin.
Şimdiden çok teşekkür ederim.
Kodun 12. satır hata vermekte (>>"s2.Cells(sat, 1).Resize(, UBound(dizim) + 1).Value = dizim")
Hata mesajı: run time error 1004 application defined or object defined error
Bu kod ile sayfa birde bulunan bir sütunda 21 adet olmak üzere toplam 3 sütundaki 62 veriyi 1'den 62'ye kadar sıralı olarak sayfa 2'ye aktarmak ve satır satır kayıt yapmakta.
Aşağıdaki kod hata vermekte ve ben bunu aşamıyorum. Sebep nedir. LÜtfen yardım edin.
Şimdiden çok teşekkür ederim.
Kodun 12. satır hata vermekte (>>"s2.Cells(sat, 1).Resize(, UBound(dizim) + 1).Value = dizim")
Hata mesajı: run time error 1004 application defined or object defined error
Bu kod ile sayfa birde bulunan bir sütunda 21 adet olmak üzere toplam 3 sütundaki 62 veriyi 1'den 62'ye kadar sıralı olarak sayfa 2'ye aktarmak ve satır satır kayıt yapmakta.
Kod:
Sub aaaaa()
Dim i%, a%, sat%, sut%, s%, s1 As Worksheet, s2 As Worksheet, dizim()
Set s1 = Sayfa1: Set s2 = Sayfa2
sat = s2.Range("A65536").End(3).Row + 1: sut = 1
For a = 4 To 10 Step 3
For i = 4 To s1.Range("C65536").End(3).Row
ReDim Preserve dizim(s)
dizim(s) = s1.Cells(i, a).Value
s = s + 1
Next i
Next a
s2.Cells(sat, 1).Resize(, UBound(dizim) + 1).Value = dizim
Erase dizim: Set s2 = Nothing: Set s1 = Nothing: sut = Empty:
sat = Empty: a = Empty: i = Empty: s = Empty
End Sub