VBA for Find Word, run macro, find next....

schappelljr · Feb 7, 2011

Could anyone help me write this in VBA?

Find the word "Print me "
call Macro 1
Find the next "Print me"
Call Macro 1
Repeat till it Found the end

Ruddles · Feb 7, 2011

Find it where? All workbooks in a folder? All open workbooks? All worksheets in current workbook? Anywhere in the active or named worksheet(s)? Only in certain rows/columns?

mikerickson · Feb 7, 2011

Perhaps something like

Code:

Dim foundCell As Range
Dim firstFoundAddress As String

With Sheet1.Range("C:C"): Rem adjust
    Set foundCell = .Find("print me", after:=.Cells(.Rows.Count, 1), searchdirection:=xlNext)
    
    If foundCell Is Nothing Then
        MsgBox "not found"
        Exit Sub
    End If
    firstFoundAddress = foundCell.Address
    
    Do
        Call Macro1
        Set foundCell = .FindNext(after:=foundCell)
    Loop Until foundCell.Address = firstFoundAddress
End With

schappelljr · Feb 7, 2011

In the spreadsheet i have a drop down box that that you can select the word print. I want to have a macro that finds that cell so i can use a Relative reference command. All the drop down are in one column by there self's

mikerickson · Feb 7, 2011

By dropdown, do you mean a validation dropdown or a combobox control?

schappelljr · Feb 7, 2011

Currently i have a validation dropdown. But i can change it to a combobox , if you think it would be better

schappelljr · Feb 7, 2011

Coming to Mr Excel is so humbling. People always say that im good at excel. But the people here extremely good!

schappelljr · Feb 7, 2011

I am having a problem. After i find the "print me " i need to select the cell to the right of it . How would i do that?

mikerickson · Feb 7, 2011

In my code, foundCell is the cell with "print me" so foundCell.Offset(0, 1) is the cell to the right.

About the dropdown, validation is good. The .Find method won't work with ComboBox controls.

schappelljr · Feb 16, 2011

I need some more help with this VBA code; this is what I am trying to do.
Search this current sheet in column A for the word “Print” (example A1. )
Once “Print” is found check the value to the right of the cell. (Example B2)
If cell B2 = “Night time” then call macro 1 (the macros are selecting a range and cutting and pasting them in to different cells to fill out a form)
If cell = “Day time” then call macro 2

Then find the next “print” repeat the same if Statement.
Repeat until all the “print” been found.
This is the what i have so far.

Sub VBAHELP()

Dim foundCell As Range
Dim firstFoundAddress As String

With Range("A:A"): Rem adjust
Set foundCell = .Find("print", after:=.Cells(.Rows.Count, 1), searchdirection:=xlNext)
foundCell.Offset(0, 1).Select

If foundCell Is Nothing Then
MsgBox "not found"
Exit Sub
End If
firstFoundAddress = foundCell.Address

Do
If ActiveCell = "Night time" Then
Call Macro1
End If
If ActiveCell = "Day time" Then
Call Macro2

End If

Set foundCell = .FindNext(after:=foundCell)
Loop Until foundCell.Address = firstFoundAddress
End With
End Sub

VBA for Find Word, run macro, find next....

schappelljr

Board Regular

Ruddles

Well-known Member

mikerickson

MrExcel MVP

schappelljr

Board Regular

mikerickson

MrExcel MVP

schappelljr

Board Regular

schappelljr

Board Regular

schappelljr

Board Regular

mikerickson

MrExcel MVP

schappelljr

Board Regular

Similar threads

Share this page

VBA for Find Word, run macro, find next....

Board Regular

Well-known Member

MrExcel MVP

Board Regular

MrExcel MVP

Board Regular

Board Regular

Board Regular

MrExcel MVP

Board Regular

Similar threads

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock