Kod yardımı hk.

[talebeyim]

Sub duseyara()
Range("M4").Formula = "=VLOOKUP(A4," & "'D:\ONEMLI\Belgeler\00. BantPaket\[Koltuk.xls]Koltuk'!A:G" & ",7,0)"
End Sub

Yukarıdaki formülde, "M4" olan yeri "M200"e kadar arttırmak istiyorum, döngü bilmediğimden bu kodu 200 kere alt alta kopyalamak yerine nasıl döngü yapabilirim.

 

[asi_kral]

Merhaba

Option Explicit
Sub duseyara()
Range("M4:M200").Formula = "=VLOOKUP(A4," & "'D:\ONEMLI\Belgeler\00. BantPaket\[Koltuk.xls]Koltuk'!A:G" & ",7,0)"
End Sub

Bu şekilde dener misiniz_?

 

[talebeyim]

Asi kral teşekkür ederim.
Birşey daha sormak Peki ("M4:M200") arasını seçip değer olarak yapıştırmak istediğimde ne yapmam gerek.

 

[dEdE]

Merhaba,
Bunu dener misiniz?

Sub duseyara()
Range("M4:M200").Formula = "=VLOOKUP(A4," & "'D:\ONEMLI\Belgeler\00. BantPaket\[Koltuk.xls]Koltuk'!A:G" & ",7,0)"
[B]Range("M4:M200").Value = Range("M4:M200").Value[/B]
End Sub

 

[talebeyim]

Tamamdır her ikinizede teşekkür ederim