Hi am geting an error 1004 when i try to copy filtered rows?

[zabiullakhan]

Hi am geting an error when i try to copy the visable rows only however i get an error 1004 on line marked red.. please help

For Col = 1 To LastColumn
        Value = Cells(1, Col).Value
        If InaCols.Exists(Value) Then
            Cells(2, Col).Select
            Range(Selection, Selection.Offset(LastInfoRow, 0)).Select
[COLOR=red]            Selection.SpecialCells(xlCellTypeVisible).Copy
[/COLOR]            'Selection.Copy
            InaData.Cells(6, InaCols(Value)).PasteSpecial xlValue
            Application.CutCopyMode = False
        End If
    Next

 

[Derek Brown]

Range(Selection, Selection.Offset(LastInfoRow, 0)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
'Selection.Copy

Try:

            Range(Selection, Selection.Offset(LastInfoRow, 0)).Select
            Selection.SpecialCells(xlCellTypeVisible).Select
            Selection.Copy

Yes, it seems an odd way to get there but it works in Excel 2010

 

[ukmikeb]

Hi

We need more information as to the area being filtered.

Why you are using a reserved word "Value" as a variable?

What does InaCols do?

 

[zabiullakhan]

Hi all,
InaCols - value stores the value of the header where it has to paste the data

am not sure about the reserved word "Value" as a variable can you please elobrate on it

Thanks..

 

[ukmikeb]

Hi

Simply -

        Value = Cells(1, Col).[COLOR=red][B]Value[/B]
[/COLOR]

hth