software

With Excel 2002 I need some help please to VBA code the following

A B C D
1 bbb
2 ccc
3 kkk
4 yyy

Merge text cells B1 amp; B2;
B3 amp; B4..... etc.......

The merged results should be displayed in A1; A2; etc

Col B varies on a daily basis but is rarely less that 1500 cells.

There are no blank cells in the B col range.

TIA

R.

You could do it with formulas, just put this in A1 and copy down, then Copy gt;
PasteSpecial gt; Values, and delete the blanks...

=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)

Vaya con Dios,
Chuck, CABGx3
quot;Ronquot; wrote:

gt; With Excel 2002 I need some help please to VBA code the following
gt;
gt; A B C D
gt; 1 bbb
gt; 2 ccc
gt; 3 kkk
gt; 4 yyy
gt;
gt; Merge text cells B1 amp; B2;
gt; B3 amp; B4..... etc.......
gt;
gt; The merged results should be displayed in A1; A2; etc
gt;
gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt;
gt; There are no blank cells in the B col range.
gt;
gt; TIA
gt;
gt; R.
gt;

Chuck,

Entered the formula in A1 and copied down but get #NAME? in each A
cell.

More help/clarifcation needed please.

R.
On Fri, 19 May 2006 06:08:02 -0700, CLR
gt; wrote:

gt;You could do it with formulas, just put this in A1 and copy down, then Copy gt;
gt;PasteSpecial gt; Values, and delete the blanks...
gt;
gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt;
gt;Vaya con Dios,
gt;Chuck, CABGx3
gt;
gt;
gt;
gt;quot;Ronquot; wrote:
gt;
gt;gt; With Excel 2002 I need some help please to VBA code the following
gt;gt;
gt;gt; A B C D
gt;gt; 1 bbb
gt;gt; 2 ccc
gt;gt; 3 kkk
gt;gt; 4 yyy
gt;gt;
gt;gt; Merge text cells B1 amp; B2;
gt;gt; B3 amp; B4..... etc.......
gt;gt;
gt;gt; The merged results should be displayed in A1; A2; etc
gt;gt;
gt;gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt;gt;
gt;gt; There are no blank cells in the B col range.
gt;gt;
gt;gt; TIA
gt;gt;
gt;gt; R.
gt;gt;

Sorry, forgot to mention you should make sure you have the Analysis ToolPak
installed..........

Tools gt; Add-Ins gt; check the Analysis toolPak gt; OK

Vaya con Dios,
Chuck, CABGx3quot;Ronquot; wrote:

gt; Chuck,
gt;
gt; Entered the formula in A1 and copied down but get #NAME? in each A
gt; cell.
gt;
gt; More help/clarifcation needed please.
gt;
gt; R.
gt;
gt;
gt;
gt; On Fri, 19 May 2006 06:08:02 -0700, CLR
gt; gt; wrote:
gt;
gt; gt;You could do it with formulas, just put this in A1 and copy down, then Copy gt;
gt; gt;PasteSpecial gt; Values, and delete the blanks...
gt; gt;
gt; gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt; gt;
gt; gt;Vaya con Dios,
gt; gt;Chuck, CABGx3
gt; gt;
gt; gt;
gt; gt;
gt; gt;quot;Ronquot; wrote:
gt; gt;
gt; gt;gt; With Excel 2002 I need some help please to VBA code the following
gt; gt;gt;
gt; gt;gt; A B C D
gt; gt;gt; 1 bbb
gt; gt;gt; 2 ccc
gt; gt;gt; 3 kkk
gt; gt;gt; 4 yyy
gt; gt;gt;
gt; gt;gt; Merge text cells B1 amp; B2;
gt; gt;gt; B3 amp; B4..... etc.......
gt; gt;gt;
gt; gt;gt; The merged results should be displayed in A1; A2; etc
gt; gt;gt;
gt; gt;gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt; gt;gt;
gt; gt;gt; There are no blank cells in the B col range.
gt; gt;gt;
gt; gt;gt; TIA
gt; gt;gt;
gt; gt;gt; R.
gt; gt;gt;
gt;

Chuck,

That did it.... great amp; thank you.

In the formula

=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)

where would I add a quot;CHAR(10)quot; to operate between rows 1 amp; 2, 3 amp; 4
etc

R.On Sat, 20 May 2006 17:22:01 -0700, CLR
gt; wrote:

gt;Sorry, forgot to mention you should make sure you have the Analysis ToolPak
gt;installed..........
gt;
gt;Tools gt; Add-Ins gt; check the Analysis toolPak gt; OK
gt;
gt;Vaya con Dios,
gt;Chuck, CABGx3
gt;
gt;
gt;quot;Ronquot; wrote:
gt;
gt;gt; Chuck,
gt;gt;
gt;gt; Entered the formula in A1 and copied down but get #NAME? in each A
gt;gt; cell.
gt;gt;
gt;gt; More help/clarifcation needed please.
gt;gt;
gt;gt; R.
gt;gt;
gt;gt;
gt;gt;
gt;gt; On Fri, 19 May 2006 06:08:02 -0700, CLR
gt;gt; gt; wrote:
gt;gt;
gt;gt; gt;You could do it with formulas, just put this in A1 and copy down, then Copy gt;
gt;gt; gt;PasteSpecial gt; Values, and delete the blanks...
gt;gt; gt;
gt;gt; gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt;gt; gt;
gt;gt; gt;Vaya con Dios,
gt;gt; gt;Chuck, CABGx3
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;quot;Ronquot; wrote:
gt;gt; gt;
gt;gt; gt;gt; With Excel 2002 I need some help please to VBA code the following
gt;gt; gt;gt;
gt;gt; gt;gt; A B C D
gt;gt; gt;gt; 1 bbb
gt;gt; gt;gt; 2 ccc
gt;gt; gt;gt; 3 kkk
gt;gt; gt;gt; 4 yyy
gt;gt; gt;gt;
gt;gt; gt;gt; Merge text cells B1 amp; B2;
gt;gt; gt;gt; B3 amp; B4..... etc.......
gt;gt; gt;gt;
gt;gt; gt;gt; The merged results should be displayed in A1; A2; etc
gt;gt; gt;gt;
gt;gt; gt;gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt;gt; gt;gt;
gt;gt; gt;gt; There are no blank cells in the B col range.
gt;gt; gt;gt;
gt;gt; gt;gt; TIA
gt;gt; gt;gt;
gt;gt; gt;gt; R.
gt;gt; gt;gt;
gt;gt;

On Sun, 21 May 2006 17:44:45 0200, Ron gt; wrote:

Chuck,

Please disregard my earlier post re the CHAR(10) insert

I figured it out.

=IF(ISODD(ROW(B1)),B1amp;CHAR(10)amp;OFFSET(B1,1,0),quot;quot;)

Again thank you very much for your help

R.
gt;Chuck,
gt;
gt;That did it.... great amp; thank you.
gt;
gt;In the formula
gt;
gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt;
gt;where would I add a quot;CHAR(10)quot; to operate between rows 1 amp; 2, 3 amp; 4
gt;etc
gt;
gt;R.
gt;
gt;
gt;On Sat, 20 May 2006 17:22:01 -0700, CLR
gt; wrote:
gt;
gt;gt;Sorry, forgot to mention you should make sure you have the Analysis ToolPak
gt;gt;installed..........
gt;gt;
gt;gt;Tools gt; Add-Ins gt; check the Analysis toolPak gt; OK
gt;gt;
gt;gt;Vaya con Dios,
gt;gt;Chuck, CABGx3
gt;gt;
gt;gt;
gt;gt;quot;Ronquot; wrote:
gt;gt;
gt;gt;gt; Chuck,
gt;gt;gt;
gt;gt;gt; Entered the formula in A1 and copied down but get #NAME? in each A
gt;gt;gt; cell.
gt;gt;gt;
gt;gt;gt; More help/clarifcation needed please.
gt;gt;gt;
gt;gt;gt; R.
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; On Fri, 19 May 2006 06:08:02 -0700, CLR
gt;gt;gt; gt; wrote:
gt;gt;gt;
gt;gt;gt; gt;You could do it with formulas, just put this in A1 and copy down, then Copy gt;
gt;gt;gt; gt;PasteSpecial gt; Values, and delete the blanks...
gt;gt;gt; gt;
gt;gt;gt; gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt;gt;gt; gt;
gt;gt;gt; gt;Vaya con Dios,
gt;gt;gt; gt;Chuck, CABGx3
gt;gt;gt; gt;
gt;gt;gt; gt;
gt;gt;gt; gt;
gt;gt;gt; gt;quot;Ronquot; wrote:
gt;gt;gt; gt;
gt;gt;gt; gt;gt; With Excel 2002 I need some help please to VBA code the following
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; A B C D
gt;gt;gt; gt;gt; 1 bbb
gt;gt;gt; gt;gt; 2 ccc
gt;gt;gt; gt;gt; 3 kkk
gt;gt;gt; gt;gt; 4 yyy
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; Merge text cells B1 amp; B2;
gt;gt;gt; gt;gt; B3 amp; B4..... etc.......
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; The merged results should be displayed in A1; A2; etc
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; There are no blank cells in the B col range.
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; TIA
gt;gt;gt; gt;gt;
gt;gt;gt; gt;gt; R.
gt;gt;gt; gt;gt;
gt;gt;gt;

You're welcome Ron, and it's good to see you figured out how to edit it
yourself.

Vaya con Dios,
Chuck, CABGx3quot;Ronquot; gt; wrote in message
...
gt; On Sun, 21 May 2006 17:44:45 0200, Ron gt; wrote:
gt;
gt; Chuck,
gt;
gt; Please disregard my earlier post re the CHAR(10) insert
gt;
gt; I figured it out.
gt;
gt; =IF(ISODD(ROW(B1)),B1amp;CHAR(10)amp;OFFSET(B1,1,0),quot;quot;)
gt;
gt; Again thank you very much for your help
gt;
gt; R.
gt; gt;Chuck,
gt; gt;
gt; gt;That did it.... great amp; thank you.
gt; gt;
gt; gt;In the formula
gt; gt;
gt; gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt; gt;
gt; gt;where would I add a quot;CHAR(10)quot; to operate between rows 1 amp; 2, 3 amp; 4
gt; gt;etc
gt; gt;
gt; gt;R.
gt; gt;
gt; gt;
gt; gt;On Sat, 20 May 2006 17:22:01 -0700, CLR
gt; gt; wrote:
gt; gt;
gt; gt;gt;Sorry, forgot to mention you should make sure you have the Analysis
ToolPak
gt; gt;gt;installed..........
gt; gt;gt;
gt; gt;gt;Tools gt; Add-Ins gt; check the Analysis toolPak gt; OK
gt; gt;gt;
gt; gt;gt;Vaya con Dios,
gt; gt;gt;Chuck, CABGx3
gt; gt;gt;
gt; gt;gt;
gt; gt;gt;quot;Ronquot; wrote:
gt; gt;gt;
gt; gt;gt;gt; Chuck,
gt; gt;gt;gt;
gt; gt;gt;gt; Entered the formula in A1 and copied down but get #NAME? in each A
gt; gt;gt;gt; cell.
gt; gt;gt;gt;
gt; gt;gt;gt; More help/clarifcation needed please.
gt; gt;gt;gt;
gt; gt;gt;gt; R.
gt; gt;gt;gt;
gt; gt;gt;gt;
gt; gt;gt;gt;
gt; gt;gt;gt; On Fri, 19 May 2006 06:08:02 -0700, CLR
gt; gt;gt;gt; gt; wrote:
gt; gt;gt;gt;
gt; gt;gt;gt; gt;You could do it with formulas, just put this in A1 and copy down,
then Copy gt;
gt; gt;gt;gt; gt;PasteSpecial gt; Values, and delete the blanks...
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;=IF(ISODD(ROW(B1)),B1amp;OFFSET(B1,1,0),quot;quot;)
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;Vaya con Dios,
gt; gt;gt;gt; gt;Chuck, CABGx3
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;quot;Ronquot; wrote:
gt; gt;gt;gt; gt;
gt; gt;gt;gt; gt;gt; With Excel 2002 I need some help please to VBA code the following
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; A B C D
gt; gt;gt;gt; gt;gt; 1 bbb
gt; gt;gt;gt; gt;gt; 2 ccc
gt; gt;gt;gt; gt;gt; 3 kkk
gt; gt;gt;gt; gt;gt; 4 yyy
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; Merge text cells B1 amp; B2;
gt; gt;gt;gt; gt;gt; B3 amp; B4..... etc.......
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; The merged results should be displayed in A1; A2; etc
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; Col B varies on a daily basis but is rarely less that 1500 cells.
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; There are no blank cells in the B col range.
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; TIA
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt; gt;gt; R.
gt; gt;gt;gt; gt;gt;
gt; gt;gt;gt;