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

• #42944 daddy9 tag

  Új Válasz 2020-02-04 10:25:58 #42944

  Ú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

  

  daddy9

  tag

  Sziasztok!
  
  Egy kis segítséget szeretnék kérni.
  Az alábbi makrót szerkesztettem át egy meglévő alapján:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
LastColumn = 27 'Last Column
For i = 5 To LastColumn 'Lopping through each Column
    If Cells(36, i) = "" Then Columns(i).EntireColumn.Hidden = True
    If Cells(36, i - 1) <> "" Then Columns(i).EntireColumn.Hidden = False
Next
Application.ScreenUpdating = True
End Sub

  A lényege annyi lenne, hogy megnézi, hogy a 36. sorban van-e valami és ha nincs, akkor elrejti, kivéve az első 4 oszlopot. Ezen felül, ha egy oszlop 36. sorában van valami, akkor a tőle jobbra lévő oszlopot láthatóra állítom, hogy legyen hova írni.
  
  Ha ezt a makrót egy új állományba átmásolom, akkor hibát ír.
  Gondolom az a baja, hogy az IF nincs lezárva (?), de akkor ha hiba van benne, akkor most miért működik a fenti formájában?
  Segítenétek megfelelően lezárni?
  Köszönöm a segítséget!

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