Probleem met script in excel

[stefan3189]

Goedemorgen! Ik zit even met een vraagje. Een collega van mij heeft in Excel een soort programma gemaakt waarmee je serienummers kunt aanmaken voor goederen. Maar nu moest die collega per direct weg en heb ik dit op mn bord gekregen maar ik kom er niet helemaal uit.

Het is namelijk de bedoeling dat een serienummer alsvolgt word weergegeven: MP7-215.
Hierbij staat MP voor pomp, de 7 voor de maand, en 215 is het volgnummer zeg maar.
Het script wat daarvoor gemaakt is is dit:

Sub NextSerialNumberPumps()

    Dim Maand As Integer
    Dim Antwoord As Integer
    Antwoord = MsgBox("Heb je de juiste cel aangeklikt?", vbOKCancel, "Nieuwe serienummer Pomp")
    If Antwoord = 2 Then
        GoTo gaweg
    End If
    Maand = Range("AD1").Value
    If Maand <> Mid$(Date, 4, 2) Then
        Range("AD1").Value = Mid$(Date, 4, 2)
        Range("AC1").Value = 0
    End If
    Range("AC1").Value = Range("AC1").Value + 1
    ActiveCell.FormulaR1C1 = "MP" & Mid$((Date), 4, 2) & Mid$((Date), 9, 2) & Range("AC1").Value
    ActiveCell.Offset(0, 1).Select 'spring naar de volgende cel
gaweg:
End Sub

Nu is mijn probleem dat in het serie nummer de 7, die voor de maand staat, niet altijd automatisch ingevoerd word.

Kan iemand mij hier mee helpen om de hout te vinden??

Bij voorbaat dank!
En als er vragen zijn hoor ik dat graag!

 

[edmoor]

In plaats van het Mid$(Date verhaal kun je beter het volgende gebruiken:
Dagnummer: Day(date)
Maandnummer: Month(date)
Jaarnummer: Year(Date)

Voor het jaar zonder de eeuw kun je dit gebruiken:
Right(Year(Date),2)

 

[snb]

Mijn vraag: kun je svp VBA code tussen codemarkeringen zetten ?

Zoals hier:

sub M_snb()
   msgbox format(date,"\MPm-") & Range("AC1").value
  Range("AC1").value=Range("AC1").value+1
end sub

 

[edmoor]

Als aanvulling op mijn vorige reactie en in antwoord op snb zou ik er zoiets van maken:

Sub NextSerialNumberPumps()
    Dim Maand As Integer
    Dim Antwoord As Integer
    Antwoord = MsgBox("Heb je de juiste cel aangeklikt?", vbOKCancel, "Nieuw serienummer Pomp")
    If Antwoord = 2 Then Exit Sub

    Maand = Range("AD1").Value
    If Maand <> Month(Date) Then
        Range("AD1").Value = Month(Date)
        Range("AC1").Value = 0
    End If

    Range("AC1").Value = Range("AC1").Value + 1
    ActiveCell.FormulaR1C1 = "MP" & Month(Date) & Right(Year(Date), 2) & "-" & Range("AC1").Value
    ActiveCell.Offset(0, 1).Select 'spring naar de volgende cel
End Sub

Zo is ook de overbodige GOTO eruit, alsmede de taalfout.

 

[stefan3189]

Heel erg bedankt voor de reacties! En Edmoor bedankt voor de aanpassing in het script. Daar ga ik mee aan de slag!!

Nogmaals bedankt!