• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Controle bij verzenden

Status
Niet open voor verdere reacties.
Voor het plaatsen van een opdrachtknop op je werkblad zie post #17

Mvg

Rudi
 
Lukt voorlopig uitstekend :-).
Enig waar ik nog probleem mee heb is de range.

De verplichte cellen staan niet bij elkaar , dus kan ik niet echt een range aangeven.
Hoe duidt ik het best deze dan aan in WorksheetFunction.CountBlank ?

edit: gevonden.

Bedankt voor alle info !!!
 
Laatst bewerkt:
Lukt voorlopig uitstekend :-).
Enig waar ik nog probleem mee heb is de range.

De verplichte cellen staan niet bij elkaar , dus kan ik niet echt een range aangeven.
Hoe duidt ik het best deze dan aan in WorksheetFunction.CountBlank ?

edit: gevonden.

Bedankt voor alle info !!!

Zijn hiermee je vragen beantwoord?
Zo ja, gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio
 
Toch nog één ding niet duidelijk:

If WorksheetFunction.CountBlank(Range("B6", "C7", "D8")) = 0 Then

Blijkbaar mag je maar twee argumenten hebben, ik heb ong 15 aparte verwijzingen.
Hoe los ik dit op?
 
Een naam geven aan het bereik.

Dus je selecteer de betrokken cellen en geeft het een naam. Bijv.: Disturbed.

De code wordt dan:
Code:
If WorksheetFunction.CountBlank(Range("Disturbed")) = 0 Then

Met vriendelijke groet,


Roncancio
 
Als ik dat invoer krijg ik:

Fout 1004 tijdens uitvoering:

Eigenschap Countblank kan niet opgehaald worden.

Wat doe ik mis?

If WorksheetFunction.CountBlank(Range("VerplichteVelden")) = 0 Then
 
Dan is er geen bereik met die naam.

Ga naar Invoegen - Naam - Definiëren.
Als het goed is, staat er de naam VerplichteVelden.
Zo niet, dan is dat de reden van de foutmelding.

Met vriendelijke groet,


Roncancio
 
Heb via formules en naam bepalen het bereik aangeduidt.

=RELATIE!$B$6;RELATIE!$B$5;RELATIE!$C$11;RELATIE!$C$12;RELATIE!$C$18;RELATIE!$C$19;RELATIE!$B$26;RELATIE!$B$27;RELATIE!$B$34;RELATIE!$B$33;RELATIE!$B$39;RELATIE!$B$40;RELATIE!$B$41;RELATIE!$B$42

Dit staat onder de naam VerplichteVelden.

Onder invoegen vind ik wel geen knop naam.
 
Oeps, foutje.
Het bereik moet aaneengesloten zijn.

Wat je kan doen is de regel vervangen door

Code:
Dim rBereik As Range
Dim iTeller As Integer
    For Each rBereik In Range("VerplichteVelden")
        If rBereik = "" Then
            iTeller = iTeller + 1
        End If
    Next
    MsgBox iTeller
    If iTeller = 0 Then

Aan het eind een End IF niet vergeten.:cool:

Bovenstaande code gaat de cellen van VerplichteVelden 1 voor 1 af en telt het aantal lege cellen.
Alleen als de teller 0 blijft zou de code verder moeten gaan.

Met vriendelijke groet,


Roncancio
 
Of

Code:
with Range("VerplichteVelden")
  if .cells.count=.specialcells(xlcelltypeconstants).count then 
    ----------------
  end if
end with
 
Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Dim rBereik As Range
Dim iTeller As Integer
For Each rBereik In Range("VerplichteVelden")
If rBereik = "" Then
iTeller = iTeller + 1
End If
Next
MsgBox iTeller
If iTeller = 0 Then

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

On Error Resume Next
With OutMail
.To = "bruno.verdonck@hafibo.be"
.CC = ""
.BCC = ""
.Subject = "Nieuwe relaties"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Else: MsgBox "Vul verplichte velden in aub"
End If
End Sub


Krijg hier de error dat de types niet overeenkomen
 
En

Code:
If rBereik[B].Value [/B]= "" Then
Stuur anders het bestand op (zonder gevoelige informatie).

Met vriendelijke groet,


Roncancio
 
Kan blijkbaar geen bijlage aan email hangen, enkel tekst...

Klopt, maar ik bedoel hier op het forum.
Wat je ook kan doen is een bericht naar mij sturen zodat ik kan replyen. Vervolgens kun je weer replyen met het bestand.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan