vlookup fonksiyonu makro kodu hk.

[mrt]

Selamlar,
Kurban Bayramınızın ; tüm islam alemine hayırlara vesile olması dileklerimle, Mübarek olsun.

Ekli kodda bir problemim var.

Aktif olan çalışma sayfasında B sutunu dolu ise; C sütunununa; Düşeyara Mtyf_çalışmalar.xls / Musteriler sayfası A sütunun 2. sutunu değerini yazacak.

Ben siteden aldığım kodlarda düzeltme yapmaya çalıştım. Başaramadım.


Sub musteri_no_yaz()

Application.ScreenUpdating = False
Dim X As Integer
ALAN = ActiveSheet.UsedRange.Rows.Count
For X = ALAN To 1 Step -1
If Cells(X, 2) <> "" Then
Cells(X, 3) = WorksheetFunction.VLookup([x,2],[MTYF_MAKROLAR.xls]musteriler!.Columns("A: D"), 2, False)
End If
Next
Application.ScreenUpdating = True
End Sub