excel bestand verzenden en nummeren

[shanna]

in een cel van excel staat een volgnummer wat automatisch wordt verhoogd.
Met een macro wordt dit bestand verzonden en wordt het volgnummer
automatisch verhoogd en het bestand opgeslagen met het verhoogde nummer,
als ik dit werkblad verstuur zou ik graag dit nummer in het
onderwerp terug zien komen.
is dit mogelijk?

gr

Leon

 

[Wigi]

Wat is je huidige code voor het verzenden en het opslaan? Plaats die hier, en wel tussen code tags zodat het allemaal leesbaar wordt. Hoe doe je dat? Plak je code hier, selecteer ze en klik op het #

Wigi

 

[shanna]

bedoel je om de macro hier te plaatsen?

 

[Wigi]

Ja, als die niet te uitgebreid is. Anders een bestandje plaatsen met de code in.

 

[shanna]

de macro, hoor graag van je.

ActiveSheet.Unprotect
Range("B6:C19").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("C1:C4").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6:C6").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True


Range("B5:C5").Select
Application.CutCopyMode = False
Selection.Copy
Application.Dialogs(xlDialogSendMail).Show



ActiveSheet.Unprotect
Range("B6:C19").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("C1:C4").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B5:C5").Select
ActiveCell.FormulaR1C1 = Range("b5") + 1
Range("B6:C6").Select
Range("B6:C18").Select
Selection.ClearContents
Range("B6:C6").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
ActiveWorkbook.Save

 

[Wigi]

Kuis ook je code eens op. Vermijd het selecteren van cellen, dat is niet nodig.

Dit

Range("B6:C18").Select
Selection.ClearContents

kan ook met

Range("B6:C18").ClearContents

Je code zal minder "flikkeren" als je ze uitvoert, want er wordt niet van cel naar cel gesprongen.

Als je dat gedaan hebt, plaats de code opnieuw, maar dan met code tags aub. Dan komt de code hier in een apart venstertje te staan zoals bij mij.

Wigi

 

[shanna]

hoi, eea verwijderd, hoor graag van je.

Sub verzenden()
'
' verzenden Macro
'

'
    ActiveSheet.Unprotect
    Range("B6:C19").Locked = True
    Selection.FormulaHidden = False
    Range("C1:C4").Copy
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B6:C6").Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
        
  
      Range("B5:C5").Application.CutCopyMode = False
    Selection.Copy
    Application.Dialogs(xlDialogSendMail).Show
        
     
    
    ActiveSheet.Unprotect

    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("C1:C4").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("B5:C5").Select
    ActiveCell.FormulaR1C1 = Range("b5") + 1
    Range("B6:C18").ClearContents
    
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
    Range("B6:C6").Select
    ActiveWorkbook.Save
         
 

End Sub

 

[Wigi]

Hier is heel wat code voor het mailen. Gebruik daar iets van ipv. met Application.Dialogs(xlDialogSendMail).Show. Dan gebeurt dat mailen automatisch. Je zal dan ook zien wat je in je onderwerp van de mail kan zetten.

Wigi

 

[shanna]

hoi,


ik zie wel veel leuke nieuwigheden maar krijg niet voor elkaar wat
ik wil, heb jij nog ideeen?

gr

shanna

 

[Wigi]

Hier heb je bv. al code om het huidige bestand te mailen. Je ziet daar o.a. iets staan als

"This is the Subject line"

daar kan je de onderpregel aanpassen. Bv. dus met een getal dat je uit een cel haalt.

 

[shanna]

Hoi Wigi,

geweldig, hij doet het dus. Alleen...dan wil een mens altijd meer, nu krijgt de ontvanger het excel bestand als bijlage, kan dat ook als verzenden naar een email adres zodat
de ontvanger er verder niets mee kan doen?

gr

Shanna

 

[Wigi]

Hoi Wigi,

geweldig, hij doet het dus. Alleen...dan wil een mens altijd meer, nu krijgt de ontvanger het excel bestand als bijlage, kan dat ook als verzenden naar een email adres zodat
de ontvanger er verder niets mee kan doen?

gr

Shanna

Bekijk dan bij Ron wat er nog zoal mogelijk is.

 

[shanna]

hoi wigi,

sorry maar mij lukt het niet (blond he), heb jij gelegenheid om even te kijken.

bvd

shanna

 

[Wigi]

kan dat ook als verzenden naar een email adres zodat
de ontvanger er verder niets mee kan doen?

Zet er een paswoord op het bestand en verzendt het dan zo.

 

[shanna]

nee dat is niet de bedoeling, men moet de mail gelijk kunnen lezen zonder excel te openen.

gr

shanna

 

[Wigi]

Hier is code, al is dat niet van de simpelste VBA code die er bestaat... (and that's an understatement...)

Wigi