| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using "i" in File Names
I would like to fully automate copying the data from a few Excel file and pasting the data from each onto separate sheets on one file. would like to do it from 1-30per. I have no idea how to do it, but thi is my attempt that is doomed to fail: Do While Rng <= 30 For i = 1 To Rng Windows(out13_T300K_Rngper2000).Activate Columns("A:B").Select Selection.Copy Application.WindowState = xlMinimized Windows(out13_iper2000).Activate sheets.Add ActiveSheet.Paste ActiveSheet.Name = "300" Windows(out13_T600K_Rngper2000).Activate Columns("A:B").Select Selection.Copy Application.WindowState = xlMinimized Windows(out13_iper2000).Activate sheets.Add ActiveSheet.Paste ActiveSheet.Name = "600" Windows(out13_T900K_Rngper2000).Activate Columns("A:B").Select Selection.Copy Application.WindowState = xlMinimized Windows(out13_iper2000).Activate sheets.Add ActiveSheet.Paste ActiveSheet.Name = "900" Call Grapher Next i Loo -- Loss ----------------------------------------------------------------------- Losse's Profile: http://www.excelforum.com/member.php...fo&userid=2481 View this thread: http://www.excelforum.com/showthread.php?threadid=38802 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete emty file names from "recent documents" Excel | Excel Discussion (Misc queries) | |||
| Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
| Lost "File Menu" - now it's "Edit / View / Insert.." but no "F | Excel Discussion (Misc queries) | |||
| Backup to specific folder if workbook names begins with "NSR" or "MAC" | Excel Programming | |||
| Problem- Recording macros for "file save" and "File open" | Excel Programming | |||
![Losse[_24_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
