İki sorgu (VLookup) fonksiyon kod yazımı

[saydn]

Merhaba, farklı sütunlara başvuru yapan aşağıda verdiğim codları birleştirip veya peşpeşe nasıl yazabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B2:B250]) Is Nothing Then Exit Sub
For ara = 1 To 250
Range("I" & ara) = WorksheetFunction.VLookup(Range("B" & ara), Range("N:O"), 2, 0)
If Range("B" & ara) = "" Then
Range("B" & ara).Offset(0, 1) = ""
Range("B" & ara).Offset(0, 2) = ""
End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [F2:F250]) Is Nothing Then Exit Sub
For ara = 1 To 250
Range("I" & ara) = WorksheetFunction.VLookup(Range("F" & ara), Range("N"), 2, 0)
If Range("B" & ara) = "" Then
Range("F" & ara).Offset(0, 1) = ""
Range("F" & ara).Offset(0, 2) = ""
End If
Next
End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B2:B250,F2:F250]) Is Nothing Then
    For ara = 1 To 250
        Range("I" & ara) = WorksheetFunction.VLookup(Cells(ara, Target.Column), Range("N:P"), 2, 0)
        If Cells(ara, Target.Column) = "" Then
            Cells(ara, Target.Column).Offset(0, 1) = ""
            Cells(ara, Target.Column).Offset(0, 2) = ""
        End If
    Next
End If
End Sub

 

[saydn]

Sn.Ferhat Pazarçevirdi öncelikle sorumu cevapladığınız için teşekkür ederim ama verdiğiniz düzenlemeyi çalıştıramadım, tablom N ve N:O sütunlarına göre sorgulama yapmakta sizin yaptığınız düzenlemede sadece N değerleri görünüyor codların çalışmaması bundan kaynaklanıyor olabilirmi??