If "Ok" use mailbutton

[sjoerd81]

Hallo,

In de bijlage een exceldocument met een mailbutton. Deze button zou ik alleen willen gebruiken als de tekst in cel M1 op "OK" staat. Als in cel C1 "Nee" staat zou de button niet moeten werken. Wie kan me hierbij helpen?

Alvast bedankt
Sjoerd

Bekijk bijlage IF OK then use button.xls

 

[sjoerd81]

Ik heb even liggen zoeken en kom vooralsnog tot het volgende:

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
If Target = (A1) Then
If Target.Value = "OK" Then
Sub Sendmail()
End If
End If
End Sub

 

[HSV]

Zoiets Sjoerd?

Sub button()
If [A1] = ActiveCell And [A1] = "OK" Then
       Application.Dialogs(xlDialogSendMail).Show _
    arg1:=Range("BL30"), _
    arg2:=Range("BL31")
  End If
End Sub

 

[sjoerd81]

Harry bedankt voor je bijdrage. Maar bij mij werkt de code (nog) niet...
Bekijk bijlage IF OK then use button2.xls

 

[HSV]

Werkt perfect bij mij Sjoerd.
Heb je cel A1 wel als actieve cel, en staat er dan "OK" in?

Daarna klikken op 'Send mail'.

 

[sjoerd81]

HSV je hebt gelijk. Het maakt alleen niet uit vanuit welke cel de code wordt gebruikt daarom heb ik "ActiveCell And [A1]" uit de code gehaald. Werkt perfect!

Ik gebruik nu de volgende code:

Sub button()
If [A1] = "OK" Then
Application.Dialogs(xlDialogSendMail).Show _
arg1:=Range("M1"), _
arg2:=Range("M2")
End If
End Sub


Bedankt
Sjoerd