14. december 2007 - 11:50Der er
4 kommentarer og 1 løsning
Gem og luk funktion i VBA (Igen)
Jeg bruger nedenstående i et Excell ark, og vil gerne have lavet den om, så den kun lukker det aktive ark når man gemmer.
Private Sub CommandButton2_Click() If [Ark1!c28] = "" Then Navn = [Ark1!c10] Else Navn = [Ark1!c28] If [Ark1!c28] = "" Then drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" Else drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" If MsgBox("Projektmappen gemmes som : " & drev & Navn & ".xls er det ok ?", vbYesNo) = vbYes Then ThisWorkbook.SaveAs drev & Navn & ".xls" If Sheets("Ark1").Range("G8") <> "" Then Kill "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("G8") & "\" & Sheets("Ark1").Range("G18") & ".xls" Application.Quit End End Sub
Private Sub CommandButton2_Click() If [Ark1!c28] = "" Then Navn = [Ark1!c10] Else Navn = [Ark1!c28] If [Ark1!c28] = "" Then drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" Else drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" If MsgBox("Projektmappen gemmes som : " & drev & Navn & ".xls er det ok ?", vbYesNo) = vbYes Then ThisWorkbook.SaveAs drev & Navn & ".xls" If Sheets("Ark1").Range("G8") <> "" Then Kill "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("G8") & "\" & Sheets("Ark1").Range("G18") & ".xls" Application.Quit Else: Exit Sub End End Sub
Den første virker tilsyneladende efter hensigten, da den jo først lukker når der er sagt OK til at den skal gemme. Lægger du lige et svar på den? Og tusind tak for hjælpen.
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.
