Açıklama metnine formül ekleme

[Yıldırım156]

Arkadaşlar iyi akşamlar kafama takılan bir soru var yardımcı olursanız sevinirim. Bir tablo var ve 10 a 10 bir tablo var diyelim tablonun içinde çeşitli ürün isimleri var. karışık yerleştirilmiş. Merak ettiğim şu A1 hücresinde bulunan ürünün açıklama metninde o tabloda o ürünün kaç kez yazıldığını göstersin. Mümkün mü acaba vba deneyimim yok

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

İlgili sayfanızın adı üzerinde sağ klik yapın ve KOD GÖRÜNTÜLE seçeneğini seçin.
Karşınıza gelen beyaz alana aşağıdaki kodu uygulayın.

Veri yazdığınız hücreye çift tıkladığınızda "C1:L20" aralığında veriyi sayar. Bu aralığı kendinize göre düzeltirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    On Error Resume Next
    Target.ClearComments
    Target.AddComment
    Say = WorksheetFunction.CountIf(Range("C1:L20"), Target)
    Target.Comment.Text Text:=CStr(Say) & " Adet"
End Sub

 

[Yıldırım156]

Aşağıdaki kodu deneyiniz.

İlgili sayfanızın adı üzerinde sağ klik yapın ve KOD GÖRÜNTÜLE seçeneğini seçin.
Karşınıza gelen beyaz alana aşağıdaki kodu uygulayın.

Veri yazdığınız hücreye çift tıkladığınızda "C1:L20" aralığında veriyi sayar. Bu aralığı kendinize göre düzeltirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    On Error Resume Next
    Target.ClearComments
    Target.AddComment
    Say = WorksheetFunction.CountIf(Range("C1:L20"), Target)
    Target.Comment.Text Text:=CStr(Say) & " Adet"
End Sub

Elinize Sağlık Korhan Bey İstediğim gibi olmuş açıklamalar ekrana geliyor tekrar gitmesi için ne yapabiliriz. Tekrar tıklandığında kaybolması için.