Prev: Hiding/Unhiding Rows Automatically
Next: List of Contents by Criteria
From: Donna on 23 Feb 2010 18:42
Could you possibly have a solution for me. My information is downloaded into
excel. When it does it gives the workbook a number as the name of the
worksheet. I run a macro and that's no problem, but I wanting to use an
additional macro that will add additional worksheets and do other
calculations. When I try to add the additional worksheets or reference the
numbered worksheet, it won't do it because of the unique number is assigns
each time I download the report. Donna Hauff
From: Dave Peterson on 23 Feb 2010 19:35
If your running the code with that workbook activated and the single worksheet
as the activesheet, you could use:

Dim wkbk as workbook
dim wks as worksheet

set wkbk = activeworkbook 'or workbooks("somenamehere") if you know the name

set wks = activesheet
or just use the first (and only) worksheet in that workbook
set wks = wkbk.worksheets(1)

Then you can add new worksheets to that workbook and use the data from the
original worksheet (say):

Dim wkbk as workbook
dim wks as worksheet
dim newSht as worksheet
set wkbk = activeworkbook 'or workbooks("somenamehere") if you know the name
set wks = wkbk.worksheets(1)
set newsht = wkbk.worksheets.add

newsht.range("A1").value = wks.range("x99").value 'or whatever

Donna wrote:
>
> Could you possibly have a solution for me. My information is downloaded into
> excel. When it does it gives the workbook a number as the name of the
> worksheet. I run a macro and that's no problem, but I wanting to use an
> additional macro that will add additional worksheets and do other
> calculations. When I try to add the additional worksheets or reference the
> numbered worksheet, it won't do it because of the unique number is assigns
> each time I download the report. Donna Hauff

--

Dave Peterson
 | 
Pages: 1
Prev: Hiding/Unhiding Rows Automatically
Next: List of Contents by Criteria