Toin netistä osoitetietoja Exceliin ja ne ovat siellä nyt kaikki A-sarakkeessa (nimet, osoitteet, postinumerot...)
Nyt pitäisi siirtää henkilön jokainen tieto omaan sarakkeeseen (A-sarakkeessa on nimi, B-sarakkeessa on katuosoite, C-sarakkeessa on postinumero...)
Saakos tähän jonkilaisen järkevän makron tehtyä. Sellaisen osaan, jossa tietyn rivin solusta pystyy siirtämään tiettyn rivin tiettyyn soluun, mutta tämä pitäisi olla riippumaton rivinumerosta.
Sarakkeista tiedot riveittäin
sedemik
4
509
Vastaukset
- toi onnistu
tuolla data-> text to columns toiminnolla...
- sedemik
Tämä olisi ollut sitten seuraava kysymys. Kiitos tästä. Mutta palaan vielä alkuperäiseen kysymykseeni.
Mulla on siis tiedot nyt riveittäin:
(A1) Martti
(A2) Hämeenpolku 2
(A3) 20100 Turku
(A4)
(A5) Heikki
(A6) Hämeenpolku 7
(A7) 30100 Tampere
Ne pitäisi saada:
(A1) Martti (B1) Hämeenpolku 2 (C1) 20100 Turku
(A2) Heikki (B2) Hämeenpolku 7 (C2) 30100 Tampere
Osoitetietoja on aikas paljon, joten en viitsi niitä manuaalisesti alkaa siirtelemään jos tähän olisi helpompikin vaihtoehto. - auttaako
sedemik kirjoitti:
Tämä olisi ollut sitten seuraava kysymys. Kiitos tästä. Mutta palaan vielä alkuperäiseen kysymykseeni.
Mulla on siis tiedot nyt riveittäin:
(A1) Martti
(A2) Hämeenpolku 2
(A3) 20100 Turku
(A4)
(A5) Heikki
(A6) Hämeenpolku 7
(A7) 30100 Tampere
Ne pitäisi saada:
(A1) Martti (B1) Hämeenpolku 2 (C1) 20100 Turku
(A2) Heikki (B2) Hämeenpolku 7 (C2) 30100 Tampere
Osoitetietoja on aikas paljon, joten en viitsi niitä manuaalisesti alkaa siirtelemään jos tähän olisi helpompikin vaihtoehto.tämä, laittaa tiedot sarakkeisiin B:D
Sub muokkaa()
Dim rng As Range
Dim i As Long
Dim j As Long
Set rng = Cells(Rows.Count, 1).End(xlUp)
j = 1
For i = 1 To rng.Row Step 4
Cells(j, "B").Resize(1, 3).Value = _
Application.Transpose(Cells(i, "A").Resize(3, 1))
j = j 1
Next
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,1063576Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv2302343Ulkoistin makuaistini Yleisradiolle
Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,02130Sanna on pakottaja, domina
Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k381879Skodan hankintaan painostaminen toi potkut
Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll91669- 951128
No onneks ei tartte sit olla
Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....5930- 51892
Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä
Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu72871Sinkkuihmisten suppea kuva maailmasta.
Siskoni on jo vannoutunut sinkku. Hän ei haaveile mitään suhdejuttuja. Mutta välillä mietin, miten vähän ja suppeasti130832