Solun sisällön hajottaminen riveille / rivien monistaminen

Avut on

Minulla on iso Excel taulukko. Tietoja tuotteista siten, että yksi rivi on yksi tuote useine eri tietoineen. Nyt minun pitäisi kyetä hajottamaan kahdessa solussa oleva tieto (varaosat, maa) eri soluihin siten, että muut tämän rivin tiedot kopioituvat muuttumattomina. Käytännössä siis columneissa A, B, ... R tietoja ja sitten columnissa S varaosat pilkulla eroteltuna (esim "kiu12, kiu15, ut4") ja T maat pilkulla eroteltuna (esim. "Fin, Swe"). Nyt minun pitäisi muodostaa tässä tapauksessa tästä tuotteesta 6 riviä siten, että columneissa A, B, ... R tiedot säilyvät muuttumattomana ja S on ensimmäisellä&toisella rivillä kiu12, kolmannella&neljännellä kiu15 ja viidennellä&kuudennella ut4 ja kolumnissa T maat Fin, Swe, Fin, Swe, Fin, Swe -> kaikki kombinaatiot omina riveinään. Maiden ja varaosien määrä vaihtelee. Tämä taas tarvitaan ERP integraation muutosta varten ja minulla menisi useita päiviä tämän tekemiseen manuaalisesti...

Suurkiitokset Excel kikkailijoille, jos vain saisin tähän jotain apuja!

Sihteerikkö

3

233

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • "Tämä taas tarvitaan ERP integraation muutosta varten ja minulla menisi useita päiviä tämän tekemiseen manuaalisesti..."

      no nythän meille jää aikaa kikkailla jotain muuta 2-3 päivää -1 minuutti sihteerikön kanssa... ;-)

      en tiedä halusitko siirtää tiedot erilliseen taulukkoon tai vain muokata jo olemassa olevaa taulukkoa, mutta nyt helppo tehdä mitä haluaa taulukoille.

      Kopioi Taul1 taulukon "Huuhaa" taulukkoon ja tekee tarvittavat jutskat

      moduuliin...
      muuta taulukoiden nimet sopiviksi

      Sub Järjestä()
      Dim S As Variant
      Dim T As Variant
      Dim i As Long
      Dim j As Long
      Dim vika As Long
      Dim nimi As String

      On Error Resume Next
      nimi = Worksheets("Huuhaa").Name
      If Not Err.Number = 0 Then Sheets.Add.Name = "Huuhaa"
      On Error GoTo 0
      Worksheets("Huuhaa").Cells = ""
      vika = Worksheets("Taul1").Range("S65336").End(xlUp).Row
      For Each solu In Worksheets("Taul1").Range("S1:S" & vika)
      S = Split(solu, ",")
      T = Split(solu.Offset(0, 1), ",")
      For i = 0 To UBound(S)
      For j = 0 To UBound(T)
      solu.EntireRow.Copy Worksheets("Huuhaa").Range("A65536").End(xlUp).Offset(1, 0)
      Worksheets("Huuhaa").Range("S65536").End(xlUp) = S(i)
      Worksheets("Huuhaa").Range("T65536").End(xlUp) = T(j)
      Next
      Next
      Next
      End Sub

      • Avut on

        Super - kiitokset kunde!

        Ja kuten aina, niin tällä päästiin hyvälle avulle; speksaus...

        Tätä tarvitsisi vielä laajentaa siten, että nyt näitä hajotettavia columneja onkin rinnakkaisia värien alla useita (16 eri väriä). Eli värit ovat omissa columneissaan ja niiden alla sitten aina toistuu nämä varaosat ja maa columnit. Nythän tällä sai kyllä ajettua yhden värin kivasti, mutta ei jonnistunut laajentamaan tätä tällaiseen tapaukseen, jossa pitäisi suorittaa rinnakkain tämä useasta eri soluparista samalta riviltä ilman, että alkupään tuotteet alkavat generoitua useaan kertaan, jos näitä lähdetään hajottamaan peräkkäin...

        Kiittää & kumartaa jo etukäteen!


    • missäs nää värit on?
      laita selvennystä niin rukataan...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Taisin tehdä virheen

      Kaipaan sua enemmän kuin kuvittelin. Luulin, että helpottuisin, mutta olinkin täysin väärässä. Vieläkö vastaisit minulle
      Ikävä
      102
      4823
    2. Hyvä että lähdit siitä

      Ties mitä oisin keksinyt jos oisit jäänyt siihen, näit varmaan miten katoin sua.... 😘🤭😎💖
      Ikävä
      49
      3252
    3. Nyt tuntuu siltä, että on pakko päästä puhumaan kanssasi

      Tuntuu että sekoan tämän kaiken takia. Miehelle
      Ikävä
      85
      2979
    4. Nainen, mulla olisi sulle pari vinkkiä

      Kerro vain ongelmasi niin annan siihen vinkin. :/
      Ikävä
      81
      1737
    5. Nainen onko sulla supervoimmia ?

      Voisitko auttaa miestä mäessä? Tarjota auttavan käden ja jeesata tätä miestä? Tai antaa olla et sä kuitenkaan auta.
      Ikävä
      41
      1510
    6. 450 000 ulosotossa

      Suomessa on tällä hetkellä ennätysmäärä ihmisiä ulosotossa. Viime vuonna heitä oli yli puoli miljoonaa. Kuluvan vuoden
      Perussuomalaiset
      107
      1342
    7. Onko esitutkinta jo saatu päätökseen?

      Ketkä saa syytteet? Voi olla iso määrä ihmisiä?
      Ähtäri
      16
      1059
    8. Eduskunnasta tippuneet kokoomuslaiset nostavat eniten sopeutumisrahaa. Kyllä veroeurot kelpaavat.

      Sopeutumisraha on eduskuntatyön päättymisen jälkeen maksettava etuus, jonka tarkoituksena on tukea entisiä kansanedustaj
      Maailman menoa
      110
      1029
    9. Miehen taloudellinen tilanne ja

      halu tarjota suojaa kaikin tavoin on usein perheen selkäranka. Siksi naisen ei ikinä pitäisi jättää huomiotta miehen rah
      Ikävä
      43
      1017
    10. Miksi syyllistät minua siitä etten pysty vastaamaan tunteisiin?

      En minä sille mitään mahda. Tuntuu pahalta. En pysty enää keskittymään mihinkään enkä nauttimaan mistään, kun tämä tilan
      Ikävä
      40
      991
    Aihe