Copy and paste only filtered cells

[Eric_G]

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.

 

[Doug Glancy]

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

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