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?
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?
Vastaukset 7
Vanhimmat
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
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.
vielä kun semmonen makro ois että data säilys kokonaisuudessaa a-sarakkeessa pilkkomattomana ja pisteet ja pilut säilyisi oikeissa kohdin...
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