Yritys on hyvä, vaan taitoja puuttuu...
Solusta G61 alaspäin on tietoa, jonka haluan kopioida solusta D2 alkaen alaspäin.
Tarkoituksena, että sarakkeeseen D jää joka toinen solu tyhjäksi, tämä onnistuu makrolla ilman ongelmia.
Ongelmana on, että miten teen lähtötiedon valinnan makrolla, koska solusta G61 alkaen vaihtelee.(3-500 solua).
Solusta G61 soluun G n tietojen kopioiminen ja liittäminen määräten solusta D2 alkaen joka toiselle riville.
Olen kiitollinen kaikista vinkeistä tai linkeistä asian ratkaisemiseksi.
Olen yrittänyt googlea yms..
Sub Rivitys1()
'
' Rivitys1 Makro
' luettelo solusta G61 alkaen kopioidaan joka toiselle riville
'
Range("G61").Select ’ lähtöalueen ensimmäinen solu
'aloitetaan kopiointi
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select
'liittämisen ensimmäinen solu
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'liitetään määräten, vain arvot, ei kaavoja
Range("G62").Select ’lähtöalueen seuraava solu
'seuraava solu alaspäin kopioidaan
Application.CutCopyMode = False
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(2, 0).Select
'liitetään joka toiselle riville
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D77").Select
End Sub
kopiointi n kpl soluja makrolla
ei vaan osaa
2
572
Vastaukset
moduuliin...
Sub Kopioi()
Dim Lähdealue As Range
Dim vika As Integer
vika = Range("G65536").End(xlUp).Row
Set Lähdealue = Range("G1:G" & vika)
Range("D2").Select
For i = 1 To Lähdealue.Count
ActiveCell = Lähdealue(i)
ActiveCell.Offset(2, 0).Select
Next
End Sub
Keep Exceling
@Kunde- ei vaan osaa
Kiitos kaavasta, toimii hyvin.
"kiitollisena kumartaa syvään..pää lattiaan asti..klops..aih.."
Hyvää kesän jatkoa.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia?
Kertokaas omia mielipiteitä eutanasiaan liittyen. Onko mielestäsi oikein vai väärin ja miksi?412356Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä411143Riikka Purran kaudella nousi bensan hinta yli 2 euron
Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal1745064Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa283679Mitäs nyt sijoittajat?
Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no1963524Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."
Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss443047Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1082769Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie372117Jäit kiinni siitä
että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky132108Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin
Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy191935