Move value

[sevenfive85]

Hi All, I am looking for some codes to move value from one cell to another. In the example from the picture, "D3" has a value so I need to move that value to "A3". I need to check from range D1 to D300. Thank you

 

[Fluff]

Will you have values in the same row in both cols A & D?
If so what should happen?

 

[sevenfive85]

Will you have values in the same row in both cols A & D?
If so what should happen?

Yes, the numbers will always be in column A & D. I just need it to move from Column D to column A and staying in the same row.

 

[Fluff]

Yes, but will you have (for instance) A3 & D3 with a value?

 

[sevenfive85]

Yes, but will you have (for instance) A3 & D3 with a value?

Yes one of the two column will always have a value. If column A has a value, do nothing.

 

[Fluff]

In that case how about

Sub sevenfive()
   Dim Rng As Range
   For Each Rng In Range("A:A").SpecialCells(xlBlanks).Areas
      Rng.Value = Rng.Offset(, 3).Value
      Rng.Offset(, 3).Value = ""
   Next Rng
End Sub

 

[sevenfive85]

In that case how about

Sub sevenfive()
   Dim Rng As Range
   For Each Rng In Range("A:A").SpecialCells(xlBlanks).Areas
      Rng.Value = Rng.Offset(, 3).Value
      Rng.Offset(, 3).Value = ""
   Next Rng
End Sub

Hi, the code work but because my column A cells have some formula the numbers are not carrying over. Any way to overwrite that? Thank you

 

[Fluff]

That will overwrite your formula with a hard value. Is that what you want?

 

[sevenfive85]

That will overwrite your formula with a hard value. Is that what you want?

yes

 

[Fluff]

Ok, how about

Sub sevenfive()
   Dim Cl As Range
   For Each Cl In Range("A1:A" & Range("D" & Rows.Count).End(xlUp).Row)
      If Cl.Value = "" And Cl.Offset(, 3) <> "" Then
         Cl.Value = Cl.Offset(, 3).Value
         Cl.Offset(, 3).Value = ""
      End If
   Next Cl
End Sub