factuurnr automatisch laten verschijnen

[HBZ]

Hallo,

Ik heb een factuur gemaakt, die de factuurnr automatisch veranderd wanneer ik het bestand overnieuw open.

Nu sla ik de gemaakte factuur op ( doormiddel van opslaan als), maar wanneer ik het dan weer open veranderd het factuurnr ook. Kan ik dit ook zo aanpassen, dat wanneer ik de factuur opsla, deze niet meer wijzigd?

op deze manier heb ik het nu gedaan:
Maak met de "Werkset Besturingselementen" een knop op het blad.
Rechtsklik op de knop "Programmacode weergeven" en zet deze regel tussen de Private en End Sub

Private Sub Workbook_Open()
Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
End Sub

copy to ThisWorkbook

 

[JeanPaul28]

de cel waar de formule van de faktuurnr staat , kopieren>>> plakkenspeciaal>>>waarden wel in het opgeslagen bestand.


mvg Jean-Paul

 

[HBZ]

de cel waar de formule van de faktuurnr staat , kopieren>>> plakkenspeciaal>>>waarden wel in het opgeslagen bestand.


mvg Jean-Paul

Dit staat er bij mij niet tussen?

 

[HSV]

Zet onderstaande in de moduleblad van toepassing (zal een Commandbutton zijn "werkset besturingselementen").

Private Sub CommandButton1_Click()
 Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
End Sub

 

[HBZ]

Zet onderstaande in de moduleblad van toepassing (zal een Commandbutton zijn "werkset besturingselementen").

Private Sub CommandButton1_Click()
 Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
End Sub

Dit heb ik inderdaad ook gedaan, alleen vraag ik mij af of er nog een manier is.
Dat bij het openen van het blad automatisch het factuurnummer wijzigt.
Het is namelijk voor iemand die slordig is op de factuurnummers en alles door elkaar gooit.

Is er ook een mogelijkheid dat op het moment dat je het bestand opslaat, deze niet meer wijzigd. Tenzij jij zelf dit aangeeft.

 

[HSV]

Dus als het blad is opgeslagen, dan moet de knop niet meer werken bv?
Maar als je het bestand afsluit en daarna weer opent, dan weer wel?

 

[HBZ]

Dus als het blad is opgeslagen, dan moet de knop niet meer werken bv?
Maar als je het bestand afsluit en daarna weer opent, dan weer wel?

ja inderdaad, wanneer ik de gemaakte factuur opsla, moet dit niet meer werken.
Ik hou dan alleen een basisbestand die wel door moet tellen.

 

[HSV]

In Thisworkbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets(1).CommandButton1.Enabled = False
End Sub

Private Sub Workbook_Open()
 Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
End Sub

 

[HBZ]

In Thisworkbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets(1).CommandButton1.Enabled = False
End Sub

Moet ik hier nu een bottom maken in het excelbestand?

 

[HSV]

Een button.
Maar die had je toch al?

 

[HBZ]

Ik heb 2 bestanden gemaakt.

1 daarvan met button ( bij deze veranderd het factuurnr, alleen door op het button te klikken)
en 1 zonder button ( hierin veranderd het factuurnr bij het openen)

 

[HSV]

En wat moet er nu nog gebeuren volgens jou.
Ik word er niet veel wijs uit.

 

[HBZ]

ik wil graag in het bestand zonder button, dat wanneer ik dit bestand opsla, bij het opnieuw openen van dat bestand. De factuurnummer niet meer wijzigd.

Wanneer ik nu een factuur maak en ik sla deze op, en open het bestand weer, dan veranderd het nummer.
Dat is dus wat ik niet wil.

 

[HSV]

Hiermee wordt alleen je eerste blad opgeslagen, dus ook geen code in het bestand.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets("blad1").Copy
  With ActiveWorkbook
    .SaveAs "D:\" & Sheets(1).Range("A1").Value & ".xls"
    .Close
   End With
End Sub

Verander de plaats waar het moet worden opgeslagen, alsook de naam waarmee het wordt opgeslagen.
Deze naam wordt gecreëerd door wat er in cel A1 staat.

 

[HBZ]

Hiermee wordt alleen je eerste blad opgeslagen, dus ook geen code in het bestand.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets("blad1").Copy
  With ActiveWorkbook
    .SaveAs "D:\" & Sheets(1).Range("A1").Value & ".xls"
    .Close
   End With
End Sub

Verander de plaats waar het moet worden opgeslagen, alsook de naam waarmee het wordt opgeslagen.
Deze naam wordt gecreëerd door wat er in cel A1 staat.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("blad1").Copy
With ActiveWorkbook
.SaveAs "M:\Leendert administratie" & Sheets(1).Range("B6").Value & ".xls"
.Close
End With
End Sub

als ik dit invul is het dan goed of ben ik nog vergeten om wat in te vullen in deze formule?

 

[HSV]

Deze naam is ook juist?

Sheets("blad1").Copy

 

[HBZ]

Ik krijg nu een rode regel in het invoer veld.
zie hierboven de bijlage.

 

[HSV]

De rode regel komt ook niet overeen met de in #14 gegeven code.

 

[Warme bakkertje]

De SaveAs-regel moet onder de With ActiveWorkBook-regel

 

[HBZ]

De SaveAs-regel moet onder de With ActiveWorkBook-regel

hoe bedoel je precies?
Zo goed ken ik excel niet, helaas