Moving text

[handysmurf]

I need to move text from one cell to another ... without overwriting the data already in the cell. Also entering a line return between the new text and old. I have many many cells that I need to do this with.

So in this example copy from C2 to D2... it would end up looking like D1

 

[DanteAmor]

Try this:

Sub MovingText()
  Dim i As Long, a As Variant
  
  With Range("C1:D" & Range("A" & Rows.Count).End(3))
    a = .Value
    For i = 1 To UBound(a, 1)
      If a(i, 1) <> "" Then
        a(i, 2) = a(i, 1) & Chr(10) & a(i, 2)
        a(i, 1) = ""
      End If
    Next
    .Value = a
  End With
End Sub

 

[handysmurf]

 

[DanteAmor]

Run the macro again, when the error appears, press the "Debug" button, a row is highlighted in the macro, copy the screen and paste it here.

Other doubts:
Do you have formulas in the cells?
Does any formula have an error?
Did you modify the macro at all?

 

[handysmurf]

Run the macro again, when the error appears, press the "Debug" button, a row is highlighted in the macro, copy the screen and paste it here.

Other doubts:
Do you have formulas in the cells?
Does any formula have an error?
Did you modify the macro at all?

No formulas in this workbook and I didn't modify it

 

[DanteAmor]

Do you have data in the active sheet?

According to your image, you have data starting in cell A1.

 

[Peter_SSs]

Suggest this change

Sub MovingText()
  Dim i As Long, a As Variant
  
  With Range("C1:D" & Range("A" & Rows.Count).End(3).Row)
    a = .Value
    For i = 1 To UBound(a, 1)
      If a(i, 1) <> "" Then
        a(i, 2) = a(i, 1) & Chr(10) & a(i, 2)
        a(i, 1) = ""
      End If
    Next
    .Value = a
  End With
End Sub

 

[handysmurf]

Do you have data in the active sheet?

According to your image, you have data starting in cell A1.

Yes ... I just took a screenshot of the actual worksheet ..

 

[handysmurf]

Suggest this change

Sub MovingText()
  Dim i As Long, a As Variant
 
  With Range("C1:D" & Range("A" & Rows.Count).End(3).Row)
    a = .Value
    For i = 1 To UBound(a, 1)
      If a(i, 1) <> "" Then
        a(i, 2) = a(i, 1) & Chr(10) & a(i, 2)
        a(i, 1) = ""
      End If
    Next
    .Value = a
  End With
End Sub

That worked perfectly ... thank you!!

 

[handysmurf]

Do you have data in the active sheet?

According to your image, you have data starting in cell A1.

Peter solved the riddle ... but thank you for your time as well