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
487
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
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1222251En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1021340Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3141043Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1031021- 1081004
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.85906On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44690Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks251686- 50664
Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33660