Açıklama Ekleme

[Partdown]

Merhaba a1 hücresinde yazan metini nasıl b1 hücresine açıklama olarak ekleriz

a1 de araba yazsın ben butona tıkladığımda b1 hücresine açıklama ekleyip içine araba yazıcak

teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub aek()
[b1].ClearComments
Range("B1").AddComment
Range("B1").Comment.Text Text:=[a1].Value
End Sub

 

[Partdown]

Bu şekilde deneyiniz.

Sub aek()
[b1].ClearComments
Range("B1").AddComment
Range("B1").Comment.Text Text:=[a1].Value
End Sub

Range("B1").Comment.Text Text:=[a1].Value
bu kısımda
application defined or object-defined error
Hatası Verdi

 

[Korhan Ayhan]

A1 hücresi boş ise o hatayı alırsınız.

Aşağıdaki gibi deneyiniz.

Sub Aciklama_Ekle()
    With Range("B1")
        .ClearComments
        If Range("A1").Text <> "" Then .AddComment Range("A1").Text
    End With
End Sub

 

[MrExcelMr]

A1 hücresi boş ise o hatayı alırsınız.

Aşağıdaki gibi deneyiniz.

Sub Aciklama_Ekle()
    With Range("B1")
        .ClearComments
        If Range("A1").Text <> "" Then .AddComment Range("A1").Text
    End With
End Sub

Korhan Bey,

A1 sütunundaki değerleri B sütunun 500 satırında aynı açıklama yazmasını birde Sayfanın herhangi bir hücresine çift tıkladığımda aynı açıklama yazması için kodda nasıl revize edilmeli.

 

[Partdown]

A1 hücresi boş ise o hatayı alırsınız.

Aşağıdaki gibi deneyiniz.

Sub Aciklama_Ekle()
    With Range("B1")
        .ClearComments
        If Range("A1").Text <> "" Then .AddComment Range("A1").Text
    End With
End Sub

Hocam dosyayı paylaştım ürün ekle butonuna her bastığımda yeni ürünleri alt alta ekliyor istediğim ise her ürünü eklediğinde fiyat kısmına isimi açıklama olarak yazması
örnek;

fiyat kısmında 500 üzerine geldiğimde açıklama olarak telefon yazması
3000 üzerine geldiğimde açıklama olarak araba yazması

teşekkürler

 

[Partdown]

Konu Kilit Çözüldü teşekkürler

 

[Korhan Ayhan]

Korhan Bey,

A1 sütunundaki değerleri B sütunun 500 satırında aynı açıklama yazmasını birde Sayfanın herhangi bir hücresine çift tıkladığımda aynı açıklama yazması için kodda nasıl revize edilmeli.

B1:B500 açıklama eklemek için;

Option Explicit

Sub Aciklama_Ekle()
    With Range("B1")
        .ClearComments
        If Range("A1").Text <> "" Then
            .AddComment Range("A1").Text
            .Copy
            .Resize(500).PasteSpecial xlPasteComments
            Application.CutCopyMode = False
            Range("A1").Select
        End If
    End With
End Sub

Sayfada hücreye çift tıkladığınızda açıklama ekleme için;

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With Target
        .ClearComments
        If Range("A1").Text <> "" Then .AddComment Range("A1").Text
    End With
End Sub