vba da anlaşılmayan komutlar

[peacewillcome]

Birisi bu komutları açıklarsa gerçekten çok mutlu olurum

For i = 2 To sat2
Set k = s2.Range("A2:A" & sat2).Find(s1.Cells(i, "A").Value, , xl


ReDim Preserve liste(1 To 4, 1 To sat3 – 1)


Range("A2").Resize(UBound(liste, 2), 4) =

 

[Murat OSMA]

Üstteki kodları önceki konuda izah ettim onları geçiyorum.


liste dizisinin boyutları(1 ie 4 arasında , 1 ile sat3 değişkeninin aldığı değerin 1 eksiği arasında) olduğu belirtilmiş.
Not: Redim preseve ile dizinin elemanlarının taşıdığı değerlerin silinmemesi (kaybolmaması) istenmiş.
ReDim Preserve liste(1 To 4, 1 To sat3 – 1)


A2 hücresi ve onun devamındaki (B2-C2-D4 vs.) liste dizisinden elde edilecek değer kadar satır aralığına veri yazdırılmak istenmiş...
Range("A2").Resize(UBound(liste, 2), 4) =

 

[Murat OSMA]

Açıklamaları alıp kaçtınız mı ne oldu ? :dusun:

 

[peacewillcome]

önceki konu da açıkladığınız linkini gönderirseniz sevinirim

 

[Murat OSMA]

Açtığınız konuya bakabilirsiniz.

 

[peacewillcome]

Peki çok teşekkür ederim yardımlarınız için

 

[peacewillcome]

Buna da bir göz atarsanız...
sat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
sat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row
sat3 = 1