Clear Contents

S

Steved

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
 
F

FSt1

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
 
S

Steved

Thankyou.

FSt1 said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top