Opgelost Doorvoeren via VBA geeft niet het juiste resultaat.

[jonasparmentier]

Hallo

Na enkele uren zoeken zal ik toch even hulp moeten vragen

Ik heb onderstaande in kolom A:

PO-25-001
PO-25-002

Ik wil graag de laatste regel zoeken en deze één naar beneden doorvoeren. Het is mij ook deels gelukt, maar de waarde van de doorvoer klopt niet. Met mijn code krijg ik telkens weer waarde PO-25-002 ipv PO-25-003.

onderstaand mijn gebruikte code.

Sub Doorvoeren()
Range("A65536").End(xlUp).Select
    Dim laatsteRij As Long
    Dim actieveCel As Range

    Set actieveCel = ActiveCell
    With ActiveSheet
        laatsteRij = .Cells(.Rows.Count, actieveCel.Column).End(xlUp).Row + 1
        .Range(actieveCel, .Cells(laatsteRij, actieveCel.Column)).FillDown  'deze lijn werkt niet
    End With

End Sub

Alvast bedankt voor de hulp!

 

[emields]

je had beter zelf een voorbeeldbestandje geplaatst.

verwacht je zoiets?

 

[AHulpje]

Doe het eens zo:

Sub Doorvoeren()
    laatsteRij = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(laatsteRij - 1, 1), Cells(laatsteRij, 1)).AutoFill Destination:=Range(Cells(laatsteRij - 1, 1), Cells(laatsteRij + 1, 1)), Type:=xlFillDefault
End Sub

 

[jonasparmentier]

Het is gelukt; beide opties werken perfect!

Ik zal eraan denken om volgende keer een voorbeeldbestandje te plaatsen.

Voor deze, alvast hartelijk bedankt

Groeten Jonas

 

[HSV]

sub doorvoeren()
 Cells(Rows.Count, 1).End(xlUp).Resize(2).DataSeries , 4
end sub