Skjule MsgBox i Excel

Prøv at vise koden her...

Sub GemFil()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim StrSaveAsName As String
Dim StrTxtMappe As String
Dim StrXlsMappe As String

' Spørger til filnavn

Dim Msg As String
Msg = "Gem i formatet Det filen skal hedde"

    StrSaveAsName = InputBox("Hvad skal filen hedde?" & vbNewLine & vbNewLine & Msg, "Navngiv filen", "Det filen skal hedde ")
   
    If StrSaveAsName = "" Then
        Exit Sub
    Else
   
'Her gemmes mappen inden der kopieres data
    ActiveWorkbook.Save
   
'Her overføres data til et nyt regneark der gemmer som en txt fil
   
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A:A,C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
   
'Her angives mapperne de to filer skal gemmes i
    StrTxtMappe = "Den mappe der gemmes i"
    StrXlsMappe = "En anden mappe jeg gemmer i"
 
'Her gemmes filen som en txt fil

  ActiveWorkbook.SaveAs Filename:=StrTxtMappe & StrSaveAsName & ".txt", FileFormat _
        :=xlTextMSDOS, local:=True, CreateBackup:=False
ActiveWorkbook.Close
 
'Her gemmes filen som xls backup
ActiveWorkbook.SaveAs Filename:=StrXlsMappe & StrSaveAsName & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

   
       
       
'Fortæller brugeren hvor filen kan findes
MsgBox "Filen ligger gemt i mappen Der hvor filen er gemt"

     
'Lukker filen igen når jeg er færdig
   
  ActiveWorkbook.Close
   

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End If

End Sub

Jeg har prøvet din kode, og der er ikke noget, der forbliver åbent hos mig. Boksene lukker efterhånden som jeg klikker OK.

Hej Jkronsr,

Tak for hjælpen

Det virker sært - kan det have noget med mine lokale indstillinger at gøre? Jeg har 3 bokse åbent forskellige steder i vinduet.

Hvordan giver jeg dig point - det er mit første spm.

Jeg havde troet at jeg kunne skrive en kode ala msgBox.hide men kan ikke få det til at virke.

Mvh

Dali

Meget sært - den gør det ikke mere - spøjst.

Tak for hjælpen til alle der har meldt sig på banen :o)

Mvh

Dali