Bu kodlar ne anlama geliyor.Nasıl yorumlamalıyım.

[orkuncan5]

For i = 1 To Sheets.Count
If Sheets(i).Name <> "TOPTAN" Then
x = x + 1
ReDim Preserve arr(1 To x)
arr(x) = Sheets(i).Name
End If
Next
For k = 2 To [A65536].End(3).Row
For j = 1 To UBound(arr)
If arr(j) = Trim(Cells(k, 3)) Then
d = Sheets(arr(j)).[A65536].End(3).Row + 1
Sheets(arr(j)).Range("a" & d & ":" & "j" & d) = Sheets("TOPTAN").Range("a" & k & ":" & "j" & k).Value
End If
Next
Next

 

[Korhan Ayhan]

Merhaba,

İlk olarak çalışmanızdaki tüm sayfalar döngüye alınıyor.
Sonra sayfa isimlerinden "TOPTAN" ismine eşit olmayanlar arr() dizisine aktarılıyor.
Kodun çalıştırıldığı sayfadaki A sütunundaki veriler döngüye alınıyor.
Aynı döngü içinde arr() dizisindeki sayfalarda döngüye alınıyor.
arr() dizisindeki ilk sayfanın A sütunundaki ilk boş hücrenin satır numarası bulunuyor.
arr() dizisindeki ilk sayfanın A sütunundaki ilk boş satırındaki A:J aralığına "TOPTAN" isimli sayfanın A:J aralığı aktarılıyor.
Bu şekilde döngüler devam ediyor.

Bu tarz kodların çalışma prensiplerini F8 tuşuyla adımlayarak çalıştırıp gözlemleyebilirsiniz. Kodun bulunduğu pencerede F8 tuşuna bastıkça adım adım çalışacaktır.

 

[orkuncan5]

Teşekkür ederim Korhan Bey.Hayırlı Ramazanlar.