Previous Topic Next Topic

Copy cells in excel if cell above is null

Closed
Tara - Mar 14, 2012 at 09:42 PM
aquarelle Posts 7181 Registration date Saturday April 7, 2007 Status Moderator Last seen February 14, 2026 - Mar 15, 2012 at 05:32 AM
Hello,

Can anyone help?

I need to run a script that will determine if a1 is blank, paste the information from a2 into the a1. If a1 is not null, it should do nothing. This needs to be run for every other cell. If a3 is null, paste information from a4. If a3 is not null, do nothing. And so on, and so on.

Any ideas?? Thanks in advance!

Related:

2 responses

Answer 1 / 2
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Mar 15, 2012 at 02:19 AM
why not just sort column A
Answer 2 / 2
aquarelle Posts 7181 Registration date Saturday April 7, 2007 Status Moderator Last seen February 14, 2026 491
Mar 15, 2012 at 05:32 AM
Hi,

Try this macro : 

Sub CompleteEmptyCell()

x = Range("A65536").End(xlUp).Row

For y = 1 To x
If Range("A" & y) = "" Then Range("A" & y) = Range("A" & y + 1)
Next

End Sub



Best regards

Similar discussions

Clear cell contents based on value of another cell range using VBA
Tbonekiller -
Tbonekiller -

6 responses
help me to add particular cells
mathewmunna -
mathew munna -

2 responses
If a cell contains any text then add a value
cbrizz -
Pharmanumbers -

20 responses
Arrow keys scrolling in Excel
Deb -
Upthewall -

24 responses
How to calculate positions (1st,2nd,3rd...) in Excel
hardy -
TrowaD -

6 responses