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
MaKeKo79
2
461
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
- 244642
Olit ihan
Kiihkona silloin. Sen näki ja lähes tunsi. Ei tainnut olla kaukana et olisit vetänyt lähellesi jos siihen olisi hetki tu333533Oletko keskustellut kaivatustasi muiden
Kanssa lähiaikoina? Jos, onko keskustelu ollut positiivista tai negatiivista? Vaikuttaako keskustelut mielipiteeseesi ka543414Ennen ei ollut persuja ja työttömyyttä, lääkäriinkin pääsi
Ennen oli kaikilla töitä Kauppiaille kelpasi kun saivat voittoa Yritystukia ei ollut Lääkäriin pääsi kaikki haluklaat Nu203350Trump huonommassa kunnossa kuin Usasta virallisesti sanotaan?
"Terveys on vakaa mutta ei normaali".Uskallan melkein sanoa,että Trumpin terveydentilaa kaunistellaan.Myös se että se nu1232940Kyllä on Vasemmistoliitosta Koskelan johdolla tullut todellinen ääripuolue
se on niin tulipunainen kuin olla voi, ja selvästi haluaa jatkuvasti eripuraa, ja repiä kansaa kahtia. Siinä on jo vuod282680Suomen veroaste 5 %-yks liian matala
Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.1162360Antifasismi - mitä se on?
Se on äärivasemmistolaista anarkistista toimintaa joka käyttää fasisminvastaisuutta keppihevosena oikeuttaakseen toimint122351MTV: Harvinainen haastattelu! Vappu Pimiä kommentoi vihdoinkin uutta TTK-juontajaa
TTK-juontajaspekuloinnit käyvät edelleen kuumana. Kenet sinä haluaisit uudeksi TTK-juontajaksi? Kommentoi alle! Lue,142175Yleveron tuotto siirrettävä S-ryhmälle
Yleisradio on mukana kansanmurhassa. Tuollaista ei voi tukea verovaroin. S-ryhmä on ainoa selkärankainen iso toimija S331774