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
558
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
Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.
Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.1553576Mikä vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki133046Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan
eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma252771Vassarina hymyilyttää vaurastuminen persujen kustannuksella
Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne512641Riikka runnoo: Elisalta potkut 400:lle
Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv882527PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan
kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist492509Pidennetään viikko 8 päiväiseksi
Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest112300Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?
"Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k831977Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua
Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle2021827- 1401793