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
198
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
- 917452
- 403602
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021836- 241040
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32913Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27901Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk53797Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60729Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt31722Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26652