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

• #7633 Delila_1 veterán motinka #7631

  Új Válasz 2010-07-16 12:57:14 #7633

  Ú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

  Még valami. A makrónak tabulátorok segítségével add meg azt a formát, amit itt látsz. Sokkal áttekínthetőbb, könnyebben tudod követni.

• #7632 Delila_1 veterán motinka #7631

  Új Válasz 2010-07-16 12:49:34 #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