Açık dosyadan arama yolu ile satırın iki yerinden veri çekmek

[Filose]

Herkese Merhaba,

Ekteki dosyada gerekli basit açıklama var. Açık olan bilanço dosyasından A ile C sütunundaki istediğim hücrelerin verilerini çekebiliyorum ama;

Açık olan Bilanço dosyasından aynı satırda 2. arama ile D7 ve F7 sutünundaki veriyi, buradaki D22 ve W22 hücrelerine aktaramadım.

Bir örnek olursa diğer kalan aktarımları ben yapabilirim.

Şimdiden teşekkür eder herkese saygılar sunarım.

 

[Filose]

Herkese Merhaba,

Yardımcı olabilecek arkadaş varsa çok makbule geçecek. Aslında dosyada çalışan kısa ve sade bir makro var.

Sadece aynı satırın başka hücresinde arama yaparak veriyi almak. Ben bunu yapamadım. Satırda 1. arama ile istediğim hücreyi aldım ama aynı satırda 2. aramayı beceremedim.

Saygıyla kalın

 

[YUSUF44]

D22'deki düşeyara formülünde aranan verileriniz D sütununda olduğu halde siz A sütununda aratıyorsunuz.

.Range("D22") = WorksheetFunction.VLookup("I- KISA VADELİ YABANCI KAYNAKLAR", K2.Sheets(1).Range("A:F"), 4, 0)
.Range("W22") = WorksheetFunction.VLookup("I- KISA VADELİ YABANCI KAYNAKLAR", K2.Sheets(1).Range("A:F"), 5, 0)

yerine

        .Range("D22") = WorksheetFunction.VLookup("I- KISA VADELİ YABANCI KAYNAKLAR", K2.Sheets(1).Range("[B][COLOR="Red"]D[/COLOR][/B]:F"), [COLOR="red"][B]1[/B][/COLOR], 0)
        .Range("W22") = WorksheetFunction.VLookup("I- KISA VADELİ YABANCI KAYNAKLAR", K2.Sheets(1).Range("[B][COLOR="red"]D[/COLOR][/B]:F"), [COLOR="red"][B]3[/B][/COLOR], 0)

kullanınız.

 

[Filose]

Yusuf Bey Merhaba,

Ben (D:F) 'yi aranacak alan diye düşünmüştüm. Bu yüzden anlayamadım.

Emeğinize teşekkür eder saygılar sunarım.

İyi çalışmalar dilerim.