macro opslaan als

[taeser]

hoi,

D.m.v. een macro wil ik een exelblad opslaan.
De waarde in 2 cellen moet de bestaansnaam worden.
Vb. in cel E10 staat "firma" en in cel H14 staat "200703" dan moet de bestandsnaam worden;
firma200703.
Via de zoekfunctie hier heb ik het wel voor 1 cel gevonden maar voor 2 cellen kom ik er niet uit.

gr leon

 

[Withaar]

Sub Savefile()
ActiveWorkbook.SaveAs Filename:=Range("E10").Value & Range("H14").Value
End Sub

 

[taeser]

Hoi withaar,

Alvast bedankt voor het meedenken.
Mijn kennis van vba reikt niet zover dat ik je antwoord weet te plaatsen.
Zou je mischien iets beter kunnen uitleggen waar ik die code moet zetten.

De code die ik nu heb voor 1 cel staat onder module 2 (macroknop) en ziet er zo uit:

Sub opslaan()
ThisWorkbook.SaveAs Filename:="C:\Excelbestand - " & Worksheets("factuur").Range("E15").Value & ".xls"
End Sub

Dit werkt prima, nu nog voor 2 cellen.

gr leon

 

[Withaar]

Sub opslaan()
ThisWorkbook.SaveAs Filename:="C:\Excelbestand - " & Worksheets("factuur").Range("E15").Value & ".xls"
End Sub

Vervangen door:

Sub opslaan()
ThisWorkbook.SaveAs Filename:="C:\Excelbestand - " & Worksheets("factuur").Range("E10").Value & Range("H14").Value & ".xls"
End Sub

 

[taeser]

Dit is helemaal top :thumb:

Bedankt withaar !!

gr leon