pitäisi vaihtaa koordinaattien paikkaa "sarjana"=kaikkiin kerralla.
63.497354,28.304383,St1 Rautavaara Savontie 1 73900 Rautavaara
sarakkeessa a on tollainen tieto (eri tiet0 sadoissa kohteissa, st1 asemat)
tälläiseksi:
28.304383, 63.497354, St1 Rautavaara Savontie 1 73900 Rautavaara
ei mahda onnistua mitenkään?
entä makrolla/koodilla?
miten tämä toteutetaan
pakko saada
7
212
Vastaukset
- sama..
niin kysees csv muotoinen tiedosto....
muuta tiedoston nimi sopivaksi.
Sub Macro1()
Workbooks.OpenText Filename:="E:\st.txt", Origin:=1257 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
Columns("A:A").Insert Shift:=xlToRight
Columns("C:C").Cut Columns("A:A")
Columns("C:C").Delete
Range("A1").Select
End Sub
KeepEXCELing
@Kunde- yhmempi.
kunde kirjoitti:
muuta tiedoston nimi sopivaksi.
Sub Macro1()
Workbooks.OpenText Filename:="E:\st.txt", Origin:=1257 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
Columns("A:A").Insert Shift:=xlToRight
Columns("C:C").Cut Columns("A:A")
Columns("C:C").Delete
Range("A1").Select
End Sub
KeepEXCELing
@Kundemihi kohtaa excelissä tää potaska kirjotettaa. paljo kunde sulla on palkka muuten?
yhmempi. kirjoitti:
mihi kohtaa excelissä tää potaska kirjotettaa. paljo kunde sulla on palkka muuten?
tavalliseen moduuliin VBA editorin puolella...
palkka on 0€ - en oo töissä enkä eläkkeellä kunhan vaan vetelen lonkkaa tällähetkellä.
Toki ohjelmointikeikkoja voin ottaa vastaan (kokemustahan mulla taitaa olla piisalle asti...)
- ....
teksti sarakkeisiin, erottimeksi pilkku, sitten onnistuu.
- kunde hoi!
vielä kun semmonen makro ois että data säilys kokonaisuudessaa a-sarakkeessa pilkkomattomana ja pisteet ja pilut säilyisi oikeissa kohdin...
- uusyritys
jotenkin näin pitäisi tehdä kaikille sarjana: leikkasin kaikki ja siirsin sarakkeesta a b:hen, sitten yläriviltä leikkasin 28...ensimmäiseksi rivillä, muuta ei tarvinnut pilkut erottimiksi ja pisteet lukujen välillä.sitten leikkasin ko rivin b sarakkeesta a:han. nyt pitäsi saada nää muutama sata rivii kerralla tehtyä noin.
Sub vaihda()
'
' vaihda Makro
'
'
ActiveCell.FormulaR1C1 = _
"63.497354,28.304383,St1 Rautavaara Savontie 1 73900 Rautavaara"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Cut
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
ActiveSheet.Paste
ActiveCell.Select
ActiveCell.FormulaR1C1 = _
"28.304383, 63.497354, St1 Rautavaara Savontie 1 73900 Rautavaara"
ActiveCell.Select
Selection.Cut
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sannan kirja USA:n bestseller!
"Congratulations to Sanna Marin's HOPE IN ACTION, officially a USA TODAY bestseller!" Kertoo Scribner. Mitäs persut tä16811561- 288142
Metsäalan rikolliset
Jokohan alkaa vähitellen kaatua kulissit näillä ihmiskauppaa harjoittavilla firmoilla.586046Ruotsalaistoimittaja: "Sanna Marinin saunominen saa minut häpeämään"
Sanna Marinin kirja saa täyslaidallisen ruotsalaislehti Expressenissä perjantaina julkaistussa kolumnissa.....voi itku..1664997- 224766
Suomen kaksikielisyys - täyttä huuhaata
Eivätkö muuten yksilöt pysty arvioimaan mitä kieliä he tarvitsevat? Ulkomaalaiselle osaajalle riittää Suomessa kielitai404401Työeläkeloisinta 27,5 mrd. per vuosi
Tuo kaikki on pois palkansaajien ostovoimasta. Ja sitten puupäät ihmettelee miksei Suomen talous kasva. No eihän se kas1074303- 1043688
- 803290
- 481791