Hi Norman,
Based on your mail i viewed the site mentioned by you.
I tried to copy this code and tried to run it.
Sub Test1()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Delete the sheet "MergeSheet" if it exist
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.Worksheets("MergeSheet").Delete
On Error GoTo 0
Application.DisplayAlerts = True
'Add a worksheet with the name "MergeSheet"
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "MergeSheet"
'loop through all worksheets and copy the data to the DestSh
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> DestSh.Name Then
Last = LastRow(DestSh)
'This example copies everything, if you only want to copy
'values/formats look at the example below this macro
sh.Range("A1:l1").Copy DestSh.Cells(Last + 1, "A")
'This will copy the sheet name in the H column if you want
DestSh.Cells(Last + 1, "H").Value = sh.Name
End If
Next
Application.Goto DestSh.Cells(1)
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
But it showing me error as Compiler Error: Sub or Function not
Defined.
Last = LastRow(DestSh)
What should i do in this regards.
Awaiting for a resolution from your end.
Thanks
Akash
On May 10, 12:58 pm, "Norman Jones" <normanjo...@whereforartthou.com>
wrote:
> HiAkash,
>
> Like Nick I have a problem understanding the
> significance of your TextBox controls. Presumably,
> others experienced similar difficulty because your
> original post from 2 days ago does not appear to
> have received any response.
>
> To create a summary sheet containing the data from
> the 100 sheets, see Ron de Bruin's sample code at:
>
> Merge cells from all or some worksheets into one Master sheet
> http://www.rondebruin.nl/copy2.htm
>
> ---
> Regards,
> Norman
>
> "Akash" <maheshwari.ak...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > Hi
>
> > I have a Worksheet with 100 Sheets
>
> > All the Sheet is named as 1,2,3,4,5,6,7,8,9,10......100
>
> > All the Sheets is having same format.
>
> > All the Sheets i have Two Columns
>
> > B & D
> > Column B Labels
> > Column D Text Box
>
> > In Each Sheet we have 24 Labels & 24 Text Boxes (Column C = Labels &
> > Column D = Keying area)
>
> > Now I want is to develop a macro through which i can accumulate
> > data in one sheet named as Summary.
>
> > Which shows data as
>
> > Form No| Client Name / Company| Location | Version
>
> > 1 XYZ ABC India 1.1
> > 2 WXY DEF USA 1.2
> > 3 ZWX GHI Canada 1.3
>
> > I want to accumulate all the data of Sheet 1 to Sheet 100 present in
> > the entire
> > worksheet into a new Sheet Summary in the same workbook.
>
> > How to do that. I am in desperate need of this. awaiting for a
> > solution to this problem.
>
> > Thanks
>
> >Akash- Hide quoted text -
>
> - Show quoted text -
Similar Threads
