Hirdetés

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

  • m.zmrzlina

    senior tag

    válasz jani-wan #12360 üzenetére

    Bocs nem voltam egyértelmű, és összekeverted a két dolgot.

    Tehát ha jól értem van (legalább) két munkalapod. Az egyik amin az adatokat akarod ellenőrizni a másik amin beállítod, hogy mely oszlopokra van szükséged.

    Van még a következő kód (most csak erre lesz szükséged semmi másra):

    Private Sub Worksheet_Change(ByVal Target As Range)

    For i = 1 To 60
    If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False

    Next

    End Sub

    Ezt a kódot a beállító munkalapodhoz rendeled úgy, hogy a lapfülön jobbkatt majd Kód megjelenítése opciót választod. Az így kapott VBA mezőbe bemásolod a kódot úgy, hogy a Munka1 munkalapneveket átírod a saját munkalapod nevére. Nem amelyik fülén kattintottál az előbb, hanem azéra amin az adatokat fogod ellenőrizni.

    Ebbe a munkafüzetbe semmi más kód nem kell!

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