tabbladen als waarde naar een nieuw bestand

[jeroenkorving]

Ik heb een excel bestand met 79 tabbladen, waarvan 77 bestaan uit verwijzingen naar de eerste 2 tabbladen. Nu wil ik dat alle tabbladen m.u.v. de eerste 2 tabbladen als waarde en met opmaak naar een nieuw bestand gekopieerd hebben.

Kan iemand mij aan een mooi macrotje helpen?

 

[Wigi]

Kan iemand mij aan een mooi macrotje helpen?

Ja, hier:

http://www.rondebruin.nl/copy6.htm

Enkel nog met een IF testen op de Index van het blad. Als dat <= 2 is, dan niets doen. Anders: verder gaan met de code zoals die er nu staat.

Wigi

 

[jeroenkorving]

Mooi bedankt Wigi!
Hier kan in denk ik wel wat mee, het is de bedoeling dat alles als waarde in één nieuw bestand komt.

Groeten,
Jeroen

 

[Wigi]

Dan zal het waarschijnlijk simpeler zijn om:

1. een SaveAs te doen van het bestand
2. 2 tabbladen verwijderen
3. alles als waarden plakken

Code voor dit alles zal je gemakkelijk op het forum vinden met de zoekfunctie.

Wigi

 

[jeroenkorving]

Bedankt, ik ben er nu helemaal uitgekomen:

Sub waarde()
    
Sub waarde()
    
'eerst plakken
    Dim ws As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
        For Each ws In ActiveWorkbook.Sheets
        ws.Cells.Copy
        ws.Cells.PasteSpecial xlValues
        ws.Activate
        Range("A1").Select
           
    Next
        On Error GoTo 0
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

'opslaan
    Dim fn As Variant
    fn = Application.GetSaveAsFilename("Map1.xls", _
        "Excel files,*.xls", 1, "Select your folder and filename")
    If TypeName(fn) = "Boolean" Then Exit Sub
    ActiveWorkbook.SaveAs fn
        
End Sub

Groeten
Jeroen