Søg
Avatar billede spoi Nybegynder
08. november 2006 - 10:21 Der er 5 kommentarer og
1 løsning

makro messagebox ved fejl . Let tror jeg

Hej jeg har en del af en makro der henter data fra en anden fil og sætter dem ind felter i den fil makroen er lavet i

Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls"    ' d2 = kundenr.

    Sheets("Nyeste version").Activate
    ActiveWorkbook.Sheets("Nyeste version").Range("C21").Copy ThisWorkbook.Sheets("startside").Range("g6")
    ActiveWorkbook.Sheets("Nyeste version").Range("C22").Copy ThisWorkbook.Sheets("startside").Range("k6")
    ActiveWorkbook.Sheets("Nyeste version").Range("C11").Copy ThisWorkbook.Sheets("startside").Range("E2")
    ActiveWorkbook.Sheets("Nyeste version").Range("C16").Copy ThisWorkbook.Sheets("startside").Range("F3")
    ActiveWorkbook.Sheets("Nyeste version").Range("C17").Copy ThisWorkbook.Sheets("startside").Range("F4")
    ActiveWorkbook.Sheets("Nyeste version").Range("C19").Copy ThisWorkbook.Sheets("startside").Range("j2")    ActiveWorkbook.Sheets("Nyeste version").Range("C23").Copy ThisWorkbook.Sheets("startside").Range("M3")
    ActiveWorkbook.Sheets("Nyeste version").Range("C24").Copy ThisWorkbook.Sheets("startside").Range("M2")
    ActiveWorkbook.Sheets("Nyeste version").Range("C31")
    ActiveWorkbook.Sheets("Nyeste version").Range("C20").Copy ThisWorkbook.Sheets("startside").Range("J4") 
 
   
  ActiveWorkbook.Close savechanges:=False

I de situationer hvor der ikke forfindes en fil med det kontonummer i d2 ønsker jeg at at få en messagebox med en besked herom og så skal der ikke ske mere. Dvs hele koden ovenfor skal ikke gennemløbes.

Er der en der lige vil hjælpe mig med at sætte dette ind?

Koden kører når der trykkes på en knap.

LN
Avatar billede kabbak Professor
08. november 2006 - 12:43 #1
If Dir("H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls") = "" Then
        MsgBox (" Ingen fil")
        Exit Sub
    End If


Sæt denne kode øverst inden linien

Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls"    ' d2 = kundenr.
Avatar billede spoi Nybegynder
08. november 2006 - 14:18 #2
Perfekt tror jeg.

Læg et svar Kabbak og du skal blive belønnet ;O)


LN
Avatar billede kabbak Professor
08. november 2006 - 14:44 #3
et svar ;-))
Avatar billede spoi Nybegynder
09. november 2006 - 07:31 #4
hmmm koden ligger i knap på en uderform, der smider værdien kundenummeret over i felt d2 på mit regneark.

Er det muligt at den kan stoppe helt og blive stårnde i indtasningfeltet så den slet ikk smider værdien i $d$2
Det er mig der kun giver de halve oplysninger. Men selve koden fungerer fint nok. Men hvis kunne bremses lidt før ville det være superb


sådan ser det ud nu
ActiveWorkbook.Sheets("startside").Cells(2, 4).Value = UserForm1.TextBox2.Value 'indsætter kundenummer
        ActiveWorkbook.Sheets("startside").Cells(3, 4).Value = UserForm1.TextBox3.Value 'indsætter batchnummer
     
      ' her hentes data fra instuktioner
       
      'først tømmes celler
      Range("G6").ClearContents
      Range("k6").ClearContents
      Range("e2").ClearContents
      Range("F3").ClearContents
      Range("F4").ClearContents
      Range("J2").ClearContents
      Range("m3").ClearContents
      Range("M2").ClearContents
      Range("J3").ClearContents
      Range("J4").ClearContents
       
    If Dir("H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls") = "" Then
        MsgBox (" Ingen fil")
        Exit Sub
    End If
 
       
    Workbooks.Open Filename:="H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls"    ' d2 = kundenr.


LN
Du får point uanset!
Avatar billede kabbak Professor
09. november 2006 - 08:53 #5
ActiveWorkbook.Sheets("startside").Cells(2, 4).Value = UserForm1.TextBox2.Value 'indsætter kundenummer

If Dir("H:\Pakkeinstruktioner\instruktion\" & [d2] & ".xls") = "" Then
        MsgBox (" Ingen fil")
UserForm1.TextBox2.SetFocus
        Exit Sub
    End If
ActiveWorkbook.Sheets("startside").Cells(3, 4).Value = UserForm1.TextBox3.Value 'indsætter batchnummer


noget i denne stil
Avatar billede spoi Nybegynder
09. november 2006 - 12:09 #6
Det virker bare perfekt

Tak for hjælpen

Laila
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
White papers
Flere white papers »