Experts Exchange connects you with the people and services you need so you can get back to work.

Copy data from above cell

I found the below code on EE posted by: zorvek (Kevin Jones) but it stops after the first occurence. I need this to loop to the end. Can someone let me know what is needed to make the macro copy every cell that is blank with the same details as the cell above until the end.

Sub SelectAccount()

If Len(Selection.Value) = 0 Then
Selection.Value = Selection.Offset(-1).Value
Else
Selection.Offset(1).Select
End If

End Sub

Thanks

Jagwarman

Asked: 2014-03-18

Advertise Here

Microsoft Excel

1 Solution

LVL 55

Rgonzo1971Commented: 2014-03-18

Hi,

Until which end? maybe not Row 1048576

Could you precise?

Regards

JagwarmanAuthor Commented: 2014-03-18

Until row 500

tks

LVL 55

Rgonzo1971Commented: 2014-03-18

Hi,

pls try

Do
     If Len(Selection.Value) = 0 Then
       Selection.Value = Selection.Offset(-1).Value
   Else
       Selection.Offset(1).Select
   End If
Loop Until Selection.Row = 501

Open in new window

Regards

JagwarmanAuthor Commented: 2014-03-18

Thanks Rgonzo1971 you never fail me

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Copy data from above cell

Join & Write a Comment Already a member? Login.

Featured Post