dtum verplaatsn met vba

[Roma]

Beste specialisten,

Ik heb op het forum een VBA applicatie gevonden om cellen te verplaatsen naar een ander werkblad.
Nu krijg ik elke keer een foutmelding van: typen komen niet met elkaar overeen.
Ik kan niet vinden wat ik fout heb gedaan. (zie bijlage)

Wie kan mij helpen
Alvast bedankt.

Ron

 

[Cobbe]

Zou het zo opgelost zijn?

 

[Roma]

Cobbe,
Bedankt voor je snelle reactie. Maar Helaas het werk nog niet. Als ik velden toevoeg loopt het helemaal vast.

 

[Cobbe]

Dan doe je toch iets niet goed.
Ik kan daar niks mee ' Het loopt helemaal vast'
Wat doe je en wat gebeurt er?

 

[Roma]

ik wil namen toevoegen op regel 16 etc. en dat lukt niet. daarna kan ik niets meer doen en moet ik de computer opnieuw opstarten.

 

[Cobbe]

Zou het bestand corrupt zijn?

Heb een xl2000-versie toegevoegd.

 

[Roma]

Cobbe bedankt het werkt super.
nog en vraag als dat mag. als kolom A niet is ingevuld gaat deze ook weg en dat is niet de bedoeling. kan je dit ook voor mij verhelpen.
alvast bedankt.

Ron

 

[Cobbe]

Vervang de code eens door deze:

'' regels verplaatsen met datum
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Oeps
Application.EnableEvents = False
  Rij = Target.Row
   If Target.Column = 10 And CDate(Target) <= CDate(Date) Then
     Rows(Target.Row).Cut Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
      Rows(Rij).EntireRow.Delete
   End If
Oeps:
Application.EnableEvents = True
End Sub

 

[Roma]

Cobbe,
Je zie het ik heb de ballen verstand van VBA. Dankzij jou heb ik weer een hoop geleerd. Dank voor je moeite.
Als laatste:Hij overschrijft wel de regel op blad 2 kan je dat ook nog oplossen voor mij.
Bedankt

 

[Cobbe]

Ik kan dat niet reproduceren.
Hoe en waarom zou regel2 worden overschreven.
De code telt het aantal regels in gebruik en doet daar 1 bij (Offset(1))
Heb je op blad 2 een rij met titels?

 

[Roma]

Ik heb inderdaad een rij met titels.

 

[Cobbe]

Ben je zeker dat deze regel compleet in je code staat:

Rows(Target.Row).Cut Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)

en dan speciaal het laatste gedeelte offset(1)

zet eens een spatie (of iets anders) in A2, de code telt nl het aantal gebruikte rijen in kolom A.

 

[Roma]

Cobbe,
Bedankt voor de tip. Kolom A was inderdaad niet ingevuld en dat was mijn fout.
Nogmaals bedankt voor al je inzet.
Ron