Filtered rows not in code???

[Guest]

I have a spreadsheet with thousands of rows that I frequently filter
(autofilter). I then have some code that I would like to run just on the
filtered(showing) rows that I am selecting... meaning if I have rows 2-10
selected but only rows 2 and 5 are showing due to my filter... how do I
perform my code just on those two rows???

I was trying...
If Selection.Rows.Count > 1 Then

For i = 0 To Selection.Rows.Count - 1 Step 1
but this would perform the operation on all the rows (i.e. 2-10)

any thoughts?

 

[Don Guillett]

look in the vba help index for special cells >visible

 

[Guest]

Thanks for the reply... something like this???
If cp.Range("a" & rw1 + i).SpecialCells(xlCellTypeVisible) = False Then
GoTo next1:
Else

this doesn't quite work

 

[Don Guillett]

without seing your data, I think you want to copy all at once instead of
one a time???
range("a2:x30").).SpecialCells(xlCellTypeVisible).copy range("aa1")

 

[Guest]

well ideally I would like to not copy everything in the row... I would like
to do this...
For i = 0 To Selection.Rows.Count - 1 Step 1

If cp.Range("a" & rw1 + i).Cells.SpecialCells(xlCellTypeVisible) <> 12
Then
GoTo next1:
Else
em.Select
Range("a2000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
rw = ActiveCell.Row
em.Range("a" & rw) = cp.Range("a" & rw1 + i)
em.Range("b" & rw) = cp.Range("b" & rw1 + i) & "/" & cp.Range("c" &
rw1 + i)
em.Range("c" & rw) = cp.Range("f" & rw1 + i) & " " & cp.Range("o" &
rw1 + i)
em.Range("d" & rw) = cp.Range("g" & rw1 + i)
em.Range("d" & rw) = cp.Range("g" & rw1 + i)
em.Range("e" & rw) = cp.Range("h" & rw1 + i)
em.Range("f" & rw) = cp.Range("j" & rw1 + i)
em.Range("g" & rw) = cp.Range("k" & rw1 + i)
em.Range("h" & rw) = cp.Range("l" & rw1 + i)
em.Range("i" & rw) = cp.Range("m" & rw1 + i)
next1:
End If
Next


Appreciate you taking a look

 

[Don Guillett]

You could always copy the whole row to col F and then cut/paste f&g to a