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

• #43067 Fferi50 Topikgazda Sunsetjoy #43064

  Új Válasz 2020-02-13 17:45:30 #43067

  Ú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

  

  Fferi50

  Topikgazda

  válasz Sunsetjoy #43064 üzenetére

  Szia!
  Ha van olyan sorod, ahol a kérdéses oszlopokban nincs érték, akkor egyszerűen egy sor:
  Sub torol
Rows(2).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete ' A 2 helyére írod a sor számát.
End Sub
  Ha nincs ilyen sor, akkor direktben meg kell adnod az oszlopokat pl. így: Minden összefüggő oszlopcsoportot külön-külön kell betenni az Union paraméterének.
  Sub torol()
With Munka1.UsedRange
     Union(.Columns("E:G"), .Columns("J:L"), .Columns("N:AG"), .Columns("AI:AJ"), .Columns("AL:AM")).Delete
End With
End Sub

  Üdv.

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