Hücreye Girilen Sayıya Göre Hücrenin İçine Açıklama Ekleyen Makro

[gezginanka]

Arkadaşlar merhaba,
Portaldaki ilk sorum olacak.
Sayfa 1 de ilk sütunda numara, 2. sütunda ise o numaraya denk gelen açıklamanın olduğu bir tablomuz mevcut

Sayfa 2 'de ise atıyorum 30 sütuna 50 satır bir tablomuz var. Ben bu alanda istediğim hücreye bir numara girmek istiyorum. O anda ilgili hücrenin açıklamasının Sayfa 1 deki tabloda o numaraya denk gelen açıklama olarak değişmesini istiyorum. Düşey ara fonksiyonunda olduğu gibi numaraya denk gelen açıklama çekilecek ama bunu hücreye açıklama olarak girebilmek benim makro ile yapabileceğim birşey değil )

Yardımcı olacak herkese şimdiden çok teşekkür ederim.

 

[PLİNT]

Merhaba
Ek dosyadaki gibi işinize yararmı?
Sayfa1 "A" sütununda bulunan değeri, "sayfa2" de herhangi bir hücreye yazarak deneyin.
http://s7.dosya.tc/server3/0g8wq7/Kitap1.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Column > 30 Or Target.Value = "" Or Target.Row > 50 Then Exit Sub
Dim s1 As Worksheet, açıklama As String
Set s1 = Sheets("Sayfa1")
On Error Resume Next
açıklama = WorksheetFunction.VLookup(Target, s1.Range("A1:B50"), 2, False)
If Err <> 0 Then MsgBox "Yazılan değer bulunamadı": Exit Sub
Target.Cells.AddComment
Target.Cells.Comment.Text Text:=açıklama
End Sub[/SIZE]

 

[gezginanka]

Sevgili @PLİNT tam olarak aradığım şey buydu. Harikasınız, çok çok teşekkür ederim. Bu foruma mümkün olduğunca katkı vereceğim bende, çok gerekli bir platform.. Tekrar teşekkürler