opslaan met naam en dan nieuwe volgnummer plaatsen

[sjonge]

Hallo,

ik ben al heel de avond aan het puzzelen met de volgende vraag. ik heb een lijst gemaakt (die jullie hier vaker gezien hebben) om het mezelf wat gemakkelijker te maken. nu ben ik al een heel eind in de goede richting maar nu wil ik de puntjes op de i hebben. ik heb al verschillende oplossingen bekeken en ik kan nog niet echt wijs worden uit vba, overigens is het vanavond pas voor de eerste keer dat ik hier mee bezig ben. ik heb al wat dingetjes in elkaar geflanst maar ben nog niet daar waar ik wil zijn. wat wil ik graag.

opslaan met nummer, naam en omschrijving. dit is me gelukt.

maar na het opslaan moet het ordernummer met 1 verhoogt worden en het veld gewist en hier kom ik er niet aan uit hopelijk willen jullie me hierbij weer helpen.

ps de plaats waar het opgeslagen moet worden is D\offerte

 

[edmoor]

Ik heb je CommandButton1_Click iets aangepast.

Private Sub CommandButton1_Click()

    With Sheets("offerte")
        ActiveWorkbook.SaveAs Filename:= _
        .[c2] & " " & [C3] & " " & [c7] & ".xls"
    End With
    
    Range("C2").Value = Range("C2").Value + 1
    Application.DisplayAlerts = True
End Sub

Maar welk veld moet er worden gewist?

 

[sjonge]

het hele formulier mag weer schoon beginnen. zodat ik een nieuwe klant kan inzetten en vervolgens de lijst daaronder weer kan vullen met een nieuw projekt.

 

[sjonge]

edmoor bedankt voor de eerste regels trouwens

 

[edmoor]

Zoiets dus:

Private Sub CommandButton1_Click()
    Dim i As Integer
    
    With Sheets("offerte")
        ActiveWorkbook.SaveAs Filename:= _
        "D:\Offerte\" & .[c2] & " " & [C3] & " " & [c7] & ".xls"
    End With
    
    Range("C2").Value = Range("C2").Value + 1
    For i = 3 To 6
        Range("C" & i).Value = vbNullString
        Range("F" & i).Value = vbNullString
    Next

    Range("C3").Activate
    Application.DisplayAlerts = True
End Sub

 

[sjonge]

top helemaal geweldig als we sommige mensen toch niet hadden waar zouden we dan zijn hartstikke bedankt edmoor

 

[edmoor]

Graag gedaan.
Sites als Helpmij zijn ervoor

 

[sjonge]

klein vraagje nog, kom tot de conclusie dat deze code ook de adres gegevens wist. kun je ook alleen cel c3 leeg maken? dan blijft verticaal zoeken die daar onder staat intact.

 

[edmoor]

Tuurlijk.

Private Sub CommandButton1_Click()
    With Sheets("offerte")
        ActiveWorkbook.SaveAs Filename:= _
        "D:\Offerte\" & .[c2] & " " & [C3] & " " & [c7] & ".xls"
    End With
    
    Range("C2").Value = Range("C2").Value + 1
    Range("C3").Value = vbNullString
    Range("C3").Activate

    Application.DisplayAlerts = True
End Sub

 

[sjonge]

toppie