Avatar billede h_s Forsker
10. november 2004 - 09:23 Der er 2 kommentarer og
1 løsning

Ændring i makro

Jeg har følgende makro:

Private Sub cmdGemSom_Click()
FilNavn = "S:\Bruger\konsulenter\betalingstjek\" & Worksheets("Kundeoplysninger").Range("C6") & "-" & Format(Now(), "yy")
ActiveWorkbook.SaveAs Filename:=FilNavn, FileFormat:=xlNormal
End Sub

Jeg vil gerne have tilføjet, at hvis C6 er tom, skal der komme en advarsel og man skal ikke have mulighed for at gemme filen.

Hvem kan hjælpe med det?
Avatar billede supertekst Ekspert
10. november 2004 - 09:33 #1
Private Sub cmdGemSom_Click()
Dim x As Range

  Set x = Range("C6")
  If x = "" Then
      MsgBox ("Meddelelse!!")
  Else
        FilNavn = "S:\Bruger\konsulenter\betalingstjek\"& Worksheets
          ("Kundeoplysninger").Range("C6") & "-" & Format(Now(), "yy")
        ActiveWorkbook.SaveAs FileName:=FilNavn, FileFormat:=xlNormal
  End If
End Sub
Avatar billede h_s Forsker
10. november 2004 - 10:20 #2
Tak - lig lige et svar!
Avatar billede supertekst Ekspert
10. november 2004 - 10:24 #3
Selv tak...

MVH
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