Code Help - Automation

[Joneye]

I have a work book with many tabs, I wish just for one tab to be exported with the data to a Named folder.

Also this process will take place a few times a week so if the above is possible the exported work book must not conflict with the last.

Is this possible?

 

[Joneye]

many thanks,

I have a minor hitch, Possible me - "Debug" and the error points to the below.

I have put this all in one module is that correct?


Sub SaveSheet()
Dim ws As Worksheet
Sheets(Array("1.1 houses", "4. commercial")).Copy
For Each ws In ActiveWorkbook With ws.UsedRange
.Value = .Value
End With
Next ws
With ActiveWorkbook
.SaveAs Filename:="C:\Documents and Settings\REMOVED\Desktop\TEST\Copy " & Format(Now, "ddmmyyyy hhmmss") & ".xls"
.Close
End With
End Sub

 

[VoG]

Oops!

Sub SaveSheet()
Dim ws As Worksheet
Sheets(Array("Sheet1", "Sheet2")).Copy
For Each ws In ActiveWorkbook.Worksheets
    With ws.UsedRange
        .Value = .Value
    End With
Next ws
With ActiveWorkbook
    .SaveAs Filename:="C:\test\Copy " & Format(Now, "ddmmyyyy hhmmss") & ".xls"
    .Close
End With
End Sub

 

[Joneye]

JUST AMAZING - thank you.

VOG were can I learn a simple start in to actions within VBA like an IDTIOTS guide

 

[VoG]

Take a look at Hiker's List http://www.mrexcel.com/forum/showpost.php?p=2676997&postcount=5

 

[Joneye]

VOG - again brilliant.

Many thanks for all your help today.