Disable fejlmeddelser

sub

on erreor  goto Videre
Din kode
Videre:
fortsæt kode

end sub

erreor = error

jeg vil gerne se din makro, så der det nemmere.

Tak for svaret.
Men der er et lille problem. Jeg får ingen fejlmeddelelse ved første "fejlgennemløb". Men ved andet "fejlgennemløb" opstår problemet igen?

Den aktuelle kode er som følger:

ActiveSheet.Range("B2:B10000").Select
             
On Error GoTo IngenHist
Selection.Find(What:=HistID).EntireRow.Copy
               
Sheets("data").Select
ActiveSheet.[a14].Select
Selection.Paste

Du kan også vælge

On Error Resume Next

Derved fortsætter koden blot med den næste kodelinie.

ActiveSheet.Range("B2:B10000").Select
             
On Error GoTo IngenHist
Selection.Find(What:=HistId).EntireRow.Copy
               
Sheets("data").Select
ActiveSheet.[a14].Select
Selection.Paste
IngenHist:

pmp

Det er fint nok at du accepterer et svar, men du kunne jo godt lige droppe en linie om, hvad du har gjort eller hvorfor du har valgt præcist det svar. kabbak har f.eks. ydet en stor indsats, men er blevet afvist uden forklaring - det er ikke helt rimeligt. Du har selvfølgelig lov til at være uenig heri, men det er altså min mening.

Sorry,
Det er mig der har været sløv. Det jeg gjorde var blot at indsætte din foreslåde kode foran linjen: Selection.Find(What:=HistId).EntireRow.Copy. Hvorfor jeg ikke fik kabbak´s foreslåede kode at fungere ved jeg ikke. Jeg havde skrevet "IngenHist:" (det var dette kabbak pegede på at jeg manglede i sit sidste svar) i min kode selvom dette ikke fremgår af den kode jeg indsatte, men alligevel fungerede det ikke. Så da din foreslåede kode fungerer perfekt er det dig der får point.