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
Jyske Bank er rykket ind i Glaskuben på Kalvebod Brygge, et markant byggeri i hjertet af København. Knap 1.000 arbejder her, heraf 200 i IT, med nye rammer for samarbejde, innovation og udvikling.
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.
