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

• #25573 Delila_1 veterán benjoe1 #25572

  Új Válasz 2015-02-24 14:05:43 #25573

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

  Szűröd az A oszlopot, majd indítod a lenti makrót.

  Sub Rejt()
  Dim sor As Integer, oszlop As Integer
  Application.ScreenUpdating = False
  
  sor = Range("A" & Rows.Count).End(xlUp).Row
  For oszlop = 2 To 200
  If Cells(sor, oszlop) = "" Then
  Columns(oszlop).Hidden = True
  Else
  Columns(oszlop).Hidden = False
  End If
  Next
  
  Application.ScreenUpdating = True
  End Sub

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