Ú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.

• #43065 sztanozs veterán Sunsetjoy #43062

  Új Válasz 2020-02-13 14:48:04 #43065

  Ú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

  

  sztanozs

  veterán

  válasz Sunsetjoy #43062 üzenetére

  valami ilyesmi (fejből):
  cols = Array("C", "E", "F", "G", "I", "J", "K", "L", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AI", "AJ", "AL", "AM")
for ix = 0 to ubound(cols)
Range(cols(ix) & ":" & cols(ix)).Clear
next

• #43063 Fferi50 Topikgazda Sunsetjoy #43062

  Új Válasz 2020-02-13 14:34:20 #43063

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

  Szia!
  Mondjuk kijelölöd egérrel csoportosan (shift ill ctrl) billentyűket nyomva tartva a nemkívánt oszlopokat, majd jobb egérgomb és töröl.
  Pár perc az egész.
  A "táblázatcsupaszítónak" is meg kellene mondani, mit hagyjon meg...
  Üdv.

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