Fomülü makroya çevirme

[jinken]

Ekli dosyamdaki düşeyara formülünü bir türlü makroya çeviremedim. Önceden yazılmış makro örneklerinide bir türlü uyarlayamadım makrolardan pek anlamadığım için denedim ama uyarlayamadım.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_düşeyara()
Application.ScreenUpdating = False
Dim U As Long
Dim S1 As Worksheet
Dim SV As Worksheet
Set SV = Sheets("ham ürünler")
Set S1 = Sheets("siparişler")

On Error Resume Next
S1.Range("G2:G65536").ClearContents
For U = 2 To S1.[E65536].End(3).Row
If S1.Cells(U, "E") <> "" Then

If WorksheetFunction.CountIf(SV.Range("A:A"), S1.Cells(U, "E")) > 0 Then ' EĞERSAY
' SAĞDAKİ
S1.Cells(U, "G") = WorksheetFunction.VLookup(S1.Cells(U, "E"), SV.Range("A:B"), 2, 0)
Else
S1.Cells(U, "G") = "Yok"
End If

Else
End If

Next U
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[jinken]

çok teşekkür ederim elleriniz dert görmesin. Hayırlı Bayramlar