Advice to call a code

[ipbr21054]

Hi,

I have a msgbox where No closes it but i would like when Yes is clicked it will Call say the below to run it

Private Sub DHLBUTTON_Click()
ActiveWorkbook.FollowHyperlink Address:="http://www.dhl.co.uk/en/express/tracking.html", NewWindow:=True
End Sub

can you advise the correct way to wright it please

 

[Yard]

Private Sub PressMyButton()

If MsgBox("Please press Yes or No!", vbYesNo, "Make your choice") = vbYes Then
    DHLBUTTON_Click
End If

End Sub

 

[ipbr21054]

Afternoon,

This is the code in use.

Private Sub ListBox1_Click()
  Dim answer As Integer

  Range("A" & ListBox1.List(ListBox1.ListIndex, 1)).Select
  MsgBox "OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE"
If answer = vbYes Then
    ???????
Else
    Unload DatabaseNameSearch
End If
End Sub

Where you see the ????? this is where i need to Call Private Sub Worksheet_BeforeDoubleClick

Just cant seem to do anything today

 

[Yard]

I don't think you can call Private Sub Worksheet_BeforeDoubleClick - this is an event code and only gets called when you double click.

However, whatever code you are calling in that Private Sub Worksheet_BeforeDoubleClick, just call that where you have your "?????"

 

[ipbr21054]

OK
So if i use the same code but have it run without the double click,.
If this was code to run etc without double click how would it run when YES is selected.


I have this now but after i select YES the userform closes & thats it.
The code added doesnt do anything.

I cant see why this is so hard.

Private Sub ListBox1_Click()
  Dim answer As Integer

  Range("A" & ListBox1.List(ListBox1.ListIndex, 1)).Select
  MsgBox "OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE"
If answer = vbYes Then
    If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then Exit Sub
    Cancel = True
    Database.LoadData Me, Target.Row
Else
    Unload DatabaseNameSearch
End If
End Sub

 

[Yard]

Because in your code, you are saying

If answer = vbYes Then

... but you haven't set the value of answer.

Try a small modification:

Private Sub ListBox1_Click()
  Dim answer As Integer

  Range("A" & ListBox1.List(ListBox1.ListIndex, 1)).Select
  answer=MsgBox()"OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")
If answer = vbYes Then
    If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then Exit Sub
    Cancel = True
    Database.LoadData Me, Target.Row
Else
    Unload DatabaseNameSearch
End If
End Sub

 

[ipbr21054]

Syntax error with this

answer=MsgBox[COLOR=rgb(184, 49, 47)]()[/COLOR]"OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")

Now when run i see RTE 424Object Required

This in yellow

If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then

 

[ipbr21054]

OK
Plan B

This works fine but a slight edit & it will be ok.

Private Sub ListBox1_Click()
  Dim answer As Integer

  Range("A" & ListBox1.List(ListBox1.ListIndex, 1)).Select
  answer = MsgBox("OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")
   If answer = vbYes Then
    Database.Show

Else
    Unload DatabaseNameSearch
End If
End Sub

Lets say i select Tom Jones in the listBox.
I then see the MsgBox
I select YES
Then the DATABASE opens up.

So far so good.

On this userform is a comBobox called ComboBoxCustomersNames


Now if you manually select a name from this ComboBox it will do what i require.

SO
The edit would be for the ListBox selection to then select the same name in the userform ComboBox.

Did i explain ok ?

Thanks

 

[ipbr21054]

If its easier for you.
The customers name is also selected in column A
Then the userform DATABASE opens.

So remember the selection in Column A & use that to select from the comboBox ?

 

[Yard]

Syntax error with this

answer=MsgBox[COLOR=rgb(184, 49, 47)]()[/COLOR]"OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")

Now when run i see RTE 424Object Required

This in yellow

If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then

for some reason there was an additional ")" in the line I adjusted, sorry! Should have read:

answer=MsgBox("OPEN DATABASE ?", vbYesNo + vbCritical, "OPEN DATABASE MESSAGE")