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

• #7603 Delila_1 veterán motinka #7601

  Új Válasz 2010-07-14 18:07:46 #7603

  Ú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 #7601 üzenetére

  Itt a makró, elég jól látszik belőle, melyik adatokat kell átírnod. A Case utasításokból az End Select sor elé akárhány újat beszúrhatsz. Ennek alapján eldöntheted, mit akarsz később a további adatokhoz idomítani, a különböző nézeteket, vagy a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim kezd As String, vég As String
  
  If Target.Address = "$A$1" Then
  Select Case Cells(1)
  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 = "P": GoTo Rejt
  End Select
  End If
  Exit Sub
  
  Rejt:
  Columns("D:O").Hidden = True
  Columns(kezd & ":" & vég).Hidden = False
  End Sub

  A makrót a kérdéses laphoz kell rendelned. Lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben jobb oldalon kapott üres lapra másold be.

  Szerk.: a Columns("D:O").Hidden = True sorban a kettőspont után nem nulla van, hanem O betű, az utolsó felhasznált oszlopod betűjele.

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