About Us

MWhaley

That works great, Thanks Joel

"Joel" wrote:

Try these changes. It will automatically add sheet1 and sheet2 into the
PALLET workbooks

Sub test()

Folder = "H:\Inventory Control\HDD SCRAP\HDD SCRAP FOLDER 2009\" & _
"Shipped Pallets\2nd Qtr\"

Set HardDrivebk = Workbooks("Hard Drive test.xls")

FName = Dir(Folder & "*.xls")
Do While FName < ""
Set bk = Workbooks.Open(Filename:=Folder & FName)

With bk
'add sheet 1 and sheet 2 to bk
Set NewSht1 = .Sheets.Add(befo=Sheets(1))
NewSht1.Name = "Sheet1"
Set NewSht2 = .Sheets.Add(after:=Sheets(1))
NewSht2.Name = "Sheet2"

.Sheets("W.Digital Pallet 5").Select
Application.Run "'Hard Drive test.xls'!Macro3"

With bk.Sheets("Sheet1")
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
Set CopyRange = .Range("A1:D" & LastRow)
End With

With HardDrivebk.Sheets("Sheet1")
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
NewRow = LastRow + 1
CopyRange.Copy Destination:=.Range("A" & NewRow)
End With
.Close savechanges:=False
End With
FName = Dir()
Loop
End Sub

"MWhaley" wrote:

If you would look at my post down below, it's titled Need Macro Help please.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro recorded... tabs & file names changed, macro hangs	Steve	Excel Worksheet Functions	3	October 30th 09 11:41 AM
Macro to copy and paste values (columns)I have a macro file built	C02C04	Excel Programming	2	May 2nd 08 01:51 PM
how to count/sum by function/macro to get the number of record to do copy/paste in macro	tango	Excel Programming	1	October 15th 04 01:16 PM
macro to delete entire rows when column A is blank ...a quick macro	vikram	Excel Programming	4	May 3rd 04 08:45 PM
Start Macro / Stop Macro / Restart Macro	Pete[_13_]	Excel Programming	2	November 21st 03 05:04 PM

Menu

About Us