Seçim yaparak hücreye açıklama eklemek

[CenTay]

Merhabalar,

Sayfada userformla seçim yapacağım ve bu seçimi bir başka sayfada yine seçilen hücreye açıklama olarak ekleyeceğim, hücreye gidincede açıklamayı göreceğim, yapmak istediğim bu,dosyada da açıklamaya çalıştım
Yardımcı olan arkadaşlara teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu formunuza uygulayıp denermisiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    If TextBox1 = "" Then
        MsgBox "Lütfen -Aktarılacak Hücre Adresi- bilgisiniz giriniz !", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
 
    If TextBox2 = "" Then
        MsgBox "Lütfen -Veri Sayfasındaki Hedef Hücre- bilgisiniz giriniz !", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
    
    If Sheets("Veri").Range(TextBox2).Text = "" Then
        If MsgBox("Aktarmak istediğiniz " & TextBox1 & " hücresi boş !" & Chr(10) & _
        "İşleme devam etmek istiyor musunuz?", vbCritical + vbYesNo) = vbYes Then
        
            With Sheets("Veri").Range(TextBox2)
                .ClearComments
                .AddComment
                .Comment.Visible = False
                .Comment.Text Text:=Sheets("Menüler_Düzen").Range(TextBox1).Text
            End With
        End If
    End If
End Sub

 

[CenTay]

Merhaba,

Aşağıdaki kodu formunuza uygulayıp denermisiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    If TextBox1 = "" Then
        MsgBox "Lütfen -Aktarılacak Hücre Adresi- bilgisiniz giriniz !", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
 
    If TextBox2 = "" Then
        MsgBox "Lütfen -Veri Sayfasındaki Hedef Hücre- bilgisiniz giriniz !", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
 
    If Sheets("Veri").Range(TextBox2).Text = "" Then
        If MsgBox("Aktarmak istediğiniz " & TextBox1 & " hücresi boş !" & Chr(10) & _
        "İşleme devam etmek istiyor musunuz?", vbCritical + vbYesNo) = vbYes Then
 
            With Sheets("Veri").Range(TextBox2)
                .ClearComments
                .AddComment
                .Comment.Visible = False
                .Comment.Text Text:=Sheets("Menüler_Düzen").Range(TextBox1).Text
            End With
        End If
    End If
End Sub

Teşekkür ederim Korhan hocam

Şimdilik sorun gözükmüyor, ellerine sağlık diyorum,