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
252
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
- 1342006
- 1211415
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro1401170Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v3131141Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni631122IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!
Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk01102- 1411089
- 491069
Mene perheinesi arkkiin - kasteelle !
Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast470937Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet97923