Mükerrer verileri listeleyen kodun açıklaması

[schahi]

Daha önce açtığım bir başlığın pek fazla ilgi görmemesinden dolayı sorumu yalınlaştırıyorum.Aşağıdaki kodun ne görev gördüğünü yada açıklamasını yapabilir misiniz.
Şimdiden teşekkürler


For X = 4 To .Range("A65536").End(3).Row
For Y = 2 To .Range("IV3").End(1).Column
SİPARİŞ.Add .Cells(X, Y), CStr(.Cells(X, Y))

 

[usubaykan]

Merhaba,

Anladığım kadarıyla yanıtlamak istedim. X için 4'üncü satırdan başla A65536'ncı satırdan yukarıya doğru çık en son dolu olan satıra kadar döngüye al. Y için 2'nci sütundan başla IV3'üncü sütundan sola doğru en son dolu olan sütuna kadar döngüye al. Satır(X sayısı kadar),Sütun(Y sayısı kadar), İfade(Satır(X sayısı kadar) , Sütun ( Y sayısı kadar)) Sipariş ekle.

Umarım yardımcı olur