Please Help me write this simple code

[Legacy 185509]

Hi
I have this simple thing I want to put it into vba code so it will make my life easy

my vba code will search for this text "Resize to show all values" there will be around 100 or so search result. so if result is found do this apply this code if not found return

here are my code
here is search code

 Cells.Find(What:="resize to show all values", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate

and here is the code if that "resize to show all values" is found do this code

Call dlresize

please help me out
this will save me lots of time
Thank you

 

[texasalynn]

does this work?

Sub FindText()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer

iLoop = WorksheetFunction.CountIf(Columns(1), "resize to show all values")
Set rNa = Range("A1")

 For i = 1 To iLoop
  Set rNa = Columns(1).Find(What:="resize to show all values", After:=rNa, _
             LookIn:=xlValues, LookAt:=xlWhole, _
             SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=True)
      Call dlresize
 Next i
MsgBox "Done"
End Sub

 

[Legacy 185509]

Hey
It is not working if I try to run it just shows Msgbox Done
It should search for cell that contrains "resize to show all values" if that is found then it will call this code ---> "Call dlresize"
it is not doing that
by calling that code it will fetch the data from server, I don't want to manually click it, it is so much data thats why, may be if you can delay or something between loop will that help?

 

[texasalynn]

post a sample of your data layout

 

[Legacy 185509]

here is the picture of it

image removed, sensitive information

so I click the calculate on left side that code I am working on

this is the current code for it

Private Sub CommandButton1_Click()
Cells.Find(What:="resize to show all values", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
Call dlresize
End Sub

If I click on it, it will search for "Resize to show all values" and after it find it will call this --> "Call dlresize" after that is called it will generate all the values like open close open close if you see I25 & K25 were done but I manually clicked Calculate for it to do that.(meaning one click on Caluclate will only do for one search) I want to make it like only click once and it will find that resize to show all values and will call dlresize for each and everyone of them.

ty plz let me know if this makes sense or not.

 

[texasalynn]

ok so when I tested with this it worked

Sub FindText()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer

iLoop = WorksheetFunction.CountIf(Cells, "resize to show all values")
Set rNa = Range("A1")

 For i = 1 To iLoop
  Set rNa = Cells.Find(What:="resize to show all values", After:=rNa, _
             LookIn:=xlValues, LookAt:=xlWhole, _
             SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False)
    If rNa Is Nothing Then GoTo 0
              rNa.Activate
      Call dlresize
0
 Next i
MsgBox "Done"
End Sub
Sub dlresize()
ActiveCell.Value = "FOUND IT"
End Sub

 

[Legacy 185509]

Hey man thanx alot ur lifesaver
just wanna point one thing out
I took out this from bottom of code

Sub dlresize()
ActiveCell.Value = "FOUND IT"
End Sub

coz dlresize is built in method for the addon.

thanx alot again
I might need more help from you... tomorrow lol

 

[texasalynn]

yeah I added that for my testing purposes

 

[Legacy 185509]

Hey got a quick question
need your advice
I have another button where I have to manually search each cell find it after that cell is found, some dialog box on right side will open up and I have to manually use mouse and click ok on it and repeat the steps for all the results plz suggest something ty


you can see the dialogbox in the picture above, "Sample Data" on right side of the screen in there I have to click apply or ok.

 

[Legacy 185509]

Hey what if I want it to do same thing for sheet2, after Activesheet is complete
Thank you so much