Controle bij verzenden

[Roncancio]

Die knop moet ik toch via een usermodule invoegen?
Kan ik die dan koppelen aan de rest van het programma?

Nee, hoeft niet.
Je kunt ook een knop van de werkset Formulieren gebruiken.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Voor het plaatsen van een opdrachtknop op je werkblad zie post #17

Mvg

Rudi

 

[Disturbed7]

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 !!!

 

[Roncancio]

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

 

[Disturbed7]

Al mijn vragen zijn opgelost.

Nu nog vinden hoe ik dit hier op opgelost zet

 

[Disturbed7]

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?

 

[Roncancio]

Een naam geven aan het bereik.

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

De code wordt dan:

If WorksheetFunction.CountBlank(Range("Disturbed")) = 0 Then

Met vriendelijke groet,


Roncancio

 

[Disturbed7]

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

 

[Roncancio]

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

 

[Disturbed7]

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.

 

[Roncancio]

Oeps, foutje.
Het bereik moet aaneengesloten zijn.

Wat je kan doen is de regel vervangen door

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.

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

 

[snb]

Of

with Range("VerplichteVelden")
  if .cells.count=.specialcells(xlcelltypeconstants).count then 
    ----------------
  end if
end with

 

[Disturbed7]

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

 

[Roncancio]

En

If rBereik[B].Value [/B]= "" Then

Stuur anders het bestand op (zonder gevoelige informatie).

Met vriendelijke groet,


Roncancio

 

[Disturbed7]

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

 

[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

 

[Disturbed7]

Het bestand kan ik niet uploaden (groter dan 100kb)

Heb wel mail gestuurd

 

[Roncancio]

Het bestand kan ik niet uploaden (groter dan 100kb)

Heb wel mail gestuurd

Ik heb het ontvangen.
Als ik tijd heb, zal ik er naar kijken.

Ik houd je op de hoogte.

Met vriendelijke groet,


Roncancio

 

[Disturbed7]

Is welk enkel de code, bestand kon ik er niet aanhangen

 

[Roncancio]

Is welk enkel de code, bestand kon ik er niet aanhangen

De bedoeling was eigenlijk om bij het replyen het bestand erbij te sturen, maar ik ga ervan uit dat het zo ook wel lukt.

Met vriendelijke groet,


Roncancio