Automatisch cel aanpassen en automaisch opslaan

[JulesMenso]

Mijn bedoeling is dat door een sneltoets, bij de bestaande waarde van cel D1, één wordt opgeteld (D1+1) en dat het bestand dan wordt opgeslagen onder de naam van cel D1.

Alvast bedankt

 

[HSV]

Open de macrorecorder.
Daar kun je in het invulscherm bij Ctrl + .... een d invullen.
Doe iets in het werkblad en stop de recorder.
Nu staat er iets in Module1 achter de sneltoetsen Alt+F11 (VB-editor).

Wis alles behalve de groen tekst 'CTRL+d.
Zet daarna onderstaande code in de module.

Sub Macro1()
' [COLOR="green"]Sneltoets: CTRL+d[/COLOR] 
With Sheets("Blad1")
  .Range("D1") = .Range("D1") + 1
    End With
    With ActiveWorkbook
    .SaveAs Range("D1").Value
    .Close
    End With
End Sub

 

[JulesMenso]

Bedankt!

ga ik nog even verder.
kan ik hierin ook al de map waarin het document moet worden opgeslagen toewijzen?

 

[HSV]

Zet daarna onderstaande code in de module.

Sub Macro1()
' [COLOR="green"]Sneltoets: CTRL+d[/COLOR] 
With Sheets("Blad1")
  .Range("D1") = .Range("D1") + 1
    End With
    With ActiveWorkbook
    .SaveAs  Filename:= _
        "D:\Mijn Documenten\JulesMenso\" & Range("D1").Value & ".xls"
    .Close
    End With
End Sub

 

[JulesMenso]

Prachtig!

ik heb de .Close er nog uitgehaald zodat ik lange reeksen kan gaan opslaan!

Mijn dank is groot