Avatar billede da_li Juniormester
03. februar 2009 - 14:04 Der er 4 kommentarer og
1 løsning

Skjule MsgBox i Excel

Hej med jer,


Jeg har lavet en stump vba kode hvor jeg åbner

1. En inputbox til indtastning af værdier for filnavn.
2. En Msgbox hvor jeg giver en påmindelse.
3. En besked om hvor den pågældene fil bliver gemt.

Koden fungerer fint, men jeg synes det er irriterende/forvirrende at både inputbox og begge msgbox bliver stående indtil man er færdig med makroen.

Er der nogen der ved hvordan man lukke msgbox og/eller inputbox undervejs i koden?

Tak til alle der vil tage sig tid.

Med venlig hilsen

Da_li
Avatar billede supertekst Ekspert
03. februar 2009 - 15:21 #1
Prøv at vise koden her...
Avatar billede da_li Juniormester
03. februar 2009 - 15:30 #2
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
Avatar billede jkrons Professor
03. februar 2009 - 16:52 #3
Jeg har prøvet din kode, og der er ikke noget, der forbliver åbent hos mig. Boksene lukker efterhånden som jeg klikker OK.
Avatar billede da_li Juniormester
03. februar 2009 - 19:55 #4
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
Avatar billede da_li Juniormester
04. februar 2009 - 09:05 #5
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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester