View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
ilyaskazi[_78_] ilyaskazi[_78_] is offline
external usenet poster
 
Posts: 1
Default copy cell with non null value


tommy_gtr Wrote:
hello,

could anyone help...pls ???

my problem is,that in one column i have several values but some rows
are empty.

I need to copy this values(with whole column selected ) and paste it to
another column but without empty rows.



is it possible????

Thanks a lot for any answer


Try this...

Code:
--------------------

Sub test()

Dim myRng As Range
Dim ce As Range
Dim cnt

Set myRng = Range("D1:D20")

For Each ce In myRng
If ce.Value < 0 Then
cnt = cnt + 1
Range("E" & cnt).Value = ce.Value
End If
Next ce

End Sub

--------------------

Cheers!!!
ilyas


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=474106