Makro ile düşey ara kullanımı

[mesutaygun70]

[C4] = Evaluate("=VLOOKUP(Sheets("A").Range(“A1”), Sheets(“LİSTE”).Range("A4:AAA3000"), 2, False)")
YA DA
[Sheets("ÖN YÜZ").Range("C4")] = Application.VLookup(Sheets("A").Range(“A1”), Sheets(“LİSTE”).Range("A4:AAA3000"), 2, False)

Yukarıdaki gibi kodlar yazmaya çalıştım ama hata veriyor. c4 hücresine "a" sayfası a1 hücresindeki değeri, liste sayfasındaki 2. sutundaki değerle eşleşmesini istiyorum. Düşeyara formülünü makro ile yapmak istiyorum.Ama basit bir şekilde olması gerek zira bu formülden yaklaşık 200 tane düzenleme yapacağım.

 

[yanginci34]

Lütfen dosya yükleme sitelerine bir örnek dosya yüklermisiniz.

 

[mesutaygun70]

http://www.dosyaupload.com/90jO

 

[tahsinanarat]

Sn. mesutaygun70 kardeşim, ne yapmak istediğiniz anlayamadım, örnek dosyanızdan da bir şey anlaşılmıyor, bence daha açıklayıcı bir örnek dosya hazırlamalısın, düşeyara formülü ile olması lazım ama makro ile yazılması hazım demişsiniz, makro ile formülü yazdırıp sonra değere mi dönüştürmek istiyorsunuz. A sayfasındaki a1 hücresi ile eşleşsin istiyorsunuz... neyse benim kafam almadı.