niet opslaan bij naam niet ingevuld

[Peekhamer]

Ik heb voor controles die ons bedrijf uitvoert een macro geschreven, die het bestand automatisch wegschrijft onder de naam en het registratienummer van de onderneming. Naam ziet er dan zo uit: "jjjj-mm-dd - reg.nr- naam onderneming". Wanneer je nu bij het invoeren "annuleren" kiest, dan krijg ik dus (met datum vandaag) 2012-11-16 0 0 en slaat ie hem toch op.
Ik wil eigenlijk dat hij hem dan niet opslaat. Volgens mij is dat iets met "on error resume next" ofzo? ik kom er niet uit.

Dit is de macro:

Sub Autpen()
Sheets("looncontrole").Select
Range("C1").Select
If ActiveCell.Value = "" Then

Registratienummer = InputBox("Geef het Registratienummer van de onderneming:", "Registratienummer")
Range("C1").Select
ActiveCell.Value = Registratienummer
Naam = InputBox("Geef de naam van de onderneming:", "Naam")
Range("E1").Select
ActiveCell.Value = Naam
ChDir ("C:\Audit\")
ActiveWorkbook.SaveAs [AD2], FileFormat:=52
Application.Wait (Now() + TimeValue("00:00:01"))
Sheets("Dossierindex").Select
Range("D10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C13").Select
Sheets("Begeleidingsformulier").Select
Range("P5").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Steekproef").Select
Range("H7").Select
Else
Range("C1").Select
End If
End Sub

Kan iemand met verstand hier eens naar kijken?

 

[pasan]

in jou code doe je niets met de keuze knoppen ok en annuleren
hier wat gevonden http://hlrnet.com/technoblog/vb-annuleren-op-inputbox/

Sub test()
naam = InputBox("Geef het Registratienummer van de onderneming:", "Registratienummer", " ")
Select Case naam
            Case " "
                MsgBox ("u heeft niks ingevoerd"): Exit Sub ''als je niks hebt ingevuld maar wel op ok hebt gedrukt
            Case ""
                Exit Sub                                     '' als je op annuleren drukt
            Case Else
                ActiveCell.Value = naam                        '' (hier jou code)als je wel iets ingevuld hebt en op ok gedrukt hebt
                
        End Select
End Sub

 

[Peekhamer]

OK, dat klopt idd. Thanx voor de input, daar ga ik eens mee stoeien.

Dan nog iets.
als iemand "test B.V." invult, dan slaat het bestand op als "***.v" bestand.
Hoe kan ik dat omzeilen (anders dan gewoon BV zonder puntjes invoeren?)

 

[Peekhamer]

Ik heb de case-select inmiddels verwerkt in het bestand, en het werkt nu idd.

Blijft alleen nog staan: hoe los ik dat B.V. probleem op?

Edit: ben er al uit. In Cel AD2 bouwt ie de bestandsnaam op. Daar heb ik een functie Substitueren gebruikt om de puntjes eruit te halen, maw, "B.V." te vervangen door "BV"

 

[pasan]

zoiets?

ActiveWorkbook.SaveAs [AD2] & " " & ".xlsm", FileFormat:=52

 

[Peekhamer]

Bedankt voor de input nogmaals. ik heb het opgelost; zie mijn edit van de post erboven.

 

[pasan]

toch even een vraag wat als iemand N.V. invult per ongeluk of geen hoofdletters gebruikt

 

[Peekhamer]

N.V. komt niet voor, maar ik wist niet dat ie hoofdlettergevoelig was?

hmmm even getest, dat is ie dus wel... ****. Even verder frobelen.

Edit: bedankt Pasan, heb toch maar jouw optie gekozen via de Macro. Die is toch wel het makkelijkst, ongeacht wat er wordt ingevuld..

Is definitief opgelost.