düşeyarar döngüsü hk.

[mrt]

Selamlar,
Yaklaşık 15 sutuna düşeyara ile veri alıyorum.

Bu durum dosyayı büyütekte ve Pc'yi kasmaktadır.

Bu durumu makro ile nasıl yaparım.

kullandığım formul;

eğer(ehatalıysa(düşeyara(B2; sayfa1!A565500;2;yanlış));0;düşeyara(B2; sayfa1!A565500;2;yanlış))

kullanmak istediğim;

eğer B2 hücresi dolu ise eğer(ehatalıysa(düşeyara(B2; sayfa1!A565500;2;yanlış));0;düşeyara(B2; sayfa1!A565500;2;yanlış))

bu sorguyu
B sutununun tüm hücrelerinde kontrol etmesini ve ard arda ü boş hücre varsa durmasını istiyorum.

 

[Levent Menteşoğlu]

Dosyanızı ekleyerek tekrar izah edermisiniz.

 

[mrt]

örnek dosya

Örnek dosya ektedir.
Bakiye sayfasında yazılı olan formulleri Makro ile yazdırmak istiyorum.

 

[mrt]

d

dosya ektedir.

 

[Qene]

Dosya ek'te değil kardeş..

 

[mrt]

bende anlamadım neden ekte değil

 

[Levent Menteşoğlu]

Dosya büyüklüğünüz limit üzerindedir. Sıkıştırarak ekleyin.

 

[mrt]

Selamlar

Örnek Dosya ektedir.

 

[mrt]

hatırlatma

Yardımcı olabilecek arkadaş ??

 

[mrt]

zaman aşımı ?

Sorum zaman aşımına uğradı sanırım ??

 

[Levent Menteşoğlu]

Ben size "bakiye" sayfanızdaki I,J,K sütunlarını dolduran bir kodlama önereyim, diğerlerini siz benzer şekilde ilave edersiniz.

Sub listele()
Set s1 = Sheets("bakiye")
Set s2 = Sheets("siparis_ozet")
For a = 2 To s1.[b65536].End(3).Row
say = WorksheetFunction.CountIf(s2.[a:a], s1.Cells(a, "b"))
If say > 0 Then
sat = s2.[a1:a65536].Find(s1.Cells(a, "b")).Row
s1.Cells(a, 9) = s2.Cells(sat, "b")
s1.Cells(a, "j") = s2.Cells(sat, "c")
s1.Cells(a, "k") = s2.Cells(sat, "d")
End If
Next
End Sub