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

• #12342 Delila_1 veterán jani-wan #12341

  Új Válasz 2011-12-13 13:38:51 #12342

  Ú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 jani-wan #12341 üzenetére

  Sub elrejt()
  uoszlop = Range("IV1").End(xlToLeft).Column
  For oszlop = 1 To uoszlop
  If Cells(1, oszlop) = "" Then Columns(oszlop).Hidden = True
  Next
  End Sub

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