Bekijk bijlage 132995heren forumleden
ik wil een sheet versturen maar alle cellen worden in breedte en hoogte veranderd
is het mogelijk dat die verhinderd word ,en een msg box verschijnt waar gevraagd word
bv staand of liggend
knopfunctie mailen staat op blad 1 en sheet bestelformulier is blad 11
deze marco gebruik ik nu,werkt goed tot ik mail open maak dan zijn de cellen veranderd kunnen jullie mij op weg helpen
Private Sub cmdemail_Click()
Sheets("bestelformulier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Range("B4:N32").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Columns("B:N").EntireColumn.AutoFit
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True
Range("B4").Select
End Sub
gr arie
ik wil een sheet versturen maar alle cellen worden in breedte en hoogte veranderd
is het mogelijk dat die verhinderd word ,en een msg box verschijnt waar gevraagd word
bv staand of liggend
knopfunctie mailen staat op blad 1 en sheet bestelformulier is blad 11
deze marco gebruik ik nu,werkt goed tot ik mail open maak dan zijn de cellen veranderd kunnen jullie mij op weg helpen
Private Sub cmdemail_Click()
Sheets("bestelformulier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Range("B4:N32").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Columns("B:N").EntireColumn.AutoFit
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True
Range("B4").Select
End Sub
gr arie
Laatst bewerkt: