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

• #20956 Delila_1 veterán SkizoFreen #20953

  Új Válasz 2014-03-16 13:31:43 #20956

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

  A törlés, és az oszlopszélesség egységben írd át az oszlopazonosítókat a saját igényeidnek megfelelőre.

  Sub Atszerkesztes()
  'Áthelyezés
  Columns("G:H").Cut
  Columns("D:E").Insert Shift:=xlToRight
  
  'Törlés
  Range("M:M,Q:Q,T:T").Delete Shift:=xlToLeft
  
  'Oszlopszélesség
  Columns("A:R").EntireColumn.AutoFit
  End Sub

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