Clear Contents
Thankyou.
"FSt1" wrote:
hi
you are clearing the entire column J before the loop finishes. don't do that.
change....
Columns("J:J").Select
Selection.ClearContents
to....
Range("I" & i).Offset(0, 1).ClearContents
this way the contents of column will be cleared as the loop runs, not all at
once.
regards
FSt1
"Steved" wrote:
Hello from Steved
Below is my attempt to clear contents from Colunmn 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
|