Avatar billede vtec4ever Nybegynder
10. november 2007 - 07:49 Der er 3 kommentarer og
1 løsning

Kontrolelement med gemmefunktion.

Jeg skal have et kontrolelement ind i et regneark, som automatisk foreslår at gemme filen som indholdet af B1 hvis B2="" ellers skal den gemme som B2
Endvidere vil jeg gerne have den til at gemme på C: hvis B3=1 og på D: hvis B3=2

Nogle der kan klare den...?
Avatar billede excelent Ekspert
10. november 2007 - 09:04 #1
Private Sub CommandButton1_Click()
If [Ark1!b2] = "" Then navn = [Ark1!b1] Else navn = [Ark1!b2]
If [Ark1!b3] = 1 Then drev = "C:\" Else drev = "D:\"
ThisWorkbook.SaveAs drev & navn & ".xls"
End Sub
Avatar billede excelent Ekspert
10. november 2007 - 09:12 #2
eller

Private Sub CommandButton1_Click()
If [Ark1!b2] = "" Then navn = [Ark1!b1] Else navn = [Ark1!b2]
If [Ark1!b3] = 1 Then drev = "C:\" Else drev = "D:\"
If MsgBox("Projektmappen gemmes som :  " & drev & navn & ".xls  er det ok ?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs drev & navn & ".xls"
End If
End Sub
Avatar billede vtec4ever Nybegynder
10. november 2007 - 13:47 #3
Tusind tak....virker perfekt....lægger du lige et svar?
Avatar billede excelent Ekspert
10. november 2007 - 14:41 #4
ok velbekom
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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