Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #7632 Delila_1 veterán motinka #7631
    Új Válasz #7632
    Ú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

    Delila_1

    veterán

    válasz motinka #7631 üzenetére

    Több dolgot kellett átírni benne. A Select Case sorban most már nem az A1-et [cells(1)], hanem a B5 cellát [cells(5,2)] kell figyeltetni.
    Az ÖSSZESnél sem írhatsz XX oszlopot. A kiterjesztésből gondolom, hogy a 2007-es verziónál előbbit használsz, ahol az utolsó oszlop az IV.
    A fentieket kijavítva:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim kezd As String, vég As String

    If Target.Address = "$B$5" Then
    Select Case Cells(5, 2)
    Case "CSABA"
    kezd = "D": vég = "F": GoTo Rejt
    Case "JÁNOS"
    kezd = "G": vég = "I": GoTo Rejt
    Case "FERENC"
    kezd = "J": vég = "L": GoTo Rejt
    Case "LÁSZLÓ"
    kezd = "M": vég = "O": GoTo Rejt
    Case "TIBOR"
    kezd = "P": vég = "R": GoTo Rejt
    Case "ÖSSZES"
    Columns("D:IV").Hidden = False
    End Select
    End If
    Exit Sub

    Rejt:
    Columns("D:IV").Hidden = True
    Columns(kezd & ":" & vég).Hidden = False
    End Sub

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