FillRight method of Range class failed

[justinojanson]

Hi there..

This is my first post here... I have been using this forum a lot and find it extremely useful, hence I decided to register...

Anyways, down to business... I am creating a macro for a project and have got to the point where I have been able to sort data in column "A" according to my criteria, but have run into difficulties with below code:

Sheets(1).Range("A2:A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select


Selection.FillRight

Basically, it does select all cells with data in the filtered column, but for whatever reason "FillRight" does not work...

Any advice?

Thanks in advance,

Justin

 

[justinojanson]

PS. I tried using:

Sheets(1).Range("A2:A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Activate


Selection.FillRight

But that fills the selection into every column of my table

 

[justinojanson]

Aaaaand I managed to find a workaround by replacing my previous code with:

For Each cell In Sheets(1).Range("A2:A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
If cell.Value <> "" Then
            cell.Offset(0, 1).Value = cell.Value
        End If
    Next cell

and getting rid of

Selection.FillRight

alltogether...

So now my code works...

Thanks anyways to all those, that did look into this...

 

[John_w]

To fill one column to the right, try:

    With Sheets(1)
        .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).FillRight
    End With

Basically, you have to tell it the column you want to fill to.