VBA - Invoegen - Procedure werkt niet

Status
Niet open voor verdere reacties.
P

Patsy1604

Gebruiker
Lid geworden
22 mei 2012
Berichten
92
Hoi,

Excel 2010

Ik heb een klein VBAtje ingebracht en dit werkt prima:

Sub VolgFact()
Range("B6").Value = Range("B6").Value + 1
Range("A10:F19").ClearContents
Range("B5").Value = Date
End Sub

Nu ga ik naar Module 1 (waar deze VBA instaat) en klik op Invoegen - dan wil ik Procedure aanklikken maar dit is niet mogelijk.

Waar heb ik iets verkeerd gedaan?

Met vriendelijke groeten, Patsy
 
Het is de bedoeling dat mijn facturen allemaal naar 1 map gaan op mijn desktop.

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "c:\Users\.....\Facturen\Fact"& Range("B6").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub
 
Je kan het toch in een nieuwe module plaatsen. Of onder je sub volgfact in module 1
 
Laatst bewerkt:
Ik begrijp uw vraag niet goed denk ik.
Je hoeft toch procedure invoegen niet te gebruiken, plak je volgende macro gewoon onder de eerste.
 
Het gebruik van codetags mag nu toch wel bekend zijn?

Alles in 1 procedure
Code: 
Sub OpslBestand()
With Sheets("Sheet1") 'aanpassen naar de naam van het blad
  .Copy
  With ActiveWorkbook
    .SaveAs "c:\Users\.....\Facturen\Fact" & Range("B6").Value & ".xlsx", 51
    .Close
  End With
  .Range("B6").Value = Range("B6").Value + 1
  .Range("A10:F19").ClearContents
  .Range("B5").Value = Date
End With
End Sub
 
Hoi,

't is gelukt maar ik ben niet echt thuis met VBA. Vandaar dat het iets langer heeft geduurd.

Mijn bedoeling is om mijn facturen automatisch te voorzien van de datum van vandaag en een oplopend factuurnummer. Dus wanneer ik een nieuwe factuur open (na saven van de andere in een map) - een nieuwe datum (indien van toepassing) en een nieuw factuurnummer.

Maar een beetje oefenen en VBA werkt ook, dank voor jullie hulp. :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan