Hoe kan ik een makro maken die 2x print en opslaat

[asdf1234]

Ik ben op zoek naar een makro die het volgende doet in excel
Ik wil met een butto ervoor zorgen dat de worksheet twee keer word af gedrukt en zichzelf opslaat met behulp van een cel die ik zelf kan in vullen
heb nog nooit zoiets gemaakt en ben benieuwd of het kan

Private Sub CommandButton3_Click()
'
ActiveDocument.SaveAs FileName:=cell("a1") FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

 

[snor]

Het is mogelijk, als ik jou was zou ik visual basic gaan bestuderen.

 

[Wigi]

Private Sub CommandButton3_Click()
     ThisWorkbook.SaveAs FileName:=Sheets("naamvanhetblad").Range("A1").Value
End Sub

Wigi

PS:

Het is mogelijk, als ik jou was zou ik visual basic gaan bestuderen.

Heel nuttige post

 

[huijb]

Het is mogelijk, als ik jou was zou ik visual basic gaan bestuderen.

En als ik jou was zou ik je antwoorden nuttiger formuleren. In een andere topic zag ik ook dat al dat je een nietszeggend antwoord gaf, dus hou hier in het vervolg rekening mee.

 

[asdf1234]

Private Sub CommandButton3_Click()
     ThisWorkbook.SaveAs FileName:=Sheets("naamvanhetblad").Range("A1").Value
End Sub

Wigi

PS:



Heel nuttige post

dank je hier had ik nog geen oplossing voor. Voor het printen was ik er al uit maar heb ondertussen geleerd dat ik beter de range .select functie kan gebruiken om het specifiek deel uit te printen

 

[asdf1234]

En als ik jou was zou ik je antwoorden nuttiger formuleren. In een andere topic zag ik ook dat al dat je een nietszeggend antwoord gaf, dus hou hier in het vervolg rekening mee.

je kan pas iets goed formuleren als je weet waar je het over hebt en daarom zit ik nu voor het eerst op dit forum en ja ik moet nog veel leren in VBA maar ben daar zeker toe bereid dus handige tips zou ik zeer op prijs stellen

 

[Wigi]

je kan pas iets goed formuleren als je weet waar je het over hebt

De reactie van Huijb was gericht aan Snor, niet aan jou

Veel leerplezier hier op het forum gewenst.

Wigi

 

[asdf1234]

zelf studie doet een hoop

heb het antwoord gevonden misschien omslachtig maar werkt wel

Private Sub CommandButton1_Click()
Range("a1:e56").PrintOut copies:=2
End Sub

Private Sub CommandButton2_Click()
Range("a1:e56").PrintOut copies:=1
End Sub

Private Sub CommandButton3_Click()
Dim Naam As String
Naam = Range("f8")
ActiveWorkbook.SaveCopyAs "D:\baliebonnen\" & Naam & " " & ".xls"
Range("b8:c11").ClearContents
Range("a13:d32").ClearContents
Range("a39:e56").ClearContents
Range("b8").Select

End Sub

Private Sub CommandButton4_Click()
Range("b8:c11").ClearContents
Range("a13:d32").ClearContents
Range("a39:e56").ClearContents
Range("b8").Select
End Sub

Private Sub CommandButton5_Click()
If MsgBox("Wilt U afsluiten ?", vbYesNo, "U gaat nu terug") = vbYes Then ActiveWorkbook.Close savechanges:=False
End Sub