Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear Contents
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear Contents
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Clear Contents
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Clear Contents | Setting up and Configuration of Excel | |||
Clear Contents | Excel Discussion (Misc queries) | |||
Clear Contents | Excel Programming | |||
Macro to clear range contents when cell contents are changed by us | Excel Programming | |||
Clear contents if x is not in the row | Excel Programming |