Clear Contents
Thankyou.
"JLGWhiz" wrote:
You have your Next in the wrong place. Put it before the Columns("J").Select
"Steved" wrote:
Hello from Steved
Below is my attempt to clear contents from Colunmns(" J:J")
my issue is that it clears the column first before combining the Col I and
Col J contents What is required please to change this Thankyou
Sub Trythis()
Dim lastcell As Long
Dim i As Long
lastcell = Cells(Rows.Count, "I").End(xlUp).Row
For i = 1 To lastcell
'combine Column I and J
Range("I" & i).Value = Range("I" & i).Value & " " & _
Range("I" & i).Offset(0, 1).Value
'clear column J value
Columns("J:J").Select
Selection.ClearContents
Next
End Sub
|