• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Code loopt vast bij invoegen van een lege regel

Status
Niet open voor verdere reacties.
C

caffie

Gebruiker
Lid geworden
2 jan 2008
Berichten
281
puntjes op de i

ik heb laatst een code via dit form gekregen
om de dat van de ene sheet naar een andere sheet te copieren
ik heb de code een beetje aangepast en deze werkt nu prima.
Maar nu krijg ik problemen met het invoegen van een lege regel in de sheet voeding dan loopt de code vast
iemand een idee

ik gebruik ook nog meerder tabbladen voor o.a. grafieken maar daar zitten geen macros in
 

Bijlagen

  • Afvallen.xlsm
    460,2 KB · Weergaven: 23
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Cells(1).CurrentRegion.Columns(1)) Is Nothing And Target.Count = 1 Then
  If Target = "x" Then
    Application.EnableEvents = False
    Cells(Target.Row, 3).Resize(, 10).Copy Sheets("eten").Cells(Rows.Count, 5).End(xlUp).Offset(1)
    Target.Value = ""
    Application.EnableEvents = True
  End If
  End If
End Sub
 
@caffie

Lees svp je persoonlijke berichten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan