Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #42944 daddy9 tag
    Új Válasz #42944
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    daddy9

    tag

    Sziasztok!

    Egy kis segítséget szeretnék kérni.
    Az alábbi makrót szerkesztettem át egy meglévő alapján:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    LastColumn = 27 'Last Column
    For i = 5 To LastColumn 'Lopping through each Column
        If Cells(36, i) = "" Then Columns(i).EntireColumn.Hidden = True
        If Cells(36, i - 1) <> "" Then Columns(i).EntireColumn.Hidden = False
    Next
    Application.ScreenUpdating = True
    End Sub

    A lényege annyi lenne, hogy megnézi, hogy a 36. sorban van-e valami és ha nincs, akkor elrejti, kivéve az első 4 oszlopot. Ezen felül, ha egy oszlop 36. sorában van valami, akkor a tőle jobbra lévő oszlopot láthatóra állítom, hogy legyen hova írni.

    Ha ezt a makrót egy új állományba átmásolom, akkor hibát ír.
    Gondolom az a baja, hogy az IF nincs lezárva (?), de akkor ha hiba van benne, akkor most miért működik a fenti formájában?
    Segítenétek megfelelően lezárni? :B
    Köszönöm a segítséget!

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