oplopend nummeren

Hallo allemaal

Ik heb een blad ladingboek die middels button naar geschiedenis copieerd maar in cel M2 staat een nummer die ik na gebruik deze button met 1 wil verhogen. Ook moet het mogelijk zijn om in cel M2 zelf nummer nog te veranderen, maar weet niet hoe formule aan te passen. Ik dacht na next de tekst hieronder maar die werkt niet

Sheets("Ladingboek-ABC").Select
Cell M2+1
End If
Next

hieronder de orginele die ik wil aanpassen

Private Sub CommandButton3_Click()
Dim lRij As Long
Sheets("Ladingboek-ABC").Select
For lRij = 6 To 6 Step -1
If Cells(lRij, "i") <> "" And Cells(lRij, "i") <> 0 Then
'kopieer de laatste 20 vrachten 1 op om plaats te maken voor de volgende
Sheets("geschiedenis").Range("A3:Z19").Copy
Sheets("geschiedenis").Cells(4, "a").PasteSpecial xlValues
'vul nu de gegevens bij in de range "AA2:AE2"
Sheets("geschiedenis").Cells(3, "a") = Cells(2, "m") 'reis
Sheets("geschiedenis").Cells(3, "b") = Now 'datum & tijd nu
Range(Cells(lRij, "a"), Cells(lRij, "m")).Copy 'kopieer alle gegevens van die lading (kolommen A tot M)
Sheets("geschiedenis").Cells(3, "c").PasteSpecial xlValues
End If
Next
End Sub


M vr gr
Gijs

Gijs,


Dit gaat ALTIJD over cel I6, waarom dat niet gewoon zo benoemen?

TIP: post je bestand eens (ontdaan van evt "gevoelige" informatie)!

Hallo allemaal

Hierbij een bestand waar het duidelijker wordt.

M vr gr
Gijs

Bekijk bijlage 307989

Ik heb een blad ladingboek die middels button naar geschiedenis kopieert maar in cel M2 staat een nummer dat ik na gebruik deze button met 1 wil verhogen. Ook moet het mogelijk zijn om in cel M2 zelf nummer nog te veranderen

Klik om te vergroten...

Of het een (geautomatisserd) , of het ander (met de hand).

Als je fouten wil introduceren moet je beide combineren.