Vba İf yordamı ile ilgili

[dellerlim]

Merhabalar.
Örnek dosya da ekleyebilirim gerekirse

for i = 1 to 10
if birincisayfa.cells(i,1) = ikincisayfa.cells(1,1) then
cells(sonsatir,1) = birincisayfa.cells(i,1)

end if
next i

birinci sayfadaki a sütununda ikinci sayfadaki a1 hücre değerini bulunca alt alta yazdırılıyor bu kodlarla ama ikinci sayfadaki a1 hücresi boş olunca veya "TÜMÜ" yazdırınca birinci sayfadaki a sütununun tamamını nasıl yazdırabilirim?

Forumdaki ilgili konuları inceledim ancak henüz bunu yazamadım. Şimdiden teşekkür ederim. (yukarıdaki kodları şimdi ezbere yazdım, bir hata olabilir ama ne yapmaya çalıştığım anlaşılmıştır umarım)

 

[dellerlim]

Böyle basit bir şeydi aslında işte ama uzun satırların arasından çözemedim sanırım
for i = 1 to 10

if birincisayfa.cells(i,1) = ikincisayfa.cells(1,1) Or ikincisayfa.cells(1,1)="" or ikincisayfa.cells(1,1)="TÜMÜ" then

cells(sonsatir,1) = birincisayfa.cells(i,1)

end if
next i

Konu silinebilir.

 

[Korhan Ayhan]

Merhaba,

A1 hücresi boş ise ya da TÜMÜ yazıyorsa tüm liste diğer sayfaya komple aktarılacaksa döngüye gerek yok. Kopyala-yapıştır ile tüm satırlar diğer sayfaya aktarılabilir. Döngüden daha hızlı sonuç verecektir.

Yine döngü ile A1 hücresinde yazan veriyi süzerek diğer sayfaya daha hızlı şekilde aktarabilirsiniz. Bunda da kopyala-yapıştır yöntemini kullanabilirsiniz.

 

[dellerlim]

Teşekkür ederim.