Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old February 13th 06, 11:17 PM posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default Copy column of cells to a single cell?

Hi, is there a formula or script for copying a column / selected range cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces, and to
sort as listed, or alphabetically. Thanks.

  #2   Report Post  
Old February 13th 06, 11:35 PM posted to microsoft.public.excel.misc
Don Guillett
 
Posts: n/a
Default Copy column of cells to a single cell?

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces, and to
sort as listed, or alphabetically. Thanks.



  #3   Report Post  
Old February 14th 06, 12:18 AM posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default Copy column of cells to a single cell?

Hi, thanks, is that something I can just paste (where) into a code tab for
that sheet?
was looking at someones idea concatenate, but don't know if that will work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for code
where / would I be able to place in what using for a date code?: thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces, and to
sort as listed, or alphabetically. Thanks.




  #4   Report Post  
Old February 14th 06, 01:47 AM posted to microsoft.public.excel.misc
Don Guillett
 
Posts: n/a
Default Copy column of cells to a single cell?

I'm not exactly sure of what you want the final outcome to be?

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, thanks, is that something I can just paste (where) into a code tab for
that sheet?
was looking at someones idea concatenate, but don't know if that will
work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for code
where / would I be able to place in what using for a date code?: thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces, and
to
sort as listed, or alphabetically. Thanks.






  #5   Report Post  
Old February 14th 06, 02:38 AM posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default Copy column of cells to a single cell?

ha guesse because not sure what i'm doing either, don't know if that is
code that can enter as perm use... or if shouldn't mix code etc.. was just
looking for a utility to keep from having to type dozens+ symbols into a
single cell, with spaces inbetween to have ready for a different screener,
elsewhere. results will look like:

any cell: mst mso abc xyz etc.... thanks

"Don Guillett" wrote:

I'm not exactly sure of what you want the final outcome to be?

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, thanks, is that something I can just paste (where) into a code tab for
that sheet?
was looking at someones idea concatenate, but don't know if that will
work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for code
where / would I be able to place in what using for a date code?: thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces, and
to
sort as listed, or alphabetically. Thanks.








  #6   Report Post  
Old February 14th 06, 12:40 PM posted to microsoft.public.excel.misc
Don Guillett
 
Posts: n/a
Default Copy column of cells to a single cell?

Well, that's what I gave you without any additional code. Just modify to
suit.

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
ha guesse because not sure what i'm doing either, don't know if that
is
code that can enter as perm use... or if shouldn't mix code etc.. was just
looking for a utility to keep from having to type dozens+ symbols into a
single cell, with spaces inbetween to have ready for a different screener,
elsewhere. results will look like:

any cell: mst mso abc xyz etc.... thanks

"Don Guillett" wrote:

I'm not exactly sure of what you want the final outcome to be?

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, thanks, is that something I can just paste (where) into a code tab
for
that sheet?
was looking at someones idea concatenate, but don't know if that will
work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for
code
where / would I be able to place in what using for a date code?:
thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected
range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces,
and
to
sort as listed, or alphabetically. Thanks.








  #7   Report Post  
Old February 15th 06, 01:36 AM posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default Copy column of cells to a single cell?

hi, back online, sorry did not know.. don't know code. guesse wasn't sure
what was to do with it / how worked maybe, the to & from, or how to make it
work, etc. anyways will give it a shot. got the outcome part maybe, but as
far as input... do I select a range somewhere, or a column.., not sure if you
hit go (??) or if you apply it then delete it.. too many questions, but don't
know where to start, thanks.

"Don Guillett" wrote:

Well, that's what I gave you without any additional code. Just modify to
suit.

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
ha guesse because not sure what i'm doing either, don't know if that
is
code that can enter as perm use... or if shouldn't mix code etc.. was just
looking for a utility to keep from having to type dozens+ symbols into a
single cell, with spaces inbetween to have ready for a different screener,
elsewhere. results will look like:

any cell: mst mso abc xyz etc.... thanks

"Don Guillett" wrote:

I'm not exactly sure of what you want the final outcome to be?

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, thanks, is that something I can just paste (where) into a code tab
for
that sheet?
was looking at someones idea concatenate, but don't know if that will
work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for
code
where / would I be able to place in what using for a date code?:
thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected
range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with spaces,
and
to
sort as listed, or alphabetically. Thanks.









  #8   Report Post  
Old February 15th 06, 12:39 PM posted to microsoft.public.excel.misc
Don Guillett
 
Posts: n/a
Default Copy column of cells to a single cell?

I will be out of town most of today but if you want send a workbook to my
personal address along with detailed explanation of exactly what you want
done. I will take a look.

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
hi, back online, sorry did not know.. don't know code. guesse wasn't sure
what was to do with it / how worked maybe, the to & from, or how to make
it
work, etc. anyways will give it a shot. got the outcome part maybe, but
as
far as input... do I select a range somewhere, or a column.., not sure if
you
hit go (??) or if you apply it then delete it.. too many questions, but
don't
know where to start, thanks.

"Don Guillett" wrote:

Well, that's what I gave you without any additional code. Just modify to
suit.

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
ha guesse because not sure what i'm doing either, don't know if
that
is
code that can enter as perm use... or if shouldn't mix code etc.. was
just
looking for a utility to keep from having to type dozens+ symbols into
a
single cell, with spaces inbetween to have ready for a different
screener,
elsewhere. results will look like:

any cell: mst mso abc xyz etc.... thanks

"Don Guillett" wrote:

I'm not exactly sure of what you want the final outcome to be?

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, thanks, is that something I can just paste (where) into a code
tab
for
that sheet?
was looking at someones idea concatenate, but don't know if that
will
work.
especially if this is wrong?:
=CONCATENATE(V373:V376) probably won't work right?, anyways, if for
code
where / would I be able to place in what using for a date code?:
thanks

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AY:AZ"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


------------------

"Don Guillett" wrote:

here is an idea from a getstockquotes program of mine

x = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For Each c In Sheets(1).Range(Cells(5, 1), Cells(x, 1))
symbols = symbols & "+" & c

--
Don Guillett
SalesAid Software

"nastech" wrote in message
...
Hi, is there a formula or script for copying a column / selected
range
cells
that have one word in each cell, to a single cell.
Once in the cell, looking for separation between words with
spaces,
and
to
sort as listed, or alphabetically. Thanks.













Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to copy single cell into cell that is merged from two cells? Rod Excel Discussion (Misc queries) 3 January 22nd 06 09:24 PM
Need to Improve Code Copying/Pasting Between Workbooks David Excel Discussion (Misc queries) 1 January 6th 06 03:56 AM
checking that cells have a value before the workbook will close kcdonaldson Excel Worksheet Functions 8 December 5th 05 04:57 PM
How can I copy values from one cell in a column down to the next c GSingh Excel Discussion (Misc queries) 9 August 16th 05 11:18 AM
copy every 30th cell in the column into consecutive cells in anoth shortcuts Excel Worksheet Functions 2 March 29th 05 07:28 AM


All times are GMT +1. The time now is 08:48 PM.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright 2004-2019 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017