MAKRO: kopioi toiseen taulukkoon ja muuta sarakej

MaKeKo79

MAKRO: Taulukosta 1 pitäisi kopioida sarakkeet B4:D100 ja G4:O100 taulukkoon2 B:L , niin että sarakkeiden järjestys muuttuu niin että J-sarake siirtyy taul2:ssa neljänneksi sarakkeeksi. Muuten järjestys pysyy samana. Pitäisi vielä siirtää aina ensimmäiseen tyhjään riviin taulukossa 2.

2

382

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      ei ihan vastaa toi solualue taulukko2;ssa, mutta ei väliä. Muuta koodissa nimet ja alueet sopiviksi.

      Sub Siirrä()
      Dim vika As Long
      vika = Worksheets("Sheet2").Range("B65536").End(xlUp).Row 1
      With Worksheets("Sheet1")
      Union(.Range("B4:D100"), .Range("J4:J100")).Copy Worksheets("Sheet2").Range("B" & vika)
      Union(.Range("G4:I100"), .Range("K4:O100")).Copy Worksheets("Sheet2").Range("F" & vika)
      End With
      End Sub

      keep EXCELing
      @Kunde

    • kunde

      ajattelin, että pitäisi kyllä olla helpompikin keino säädellä kopioitavan alueen sarakkeiden paikkaa ja määrää...

      Sub Siirrä()
      Dim vika As Long
      Dim ar As Variant

      vika = Worksheets("Sheet2").Range("B65536").End(xlUp).Row 1
      With Sheet1.Range("B4:O100")
      'arrayssa voit määritellä kopioitavien sarakkeiden järjestyksen ja samalla määrän ;-) ...
      ar = Application.Index(.Value, Evaluate("row(1:100" & ")"), Array(1, 2, 3, 8, 6, 7, 9, 10, 11, 12, 13, 14))
      Worksheets("Sheet2").Range("B" & vika).Resize(UBound(ar), 12) = ar
      End With
      End Sub

      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Toiselle puolikkaalleni

      Sinulla ei taida olla kaikki nyt ihan hyvin? Minua itketti eilen kauheasti, sinunko itkuja itkin? Kyllä kaikki selviää j
      Ikävä
      49
      2278

    2. Pysy kaukana musta

      Ja kaikista mun läheisistä. Oon tosissani.
      Ikävä
      26
      1993

    3. Katu täyttyy askelista...

      Hyvää sunnuntaita ja hyvää jatkoa jos näin...Vettä sataa, mutta hyvä vaan, ainakin kasveille.
      Ikävä
      27
      1485

    4. Näin susta unta

      Teit siinä temppuja ja kurkit huomaanko. Niinkuin sun tarttis sitä epäillä. Öitä tuimalle!
      Ikävä
      16
      1394

    5. Kuvaile kaivattusi

      ulkonäköä. 💡
      Ikävä
      121
      1361

    6. Mitä hämminkiä Halkokarilla?

      Poliiseja ja ambulansseja pyörii, laukauksia kuultu.
      Kokkola
      18
      1045

    7. Tiedätkö nainen sen tunteen

      Kun toinen tulee jossain vastaan. Naama leviää hymyyn kuin hangonkeksi. Mulla on susta semmonen,tunne.
      Ikävä
      71
      954

    8. Kauniit ihmiset ei ole sinkkuja, se on karu fakta

      Ihmisessä on lähes poikkeuksetta aina jotain vikaa jos hän pysyy sinkkuna pitkään. Sori kun sanon tän näin suoraan, mut
      Ikävä
      107
      894

    9. Mikset päästä irti ja hae apua

      Mt ongelmiisi. En vaan voi ikinä enää luottaa sinuun, pelkään sinua ja toivon löytäväni jonkun muun. Rahaa sulla on saad
      Ikävä
      78
      876

    10. Kristinusko - epätoivoinen yritys pelastaa ihmiset jumalalta

      Ei ole mitään sellaista, mitä pitää "pelastua". Lukuun ottamatta tietysti ”jumalan” (sen ei jumalan, joka väittää oleva
      Hindulaisuus
      333
      863
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt