I am attempting to do the following to a filtered spreadsheet via a macro:

a) Filter a spreadsheet based on values in column A -- no problem
b) Paste a text value (i.e. the word "Cash") into the cells (subject to the
filter) which appear in column B all the way down to the last row as
determined by the filter on Column A.

In other words, paste this text value in every row of column B -- but the
rows are based on the filtered values of column A.

Any assistance? Many thanks.

Eric,

This does it with VBA:

Sub Test()
Dim lngLastRow As Long

With ActiveSheet
With .Range("A2")
.AutoFilter
.AutoFilter Field:=1, Criteria1:="a"
End With
lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("B2:B" & lngLastRow).Value = "cash"
End With
End Sub

If you actually want it to paste something that's previously copied, that
would take a little more code.

hth,

Doug

"Eric_G" <(E-Mail Removed)> wrote in message
news:220B3F97-3742-49D0-AAE1-(E-Mail Removed)...
> I am attempting to do the following to a filtered spreadsheet via a macro:
>
> a) Filter a spreadsheet based on values in column A -- no problem
> b) Paste a text value (i.e. the word "Cash") into the cells (subject to
> the
> filter) which appear in column B all the way down to the last row as
> determined by the filter on Column A.
>
> In other words, paste this text value in every row of column B -- but the
> rows are based on the filtered values of column A.
>
> Any assistance? Many thanks.
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 4237 (20090712) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>

__________ Information from ESET NOD32 Antivirus, version of virus signature database 4237 (20090712) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com