| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Better way to write this
without actually having to select a sheet?
Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy Workbooks.Add ActiveSheet.Select Selection.PasteSpecial Paste:=xlPasteValues |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Better way to write this
Steph
Just change it to Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy Workbooks.Add activeworkbook.WorkSheets(1).Range("A1").PasteSpec ial Paste:=xlPasteValues Alok Joshi "Steph" wrote: without actually having to select a sheet? Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy Workbooks.Add ActiveSheet.Select Selection.PasteSpecial Paste:=xlPasteValues |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Better way to write this
One way:
With Sheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row) Workbooks.Add.Sheets(1).Range("A1").Resize( _ .Rows.Count, .Columns.Count).Value = .Value End With In article , "Steph" wrote: Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy Workbooks.Add ActiveSheet.Select Selection.PasteSpecial Paste:=xlPasteValues |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how to write value | Excel Discussion (Misc queries) | |||
| how to write ‘ | Excel Discussion (Misc queries) | |||
| Write to csv | Excel Discussion (Misc queries) | |||
| How do I write X^2? | New Users to Excel | |||
| is it possible to execute write to the fields in another .xsl form a macro in another .xsl? e.g. some way to load another .xsl into an .xsl macro and write to its data? | Excel Worksheet Functions | |||
![Steph[_3_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
