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

507

Ää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. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      24
      3807

    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      41
      1899

    3. Kun kohtaat jotain ainutlaatuista

      ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö
      Ikävä
      35
      1201

    4. Minkälaisessa asunnossa

      haluaisit kaivattusi kanssa asua?
      Ikävä
      70
      1080

    5. Ei tämä enää tervettä oo

      Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.
      Ikävä
      25
      1046

    6. Mua ahdistaa

      Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi
      Ikävä
      32
      1039

    7. Perämoottoreiden huolto melkoisen kallista

      Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä
      Savonlinna
      41
      933

    8. Tanskademarit: ilman risusavottaa ei rahaa!

      Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os
      Maailman menoa
      173
      841

    9. Mikä siinä on että sinkku yrittää varattua?

      Siis ihan aina yrittävät muiden puolisoita.
      Sinkut
      56
      813

    10. Pub Marjuskan grillibileet

      Pub marjuskassa ilmainen makkara tarjoilu ja jakaa parille sadalle aurinko laseja. Miten tälläistä. Saako popittaa ja ja
      Haapavesi
      12
      733
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt