Move text from column B to column A

[Sandy]

I am trying to move text from column B to in front of that in column A.
A B
Jones John

Result would be
A B
John Jones
Tried this:
Private Sub NameChange()
For Each c In Selection
c.Text = c.Offset(0, 1).Text & " " & c.Text
Next c
End Sub

Am I even close (sorry I'm new to this stuff)
Sandy

[Norman Jones]

Hi Sandy,

Try this small modification:

Private Sub NameChange()
Dim c As Range
For Each c In Selection
c.Value = c.Offset(0, 1).Value & " " & c.Value
Next c
End Sub


---
Regards,
Norman



"Sandy" <[email protected]> wrote in message
news:%[email protected]...
>I am trying to move text from column B to in front of that in column A.
> A B
> Jones John
>
> Result would be
> A B
> John Jones
> Tried this:
> Private Sub NameChange()
> For Each c In Selection
> c.Text = c.Offset(0, 1).Text & " " & c.Text
> Next c
> End Sub
>
> Am I even close (sorry I'm new to this stuff)
> Sandy
>

[Sandy]

Works a treat Norman.
Thank you
Sandy

"Norman Jones" <[email protected]> wrote in message
news:[email protected]...
> Hi Sandy,
>
> Try this small modification:
>
> Private Sub NameChange()
> Dim c As Range
> For Each c In Selection
> c.Value = c.Offset(0, 1).Value & " " & c.Value
> Next c
> End Sub
>
>
> ---
> Regards,
> Norman
>
>
>
> "Sandy" <[email protected]> wrote in message
> news:%[email protected]...
>>I am trying to move text from column B to in front of that in column A.
>> A B
>> Jones John
>>
>> Result would be
>> A B
>> John Jones
>> Tried this:
>> Private Sub NameChange()
>> For Each c In Selection
>> c.Text = c.Offset(0, 1).Text & " " & c.Text
>> Next c
>> End Sub
>>
>> Am I even close (sorry I'm new to this stuff)
>> Sandy
>>
>
>

[Melissa]

Is there a way to move an entire column to in-between existing columns
without getting the error message, "Do you want to replace contents in
destination cells?" and also without VB? I'm no use with coding...

What I've been doing is to insert new blank column, highlight and drag one
of my existing column to this new column, then delete the old column.

"Norman Jones" wrote:

> Hi Sandy,
>
> Try this small modification:
>
> Private Sub NameChange()
> Dim c As Range
> For Each c In Selection
> c.Value = c.Offset(0, 1).Value & " " & c.Value
> Next c
> End Sub
>
>
> ---
> Regards,
> Norman
>
>
>
> "Sandy" <[email protected]> wrote in message
> news:%[email protected]...
> >I am trying to move text from column B to in front of that in column A.
> > A B
> > Jones John
> >
> > Result would be
> > A B
> > John Jones
> > Tried this:
> > Private Sub NameChange()
> > For Each c In Selection
> > c.Text = c.Offset(0, 1).Text & " " & c.Text
> > Next c
> > End Sub
> >
> > Am I even close (sorry I'm new to this stuff)
> > Sandy
> >
>
>
>

[Dave Peterson]

If you select the column
rightclick anywhere on that selection
choose Cut

The select a different column
rightclick on that one
and choose "insert cut cells"

You won't get a prompt--at least I don't.

You can also:
select the column
rightclick and drag on the selection border
and release it when you get to its new location
You'll see a list of options.
Choose "shift right and move"

you can also:
select the column
shift-click the selection border and drag to its new location

I didn't get a prompt when I did any of these.)

Melissa wrote:
>
> Is there a way to move an entire column to in-between existing columns
> without getting the error message, "Do you want to replace contents in
> destination cells?" and also without VB? I'm no use with coding...
>
> What I've been doing is to insert new blank column, highlight and drag one
> of my existing column to this new column, then delete the old column.
>
> "Norman Jones" wrote:
>
> > Hi Sandy,
> >
> > Try this small modification:
> >
> > Private Sub NameChange()
> > Dim c As Range
> > For Each c In Selection
> > c.Value = c.Offset(0, 1).Value & " " & c.Value
> > Next c
> > End Sub
> >
> >
> > ---
> > Regards,
> > Norman
> >
> >
> >
> > "Sandy" <[email protected]> wrote in message
> > news:%[email protected]...
> > >I am trying to move text from column B to in front of that in column A.
> > > A B
> > > Jones John
> > >
> > > Result would be
> > > A B
> > > John Jones
> > > Tried this:
> > > Private Sub NameChange()
> > > For Each c In Selection
> > > c.Text = c.Offset(0, 1).Text & " " & c.Text
> > > Next c
> > > End Sub
> > >
> > > Am I even close (sorry I'm new to this stuff)
> > > Sandy
> > >
> >
> >
> >

--

Dave Peterson