Werkblad: Alles selecteren (dit is klikken in de hoek tussen 1 en A), Kopiëren, Nieuw document openen, en Plakken.

Zo doe ik het altijd...

SoftAid        

Natuurlijk kan je dit in een macro steken, je zou dit zelf kunnen doen door de macrorecorder te gebruiken.


Je krijgt dan een macro die er ongeveer zo uit ziet:

---

Sub Macro1()

Cells.Select
Range("A1517").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\Flupke\Bureaublad"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Flupke\Bureaublad\map.xls

End Sub

---

Deze macro kan je nu toewijzen aan een nieuwe knop die je invoegt in je knoppenbalk.

SoftAid        

Flupke, De methode die ik nog wel 'ns gebruik, is die via de tab van de worksheet. Als je deze aanklikt met je rechtermuisknop verschijnt er een menu-tje. Kies in dit menu voor Move or Copy (verplaats of copieeer?). In het venster dat dan komt klik je het pulldownmenu open. Kies hier voor New Book (nieuwe map?). klik onderaan het venster het selectievinkje aan waardoor er een copie gemaakt wordt ipv een verplaatsing. En bevestig dit geheel door op OK te klikken.
Je sheet wordt dan netjes in een nieuw workbook geplaatst. (zie screenshots voor stapjes)

Als je het persé in code wilt vatten is dit kleine regeltje voldoende....Sub Test()

    ActiveSheet.Copy

End Sub
Dit zorgt ervoor dat het nieuwe workbook wordt toegevoegd en je sheet daarin wordt geplaatst. Je kan dan eventueel nog een save as toevoegen en een .close om de boel geruisloos te laten sluiten.

Groet, Leo

SoftAid, sorry... ik had jouw reacties nog niet gezien... Maar ik vind het toch zonde om niet het mijne óók te plaatsen...

Dit stukje code handelt alles af. Sub Test()
Dim sBestandsnaam As String
Dim sPadnaam As String

sBestandsnaam = Range("A1").Value & "-" & Format(Date, "dd-mm-yyyy") & ".xls"
sPadnaam = "D:\Oplossing.BE\"

    If Not (Right(sPadnaam, 1)) = "\" Then
        MsgBox "De padnaam wordt niet afgesloten met een backslash (\)" & Chr(13) & Chr(13) & _
                "Herstel dit...!", vbOKOnly, "Fout"
        Exit Sub
    End If

    ActiveSheet.Copy
    ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
    ActiveWorkbook.Close

End Sub
Er zit 1 test in die kijkt of je het pad goed hebt afgesloten met een backslash (\). Als dit namelijk verkeerd staat, knalt je code...
Ik heb er voor het gemak ff voor gekozen dat de naam van de persoon van de offerte in cel A1 staat. Deze naam wordt dan samen met de huidige datum als bestandsnaam gebruikt. Als de bestandsnaam NIET bestaat zal je van het hele proces niets merken. Als tie WEL bestaat krijg je de vraag of die overschreven moet worden. Ik heb er dus bewust gekozen om niet de Alerts uit te zetten....
Zet 'm in een module van je offerte workbook en koppel er eventueel een sneltoets aan (iets van Ctrl+R ofzo...). Een knop OP je worksheet wordt namelijk mee gecopieerd!!!

Groet, Leo

SoftAid, doe 'ns ff niet zo MIN over jezelf! Nergens voor nodig hoor!!! Je oplossingen zijn prima, maar soms kan het mooier...

In jouw code zou ik 't een en ander omdraaien.

---

ActiveSheet.Copy
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=(a & b & ".xls")
ActiveSheet.Paste
ActiveWorkbook.Save

---

Dus regel 3 en regel 4 omruilen. Hierdoor kan regel 5 (de 2e save) vervallen.
Het wordt dan....Sub Macro2()

Dim iA As Integer
Dim sB As String

iA = Range("A1").Value
sB = Range("B1").Value
ActiveSheet.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=iA & sB & ".xls"

End Sub

Ik krijg wel een foutmelding "Typen komen niet overeen" maar daar weet Leo wel raad mee 

Ja hoorrrr....
Je declareert de inhoud van cel B1 als een Integer. Als dit een 'naam' is, zal je dit als String moeten doen. Ik ben er trouwens ook voorstander voor om een offertenummer als String te declareren. Je hebt dan de mogelijkheid om met letters te werken. Bovendien is 1 van de regeltjes in Database-land om alléén cijfers waarmee je moet rekenen te tonen als getalwaarde (dus integer, double, single, enzovoorts). Cijfers van een telefoonnummer zal je nooit optellen, dus daar maak je een Stringwaarde van....

Groet, Leo

Flupke, niet schrikken van een stukje code... Als je problemen hebt met het plaatsen van de code (de mijne of die van SoftAid) in een VBA-module, moet je maar een gil geven....

Groet, Leo

Erik, Wat JIJ nu schrijft, zat ik te bedenken toen ik Flupke's antwoord aan het doorsturen was. Toch grappig dat goede ideeën vaak op 2 plekken tegelijk ontstaan...
We hebben voor belangrijke 'weetjes' een sticky topic aan het begin van deze sectie.
Ik zal een stappenplannetje ' Plaatsen code in VBA-module' doorsturen naar de moderator SoftAid (hij kan ze plaatsen).

Voor wat betreft een 'off topic babbelhoekje'... Ik geloof niet dat dat bestaat...

EDIT: Ja, het bestaat wel. Kijk hier...

Groet, Leo