Sütundaki numaralarin karsisina isimini getirme

[dennisf06]

merhaba,

sayfa 2 de a1 sütunundan a50 sütununa kadar malzeme numaralari ve bunlarin karsininda b1 sütunundan b50 sütununna kadar malzeme isimleri mevcut. 02 Elma, 35 Portakal gibi. Ana isimli calisma sayfamda E sütununa 02 yazdigim zaman F sütununda karsiligi olan Elma gelsin istiyorum. makro ile bunu nasil yapabilirim. tesekkür ederim.

 

[turist]

"Ana" sayfanızın sayfa kodu kısmına:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65000")) Is Nothing Then
On Error Resume Next
Target.Offset(, 1).Value = Application.VLookup(Target, Sheets("Sayfa2").Range("A:B"), 2, False)
If Target.Value = "" Or Target.Offset(, 1) = "Error 2042" Then
Target.Offset(, 1).Value = ""
End If
End If
End Sub

şeklinde uygulayın.

 

[dennisf06]

merhaba,

calisma sayfam olan Ana sayfasinin E sütununa Sayfa 2 de olusturmus oldugum malzeme numaralarini yazmama ragmen bir sey olmadi. makroyu Ana sayfasinin kod bölümüne kopyaladim. tesekkür ederim.

 

[turist]

If Not Intersect(Target, Range("A1:A65000")) Is Nothing Then

satırını

If Not Intersect(Target, Range("E1:E65000")) Is Nothing Then

olarak değiştirin.

 

[dennisf06]

tesekkür ederim turist ustam saglicakla kal.