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.
MAKRO: kopioi toiseen taulukkoon ja muuta sarakej
2
195
Vastaukset
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
@Kundeajattelin, 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ä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww614631- 513092
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1402356Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051966Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.771553Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381197Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1931125Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-161092En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois871088- 1731086