Search This Blog

Friday 27 January 2012

CODE TO PASTE NON BLANK CELLS ONLY


'Selection column A and run the below code in module

Sub PasteNotBlanks()
If Selection.Columns.Count > 1 Then
msgbox "Please selection one column."
Else
Selection.SpecialCells(xlCellTypeConstants).Copy Destination:=Range("B1")
End If
End Sub

No comments:

Post a Comment