Re : Making use of the Built-in Dialog Boxes

  • Thread starter Thread starter TKT-Tang
  • Start date Start date
T

TKT-Tang

1. Please examine the following code :-

Dim TextFind As String
Call Application.Dialogs(xlDialogFormulaFind).Show(TextFind, 2, 2, 1,
0, True, True)
MsgBox "TextFind = " & TextFind

2. It is in vain to store the text string (entered into the Find What
: text box of the built-in xlDialogFormulaFind) by using the argument
TextFind.

3. Please show the alternative means of capturing TextFind by using
VBA code.

4. Regards.
 
Use the FIND method...look in Help. There are some very
good code examples therein.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <>
firstAddress
End If
End With

Patrick Molloy
Microsoft Excel MVP
 
TKT-Tang said:
3. Please show the alternative means of capturing TextFind by using
VBA code.
Click to expand...
I think there is none.

You would do better to get the TextFind via an InputBox and then use it
in the Find method.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup
 
Mr. Manville and Mr Molloy,

Thank you for your replies.

Regards.

Yours faithfully,

TKT-Tang.
 
Back
Top