Copying cells with VBA

[andrewb90]

Hello all,

I tried using the macro recorder for this, but only got partially what I wanted. Here's my code:

Sub test222()    Range("D6:D23").Select
    Selection.Copy
    Sheets("test zone").Select
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("I22").Select
End Sub

Basically, I am copying a cell range to a new sheet, however I need to only copy the visible cells. and not the entire range. Can that be done?

 

[j_unsuitable]

Hey

See if that works:

Sub test222()

Range("D6:D23").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Worksheets("test zone").Range("C5")
End Sub

Julian

 

[andrewb90]

Thanks for the help. Sure enough, shortly after posting, I ended up discovering a solution online. (which essentially mirrors your answer)