Code om alleen gevulde range te kopieren.

Status
Niet open voor verdere reacties.
B

BruceSV

Gebruiker
Lid geworden
17 aug 2015
Berichten
26
Hallo allemaal,

Ik ben een beginnende VBA-er en loop ergens tegen aan. Hoop dat jullie me kunnen helpen.

Ik heb range O3:O16 gevuld met formules die op basis van input van kolom U gevuld worden.

Formule in O kolom:
Code: 
=IF(R4="";"";NOW())

Nu wil ik middels VBA de rij kopieren, maar ik wil alleen de cellen kopieren die daadwerkelijk een waarde laten zien op bovenstaande code. Om dat te proberen heb ik de volgende code gebruikt:

Code: 
'Laatste rij
LastRowBon = Worksheets("Kassa").Cells(Rows.Count, "O").End(xlUp).Row

'Mutatielijst kopieren en plakken
Worksheets("Kassa").Range("O3:T" & LastRowBon).Copy
    Worksheets("Mutaties").Range("a" & BlankRowMutaties).PasteSpecial xlPasteValues

Echter kopiert hij nu altijd O3:O16 ipv O3:O & laatste rij die values toont.


Wie kan me verder helpen? :)
 
Test het maar eens Bruce.
Code: 
Sub hsv()
With Sheets("Kassa")
 .Range("O3:O" & .Cells(Rows.Count, 15).End(xlUp).Row).SpecialCells(-4123, 1).Copy Sheets("Mutaties").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan