Basic Macro query

[johnpfisher9]

Is there anyway to use macro's to perform functions already included within toolbars?

Eg

I want to insert a button onto the worksheet that when pressed will search the entire workbook for the taxt entered in a specific cell?

I also need to have a button that when pressed will automatically bring up the dataform data entry box?

any help would be greatly appreciated

John

 

[Richie(UK)]

Hi John,

Use the Macro Recorder to record the actions that you want to perform then review the code. You should get something like this:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 18/03/2004 by Richie
'

'
    ActiveSheet.ShowDataForm
End Sub

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 18/03/2004 by Richie
'

'
    Cells.Find(What:="r", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
End Sub

HTH

 

[johnpfisher9]

Thanks Richie

I have copied + pasted your codes into VB.

Macro 2 works fine - thankyou very much.

Macro 3 appears to look for the first cell containing 'r'. The function I wish to perform is that the macro will search for the data entered into cell D5 in the rest of the workbook.

Any ideas?

many thanks

John

 

[Joe4]

Modifying Richie's code, try:

Sub Macro3() 
' 
' Macro3 Macro 
' Macro recorded 18/03/2004 by Richie 
' 

' 
    Dim myFind
    myFind=Range("D5").Value

    Cells.Find(What:=myFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ 
        .Activate 
End Sub

 

[johnpfisher9]

Thank you for your help

Macro now works

cheers

John