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

• #21073 Delila_1 veterán alfa20 #21069

  Új Válasz 2014-03-24 16:38:54 #21073

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

  Gondolom, a label nem tartalmazza a kiterjesztést.

  A makró további részét egyszerűsítheted. A select utasítások nem szükségesek, és lassítják a futást.

  Dim oszlop As Long
  Rows("1:2").Delete shift:=xlUp
  Rows("1:1").NumberFormat = "@"
  For oszlop = 1 To 27: Cells(1, oszlop) = oszlop & "": Next

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