Sarakkeet riveiksi

Tarkoitus on, että A1:A15 tiedot siirretään A1:O1, A17:A32 siirretään B1:O1 jne.

Alfkeke kirjoitti:

Tarkoitus on, että A1:A15 tiedot siirretään A1:O1, A17:A32 siirretään B1:O1 jne.

Siis A1:A15 --> A1:O1, A17:A32 --> A2:O2 jne
eli ihan niinkuin oli jälkimmäinen vaihtoehtosi.

Alfkeke kirjoitti:

Siis A1:A15 --> A1:O1, A17:A32 --> A2:O2 jne
eli ihan niinkuin oli jälkimmäinen vaihtoehtosi.

koodia tekisin näin.
Klikkaa solua A16. Avaa "Ikkuna" > "Kiinnitä ruudut"
Valitse hiirellä alue B1:P1. Klikkaa hiirellä ylhäältä "Kaavariviä" ja kirjoita sinne =TRANSPONOI(A1:A15)
Paina Ctrl Vaihto (heti Ctrl yläpuolella oleva "nuoli ylös") pohjaan ja paina ENTER (Excel tekee matriisikaavan). Kaava näyttää nyt tältä {=TRANSPONOI(A1:A15)}
Klikkaa solua B1 ja kopioi kaava B2:seen vetämällä oikean alakulman pisteestä alas
Valitse hiirellä alue B2:P2 - klikkaa kaavariviä ylhäältä - näet että alue A2:A16 ympäröity sinisellä viivalla
Tartu siihen siniseen viivaan hiirellä kiinni ja vedä se alaspäin seuraavan 15 luvun päälle A17:A31.
Paina taas Ctrl Vaihto pohjaan ja ENTER
Ja taas kopioit kaavan B2 > B3:seen ja valitset hiirellä B3:P3 ja vedät sinisen alueen uuden ryhmän päälle ja Ctrl Vaihto pohjaan ja ENTER. Jne...
Tuo alun Kiinnitä ruudut on sitä varten että voit rullata sivua alaspäin ja nähdä aina uudet ryhmät, mutta yläosa jonne transponointi tulee pysyy paikoillaan.
Lopuksi avaa "Ikkuna" > "Vapauta ruudut"
Lopuksi poista sarake A
Toinen konsti on valita alue A1:A15 hiirellä, valita solu B1 ja Muokkaa > Liitä määräten (avautuvassa ikkunassa ruksaa kohdat "Arvot" ja sieltä alhaalta "Transponoi" > OK
Tämän joutuu tekemään joka kerta näin tehdessä. Ei voi käyttää Toista-toimintoa (Ctrl Y)
Vielä tuosta matriisikaavasta. Aina kun muokkaat solua jossa kaava, muista painaa Ctrl Vaihto pohjaan ja ENTER. Muutoin kaava ei toimi.

transponoija kirjoitti:

koodia tekisin näin.
Klikkaa solua A16. Avaa "Ikkuna" > "Kiinnitä ruudut"
Valitse hiirellä alue B1:P1. Klikkaa hiirellä ylhäältä "Kaavariviä" ja kirjoita sinne =TRANSPONOI(A1:A15)
Paina Ctrl Vaihto (heti Ctrl yläpuolella oleva "nuoli ylös") pohjaan ja paina ENTER (Excel tekee matriisikaavan). Kaava näyttää nyt tältä {=TRANSPONOI(A1:A15)}
Klikkaa solua B1 ja kopioi kaava B2:seen vetämällä oikean alakulman pisteestä alas
Valitse hiirellä alue B2:P2 - klikkaa kaavariviä ylhäältä - näet että alue A2:A16 ympäröity sinisellä viivalla
Tartu siihen siniseen viivaan hiirellä kiinni ja vedä se alaspäin seuraavan 15 luvun päälle A17:A31.
Paina taas Ctrl Vaihto pohjaan ja ENTER
Ja taas kopioit kaavan B2 > B3:seen ja valitset hiirellä B3:P3 ja vedät sinisen alueen uuden ryhmän päälle ja Ctrl Vaihto pohjaan ja ENTER. Jne...
Tuo alun Kiinnitä ruudut on sitä varten että voit rullata sivua alaspäin ja nähdä aina uudet ryhmät, mutta yläosa jonne transponointi tulee pysyy paikoillaan.
Lopuksi avaa "Ikkuna" > "Vapauta ruudut"
Lopuksi poista sarake A
Toinen konsti on valita alue A1:A15 hiirellä, valita solu B1 ja Muokkaa > Liitä määräten (avautuvassa ikkunassa ruksaa kohdat "Arvot" ja sieltä alhaalta "Transponoi" > OK
Tämän joutuu tekemään joka kerta näin tehdessä. Ei voi käyttää Toista-toimintoa (Ctrl Y)
Vielä tuosta matriisikaavasta. Aina kun muokkaat solua jossa kaava, muista painaa Ctrl Vaihto pohjaan ja ENTER. Muutoin kaava ei toimi.

Lue lisää

tekijä kokonaan mainitsematta.
Sitten kun olet saanut transponoitua kaikki luvut riveille, valitse koko alue hiirellä ja "Kopioi".Klikkaa solua B1 ja "Liitä määräten" (ruksaa kohta "Arvot" > OK).
Ilman tätä manooveriä, jos poistat sarakkeen A, kaavat ei pelaakkaan kun kaavojen "alueita" ei enää ole.

transponoija kirjoitti:

tekijä kokonaan mainitsematta.
Sitten kun olet saanut transponoitua kaikki luvut riveille, valitse koko alue hiirellä ja "Kopioi".Klikkaa solua B1 ja "Liitä määräten" (ruksaa kohta "Arvot" > OK).
Ilman tätä manooveriä, jos poistat sarakkeen A, kaavat ei pelaakkaan kun kaavojen "alueita" ei enää ole.

Lue lisää

Ei muuta kuin hommiin, kunhan pääsen tästä kotia.

Jos käyttää y-merkkiä lisätyssä a1-solussa, niin solujen yhdistämisen purkamisen jälkeen, vaiheessa 4, tulee a1 lopuksi tyhjentää.

tuttumies kirjoitti:

Jos käyttää y-merkkiä lisätyssä a1-solussa, niin solujen yhdistämisen purkamisen jälkeen, vaiheessa 4, tulee a1 lopuksi tyhjentää.

ei väliä sarjojen pituudella eikä sillä miten monta tyhjää välissä
pitäisi tietenkin tyhjentää noi oikealla olevat sarakkeet ekaksi vanhoista tiedoista, mutta jääköön se kysyjän tehtäväksi
moduuliin...

Sub Transponoi()
Dim Vika As Long
Dim Alue As Range
Dim Solut As Range
On Error Resume Next
Rows("1:1").Insert Shift:=xlDown
Set Solut = Range("A:A").SpecialCells(xlCellTypeConstants)
For Each Alue In Solut.Areas
Vika = Range("B65336").End(xlUp).Offset(1).Row
Range("B" & Vika).Resize(, Alue.Count) = Application.Transpose(Alue)
Next Alue
Rows("1:1").Delete
Columns("A:A").Delete
End Sub

Keep Excelling
@Kunde

kunde kirjoitti:

ei väliä sarjojen pituudella eikä sillä miten monta tyhjää välissä
pitäisi tietenkin tyhjentää noi oikealla olevat sarakkeet ekaksi vanhoista tiedoista, mutta jääköön se kysyjän tehtäväksi
moduuliin...

Sub Transponoi()
Dim Vika As Long
Dim Alue As Range
Dim Solut As Range
On Error Resume Next
Rows("1:1").Insert Shift:=xlDown
Set Solut = Range("A:A").SpecialCells(xlCellTypeConstants)
For Each Alue In Solut.Areas
Vika = Range("B65336").End(xlUp).Offset(1).Row
Range("B" & Vika).Resize(, Alue.Count) = Application.Transpose(Alue)
Next Alue
Rows("1:1").Delete
Columns("A:A").Delete
End Sub

Keep Excelling
@Kunde

Lue lisää

Kun ei ole tullut luettua edes VBA:n perusteita, niin ei tuosta selvää saa (-; Ei sillä, että minun tai edes aloittajan tarvitsisikaan. Ohjelmiahan tässä koko ajan käytetään, eikä niistä ole selvyyttä koodin osalta, että mitä ne ovat syöneet, kunhan toimivat.

Mutta siis esim. tuo Alue näyttäisi tyhjältä alueelta, kun sille ei tule missään arvoa. Ja For...Next silmukan poistumisehto? Oliskohan se tuo virheenkäsittelylause?

No joo, ehkä tämä riittää tällä erää tietämättömyyteni esittelyyn. Jatkan joskus paremmalla ajalla (-;

tuttumies kirjoitti:

Kun ei ole tullut luettua edes VBA:n perusteita, niin ei tuosta selvää saa (-; Ei sillä, että minun tai edes aloittajan tarvitsisikaan. Ohjelmiahan tässä koko ajan käytetään, eikä niistä ole selvyyttä koodin osalta, että mitä ne ovat syöneet, kunhan toimivat.

Mutta siis esim. tuo Alue näyttäisi tyhjältä alueelta, kun sille ei tule missään arvoa. Ja For...Next silmukan poistumisehto? Oliskohan se tuo virheenkäsittelylause?

No joo, ehkä tämä riittää tällä erää tietämättömyyteni esittelyyn. Jatkan joskus paremmalla ajalla (-;

Lue lisää

EI, EI ja EI
yleensä pyrin tekemään universaalisia koodeja, jotka toimivat pikku muutoksilla miten, missa ja milloin vaan...
niin oli kyse tälläkin kertaa...

ensin määritellään jotakin tietoa sisältävä solualue
Set Solut = Range("A:A").SpecialCells(xlCellTypeConstants)

alue saa tiedot Solut.Areas (kannattaa luke alueen määritykset ohjeesta (löytyyköhän?)- lyhyesti siis tyhjä solu solun ympärillä ):- )
joka taas saa tiedot Range("A:A").SpecialCells(xlCellTypeConstants) (kaikki tietoa sisältävät solut sarakkeesta)

For Each Alue In Solut.Areas
eli kaikki yhtenäiset alueet sarakkeessa loopataan

Vika = Range("B65336").End(xlUp).Offset(1).Row
hakee viimeisen rivin sarakkeesta B

Range("B" & Vika).Resize(, Alue.Count) = Application.Transpose(Alue)
taasen määrittelee transponoitavan "kopioaluuen" oikean kokoiseksi lähde sarakkeesta

ja lopuksi sitten poistetaan tyhjät rivit...

eli jos tarve esim sarakkeelle K...

Sub Transponoi()
Dim Vika As Long
Dim Alue As Range
Dim Solut As Range
On Error Resume Next
Rows("1:1").Insert Shift:=xlDown
Set Solut = Range("K:K").SpecialCells(xlCellTypeConstants)
For Each Alue In Solut.Areas
Vika = Range("L65336").End(xlUp).Offset(1).Row
Range("L" & Vika).Resize(, Alue.Count) = Application.Transpose(Alue)
Next Alue
Rows("1:1").Delete
Columns("K:K").Delete
End Sub

KEEP EXCELLING!
@Kunde