Simple Macro to copy each row in the database "X" times? (Excel 2002)

This is a multi-part message in MIME format.

------=_NextPart_000_000D_01C3ECA5.0E42E590
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I was wondering if someone could help me with a macro to cut down on =
some repetitive task activity.

I have a regularly increasing DB of address information in Excel with =
several hundred entries with row 1 as the header row. Depending on the =
demand, we have to create mail labels in various quantities per address, =
consecutively. I foresee a macro that when kicked off will prompt the =
user to enter in the number of labels for each row and then duplicate =
each unique row that number of times (except the header row, of course).
It would be best if it creates the duplicate row list on another sheet. =
There is only 1 sheet in the workbook as it stands.
 For example:
      Name Addr1 Addr2 City State Zip=20
      Billy Bob 123 High Rd. Hereville Florida 12345=20
      Sally Smith 321 Low Rd. Nowhere Alaska 54321=20
      Jimmy Dean 222 Middle Rd. Whoville Ohio 55555=20

=20
If I was prompted for a # and typed in "3", then the following result =
would be required:

      Name Addr1 Addr2 City State Zip=20
      Billy Bob 123 High Rd. Hereville Florida 12345=20
      Billy Bob 123 High Rd. Hereville Florida 12345=20
      Billy Bob 123 High Rd. Hereville Florida 12345=20
      Sally Smith 321 Low Rd. Nowhere Alaska 54321=20
      Sally Smith 321 Low Rd. Nowhere Alaska 54321=20
      Sally Smith 321 Low Rd. Nowhere Alaska 54321=20
      Jimmy Dean 222 Middle Rd. Whoville Ohio 55555=20
      Jimmy Dean 222 Middle Rd. Whoville Ohio 55555=20
      Jimmy Dean 222 Middle Rd. Whoville Ohio 55555=20


Assume that there the possibility for more columns to be added over time =
as well, so it should copy the whole row rather than a fixed range.

I would be much indebted if someone could help!

Many thanks, Alan
------=_NextPart_000_000D_01C3ECA5.0E42E590
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I was wondering if someone could help =
me=20
with&nbsp;a macro to cut down on some repetitive task =
activity.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>I have a regularly increasing DB of =
address=20
information in Excel with several hundred entries with row 1 as the =
header row.=20
</FONT><FONT face=3DArial size=3D2>Depending on the demand, we have to =
create mail=20
labels in various quantities per address, consecutively. </FONT><FONT =
face=3DArial=20
size=3D2>I foresee a macro that when kicked off will prompt the user to =
enter in=20
the number of labels for each row and then duplicate each unique row =
that number=20
of times (except the header row, of course).</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>It would be best if it creates the =
duplicate row=20
list on another sheet. There is only 1 sheet in the workbook as it=20
stands.</FONT></DIV>
<DIV>&nbsp;<FONT face=3DArial size=3D2>For example:</FONT></DIV>
<DIV>
<TABLE style=3D"WIDTH: 429px; BORDER-COLLAPSE: collapse; HEIGHT: 101px"=20
cellSpacing=3D0 cellPadding=3D0 width=3D429 border=3D0 x:str>
  <COLGROUP>
  <COL style=3D"WIDTH: 48pt" span=3D4 width=3D64>
  <COL style=3D"WIDTH: 53pt; mso-width-source: userset; mso-width-alt: =
2560"=20
  width=3D70>
  <COL style=3D"WIDTH: 48pt" width=3D64>
  <TBODY>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: =
48pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; =
BACKGROUND-COLOR: transparent"=20
    width=3D64 height=3D17><FONT face=3DArial size=3D2>Name</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Addr1</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Addr2</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>City</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 53pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D70><FONT face=3DArial size=3D2>State</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Zip</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Billy Bob</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>123</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>High Rd.</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Hereville</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Florida</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>12345</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Sally Smith</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>321</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Low Rd.</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Nowhere</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Alaska</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>54321</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Jimmy Dean</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>222</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Middle Rd.</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Whoville</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Ohio</FONT></TD>
    <TD class=3Dxl22=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial=20
size=3D2>55555</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>If I was prompted for a # and typed in =
"3", then=20
the following result would be required:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV>
<TABLE style=3D"WIDTH: 304pt; BORDER-COLLAPSE: collapse" cellSpacing=3D0 =

cellPadding=3D0 width=3D405 border=3D0 x:str>
  <COLGROUP>
  <COL style=3D"WIDTH: 59pt; mso-width-source: userset; mso-width-alt: =
2889"=20
  width=3D79>
  <COL style=3D"WIDTH: 48pt" span=3D3 width=3D64>
  <COL style=3D"WIDTH: 53pt; mso-width-source: userset; mso-width-alt: =
2560"=20
  width=3D70>
  <COL style=3D"WIDTH: 48pt" width=3D64>
  <TBODY>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: =
59pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; =
BACKGROUND-COLOR: transparent"=20
    width=3D79 height=3D17><FONT face=3DArial size=3D2>Name</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Addr1</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Addr2</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>City</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 53pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D70><FONT face=3DArial size=3D2>State</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; =
BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent"=20
    width=3D64><FONT face=3DArial size=3D2>Zip</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Billy Bob</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>123</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>High Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Hereville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Florida</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>12345</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Billy Bob</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>123</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>High Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Hereville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Florida</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>12345</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Billy Bob</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>123</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>High Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Hereville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Florida</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>12345</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Sally Smith</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>321</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Low Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Nowhere</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Alaska</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>54321</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Sally Smith</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>321</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Low Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Nowhere</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Alaska</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>54321</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Sally Smith</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>321</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Low Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Nowhere</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Alaska</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>54321</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Jimmy Dean</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>222</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Middle Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Whoville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Ohio</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>55555</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Jimmy Dean</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>222</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Middle Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Whoville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Ohio</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial =
size=3D2>55555</FONT></TD></TR>
  <TR style=3D"HEIGHT: 12.75pt" height=3D17>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: =
windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent"=20
    height=3D17><FONT face=3DArial size=3D2>Jimmy Dean</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial size=3D2>222</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Middle Rd.</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Whoville</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"><FONT=20
      face=3DArial size=3D2>Ohio</FONT></TD>
    <TD class=3Dxl24=20
    style=3D"BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: =
windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt =
solid; BACKGROUND-COLOR: transparent"=20
    align=3Dright x:num><FONT face=3DArial=20
size=3D2>55555</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Assume that there the possibility for =
more columns=20
to be added over time as well, so it should copy the whole =
row&nbsp;rather than=20
a fixed range.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>I would be much indebted if someone =
could=20
help!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Many thanks, =
Alan</FONT></DIV></BODY></HTML>

------=_NextPart_000_000D_01C3ECA5.0E42E590--

0
me3529 (37)
2/6/2004 4:33:34 PM
excel.misc 78881 articles. 5 followers. Follow

2 Replies
420 Views

Similar Articles

[PageSpeed] 49

Sub makemultiplerows()
Dim rng As Range, cell As Range
Dim rw As Long
Dim numRows As Variant
With ActiveSheet
  Set rng = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
End With
Worksheets.Add
rw = 1
numRows = InputBox("How many rows per record?")
If Not IsNumeric(numRows) Then Exit Sub
For Each cell In rng
  cell.EntireRow.Copy Destination:= _
   ActiveSheet.Cells(rw, 1).Resize(numRows)
  rw = rw + numRows
Next

End Sub

-- 
Regards,
Tom Ogilvy

"AlanN" <me@here.now> wrote in message
news:llPUb.32142$9U5.1357670@news20.bellglobal.com...
I was wondering if someone could help me with a macro to cut down on some
repetitive task activity.

I have a regularly increasing DB of address information in Excel with
several hundred entries with row 1 as the header row. Depending on the
demand, we have to create mail labels in various quantities per address,
consecutively. I foresee a macro that when kicked off will prompt the user
to enter in the number of labels for each row and then duplicate each unique
row that number of times (except the header row, of course).
It would be best if it creates the duplicate row list on another sheet.
There is only 1 sheet in the workbook as it stands.
 For example:
NameAddr1Addr2CityStateZip
Billy Bob123High Rd.HerevilleFlorida12345
Sally Smith321Low Rd.NowhereAlaska54321
Jimmy Dean222Middle Rd.WhovilleOhio55555


If I was prompted for a # and typed in "3", then the following result would
be required:

NameAddr1Addr2CityStateZip
Billy Bob123High Rd.HerevilleFlorida12345
Billy Bob123High Rd.HerevilleFlorida12345
Billy Bob123High Rd.HerevilleFlorida12345
Sally Smith321Low Rd.NowhereAlaska54321
Sally Smith321Low Rd.NowhereAlaska54321
Sally Smith321Low Rd.NowhereAlaska54321
Jimmy Dean222Middle Rd.WhovilleOhio55555
Jimmy Dean222Middle Rd.WhovilleOhio55555
Jimmy Dean222Middle Rd.WhovilleOhio55555


Assume that there the possibility for more columns to be added over time as
well, so it should copy the whole row rather than a fixed range.

I would be much indebted if someone could help!

Many thanks, Alan


0
twogilvy (1078)
2/6/2004 6:36:40 PM
Amazing Tom! Many thanks, Alan
"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:1027njpkndu6u94@news.supernews.com...
> Sub makemultiplerows()
> Dim rng As Range, cell As Range
> Dim rw As Long
> Dim numRows As Variant
> With ActiveSheet
>   Set rng = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
> End With
> Worksheets.Add
> rw = 1
> numRows = InputBox("How many rows per record?")
> If Not IsNumeric(numRows) Then Exit Sub
> For Each cell In rng
>   cell.EntireRow.Copy Destination:= _
>    ActiveSheet.Cells(rw, 1).Resize(numRows)
>   rw = rw + numRows
> Next
>
> End Sub
>
> -- 
> Regards,
> Tom Ogilvy
>
> "AlanN" <me@here.now> wrote in message
> news:llPUb.32142$9U5.1357670@news20.bellglobal.com...
> I was wondering if someone could help me with a macro to cut down on some
> repetitive task activity.
>
> I have a regularly increasing DB of address information in Excel with
> several hundred entries with row 1 as the header row. Depending on the
> demand, we have to create mail labels in various quantities per address,
> consecutively. I foresee a macro that when kicked off will prompt the user
> to enter in the number of labels for each row and then duplicate each
unique
> row that number of times (except the header row, of course).
> It would be best if it creates the duplicate row list on another sheet.
> There is only 1 sheet in the workbook as it stands.
>  For example:
> NameAddr1Addr2CityStateZip
> Billy Bob123High Rd.HerevilleFlorida12345
> Sally Smith321Low Rd.NowhereAlaska54321
> Jimmy Dean222Middle Rd.WhovilleOhio55555
>
>
> If I was prompted for a # and typed in "3", then the following result
would
> be required:
>
> NameAddr1Addr2CityStateZip
> Billy Bob123High Rd.HerevilleFlorida12345
> Billy Bob123High Rd.HerevilleFlorida12345
> Billy Bob123High Rd.HerevilleFlorida12345
> Sally Smith321Low Rd.NowhereAlaska54321
> Sally Smith321Low Rd.NowhereAlaska54321
> Sally Smith321Low Rd.NowhereAlaska54321
> Jimmy Dean222Middle Rd.WhovilleOhio55555
> Jimmy Dean222Middle Rd.WhovilleOhio55555
> Jimmy Dean222Middle Rd.WhovilleOhio55555
>
>
> Assume that there the possibility for more columns to be added over time
as
> well, so it should copy the whole row rather than a fixed range.
>
> I would be much indebted if someone could help!
>
> Many thanks, Alan
>
>


0
Alan8611 (10)
2/6/2004 8:51:35 PM
Reply:

Similar Artilces:

Outlook 2002 (office xp developer suite)
Does anyone know of a place where I can find a bunch of various macros for outlook? I've looked around and found 1 or 2 but I would think someone has a large amount of them.. Thanks Dave dave wrote: > Does anyone know of a place where I can find a bunch of > various macros for outlook? I've looked around and found > 1 or 2 but I would think someone has a large amount of > them.. > > Thanks > > Dave Dunno, but a Google search on "Outlook macros" gets about 55,000 hits.... G'Day Dave, Try: http://www.outlookvba.com/examples//allexamples...

Looking for Excel Help
I'm a very novice Excel user and am looking for a little help with creating a formula for a spreadsheet I'm creating for my personal use. I would appreciate some assistance if possible. Thanks in advance. Dan --- Message posted from http://www.ExcelForum.com/ Hi Dan! Post a sample of what you want to do. Your question is just a tad open ended <g> -- Regards Norman Harker MVP (Excel) Sydney, Australia njharker@optusnet.com.au Excel and Word Function Lists (Classifications, Syntax and Arguments) available free to good homes. "DanB4105" <DanB4105.ywtpa@excelfor...

Unable to open .docx documents in Word 2002
I cannot open word documents sent with .docx extendion in word 2002. I checked my language setting and it is English. What is wrong? Download the Compatibility Pack. http://www.microsoft.com/downloads/details.aspx?familyid=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=en -- JoAnn Paules MVP Microsoft [Publisher] Tech Editor for "Microsoft Publisher 2007 For Dummies" "Johnpm" <Johnpm@discussions.microsoft.com> wrote in message news:43E248E8-5D83-4E91-9743-CE12CCD6A443@microsoft.com... >I cannot open word documents sent with .docx extendi...

Excel button problem
Hi All I have a macro that copies a worksheet in the active workbook and puts it into a new workbook - then formats it and deletes any buttons on the worksheet. On the first click on the button the macro works ok. On the second click, it fails because the all assigned macros on all buttons in the active workbook changed from "mba" to "book1!mba". Book 1 doesn't exists (wasn't opened, wasn't saved, doesn't have the macros). I've never experienced this problem before?? Can anyone help to solve this problem? FYI The macro to do this is c...

Excel 97 #9
Please can anyone help??? I have two columns in Excel 97. The first contains a list of statu values eg. pending, or granted or withdrawn. The second contains date eg.01/12/1997, 05/06/2003. I woudl like to know how to get all th granted apps before 31/12/2003. Can anyone help please -- Message posted from http://www.ExcelForum.com theres many ways, but an easiest way would be to do a sort. Highlight the 2 columns, click on data, then sort, then sort by status, then by date. this should group them all together. hope this helps...toe >-----Original Message----- >Please can anyo...

New to excel
Hi All, I'm new to Excel ( and to this forum :) ) and so I hope somebody may b able to help me. I've got 2 questions.... QUESTION 1 I've got a spreadsheet which takes data from one worksheet and uses i to calculate data in a second worksheet using the following code formula: =IF('4th November 2005'!B19="","nothing here dude",IF(B19<'4th Novembe 2005'!B19,"UP",IF(B19='4th November 2005'!B19,"Same",IF(B19>'4t November 2005'!B19,"DOWN")))) The problem is, when I create a new worksheet I have...

learning Excel #3
Hi, I was considering learning Excel as an additional tool for my data analysis work. Is it better to use data sets that I have previously used with SPSS and apply the same analysis tools as in SPSS? For applying the appropriate tools, I was considering using excel's online help. The second option I have is to use some excel book for data analysis and apply the techniques to data sets provided with the book. Any suggestions????? regards Metal ...

unable to paste Excel 2003 chart into Outlook 2003
(This was posted on "excel.charting" group.) I have a user who's unable to paste an Excel 2003 chart into Outlook 2003 email message. In Outlook options, the checkbox is selected for "Use Microsoft Office Word 2003 to edit e-mail messages". When I tested this on my own computer running the same version of Office, if the box is check, I have no problem pasting; if this box is cleared, I cannot paste. But on his computer, it doesn't work regardless. Thanks and regards, TL ...

How do I Remove a Split from my Comments in Excel 2003? #2
I have set my current workbook to split/freeze the first column and first 2 rows. Now, when I add a comment to the second row (in any column) my comments are cut off if I should scroll down. I don't ever remember the behavior before. And I don't know what I've done to enable it but it's really annoying. How do turn this off ? ...

How do I overlay text to a row without loosing the text in the ba.
I would like to know how to give an entire row (or column) a text overlay such as "VOID" and still be able to view the text in the underlaying row (or column). Thanks in advance. Use WordArt from the Drawing toolbar. Change the Fill to None. -- Jim Rech Excel MVP "Bruce Charles" <Bruce Charles@discussions.microsoft.com> wrote in message news:C430F6BC-1EBD-461F-A3FA-EC8592C5704C@microsoft.com... |I would like to know how to give an entire row (or column) a text overlay | such as "VOID" and still be able to view the text in the underlaying row (or | c...

Excel corrupts when asking to update vlookups
We are experiencing weird behavior with some Office 2K3 Excel spreadsheets that contain lots of calculations, but no macros. On some pc’s Excel acts normally, on others you get the error. I have a couple of screen shots available. Any help is appreciated. If desired, send your file to my address below. I will only look if: 1. You send a copy of this message on an inserted sheet 2. You give me the newsgroup and the subject line 3. You send a clear explanation of what you want 4. You send before/after examples and expected results. -- Don Gu...

Uninstall of mappoint has caused errors with excel
Hi, I am running Office 2003 on the terminal server (windows 2003) and had a copy of mappoint as well. This is a mapping program. We ininstalled mappoint which has caused an error message with Excel and other office products. The error says "Cd:\documents and settings\administrator.ocrdc1\application data\microsoft\addins c:\Program files\common files\microsoft shared\geography\mpoai9.dll is not a valid add-in." I then click OK and excel opens up and everything is fine. The problem is that we are using other programs as well such as Quickbooks that export to excel and t...

how do I add error bars to a 3D chart in excel?
The help states you can only add error bars to data series in 2D area. Is there a way to add them to a 3D chart? Hi, I would not have thought so. Obviously as it is not a built-in option the only way would be a work around perhaps using dummy series. Unfortunately you can create 3d combination charts. Stick with the 2d view. Cheers Andy elahe wrote: > The help states you can only add error bars to data series in 2D area. Is > there a way to add them to a 3D chart? -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info I checked, and error bars are not offered for 3D ch...

Excel VBA
When you select the autofilter, the drop down list is created from the unique data in that column. Is there any way to customize this list, so the changes are permanent? For instance, I might have in one(1) column the following 4 row entries: red, blue, green (all are single cell entries) red, blue red blue, green I want my autofilter drop down list to read: red instead of red, blue, green blue red, blue green red blue, green (like normal) If I chose red from the drop down list...

Problem with named range for a large spreadsheet in Excel 2007
Hello, I am trying to generate a large Excel spreadsheet apprx. 10000 rows and 40 columns. I am generating defined name section in the Workbook.xml part of the XLSM package. Here is a sample entry from that section <definedName name="_._44802_._0_._0_._0_._top_line" localSheetId="0" hidden="1">Sheet1!$B$2</definedName> Although the generation goes fine, I can not open the spreadsheet as the Excel throws an error message saying the package is corrupt. But this is not the case if the spreadsheet is small say, 200 rows by 10 columns. ...

I need to print a word in PDF from excel.
Hi, In my excel Macro, I update several values and then open a word linked with that excel. Finally what I need to do is to print that word to PDF. I already have a PDF Printer, so I just need the code to do it. Can anybody help me? Thanks in advance. Gast=F3n. Habilita la impresora predeterminada como la PDF y ya lo puedes imprimir a al formato deseado Gracias Francisco,=20 Tienes alg=FAn codigo para ello? gracias Repitiendo: Desde el panel de impresoras asigno primero la que me interesa y despues ejecuto mi macro desde el archivo excel asignando la instruccion sig: midefaultes = a...

How do I get Excell to sort dates that range from 1800 to 1900's
I have posted a cemetery survey on Excell spreadsheet. When I try to sort the birth dates or death dates in ascending or descending order the range of 1900 dates will sort but the 1800 dates fall after the 1900 and will not sort. Why? Is this inherit with this program? The WinXL default dates start with 31 December 1899, so earlier "dates" are interpreted as Text. You can use helper columns and text functions (LEFT(),RIGHT(),MID()) to put the Year, Month and Day in separate columns, then sort. Take a look here for additional workarounds: http://j-walk.com/ss/excel/files...

q Emailing Excel Sheet With Outlook
I am trying to send a table from Excel within the body of an Outlook (lastest versions) to be sent as a fax. Am able to do this, BUT when the document prints out on the fax machine the formating is off (too big for the sheet). I am flexible on changing the method I send it to the fax machine, however it must be sent to the fax via macro. Below is the code I am using. Any help would be greatly appreciated. David Public Sub DoIt() 'On Error GoTo Handler Dim EmailAddress(0 To 2) As String Dim Count As Integer Dim N As Integer Dim sRec1(0) As String Dim sRec2(0 To 1) As...

mail queues for long on Exchange 2000 server time before being sent
I have a situation where all outgoing mail sits in a queues on the Exchange 2000 server (one per domain) for about 45 minutes before being sent. The queues in question have a status of ready. There are also other queues of that are retries (mostly NDRs from junk mail). We are only a small company and the amount of mail is not great. What might Exchange be waiting for before sending this mail? Is there something I can tweak to make it send mail sooner? Thanks for any help, Angus. Angus, Where does the mail go after it leaves your Exchange server, does it go to a smarthost/isp or d...

How do I lock individuals cells within an Excel spreadsheet so th.
i am trying to lock cells that have formulas in them, but other cells in the spreadsheet need to be unlocked so the end users can enter information. Hi first select the cells for which you want to allow entries and goto 'Format - Cells - Protection' and uncheck 'Locked'. Now protect the sheet 'Tools - Protection' "ucastores" wrote: > i am trying to lock cells that have formulas in them, but other cells in the > spreadsheet need to be unlocked so the end users can enter information. ...

Any way to open an excel file directly to a worksheet?
I am building an application with an icon that launches an excel file when clicked. Is there any way I can open the file directly to a specified worksheet? The names of the worksheet are fixed and so is the file, so I am guessing adding some parameter after the filename should do the trick. Any help will be appreciated. Regards Sid -- skiddyrow ------------------------------------------------------------------------ skiddyrow's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=23965 View this thread: http://www.excelforum.com/showthread.php?threadid=386335 Hey...

How do I find the Data Analysis Plus toolpak for excel
does anyone know where I could find the data analysis plus toolpak. opher32 - > does anyone know where I could find the data analysis plus toolpak. < Start by looking on the CD that was in the back of the textbook. - Mike www.mikemiddleton.com ...

Q:Excel/ODBC/Login ....
Hi' there ! My situation is this; My customer have a hole bunch of different Excel workbooks - with VB code inside. In this VB code the user/pwd to the ODBC connection is hardcoded. This hardcoding is not approved by audit. Is there any smart way (opposed the insert a login-dialogbox in each of those workbooks) - to solve this problem? What I thought of, is to make a button on my menubar to etablish the ODBC connection and regardless of wich workbook I open - hold this connection open. But somethins tells me, that the code should beplaced in a workbook - and not directly in Excel...

how to auto arrange in alphabetical order-excel sheet
how to auto arrange in alphabetical order-excel sheet after typing names in random? Let's say we are entering data in column A and we want to alphbetize the column as entries are made. Try the following macro: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub End If Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub This goes in worksheet code: 1. right-c...

Embed Excel with form
Is it possible to show an excel spreadsheet within a form? Have it interactive where the user can scroll...? QB On Fri, 28 May 2010 02:58:01 -0700, QB <QB@discussions.microsoft.com> wrote: Yes. You can use the Unbound Object Control to do that. It can be a bit tricky to work with. You can even interact with the Excel object inside using VBA and the Excel object model. -Tom. Microsoft Access MVP >Is it possible to show an excel spreadsheet within a form? Have it >interactive where the user can scroll...? > >QB ...