Excelde 2 farklı sütun için 2 ayrı VLOOKUP fonksiyonunun tek makro ile çalıştırmak

[sefikap]

Selam,

"YAYIN_NO"sayfasında "B" sütunun agirilecek her resim numarasının karşısına 1 nci sayfadaki "PARÇA ADI" değerinin ve "ÇİZEN" değerinin gelmesini istiyorum..
Yardımcı olabilirseniz benim için çok büyük bir engeli aşmamı sağlayacaksınız..

 

[Orion1]

Dosyanız ektedir.
Güle güle kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
Target.Offset(0, 1).ClearContents
Target.Offset(0, 3).ClearContents
Set k = Sheets("RESIM_NO").Range("A2:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Target.Offset(0, 1).Value = k.Offset(0, 1).Value
    Target.Offset(0, 3).Value = k.Offset(0, 3).Value
End If
End Sub

 

[sefikap]

olağan üstüsün...harikasın..çok teşekkürler..

 

[Orion1]

olağan üstüsün...harikasın..çok teşekkürler..

Rica ederim.
O sizin harikalığınız.

 

[Serdar SELEN]

Hocam gercekten hepınız harıkasınız arsıvıme aldım bende ıznınızle

 

[Orion1]

Hocam gercekten hepınız harıkasınız arsıvıme aldım bende ıznınızle

Rica ederim.
Güle güle kullanın.