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

• #21497 bteebi veterán

  Új Válasz 2014-05-08 09:41:59 #21497

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Vágólapra helyezett, szóközökkel tagolt táblázatot szeretnék Excelbe importálni, és a végén az oszlopokat auto szélességűre állítani.

  Sub TextToColumns()
  ActiveSheet.Range("A1").Select
  ActiveSheet.Paste
  Range("A:A").SpecialCells(xlCellTypeConstants).TextToColumns _
  Destination:=Range("A1"), _
  DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, _
  ConsecutiveDelimiter:=False, _
  Space:=True
  ActiveSheet.UsedRange.Columns.AutoFit
  End Sub

  Az ActiveSheet.UsedRange.Columns.AutoFit sorig úgy működik, ahogy szeretném, utána viszont 400-as kódú hibaüzenettel leáll. Ha külön makróként lefuttatom ezt az egy sort, akkor működik. Mi lehet a baj?

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