Macro toewijzen / uitbreiden

[Hans1962]

Hallo,

Ik heb een vraagje.
Ik ben helemaal geen kei in exel, maar heb een formuliertje gemaakt met een printbutton.
Zodra het formulier middels de button uitgeprint is, wordt deze ook gewist zodat het formulier weer klaar is voor gebruik.

Nu zou ik heel graag de macro willen uitbreiden zodat hij naast printen en wissen, ook het formulier opslaat voordat het gewist wordt ( opslaan als) en voordat het formulier gewist wordt dat het gemaild wordt naar een vast emailadres.
Weet iemand of dit mogelijk is en zo ja.... hoe ik de macro kan en moet uitbreiden?

HIeronder staat de macro:
Alvast heel erg bedankt voor de eventuele hulp.
Groeten Hans:thumb:


Option Explicit
Sub Afdruk()
ActiveSheet.Protect Password:="*****"
Range("A1:Q31").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("B4,B6,B27,B28,C4:E4,E6:F6,C26:Q26,A9:Q24,G27:k27,H31:L31").ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub
Sub Afdruk_1()
ActiveSheet.Protect Password:="*****"
Range("A1:Q31").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("B4,B6,B27,B28,C4:E4,E6:F6C26:Q26,A9:Q24,G27:k27,H31:L31").ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub

 

[Warme bakkertje]

Voor het opslaan kan je via de zoekfunctie op dit forum genoeg voorbeelden vinden zodat je een goed idee krijgt van de verschillende mogelijkheden.
Voor het mailen vind je alle informatie op volgende link
http://www.rondebruin.nl/sendmail.htm

Mvg

Rudi

 

[nvds]

hoi,


ik had ooit voor m'n uren declaratie zoiets gemaakt, wel zonder mail functie


Sub Afdruk()

Dim Bestandsnaam As String
Dim Bestand As String
Dim ExcelLinks As Variant
Dim Datum
Dim Hoofdbestand As String
Dim Nieuwbestand As String

Datum = Format(Now, "dd-mm-yy_hhmmss")

Application.ScreenUpdating = False
ActiveWorkbook.Save

Nieuwbestand = "Helpmij"
Bestandsnaam = ActiveWorkbook.Path & "\" & Nieuwbestand & "_" & Datum & ".xls"
Bestand = Nieuwbestand & "_" & Datum & ".xls"

Hoofdbestand = ThisWorkbook.Name


Cells.Select
Selection.Copy
Workbooks.Add

Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ActiveWorkbook.SaveAs Filename:=Bestandsnaam, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


Range("A1:Q31").Select
Selection.PrintOut Copies:=1, Collate:=True



Workbooks(Hoofdbestand).Worksheets("Blad1").Activate
Workbooks(Bestand).Close SaveChanges:=True


Range("B4,B6,B27,B28,C4:E4,E6:F6,C26:Q26,A9:Q24,G27:k27,H31:L31").ClearContents

Application.ScreenUpdating = True
ActiveWorkbook.Save

Range("A1").Select
End Sub

ik hoop dat je er wat aan hebt