Új hozzászólás Aktív témák

  • Wyll

    őstag

    Vajon mi a baj?

    Azt akarom, hogy egy userform-on lévő toggle button akkor és csak akkor legyen benyomva (value=1), amikor bizonyos oszlopok nincsenek elrejtve (hidden = false); illetve hogy a be vagy kikapcsolása egyben rejtse is el vagy jelenítse is meg a cellákat.

    A rejtés/felfedés funkció működik is szépen, csak az inicializálás nem: ha a cellák el vannak rejtve, akkor sem lesz benyomott állapotú a userform indulásakor.

    Private Sub togbutTranslate_Click()
    If Range("b_forditocellak").EntireColumn.Hidden = True Then
    Range("b_forditocellak").EntireColumn.Hidden = False
    Else
    Range("b_forditocellak").EntireColumn.Hidden = True
    End If
    End Sub

    Private Sub UserForm_Initialize()
    If Range("b_forditocellak").EntireColumn.Hidden = True Then
    Me.togbutTranslate.Value = True
    End If
    Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
    End Sub

Új hozzászólás Aktív témák