any other code ?? excep this one
For Each rngarea In .SpecialCells(xlCellTypeVisible).Areas
lcount = lcount + rngarea.Rows.Count
Next
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of t
Try This:
Sub CopyRename()
Dim sName As String
Dim wks As Worksheet
'Worksheets("Master").Copy after:=Sheets(Worksheets.Count)
ActiveSheet.Copy after:=Sheets(Worksheets.Count)
Set wks = ActiveSheet
sName = Application.InputBox _
(Prompt:="Enter new worksheet name"
Thank you so much Vabz, that is just what i was looking for. I really
appreciate you help.
On Thursday, March 19, 2015 at 1:30:02 AM UTC-7, Vabz wrote:
>
> Try This:
>
> Sub CopyRename()
> Dim sName As String
> Dim wks As Worksheet
> 'Worksheets("Master").Copy after:=Sheets(Worksheets
Hi guys.
I have a sheet where I have couple of pivot tables.. So I want a macro,
where I can get access of entire sheet except pivot table data.. Pivot
table data should be locked and if i create another pivot table in the same
sheet. it should also be locked next time. So i can only use rest of t
Great Cheers!!
On Thu, Mar 19, 2015, 7:34 PM Stephen E. Hale
wrote:
> Thank you so much Vabz, that is just what i was looking for. I really
> appreciate you help.
>
> On Thursday, March 19, 2015 at 1:30:02 AM UTC-7, Vabz wrote:
>
>> Try This:
>>
>> Sub CopyRename()
>> Dim sName As String
>>
Vaibhav Bhai, Sheet is working perfect. Great work!!
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poo
show me your example of your pivot sheet,Master sheet as per your need and
the name of master file where you need to append the data. will automate
the same.
I can do it for you.Master file should be placed in any folder, and data
will be updated into that sheet with refreshing the pivot on us