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

• #12370 m.zmrzlina senior tag jani-wan #12369

  Új Válasz 2011-12-14 07:58:13 #12370

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jani-wan #12369 üzenetére

  tehát, ha nem tévedek, ez a kód a beállító lap meghatározott celláit veszi figyelembe sorban oszloponként.
  Így van!

  A probléma hogy míg a C2 cella a H25-ből vesz adatot addig a G2 a J25-ből.
  Ez egyáltalán nem probléma

  a legegyszerűbb az lenne ha csak erre a lapra szólna a macro ahol a statokat szeretném látni az alapján hogy a cella értéke "" vagy valami.
  Akkor én is félreértettem mert úgy gondoltam, hogy "igen" van abban a cellában amelyik oszlopára szükség van.

  Szerintem legjobb lenne, ha magánban küldenél egy lebutított munkafüzetet amiben nincsenek nem publikus adatok viszont a szerkezete megegyezik az igazival. Így csak vaktában lövöldözök, még a végén lábon lövöm magamat.

• #12372 Delila_1 Topikgazda jani-wan #12369

  Új Válasz 2011-12-14 09:04:45 #12372

  Ú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

  Topikgazda

  válasz jani-wan #12369 üzenetére

  Sub elrejt()
  Dim sor As Integer, oszlop As Integer
  Sheets("Munka1").Select 'ezt írd át arra a lapnévre,
  'ahol rejteni akarod a sorokat és oszlopokat
  
  'Sorok rejtése
  For sor = 2 To 20 '2-től 20. sorig ellenőriz, írd át a tartományt
  If Cells(sor, 2) = "" Then
  Rows(sor).Hidden = True
  Else
  Rows(sor).Hidden = False
  End If
  Next
  
  'Oszlopok rejtése
  For oszlop = 2 To 60 'B-től BH oszlopig ellenőriz, írd át a tartományt
  If Cells(2, oszlop) = "" Then
  Columns(oszlop).Hidden = True
  Else
  Columns(oszlop).Hidden = False
  End If
  Next
  End Sub

  Ha a képletet tartalmazó cellák soronként nem a B oszlopban vannak, a Sorok rejtése részben az If Cells(sor, 2) = "" Then sorban a 2-t írd át az oszlop számára.

  Kitehetsz egy gombot a lapodra az Űrlapok eszköztárból, majd a jobb klikkre előjövő menüben hozzárendeled az "elrejt" makrót. Utána már gombnyomásra elvégzi a műveletsort.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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