Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
Ron
 
Posts: n/a
Default VBA for Text/Cells merge

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 & B2;
B3 & 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.
  #2   Report Post  
Posted to microsoft.public.excel.misc
CLR
 
Posts: n/a
Default VBA for Text/Cells merge

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

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.

  #3   Report Post  
Posted to microsoft.public.excel.misc
Ron
 
Posts: n/a
Default VBA for Text/Cells merge

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
wrote:

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

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.

  #4   Report Post  
Posted to microsoft.public.excel.misc
CLR
 
Posts: n/a
Default VBA for Text/Cells merge

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

Tools Add-Ins check the Analysis toolPak OK

Vaya con Dios,
Chuck, CABGx3


"Ron" wrote:

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
wrote:

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

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.


  #5   Report Post  
Posted to microsoft.public.excel.misc
Ron
 
Posts: n/a
Default VBA for Text/Cells merge

Chuck,

That did it.... great & thank you.

In the formula

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

where would I add a "CHAR(10)" to operate between rows 1 & 2, 3 & 4
etc

R.


On Sat, 20 May 2006 17:22:01 -0700, CLR
wrote:

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

Tools Add-Ins check the Analysis toolPak OK

Vaya con Dios,
Chuck, CABGx3


"Ron" wrote:

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
wrote:

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

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.




  #6   Report Post  
Posted to microsoft.public.excel.misc
Ron
 
Posts: n/a
Default VBA for Text/Cells merge

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

Chuck,

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

I figured it out.

=IF(ISODD(ROW(B1)),B1&CHAR(10)&OFFSET(B1,1,0),"")

Again thank you very much for your help

R.
Chuck,

That did it.... great & thank you.

In the formula

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

where would I add a "CHAR(10)" to operate between rows 1 & 2, 3 & 4
etc

R.


On Sat, 20 May 2006 17:22:01 -0700, CLR
wrote:

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

Tools Add-Ins check the Analysis toolPak OK

Vaya con Dios,
Chuck, CABGx3


"Ron" wrote:

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
wrote:

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

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.


  #7   Report Post  
Posted to microsoft.public.excel.misc
CLR
 
Posts: n/a
Default VBA for Text/Cells merge

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

Vaya con Dios,
Chuck, CABGx3


"Ron" wrote in message
...
On Sun, 21 May 2006 17:44:45 +0200, Ron wrote:

Chuck,

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

I figured it out.

=IF(ISODD(ROW(B1)),B1&CHAR(10)&OFFSET(B1,1,0),"")

Again thank you very much for your help

R.
Chuck,

That did it.... great & thank you.

In the formula

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

where would I add a "CHAR(10)" to operate between rows 1 & 2, 3 & 4
etc

R.


On Sat, 20 May 2006 17:22:01 -0700, CLR
wrote:

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

ToolPak
installed..........

Tools Add-Ins check the Analysis toolPak OK

Vaya con Dios,
Chuck, CABGx3


"Ron" wrote:

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
wrote:

You could do it with formulas, just put this in A1 and copy down,

then Copy
PasteSpecial Values, and delete the blanks...

=IF(ISODD(ROW(B1)),B1&OFFSET(B1,1,0),"")

Vaya con Dios,
Chuck, CABGx3



"Ron" wrote:

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 & B2;
B3 & 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.




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
Difficult for me, probably basic to you onlyjohn Excel Worksheet Functions 1 February 3rd 06 05:14 PM
Word found no merge fields in your main document. lburg801 Excel Discussion (Misc queries) 0 November 28th 05 08:01 PM
Different graphic for each record in mail merge document Alex St-Pierre Charts and Charting in Excel 1 May 4th 05 07:26 PM
How do I do an excel merge like a word mailmerge with another exc. jaewon223 Excel Discussion (Misc queries) 0 February 28th 05 05:01 PM
Serious Mail Merge Problem FNORD Excel Discussion (Misc queries) 0 February 8th 05 05:13 PM


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

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

About Us

"It's about Microsoft Excel"