weenie
07-13-2017, 07:32 PM
Hello,
I'm stumped on how to write code for following
How do I clear cell contents after its copied?
The code below works by looking in Col C. if words exist than copy next 2 adjacent cells & add with cell In Col c. I would like those adjacent cells content cleared.
Sub testY()
'Looks for word "x" then copy cell info of next 2 cells into the 1st cell
Set MyRng = Range(Cells(2, "C"), Cells(Rows.Count, "C").End(xlUp))
For Each Cell In MyRng
If Cell.Value = "Init" _
Or Cell.Value = "Tr" Then
Cell.Value = Cell.Value & "_" & Cell.Offset(0, 1) & "_" & Cell.Offset(0, 2).Value
End If
Next
End Sub
Thanks,
weenie
I'm stumped on how to write code for following
How do I clear cell contents after its copied?
The code below works by looking in Col C. if words exist than copy next 2 adjacent cells & add with cell In Col c. I would like those adjacent cells content cleared.
Sub testY()
'Looks for word "x" then copy cell info of next 2 cells into the 1st cell
Set MyRng = Range(Cells(2, "C"), Cells(Rows.Count, "C").End(xlUp))
For Each Cell In MyRng
If Cell.Value = "Init" _
Or Cell.Value = "Tr" Then
Cell.Value = Cell.Value & "_" & Cell.Offset(0, 1) & "_" & Cell.Offset(0, 2).Value
End If
Next
End Sub
Thanks,
weenie