nummer ophogen vanuit ander werkblad

[vanmar1981]

Hallo,

Ik wil doormiddel van een knop een aantal velden leegmaken en tegelijkertijd een nummer uit een ander werkblad kopieren naar een Cel en die waarde ophogen met 1. Nu heb ik al het 1 en ander gegoogled, maar ik krijg het niet werkend. En ben zelf niet helemaal thuis in het opbouwen van VBA codes.

Dit is wat ik vooralsnog heb gevonden.

Private Sub CommandButton1_Click()

Range("C7:C12").ClearContents
Range("F3").Value = Date

End Sub

 

[Roncancio]

Private Sub CommandButton1_Click()

Range("C7:C12").ClearContents
Range("F3").Value = [Blad2!A1] + 1


End Sub

Met vriendelijke groet,


Roncancio

 

[vanmar1981]

De waarde uit het 2e blad is vanwege die autonummering variabel dus zou de laatste waarde uit Kolom A moeten hebben.

 

[Roncancio]

Bedoel je de hoogste waarde of de waarde onderaan de lijst?
Hoogste waarde:

Sub test()
Range("F3").Value = WorksheetFunction.Max([Blad2!A:A]) + 1
End Sub

Onderaan de lijst:

Sub test()
Range("F3").Value = Blad2.Range("A" & Rows.Count).End(xlUp).Value + 1
End Sub

Met vriendelijke groet,


Roncancio

 

[vanmar1981]

ik bedoelde die van onderaan de lijst en heb de gegevens aangepast en nu werkt het..
Heel erg bedankt.