Bestand opslaan met gegevens uit 2 cellen i.p.v. 1 cel (Macro)

[josdebrouwer]

Wie kan mw helpen?

Lijk zo makkelijk maar het lukt me niet.

Deze heb ik gevonden, maar is alleen uit cel A1

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub


A1 staat een datum 2016-01-10
B2 staat een Naam

Opslaan als 2016-01-10 Naam

Alvast bedankt

 

[edmoor]

Zoiets:
ThisFile = Range("A1").Value & " " & Range("B2").Value

 

[HSV]

Als je het bestand bedoelt waar ook de code zich in bevindt, dan kan je beter 'thisworkbook' gebruiken ipv 'activeworkbook'.
Ook zou het dan als macrobestand opgeslagen moeten worden (is de 52 in de code).

Public Sub SaveAsA1()
    ThisWorkbook.SaveAs sheets(1).range("a1") & "_" & sheets(1).range("b2"),52
 End Sub

 

[josdebrouwer]

Jullie zijn geweldig, dank je allemaal