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
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
Vastaukset 2
Vanhimmat
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
Kiitos kaavasta, toimii hyvin.
"kiitollisena kumartaa syvään..pää lattiaan asti..klops..aih.."
Hyvää kesän jatkoa.