-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 SubAz 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?
Cancel all my meetings. Someone is wrong on the Internet.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen