SaveAs dialog + mappe og filnavn fra celle?

ChDir "C:\FAKTURA"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\FAKTURA\" & Sheets("Faktura").Range("E7") & ".xls"

Ja, det var også det, jeg troede...
Men den "bliver gul" på
    ActiveWorkbook.SaveAs Filename:= _
        "C:\FAKTURA\" & Sheets("Faktura").Range("E7") & ".xls"

Jeg har indsat koden i CmdOK_Click() proceduren lige før Unload Me

Er det forkert?

Ønskder du rent faktisk at se SaveAs dialogboksen, eller vil du bare gemme i den relevante mappe med det relevante navn?

Hov! det var rigtigt! ;-))

Jeg havde glemt at ændre Sheets("Faktura") til det rigtige navn.... (DOH!)

Mange tak, og hit med et svar, så du ka' få point ;-I)

faktisk vil jeg gerne kunne se SaveAs dialogen også...

Så prøv med

Sub mingem()
    ChDir "c:\faktura"
    Filename = Sheets("Faktura").Range("e7") & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show Filename
End Sub

og hvor skal jeg smide den procedure hen?

Jeg vil jo gerne have den til at fremkomme, når jeg har udfyldt min UserForm og klikker OK...

På klikhændelsen på din OK knap. Men så skal der kun stå

    ChDir "c:\faktura"
    Filename = Sheets("Faktura").Range("e7") & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show Filename

fedest! ;-)

;-))

beklager, kabbak... du havde fortjent point, men jkrons løber med sejren via en indenomsoverhaling... ;-)

Jeg deler gerne med kabak :) Bare sig til, så får du din del af kagen.

Måske skulle jeg oprette et nyt spørgsmål, men det er egentlig et tillægsspørgsmål, så here we go:

Min faktura med makro består af 2 ark...
Kan man gemme den udfyldte faktura som kun ét ark og UDEN makro?

nå... der kan jo ikke afsættes flere point nu...
Jeg laver et nyt spørsmål ;-)

Se mit svar i dit nye spørgsmål

hmm...
Nu forstår jeg intet...

Den skifter ikke til "C:\FAKTURA" i dialogboksen...

Min kode ser sådan ud:

ChDir "C:\FAKTURA"
    Filename = "Faktura" & Sheets("Ark1").Range("E7") & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show Filename

Og jeg har også prøvet med

    Filename = "C:\FAKTURA\" & "Faktura" & Sheets("Ark1").Range("E7") & ".xls"

uden held.... ;-(

Ok, så får duen brugerdefineret dialog.

Public Sub GemSom()
Filename = "C:\FAKTURA\" & "Faktura" & Sheets("Ark1").Range("E7") & ".xls"
fileTosave = Filename
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Faktura Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Jegk an kun sige, at det virker helt fint hols mig. Den skifter mappe, og giver det rigtige filnavn.