combox waarde gebruiken in macro

[WillemSchaaper]

Ik heb op het object blad1 de volgende code staan. Private Sub Verzendknop_Click()
waarde = ComboBox11.Value
If waarde = "BB12" Then
verzendBB12
End If
end sub
Dit stukje code werkt goed. In een module heb ik de volgende code staan, die door de bovenstaande macro wordt aangestuurd.
Public Sub verzendBB12()
ActiveWorkbook.SendMail Recipients:="ML CPP Interne klacht voor BB12 "
Range("m4").Select
Range("a1").Select
End Sub
Nu wil ik een 2e waarde uit een ander combobox halen en die als 2e recipient in de macro "verzendBB12" krijgen. Ik wil de 2e waarde uitgelezen, zodat ik hem in de macro kan gebruiken

 

[beheer25]

Waarschijnlijk (ik doe het even uit mijn hoofd) moet je de verwijzing naar het blad waar de combobox opstaat opnemen in de verwijzing naar de combobox. Dan wordt het dus zoiets als "blad1.combobox12.value".

Als je het zeker wilt weten moet je het objectmodel van excel er even op naslaan, of proberen natuurlijk...


Grtz,

Mark van Bree

 

[joost verdaasdo]

Hai Willem,

SendMail slikt alleen maar meerdere geadresseerden als je een Array gebruikt voor de Recipients!

Simpel voorbeeldje.

Nu moet je dus alleen zorgen dat de selectie van de combo naar een array geschreven wordt en je kunt maar doorgaan.

Hier een voorbeeldje hoe je normaal te werk kunt gaan:

Sub Mail_SheetsArray()
Dim a_strRecipients(1) As Variant
a_strRecipients(0) = "John@helmij.nl"
a_strRecipients(1) = "joost@helpmij.nl"

    Dim strDate As String
    Sheets(Array("Blad1", "Blad3")).Copy
    strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
    ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
                        & " " & strDate & ".xls"
    ActiveWorkbook.SendMail Recipients:=a_strRecipients, Subject:="This is the Subject line"
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    ActiveWorkbook.Close False
End Sub

See Yah! :thumb:

 

[WillemSchaaper]

Bedankt Joost. Ik heb een Array toegepast, en het werkt.

Bedankt Marc. Ik heb zelf na enig zoekwerk, de macro in zijn geheel in Blad1 gezet. Zo werkt ie ook

Groeten Willem Schaaper

 

[joost verdaasdo]

Hai Willem,

Graag gedaan! :thumb: