heb code ingevoegd en krijg iedere keer Compileerfout

[Annafleurs]

Goede morgen
Ben bezig met een beetje vba maar stuit iedere keer op het zelfde probleem kan iemand mij hierbij helpen

Compileerfout: Ongeldig buiten Procedure

ActiveWorkbook.Save
ActiveWorkbook.Save
Range("L8").Select
ActiveSheet.Shapes("Button 3").Select
Selection.OnAction = "Blad1.Mail_Workbook_1"
Range("G3").Select
ActiveSheet.ListBoxes.Add(708, 78, 315.75, 110.25).Select
Selection.Cut
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=702.75, Top:=82.5, Width:=304.5, Height _
:=88.5).Select
Selection.Verb Verb:=xlPrimary
Range("O12").Select
ActiveSheet.Shapes("CommandButton1").Select
ActiveWorkbook.Save
Range("K13").Select
ActiveSheet.Shapes("CommandButton1").Select
Selection.Verb Verb:=xlPrimary
Range("J12").Select
ActiveSheet.Shapes("Button 3").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.IncrementLeft -280.5
Selection.ShapeRange.IncrementTop -80.25
Selection.ShapeRange.ScaleWidth 0.78, msoFalse, msoScaleFromTopLeft
ActiveWorkbook.Save
Range("D4").Select
ActiveCell.FormulaR1C1 = "1500091"
Range("G6").Select
ActiveSheet.Shapes("CommandButton1").Select
Selection.Locked = False
Range("H1:H2").Select
ActiveWorkbook.Save
ActiveWorkbook.Save
Range("J4").Select

Kan iemand erbij helpen om dit werkend te krijgen

 

[edmoor]

Er staat geen Sub en End Sub omheen.

 

[OctaFish]

Er staat geen Sub en End Sub omheen.

Dat zie je verkeerd: er staat geen [ CODE ] [ /CODE ] (zonder spaties uiteraard) omheen

Maar twee keer

ActiveWorkbook.Save
ActiveWorkbook.Save

is natuurlijk een beetje onzin.

 

[edmoor]

LOL @ [ CODE ]
Verder geheel mee eens.

 

[OctaFish]

Volgens mij staat er wel meer geks in de code. Kun je niet een voorbeeldje posten, en er vooral ook bij vertellen wat je eigenlijk van plan bent?

 

[Annafleurs]

dit is wat ik geschreven heb en dat andere was de button

Sub VolgFact()
Range("D4").Value = Range("D4").Value + 1
Range("B10:E24").ClearContents
Range("D5").Value = Date
End Sub
Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Remise"
.Body = "Remise de Cheque Camille"
.Attachments.Add ActiveWorkbook.FullName
' You can add other files by uncommenting the following line.
'.Attachments.Add ("C:\test.txt")
' In place of the following statement, you can use ".Display" to
' display the mail.
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "L:\Remise" & Range("D4").Value & Range("D5").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
VolgFact
End Sub

 

[Annafleurs]

ik probeer een excel bestand zo te maken dat de mensen hem moeten in vullen en dat hij dat op hun pc gelijk opslaat en verzend via de email naar mij toe en ook dat het bestand doornummert

 

[VenA]

De opmerking over het gebruik van codetags blijkbaar gemist. Deze code is compleet anders dan die in je OP?

Met welke mogen we gaan stoeien? In de laatste zie ik niet direct iets wat een compileerfout zal opleveren.

Dus een voorbeeldbestand lijkt mij handig.

 

[Annafleurs]

De laatste werkt maar als ik er button van wil maken dan krijg ik de eerste foutcode die boven staat ik weet niet wat er mis gaat en zal even het excel bestandje erbij voegen

 

[Annafleurs]

Bekijk bijlage Remise macro.xlsm

 

[edmoor]

Er zit geen VBA code in je voorbeeld bestand.

 

[edmoor]

Er zit geen VBA code in je voorbeeld bestand. De compileerfout betekend in ieder geval dat er iets buiten een Sub End Sub staat dat daar niet mag staan. Vandaar m'n opmerking in #2.

 

[OctaFish]

Als we nog een bestandje kunnen verwachten met de juiste opbjecten/macro's zou dat fijn zijn . Ik kan jouw nieuwe macro's prima kwijt overigens in je bestandje, dus dat is het probleem niet. Maar de door jou aangehaalde knop (Button 3) staat er bijvoorbeeld ook al niet op. Dus hoe kun je daar dan een actie aan knopen? Is ook wel met een trucje te omzeilen, maar het zou allemaal niet nodig moeten zijn als helper .

Daarnaast hebben we het al een paar keer indirect gezegd, maar dat helpt niet, dus nu wat directer: kun je (met terugwerkende kracht) je eerdere code opmaken als code? Maak alles echt wat leesbaarder. En je eerste code zit ook erg vreemd in elkaar, met al die dubbele opdrachten. Dus ook dat is een herhaling: wat wil je nu eigenlijk?

 

[Annafleurs]

ik wil dit excel bestand opslaan, doornummeren en verzenden per email naar een aantal adressen met de button

 

[edmoor]

Als je niet het bestand plaatst met de code erin die het probleem geeft gaan we niet achter de oorzaak komen.