verileri sorgulayarak tabloda toplamak istiyorum, ancak boş hücreleri almasın!..

[Selçuk1]

selamlar;

konu hakkında excel dershanesi dahil heryerde arama yaptım ancak tam olarak istediğim ve bana fikir verebilecek bir örnek bulamadım. aslında hangi anahtar kelimeyle arayacağımı da tam olarak bilmiyorum.. :roll:
çalışma kitabımda iki tane sayfa var. ben sayfa2de A3:E22 sütunlarında bulunan verileri sayfa1 deki tabloya aktarmak istiyorum ancak boş yada değer sıfır olan hücreleri tabloya yazmasın. anladığım kadarıyla EYOKSA formulüyle yapılacak, ama tam olarak çözemedim. diğer isteğim ise sadece sayfa2 C sütunu için kısıtlama getirmek.. yani bu sütundaki verilerden içerisinde "CAN" kelimesi olanları da almasın. ( bu son söylediğim çok zorunlu değil, ama olursa iyi olur ve beni uzun sürecek bir manuel işlemden kurtarır) makro veya fonksiyonla hangisi ile yapılabilir bu istediklerim. fikir verebilecek arkadaşım varmı?

ilgilinecek arkadaşlara teşekkürler.. (örnek dosya ekte)
saygılar..

 

[veyselemre]

Sub aktar()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

S1.[A2:A65536].ClearContents

sat = 2
For Each huc In S2.Range("a3:a22,b3:b22,c3:c22,d3:d22,e3:e22").Cells

    If huc.Column = 3 And InStr(huc.Value, "CAN") > 0 Then GoTo ATLA
    
    If huc.Value <> 0 Then
        S1.Cells(sat, 1) = huc.Value
        sat = sat + 1
    End If
    
ATLA:
Next

End Sub

 

[Selçuk1]

Sayın veyselemre;

ilginize ve yardımınıza çok teşekkürler. tam olarak istediğim buydu ve sorunum çözüldü. tekrar teşekkürler.. ancak küçük bir sorum daha olacak.

aşağıdaki kod satırında anladığım kadarıyla büyük küçük harf duyarlı, yani küçük harfle "can" yazıldığında ayırmıyor. bu sorunu nasıl çözebilirim.?? tekrar teşekkürler..

If huc.Column = 3 And InStr(huc.Value, "CAN") > 0 Then GoTo ATLA

Saygılar..

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz satırdan bir adet daha yazıp küçük harfle "can" yani aşağıdaki gibi yazıp denermisiniz.

If huc.Column = 3 And InStr(huc.Value, "CAN") > 0 Then GoTo ATLA
If huc.Column = 3 And InStr(huc.Value, "can") > 0 Then GoTo ATLA

 

[Selçuk1]

Sayın Cost_Control;

ilginize ve yardımınıza çok teşekkürler. sorunum çözüldü.

saygılar...

 

[veyselemre]

Şöyle deneyin,

If huc.Column = 3 And InStr(UCase(huc.Value), "CAN") > 0 Then GoTo ATLA

 

[Selçuk1]

sayın veyselemre;

ilginize ve yardımlarınıza teşekkürler, sorunum çözüldü.. bilginin paylaşılması böyle güzel bir şey işte..

saygılar...