Hücre değerine göre "Hücre Açıklaması" gösterilsin/gösterilmesin

[alooo]

Arkadaşlar,
Bilindiği üzere hücre açıklaması girildiği taktirde; mouse üzerine geldiğinde veya sabit olarak göstermek mümkündür. Lakin benim yapmak istediğim;

Örneğin A sütunu hücrelerinde (yaklaşık 2000 satır) oluşturulan açıklamalar, A sütunu hücre değerlerii 1'e eşit olanlar gösterilsin, değilse gizlensin.

Kafa yoracak tüm arkadaşlara teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod gibi düşünülebilir.
-- Kod A sütunundaki hücrenin (A1'den A2000'e kadar) değeri 1 ise DENEME şeklinde hücre açıklaması ekler, değilse hücre açıklamasını siler.
-- Kod'u bir düğme ile ilişkiendirerek çalıştırın.

-- Sorun yaşarsanız, gerçek belgenizle aynı yapıda bir örnek belge yükleyerek, belgede gerekli açıklamaları yaparsınız,
-- Örnek belge özellikleri ve yükleme yöntemine ilişkin açıklama, cevabımın altındaki İMZA bölümünde var.
.

Sub Makro1()
    For sat = 1 To 2000
        On Error Resume Next
        If Cells(sat, "A") = 1 Then
            Cells(sat, "A").Comment.Visible = True
        Else
            Cells(sat, "A").Comment.Visible = False
        End If
    Next
End Sub