| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Loop
Works perfectly, Bob your the man...
Bob Phillips wrote: My bad. iTarget = 7 For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, "A").Value = "All" Then Cells(i, "B").Resize(, 5).Copy _ Worksheets("Sheet2").Cells(iTarget, "A") iTarget = iTarget + 1 End If Next i -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "JI" wrote in message oups.com... I keep getting a compile error and it highlights the first "Cells" piece of code, any ideas? Bob Phillips wrote: Wrap-ariound iTarget = 7 For i = 1 To Cells(Rows,Count,"A").End(xlUp).Row If Cells(i,"A").Value = "All" Then Cells(i,"B").Resize(,5).Copy _ Worksheets("Sheet2").Cells(iTarget,"A") itarget = iTarget + 1 End If Next i -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Bob Phillips" wrote in message ... iTarget = 7 For i = 1 To Cells(Rows,Count,"A").End(xlUp).Row If Cells(i,"A").Value = "All" Then Cells(i,"B").Resize(,5).Copy Worksheets("Sheet2").Cells(iTarget,"A") itarget = iTarget + 1 End If Next i -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "JI" wrote in message oups.com... My VBA knowledge isnt up to that level yet, anything more simple you could show me something that perhaps would look at all the values in column A:A of "sheet1" if they equaled value "All" then copy columns B:F on that row and paste it to "sheet2" starting in row 7 column A:A. Thanks. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Worksheet loop won't loop | Excel Programming | |||
| Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
| Loop Function unable to loop | Excel Programming | |||
| Problem adding charts using Do-Loop Until loop | Excel Programming | |||
| HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming | |||
![JI[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
