Ei onnistu makro

Nyt jo varvas suussa

Ongelmana on tehdä makro, joka kuvan vasemmanpuoleisesta taulukosta tekisi kuvan oikeanpuoleisen mallin mukaisen taulukon. Exceliin tuodaan viikottain uusi tiedosto, jossa rivien määrä vaihtelee.
Kuva: http://aijaa.com/wGtbyb

4

119

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • jhghjghj

      Miksi? Vasemmassa kuvassa tiedot näyttävät olevan hyvässä järjestyksessä.

      • Nyt jo varvas suussa

        Siksi, että vastaanottaja ohjelma tajuaa sen.

    • kunde

      noduuliin...

      Sub Muokkaa()
      Dim vika As Long
      Dim vika2 As Long
      On Error Resume Next
      Application.ScreenUpdating = False
      Worksheets("Sheet2").Range("A:B") = ""
      vika = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
      For i = 1 To vika - 1
      vika2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Row 1
      Worksheets("Sheet1").Range("A1:E1").Copy
      Worksheets("Sheet2").Range("A" & vika2).PasteSpecial Transpose:=True
      Worksheets("Sheet1").Range("A" & i 1 & ":E" & i 1).Copy
      Worksheets("Sheet2").Range("B" & vika2).PasteSpecial Transpose:=True
      Next
      Application.ScreenUpdating = True
      Application.CutCopyMode = False
      Worksheets("Sheet2").Activate
      Range("A1").Select
      Rows("1:1").Delete
      Range("A1").Select
      End Sub

      miittele nimet ja alueet sopiviksi sopivaksi

      Keep EXCELing
      @Kunde

      • Nyt jo varvas suussa

        Kiitos!
        Ensi viikolla pääsen testaamaan!

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      319
      1761

    2. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1274

    3. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1267

    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      134
      1147

    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      78
      899

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      85
      851

    7. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      823

    8. 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 "Herro
      Maailman menoa
      117
      777

    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      48
      770

    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      716
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt