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
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
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 08:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
08/1116:24 Google driller på MS Edge Af ErikHg i Browsere
08/1115:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
White papers
Flere white papers »