In order for you to be able to put the page number on each page, I guessing
that would mean there are set cells reserved for the page number... what are
those cell addresses?
Rick
"S N" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> actually i am using the value in a cell in the table.
> hence i cant use header and footer.
> i want to have a function for getting the value.
> please help.
>
>
> "Jean-Yves TFELT" <noSpam@I_Hate_Spam> wrote in message
> news:(E-Mail Removed)...
>> Hi,
>>
>>
>> Cant you just use the Header or the Footer section where excel can give
>> you that automatically ?
>>
>> Regards
>> Jean-Yves
>>
>> "S N" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> and i dont want to copy the function or code on all worksheets in my
>>> workbooks. i would like to use something like code in a module file.
>>>
>>> i would like to have a general code which i can use in all worksheets of
>>> my workbooks
>>>
>>> please help.
>>>
>>> "Rick Rothstein (MVP - VB)" <(E-Mail Removed)> wrote
>>> in message news:(E-Mail Removed)...
>>>>I am reading your question differently than Nate did... it looks to me
>>>>like you want to know how many pages it will take to print out the
>>>>worksheet itself (not how many worksheets are in the workbook). If I am
>>>>right, copy/paste the following code into the code window for the
>>>>worksheet you want this functionality on (right click the worksheet's
>>>>tab and select View Code from the popup menu that appears)....
>>>>
>>>> Private Sub Worksheet_Change(ByVal Target As Range)
>>>> On Error GoTo Whoops
>>>> Application.EnableEvents = False
>>>> Range("A1").Value = ExecuteExcel4Macro("GET.DOCUMENT(50)")
>>>> Whoops:
>>>> Application.EnableEvents = True
>>>> End Sub
>>>>
>>>> Rick
>>>>
>>>>
>>>> "NateBuckley" <(E-Mail Removed)> wrote in message
>>>> news:F0A18399-21EB-4124-A69E-(E-Mail Removed)...
>>>>> Hello I hope this helps, go to the code in ThisWorkBook.
>>>>>
>>>>> You can do this by pushing ALT+F11 then right clicking on
>>>>> "ThisWorkBook" on
>>>>> the left, and left clicking on view code.
>>>>>
>>>>> Then paste in the following
>>>>>
>>>>> Private Sub Workbook_Open()
>>>>> Sheets("NameOfSheet").Cells(1, 1).Value = Worksheets.Count
>>>>> End Sub
>>>>>
>>>>> When the worksheet opens it'll count the number of worksheets and put
>>>>> this
>>>>> value in a specified cell. So in this case if you had a sheet named
>>>>> NameOfSheet it would put a number in Row 1, Column A.
>>>>>
>>>>> Hope this helped.
>>>>>
>>>>> "msnews" wrote:
>>>>>
>>>>>> i want to insert the count of total number of pages of a worksheet in
>>>>>> a cell
>>>>>> of the same worksheet.
>>>>>> this should be done automatically using worksheet formula or visual
>>>>>> basic
>>>>>> code or macro.
>>>>>> please help
>>>>>>
>>>>>>
>>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
|
Similar Threads
