Thanks Vabz:) I will try this.
On Tuesday, November 4, 2014 12:55:50 AM UTC-7, Vabz wrote:
>
> Hi
>
> Use this code:
>
> Sub Macro1()
> If ActiveSheet.FilterMode Then
> ActiveSheet.ShowAllData
> End If
> Range("F4:F16").ClearContents
> ActiveSheet.Range("$A$1:$E$279").AutoFilter Field:=1, Crit
Hi
Use this code:
Sub Macro1()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("F4:F16").ClearContents
ActiveSheet.Range("$A$1:$E$279").AutoFilter Field:=1, Criteria1:=RGB(255, _
0, 0), Operator:=xlFilterCellColor
a = Range("A" & Rows.Count).End(xlUp).Row
Set Rng =
Trying to filter a few numbers from a larger group of numbers in one cell,
copy them, then paste them in another cell. Error comes up as "Runtime
error '1004': Paste special Method of Range class fail". When I go to
"debug", it shows this:
[image: copy to clipboard]
Sub Macro1()
'
' Macro1 Ma
