Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
I need to do a filter of sorts using the color of the rows as the basis for
this filter. i am working on a "For" loop that should go row by row and checking to see if the row color is "no fill" if it is it should cut it and paste it on another workbook i have already made. i can select the work book and all but i don't know how o check the row color (was thinking of checking the cell (A(i)) wher i is the number in the for loop and using a similar method for the cutting and pasting of the rows. how can i do it. i'll post what code i have so you see what i'm working with. PS i am very rusty with my VB coding so please be understanding if the code is mostly wrong... :) Sub Test4() Dim i as integer Dim pos as integer pos =1 For i=3 to 7215 Windows("DE.xls").Activate Range("A"+i).Select //this is where i can't get it to work if (Selection.Interior.Color = xlNone) then // don't know if this is right Rows(""+ i":"+i"").Select Selection.Cut Windows("test.xls").Activate Rows(""+pos":"+pos"").Select //how should i do this ActiveSheet.Paste pos= pos+1 end If next i |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
passing arguments from an excel macro to a word macro | Excel Discussion (Misc queries) | |||
Macro - Open Word with Excel macro | Excel Discussion (Misc queries) | |||
after creating macro button, closed excel then restarted excel | Excel Discussion (Misc queries) |