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

• #34145 Delila_1 veterán #25712384 #34143

  Új Válasz 2017-02-12 10:22:27 #34145

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

  A lenti rövid kis makrót másold be egy modulba, ezzel hamar létrehozhatod a beszúrásokat.

  Sub OszlopBeszuras()
Dim oszlop As Integer, uoszlop As Integer

uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column

For oszlop = uoszlop To 2 Step -1
Columns(oszlop).EntireColumn.Insert
Next
End Sub

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