loop
in [General]
|
From: Dave Peterson on 20 Mar 2010 07:40 I never saw a response--good or bad--to my suggestion. Christina wrote: > > Yes, I tried all the suggestions, including this recent one. > > Thanks > > "Dave Peterson" wrote: > > > Did you try all the suggestions at your other thread--or one of your other > > threads? > > > > Christina wrote: > > > > > > Sorry I have to post a new thread. I have not been able to do it the way I've > > > been told. > > > I dont know VBA or programming. I make macro by recording steps. > > > I have this macro which ends with a loop as below. It works, but I need it > > > to End when there are no more cells with VENDOR ID. > > > It does the step but ends with the dialog box and I have to click end. > > > > > > Grateful for help > > > > > > Do > > > > Range("F:F").Find(What:="Vendor ID", After:=ActiveCell, > > > > LookIn:=xlFormulas, _ > > > > LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlDown, _ > > > > MatchCase:=False, SearchFormat:=False).Activate > > > > ActiveCell.Select > > > > ActiveCell.ClearContents > > > > ActiveCell.Offset(1, 0).Select > > > > Selection.Copy > > > > Range(Selection, Selection.End(xlDown)).Select > > > > ActiveSheet.Paste > > > > ActiveCell.Offset(1, 0).Select > > > > > > > > Loop > > > > > > > > End Sub > > > > -- > > > > Dave Peterson > > . > > -- Dave Peterson
From: Christina on 22 Mar 2010 19:01 Thanks, seema I overlooked that one. It worked perfectly. Thanks a lot. Regards. Cristina Seawell "Dave Peterson" wrote: > I never saw a response--good or bad--to my suggestion. > > Christina wrote: > > > > Yes, I tried all the suggestions, including this recent one. > > > > Thanks > > > > "Dave Peterson" wrote: > > > > > Did you try all the suggestions at your other thread--or one of your other > > > threads? > > > > > > Christina wrote: > > > > > > > > Sorry I have to post a new thread. I have not been able to do it the way I've > > > > been told. > > > > I dont know VBA or programming. I make macro by recording steps. > > > > I have this macro which ends with a loop as below. It works, but I need it > > > > to End when there are no more cells with VENDOR ID. > > > > It does the step but ends with the dialog box and I have to click end. > > > > > > > > Grateful for help > > > > > > > > Do > > > > > Range("F:F").Find(What:="Vendor ID", After:=ActiveCell, > > > > > LookIn:=xlFormulas, _ > > > > > LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlDown, _ > > > > > MatchCase:=False, SearchFormat:=False).Activate > > > > > ActiveCell.Select > > > > > ActiveCell.ClearContents > > > > > ActiveCell.Offset(1, 0).Select > > > > > Selection.Copy > > > > > Range(Selection, Selection.End(xlDown)).Select > > > > > ActiveSheet.Paste > > > > > ActiveCell.Offset(1, 0).Select > > > > > > > > > > Loop > > > > > > > > > > End Sub > > > > > > -- > > > > > > Dave Peterson > > > . > > > > > -- > > Dave Peterson > . >
From: Dave Peterson on 22 Mar 2010 20:04 You're welcome. Christina wrote: > > Thanks, seema I overlooked that one. It worked perfectly. Thanks a lot. > > Regards. > Cristina Seawell > > "Dave Peterson" wrote: > > > I never saw a response--good or bad--to my suggestion. > > > > Christina wrote: > > > > > > Yes, I tried all the suggestions, including this recent one. > > > > > > Thanks > > > > > > "Dave Peterson" wrote: > > > > > > > Did you try all the suggestions at your other thread--or one of your other > > > > threads? > > > > > > > > Christina wrote: > > > > > > > > > > Sorry I have to post a new thread. I have not been able to do it the way I've > > > > > been told. > > > > > I dont know VBA or programming. I make macro by recording steps. > > > > > I have this macro which ends with a loop as below. It works, but I need it > > > > > to End when there are no more cells with VENDOR ID. > > > > > It does the step but ends with the dialog box and I have to click end. > > > > > > > > > > Grateful for help > > > > > > > > > > Do > > > > > > Range("F:F").Find(What:="Vendor ID", After:=ActiveCell, > > > > > > LookIn:=xlFormulas, _ > > > > > > LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlDown, _ > > > > > > MatchCase:=False, SearchFormat:=False).Activate > > > > > > ActiveCell.Select > > > > > > ActiveCell.ClearContents > > > > > > ActiveCell.Offset(1, 0).Select > > > > > > Selection.Copy > > > > > > Range(Selection, Selection.End(xlDown)).Select > > > > > > ActiveSheet.Paste > > > > > > ActiveCell.Offset(1, 0).Select > > > > > > > > > > > > Loop > > > > > > > > > > > > End Sub > > > > > > > > -- > > > > > > > > Dave Peterson > > > > . > > > > > > > > -- > > > > Dave Peterson > > . > > -- Dave Peterson
First
|
Prev
|
Pages: 1 2 3 4 5 Prev: pick multiple items in data validation Next: Deleting Duplicates in Excel - Databases |