2 tabbladen opslaan

[DeArie]

Na wat proberen ben ik er wel achter gekomen dat het "afsluitprobleem" zich alleen maar voordoet als je een extra tabblad selecteert.

 

[HSV]

Probeer die blauwe regel eens.

De geselecteerde tabjes worden opgeheven.

Sub FactuurNummerEnOpslaan()
With Sheets(1)
  .Range("B10") = Format(CreateObject("scripting.filesystemobject") _
        .getfolder("C:\Users\D-post\OneDrive\Documenten\D-post\facturen\").Files.Count, "201800000") + 1
.Range("D10").Value = Date
NieuwFact = "C:\Users\D-post\OneDrive\Documenten\D-post\facturen\" & ​.Range("B10").Value & ".xlsx"
Windows(1).SelectedSheets.Copy
With ActiveWorkbook
    .Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
    .SaveAs NieuwFact, 51
    .Close
  End With
end with
[COLOR=#0000ff]thisworkbook.sheets(1).select[/COLOR]

End Sub

 

[DeArie]

Beste HSV,

Dit voorkomt wel dat hij excel afsluit en hij slaat hem ook netjes op waar ik dat wil. Allen krijg ik nu een fout melding:

Fout 1004 tijdens uitvoering
Methode select van klasse worksheet is mislukt

En als je dan foutopsporing doet geeft hij aan dat de laatst door jouw toegevoegde regel de fout veroorzaakt....

Wat ik zelf dan weer vreemd vind doordat hij wel alles netjes opslaat

 

[HSV]

En met..

sheets(1).select

..?

 

[DeArie]

Dat was hem Thnx perfect!