• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cellen kopiëren naar nieuwe rij op ander tabblad

Status
Niet open voor verdere reacties.
K

katanka

Gebruiker
Lid geworden
20 sep 2009
Berichten
20
Stel, ik heb een blad "BRON" en een blad "RESULTAAT".
In BRON zet ik in B4 en D6 gegevens. Vervolgens wil ik die 2 gegevens kopiëren naar RESULTAAT en plaatsen in kolom A en B (B4 komt naar A, D6 naar B), telkens op de eerste vrije regel (dus niet gewoon regel 1 of 2, wel de eerste lege regel).

Kan iemand me een beetje op weg helpen?
 
bv.
Code: 
Sub tst()
    With Sheets("Blad1")
        .Range("B4").Copy Sheets("Blad2").Range("A65536").End(xlUp).Offset(1)
        .Range("D6").Copy Sheets("Blad2").Range("A65536").End(xlUp).Offset(, 1)
    End With
End Sub
 
2 probleempjes:

1. hij kopieert nu formules en niet de waardes, kan ik ook de waarden kopieren?
2. wat voeg ik toe als ik een 3 en 4de cel wil kopiëren?

Ik dacht slim te zijn met onderstaande, maar dat lijkt eerder dom. :-)
Code: 
.Range("B9").Copy Sheets("verkopen").Range("A65536").End(xlUp).Offset(1)
        .Range("F3").Copy Sheets("verkopen").Range("A65536").End(xlUp).Offset(, 1)
        .Range("B12").Copy Sheets("verkopen").Range("A65536").End(xlUp).Offset(, , 1)
        .Range("F3").Copy Sheets("verkopen").Range("A65536").End(xlUp).Offset(, , , 1)
 
Code: 
Sub tst()
lRow = Sheets("verkopen").Range("A65536").End(xlUp).offset(1).Row
With Sheets("Naameersteblad")
    .Range("B9").Copy
    Sheets("verkopen").Cells(lRow, 1).PasteSpecial xlPasteValues
    .Range("F3").Copy
    Sheets("verkopen").Cells(lRow, 2).PasteSpecial xlPasteValues
    .Range("B12").Copy
    Sheets("verkopen").Cells(lRow, 3).PasteSpecial xlPasteValues
    .Range("F3").Copy
    Sheets("verkopen").Cells(lRow, 4).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub
 
Laatst bewerkt:
het kopiëren van de waarden is nu OK, maar hij overschrijft altijd dezelfde rij ipv het bij te schrijven op de eerste lege rij daaronder.

Code: 
Sub tst()
lRow = Sheets("verkopen").Range("A65536").End(xlUp).Row
With Sheets("factuur")
    .Range("B9").Copy
    Sheets("verkopen").Cells(lRow, 1).PasteSpecial xlPasteValues
    .Range("F3").Copy
    Sheets("verkopen").Cells(lRow, 2).PasteSpecial xlPasteValues
    .Range("B12").Copy
    Sheets("verkopen").Cells(lRow, 3).PasteSpecial xlPasteValues
    .Range("F20").Copy
    Sheets("verkopen").Cells(lRow, 4).PasteSpecial xlPasteValues
     .Range("F21").Copy
    Sheets("verkopen").Cells(lRow, 5).PasteSpecial xlPasteValues
    .Range("F22").Copy
    Sheets("verkopen").Cells(lRow, 6).PasteSpecial xlPasteValues
    
End With
Application.CutCopyMode = False
End Sub
 
Markeer je de vraag dan nog even als opgelost.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan