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

• #7606 Fire/SOUL/CD félisten Fire/SOUL/CD #7605

  Új Válasz 2010-07-14 22:35:50 #7606

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fire/SOUL/CD #7605 üzenetére

  Hali!

  Ja nem teljesen azt csinálja, amit kértél "Az összesnél kinyílna a teljes táblázat." kimaradt, úgy hogy Delila_1 utólagos engedélyével beleírtam azt a 2 sort a kódba.
  Neked meg még annyi dolgod lesz, hogy a listában szerepeljen az Összes elem is a neveken kívül.

  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
  Case "Összes"
  Columns("D:O").Hidden = False
  End Select
  End If
  Exit Sub
  
  Rejt:
  Columns("D:O").Hidden = True
  Columns(kezd & ":" & vég).Hidden = False
  End Sub

  Fire.

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