It worked perfectly :), 1000 thanks Mahesh
2011/6/1 Mahesh parab <mahes...@gmail.com>
> Hi
>
> Try :
>
> Sub Test()
> Dim ws As Worksheet
> Sheets("Brands").Select
> Sheets("Brands").UsedRange.Copy
> Windows("Comparsheet.xls").Activate
> For Each ws In Worksheets
> If ws.UsedRange.Cells.Count < 1 Then ws.Delete
> Next ws
> Application.DisplayAlerts = True
> Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
> 'ws.Name = ActiveSheet.Name
> With ws
> ws.Range("A1").PasteSpecial Paste:=xlPasteValues
> End With
> Application.CutCopyMode = False
> End Sub
>
>
> On Wed, Jun 1, 2011 at 3:37 PM, Jorge Marques <leote.w...@gmail.com>wrote:
>
>> Hi guys i have this macro to copy paste sheets to another sheet on another
>> workbook, can you help me?i need everytime i run the macro to paste it to
>> the next blank worksheet of the destiny workbook. 1001 thanks in advance
>>
>>
>> Sub copy_another_sheet()
>> '
>> ' copy Macro
>> '
>> ' Atalho por teclado: Ctrl+p
>> '
>>
>> Application.ScreenUpdating = False
>> Sheets("Brands").Select
>> Cells.Select
>> Selection.copy
>> Windows("Comparsheet.xlsx").Activate
>> Sheets("Sheet1").Select ------> I think i
>> have to change this but i don´t know how!
>> Cells.Select
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=False
>> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
>> SkipBlanks:=False, Transpose:=False
>> Windows("Brand.xlsx").Activate
>> Range("A1").Select
>> Application.ScreenUpdating = True
>>
>> End Sub
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
