Yardım Excel Makro Butonları Gerektiği Gibi Çalışmıyor

kiwanc · 20 Eki 2023

Sub ToggleCommentVisibility(ByVal buttonName As String, ByVal commentRangeAddress As String)
Dim button As Shape
Dim commentRange As Range

Set button = ActiveSheet.Shapes(buttonName)
Set commentRange = ActiveSheet.Range(commentRangeAddress)

If button.TextFrame.Characters.Text = "Göster" Then
button.TextFrame.Characters.Text = "Gizle"
commentRange.Comment.Visible = True
Else
button.TextFrame.Characters.Text = "Göster"
commentRange.Comment.Visible = False
End If
End Sub

Sub ToggleAçıklamaGösterGizle()
ToggleCommentVisibility "Düğme 1", "C2"
End Sub

Sub ToggleİmzaSirküsüGizle()
ToggleCommentVisibility "Düğme 3", "C5"
End Sub

Sub ToggleVergiLevhasıGizle()
ToggleCommentVisibility "Düğme 4", "C8"
End Sub

Sub ToggleTicaretSicilGazetesiGizle()
ToggleCommentVisibility "Düğme 6", "C11"
End Sub

Sub ToggleFaaliyetBelgesiGizle()
ToggleCommentVisibility "Düğme 7", "C14"
End Sub

Sub ToggleYetkiliKişiKimlikGizle()
ToggleCommentVisibility "Düğme 8", "C17"
End Sub

Sub ToggleKuruluşGazetesiGizle()
ToggleCommentVisibility "Düğme 9", "C21"
End Sub

Sub ToggleGerçekFaydalanıcıGizle()
ToggleCommentVisibility "Düğme 10", "C24"
End Sub

Sub ToggleKimlikVeyaPasapotGizle()
ToggleCommentVisibility "Düğme 11", "C27"
End Sub

her bir butona bastığımda tanımlı olan hücredeki açıklamayı gösterip gizliyor ilgili çalışma sayfasında sorunsuz çalışıyor 2. çalışma sayfasına kopyaladığımda butonlar düzgün çalışmamaya başlıyor ek olarak koyduğum örnek sorunumu anlatacaktır diye tahmin ediyorum bilgisayardan veya excel den anlayan biri değilim internetten araştırarak yapılanları kopyalayarak kendimce işimi kolaylaştıracak basit çözümler bulmaya çalışıyorum müsait olanlar göz atıp nereyi nasıl düzeltmem gerektiğini söylerse sevinirim

blizzard · 22 Eki 2023

Bir dener misiniz, Umarım çalışır.

Kodu VBA editörde Modül yada Sayfa değilde "BuÇalışmaKitabı" yazan alana yapıştırın ve deneyin.

C#:

Sub ToggleCommentVisibility(ByVal buttonName As String, ByVal commentRangeAddress As String)
    Dim button As Shape
    Dim commentRange As Range

    ' Aktif sayfada belirtilen düğme ve hücre adreslerini hedefle
    Set button = ActiveSheet.Shapes(buttonName)
    Set commentRange = ActiveSheet.Range(commentRangeAddress)

    ' Düğme metnini kontrol et ve açıklamayı göster/gizle
    If button.TextFrame.Characters.Text = "Göster" Then
        button.TextFrame.Characters.Text = "Gizle"
        commentRange.Comment.Visible = True
    Else
        button.TextFrame.Characters.Text = "Göster"
        commentRange.Comment.Visible = False
    End If
End Sub

Sub ToggleProtocolsOnAllSheets()
    Dim ws As Worksheet
    Dim buttonName As String
    Dim commentRangeAddress As String

    ' Bütün çalışma kitabındaki her sayfa için işlemi yap
    For Each ws In ThisWorkbook.Worksheets
        ' Her sayfadaki düğme ve hücre adreslerini belirtin
        If ws.Name = "Sayfa1" Then
            buttonName = "Düğme 1"
            commentRangeAddress = "C2"
        ElseIf ws.Name = "Sayfa2" Then
            buttonName = "Düğme 3"
            commentRangeAddress = "C5"
        ' Diğer sayfalar için de benzer şekilde devam edin
        ' ElseIf ws.Name = "Sayfa3" Then
        '     buttonName = "Düğme X"
        '     commentRangeAddress = "CXX"
        End If

        ' Belirtilen düğme ve hücre adresleriyle ToggleCommentVisibility prosedürünü çağır
        ToggleCommentVisibility buttonName, commentRangeAddress
    Next ws
End Sub

Yardım Excel Makro Butonları Gerektiği Gibi Çalışmıyor

Daha fazla seçenek

kiwanc

Ekli dosyalar

blizzard