Filnavn fra celle til dialogboks Save as

Application.Dialogs(xlDialogOpen).Show range("B4").Value

Skal det sættes ind bagefter min kode? og hvad med filformatet?

Nu er jeg ikke helt klar over, hvad du er i gang med.
Din makro hedder Gem, men xlDialogOpen bruges når du vil åbne en fil (sjovt nok)

Sub Gem()
    Application.Dialogs(xlDialogOpen).Show ("<C:>:\<navn>\<navn>\<navn>\")

End Sub

Hvis du faktisk vil gemme ville jeg skrive

Sub Gem()
    Application.Dialogs(xlDialogSaveAs).Show range("B4") & ".xls"
End Sub

Og hvis du vil åbne en fil kan du bruge


Sub OpenFile()
    Application.Dialogs(xlDialogOpen).Show range("B4") & ".xls"
End Sub

Læs evt. mere her: http://www.it-fjernundervisning.dk/Excel_VBA/VBA_programmering/Arbejde_med_dokumenter.aspx

Sub Gem()
    Application.Dialogs(xlDialogSaveAs).Show range("B4") & ".xls"
End Sub

Virker ikke. Den skriver ikke noget filnavn og jeg vil også gerne have at den åbner et bestemt bibliotek.

For en god ordens skyld:

"xlDialogOpen bruges når du vil åbne en fil (sjovt nok)".....Skal vi ikke være enige om, at den fejl var lige så fæl , som den jeg lavede?
Håber vi kan hjælpe hinanden, det er meningen med sitet.

Sub Gem()
    Application.Dialogs(xlDialogSaveAs).Show "c:\" & Range("B4").Value & ".xlsx"
End Sub

Virker fint her :)

Virker også her. Hvis man skla have besked om, at der i biblioteket er en fil af samme navn - hvad gør man så?

Du kan med koden
If Dir("c:\" & Range("B4").Value & ".xlsx) <> "" Then

undersøge om filen findes i forvejen.

Tak for hjælpen - lægger du et svar?

Et mere?