How to use "Do... while/until... loop"

[jongova]

I have a Macro that find a specific value in this case the word "BRILLANTE-2 (DES)", when the word is found a range is selected, cut and paste in other book.

I want repeat this instruction because the word ""BRILLANTE-2 (DES)" could be more than one time in the Sheet. When the word doesn't exist, do nothing.


Thanks a lot


Cells.Find(What:="BRILLANTE-2 (DES)", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(-3, 0).Range(Cells(1, 1), Cells(62, 11)).Select
Selection.Cut
Windows("Book1").Activate
ActiveSheet.Paste
Sheets.Add After:=Sheets(Sheets.Count)
Workbooks(2).Activate

 

[venkat1926]

if "BRILLANTE-2 (DES)", occurs in the same column AUTOFILTER for thils column for this creteria and use filtered data for your manipulatios. .
you can copy filtered data somwhere else and manipulate. if autofiltgered data is coied only the visible rows are copied. use this facility of excel.

if there is problem post small extrct of data and then explain what you want.