düşey ara sayfa eklemek

[lansor]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Range("B" & Target.Row).ClearContents
Set k = Sheets("Sayfa2").Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("B" & Target.Row).Value = _
Sheets("Sayfa2").Range("B" & k.Row).Value
End If
End Sub

yukarıdaki kod sayfa 2 de veri arayıp buluyor sayfa 2 de yoksa sayfa 3 te arasın bulsun sayfa 3 ü nereye nasıl eklemeliyim tşk

 

[leumruk]

Merhaba,
Aşağıdaki gibi dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Set syf = Sheets("Sayfa2")
Range("B" & Target.Row).ClearContents
For x = 1 To 2
Set k = syf.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("B" & Target.Row).Value = _
[COLOR="DarkRed"]syf.[/COLOR]Range("B" & k.Row).Value
Exit Sub
End If
Set syf = Sheets("Sayfa3")
Next
End Sub

 

[lansor]

teşekkürler dostum eline sağlık ama olmamış
sayfa 1 a2 ye yazdığım veriyi, sayfa 2 in a sütunda arayacak varsa karşısındaki veriyi getirecek
şayet sayfa 2 de yoksa sayfa 3 a sütununa bakacak orda bulursa karşısındaki veriyi getirecek

 

[leumruk]

Kodu düzelttim. Düzelttiğim kısmı kırmızı ile belirttim.

 

[lansor]

teşekkürler hocam eline sağlık çalışıyor