vba find/replace change tab

mmmr · Aug 13th 2017

I have some code which brings up the find/replace box but it brings up the replace rather than the find. Is there a way to bring up the find tab?

Hereis the code

Code

Sub TTC_Find()
'
' TTC_Find Macro


Application.ScreenUpdating = True




Application.CommandBars.FindControl(ID:=313).Execute
'
  
End Sub

Display More

Also, I have an anomoly regarding the find. Sometimes it scrolls down to the row using the above code but other times the found result is in the information box but it doesn't scroll to that row. Any ideas?

skywriter · Aug 13th 2017

Re: vba find/replace change tab

I have Excel 2010 and this worked for me.

Code

Application.CommandBars.FindControl(ID:=1849).Execute

mmmr · Aug 13th 2017

Re: vba find/replace change tab

That's fantastic. Thanks. Is there a list of these id numbers somewhere do you know?

skywriter · Aug 13th 2017

Re: vba find/replace change tab

My pleasure, thanks for the feedback. :cheers:

Quote from mmmr;797891

That's fantastic. Thanks. Is there a list of these id numbers somewhere do you know?

I don't know, I did a search to find that code.

Logit · Aug 13th 2017

Re: vba find/replace change tab

.

Code

Sub ListXLPopups()   Dim cbCtl As CommandBarControl
   Dim cbBar As CommandBar
   Dim i As Integer




   On Error Resume Next
   Application.ScreenUpdating = False
   Cells(1, 1).Value = "CommandBar"
   Cells(1, 2).Value = "Control"
   Cells(1, 3).Value = "FaceID"
   Cells(1, 4).Value = "ID"
   i = 2
   For Each cbBar In CommandBars
      Application.StatusBar = "Processing Bar " & cbBar.Name
      If cbBar.Type = msoBarTypePopup Then
         Cells(i, 1).Value = cbBar.Name
         i = i + 1
         For Each cbCtl In cbBar.Controls
            Cells(i, 2).Value = cbCtl.Caption
            cbCtl.CopyFace
            If Err.Number = 0 Then
               ActiveSheet.Paste Cells(i, 3)
               Cells(i, 3).Value = cbCtl.FaceId
            End If
            Cells(i, 4).Value = cbCtl.ID
            Err.Clear
            i = i + 1
         Next cbCtl
      End If
   Next cbBar
   Range("A:B").EntireColumn.AutoFit
   Application.StatusBar = False
End Sub

Display More

vba find/replace change tab

Participate now!

Share