(05/02/2021, 21:22)berduş yazdı: aşağıdaki kod daha hızlı dizi yöntemiyle yapıldı
@feraz hocama saygılar))
Sub ListeAktarDz()
Dim SonStr As Long
Dim Sht As Worksheet
Dim ShtHdf As Worksheet
Dim Dizi() As Variant
Dim DiziKynk() As Variant
Set Sht = ThisWorkbook.Worksheets("ANA LİSTE")
Set ShtHdf = ThisWorkbook.Worksheets("SIRALAMA")
SonStr = Sht.Cells(Sht.Rows.Count, "A").End(xlUp).Row
StrSay = (SonStr - 1) \ 12 + 1
ReDim Dizi(StrSay, 12)
DiziKynk = Sht.Range("A2:A" & SonStr)
i = 0
For StrX = LBound(DiziKynk) To UBound(DiziKynk)
Dizi(((StrX - 1) \ 12), (StrX - 1) Mod 12) = DiziKynk(StrX, 1)
Next StrX
ShtHdf.Range("A2").Resize(UBound(Dizi, 1), UBound(Dizi, 2)) = Dizi
MsgBox "bitti"
End Sub
Konuyu pek inceleyemdim lakin koda bakınca SIRALAMA sayfası A sütun temizlenmemiş abey
Dizi kodları her derde dermandır