Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
simple for each
any help is appreciated... I am not getting it to select or evaluate each rg
Range("b65536").End(xlUp).Select rnglst = ActiveCell.Row For Each rg In Range("a10:" & Range("a" & rnglst)) rg.Select If rg 0 Then rg.Copy rg.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
simple for each
Give this a try. It is a little more compact than your original post...
dim rg as range For Each rg In Range(Range("a10:"), cells(Rows.count, "A").end(xlUp)) If rg 0 Then rg.Offset(0, 1).Value = rg.value Next rg -- HTH... Jim Thomlinson "John" wrote: any help is appreciated... I am not getting it to select or evaluate each rg Range("b65536").End(xlUp).Select rnglst = ActiveCell.Row For Each rg In Range("a10:" & Range("a" & rnglst)) rg.Select If rg 0 Then rg.Copy rg.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
simple for each
I did it the first way because I was testing the bottom row in colum B...
there is still probablly an easier way but this one won't work for my set up. But the first post works great... thank you again "Jim Thomlinson" wrote: Give this a try. It is a little more compact than your original post... dim rg as range For Each rg In Range(Range("a10:"), cells(Rows.count, "A").end(xlUp)) If rg 0 Then rg.Offset(0, 1).Value = rg.value Next rg -- HTH... Jim Thomlinson "John" wrote: any help is appreciated... I am not getting it to select or evaluate each rg Range("b65536").End(xlUp).Select rnglst = ActiveCell.Row For Each rg In Range("a10:" & Range("a" & rnglst)) rg.Select If rg 0 Then rg.Copy rg.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF formula-simple question; simple operator | Excel Discussion (Misc queries) | |||
Simple problem, simple formula, no FUNCTION ! | Excel Worksheet Functions | |||
Simple Simple Excel usage question | Excel Discussion (Misc queries) | |||
Make it more simple or intuitive to do simple things | Charts and Charting in Excel | |||
simple question, hopefully a simple answer! | Excel Programming |