Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
I've got this code to append cell data to the right of the selected cell
ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
Something like this perhaps. Otto
Sub DoIt() Dim i As Range For Each i In Selection i = i & " " & i.Offset(0, 1).Value Next i End Sub "Maarkr" wrote in message ... I've got this code to append cell data to the right of the selected cell ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
Hi,
loop through the range Sub sonic() Dim LastRow As Long Dim MyRange As Range, c As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) For Each c In MyRange c.Value = c.Value & c.Offset(, 1).Value Next End Sub Mike "Maarkr" wrote: I've got this code to append cell data to the right of the selected cell ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
You can try using a loop. Just adjust the code below to your applicaiton by
adjusting the Sheet name and start of range. Option Explicit Sub AppendCells() Dim lngLastRow As Long Dim rng As Range With Sheets("Sheet1") lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row For Each rng In .Range("A1:A" & lngLastRow) rng.Value = rng.Value & " " & rng.Offset(0, 1).Value Next rng End With End Sub Hope this helps! If so, click "YES" below. -- Cheers, Ryan "Maarkr" wrote: I've got this code to append cell data to the right of the selected cell ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
oops,
Missed the space Sub sonic() Dim LastRow As Long Dim MyRange As Range, c As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) For Each c In MyRange c.Value = c.Value & " " & c.Offset(, 1).Value Next End Sub Mike "Mike H" wrote: Hi, loop through the range Sub sonic() Dim LastRow As Long Dim MyRange As Range, c As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) For Each c In MyRange c.Value = c.Value & c.Offset(, 1).Value Next End Sub Mike "Maarkr" wrote: I've got this code to append cell data to the right of the selected cell ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
append all instead of one
Or if you wish to select the cells you wish to append use this code below.
Option Explicit Sub AppendCells() Dim rng As Range For Each rng In Selection rng.Value = rng.Value & " " & rng.Offset(0, 1).Value Next rng End Sub Hope this helps! If so, click "YES" below. -- Cheers, Ryan "Maarkr" wrote: I've got this code to append cell data to the right of the selected cell ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value THis code only works for a single selected cell... not multiple cells. I want to be able to select the entire column A (not just a single cell in col a) or multiple cells and have all cells in B append into A. thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do you append one row to another? | Excel Worksheet Functions | |||
What can I append | Excel Programming | |||
how to know which row to append for the last row | Excel Programming | |||
Qn: How to Append??? | Excel Programming | |||
append row | Excel Programming |