I need a formula in one cell to put data in a different cell.

[GreasySpot]

I need a formula in one cell to put data in a different cell.
example:

a1 value is 1000
a2 value is empty

I want a formula in a3 to read the value of a2. If it has a value then do nothing. If it is empty then make the value of a2=a1.

Simple right?

 

[Special-K99]

in A3
=IF(A2<>"",A1,"")

 

[GreasySpot]

I don't want a value in a3 I want it to be in a2.

 

[alansidman]

Because you are manipulating values in A2 you cannot use a formula to do this. You will need to use a VBA solution.

If you want the values to appear in A3, then you could use this formula

=if(A2<>"",A2, A1). This would appear in A3

Your VBA solution would be as follows

Option Explicit


Sub foo()


If IsNull(Range("A2")) Then
Range("A2").Value = Range("A1").Value
End If


End Sub

 

[Special-K99]

I need a formula in one cell to put data in a different cell.
example:

a1 value is 1000
a2 value is empty

I want a formula in a3 to read the value of a2. If it has a value then do nothing. If it is empty then make the value of a2=a1.

Simple right?

You need to explain clearly what you want.

 

[GreasySpot]

Because you are manipulating values in A2 you cannot use a formula to do this. You will need to use a VBA solution.

If you want the values to appear in A3, then you could use this formula

=if(A2<>"",A2, A1). This would appear in A3

Your VBA solution would be as follows

Option Explicit


Sub foo()


If IsNull(Range("A2")) Then
Range("A2").Value = Range("A1").Value
End If


End Sub

This looks good alan. Thanks.

My excel file has 7 sheets, 1 for each day of the week. On each sheet I have 2 cells where I need this code to apply. Does this code need to be specific for each instance or sheet?

Thanks again,

 

[alansidman]

You can open each sheet and run the code or you can use the following to run it once and it will update all seven sheets.

Option Explicit
Sub foo()
Dim ws as worksheet
For each ws in worksheets
If IsNull(Range("A2")) Then
Range("A2").Value = Range("A1").Value
End If
Next ws
End sub

 

[GreasySpot]

I got to looking harder at my workbook and realized I don't need to process every sheet just: Monday, Tuesday, Wednesday, Thursday, Friday, and Saturday.

Thank you in advance for ALL your help.