For Each döngüsü ile Vlookup döngüsü

[Tornael]

Selamlar,

Ekteki örnekte basit bir for each döngüsü var. Bu döngüde değiştirilecek tek özellik, dikkat ederseniz her Vlookup formülünde aranacak hücre "A1" olarak belirlenmiş. Aranacak hücreyide ardışık yapabilir miyiz?
Aranacak hücre örn.
=VLOOKUP(A1,Sheet2!A:A;1,0)
=VLOOKUP(A4,Sheet2!A:A;1,0)
=VLOOKUP(A7,Sheet2!A:A,1,0)
...
...
...
Gibi.

 

[asi_kral]

Merhaba
Bu makro ile ne gibi işlem yapmak istiyorsunuz.

 

[hamitcan]

Sub Macro1()
    Columns(2).Clear
    For i = 1 To [a65536].End(3).Row
    If Cells(i, 1) <> "" Then
         Cells(i, 2).Formula = "=VLOOKUP(" & """" & Cells(i, 1) & """" & ",Sheet2!A:A,1,0)"
    End If
    Next
End Sub

 

[Tornael]

Örnek

Arkadaşlar ilginiz için teşekkürler. Eksik anlattım. Ekteki excelde "A" kolonunun "C" kolonu gibi olmasını rica ediyorum. (Bu makro yalnızca "A" kolonu için olacak.)

 

[hamitcan]

Böyle deneyin.

Sub Macro2()
    Columns(2).Clear
    For i = 3 To 156 Step 3
         [B1] = "Istanbul"
         Cells(i, 2).Formula = "=VLOOKUP(" & Cells(i - 2, 1).Address(False, False) & ",Sheet2!A:A,1,0)"
    Next
End Sub

 

[Tornael]

Tebrikler...

Tam istediğim gibiydi Hamitcan Bey ellerinize sağlık.

 

[Mehmet.tanis]

MErhaba arkadaslar ;

Benzer bir donguyede benim ihtiyacim var..
Tek excelde 400 tane sheetim var ve bu sheetlerin hepsinin adi birbirinden farkli. Birde source1 ve source2 sheetlerim var. Bu 400 tane farkli isimli sheetin icerisinde ilk kolonda 20 satirlik bir baslik var ve karsilarinda gun gun sayisal degerleri olan bilgiler var.. HErgun source1 ve source2 sheetlerindeki bilgileri son gun olacak sekilde kendim ekliyor olacam.. Makro gidip bu 400 tanelik her bir sheetin icerisindeki 20 satirlik basliklara ait son gunluk sayisal degeri source1 ve source 2 sheetlerinden alarak VLOOKUP usuluyle getirip karsisina yapistiracak..
Aslinda bunu tek tek VLOOKUP uzerinden yapabiliyoruz ancak bana dongu olarak otomatik yapacak bir dongu lazim.. YArdimci olabilecek varmi ?
Yani
A sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
B sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
C sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
D sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
.
.
.
.
.
.

Z sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak

 

[Ömer BARAN]

MErhaba arkadaslar ;

Benzer bir donguyede benim ihtiyacim var..
Tek excelde 400 tane sheetim var ve bu sheetlerin hepsinin adi birbirinden farkli. Birde source1 ve source2 sheetlerim var. Bu 400 tane farkli isimli sheetin icerisinde ilk kolonda 20 satirlik bir baslik var ve karsilarinda gun gun sayisal degerleri olan bilgiler var.. HErgun source1 ve source2 sheetlerindeki bilgileri son gun olacak sekilde kendim ekliyor olacam.. Makro gidip bu 400 tanelik her bir sheetin icerisindeki 20 satirlik basliklara ait son gunluk sayisal degeri source1 ve source 2 sheetlerinden alarak VLOOKUP usuluyle getirip karsisina yapistiracak..
Aslinda bunu tek tek VLOOKUP uzerinden yapabiliyoruz ancak bana dongu olarak otomatik yapacak bir dongu lazim.. YArdimci olabilecek varmi ?
................

Merhaba,
foruma hoşgeldiniz.

Bence sorunuzu bir örnek belge üzerinden sormanızda yarar var.

Örnek belgenin;
-- gerçek belgeyle aynı yapıda olmasına (sayfa/satır/sütun yapısı, veri başlangıç satırı gibi),
-- gerçek verileri temsil edebilecek nitelikte veriler içermesine (tarih/sayı/metin gibi veri türü önemli)
-- farklı durumlar/seçenekler varsa, bunların tümünü içermesine,
-- olması gereken sonuçları, olması gereken konumlarına elle yazarak, bunları nasıl bulduğunuzu kısaca açıklamaya,
-- varsa belgede kullanılan userform ve makroların dosya içerisinde olmasına
özen gösteriniz.

Örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.
.