Datalogger Auto Opslaan met uniek nummer

[HaBro]

Hallo Helpers

Zit even vast
ik heb een datalogger gemaakt in Excel
de data komt binnen via de seriele poort
en vult elke sec. een rij met 8 kolommen
het kan dan wel eens voor komen dat het werkblad vol loopt
nu wil ik dat als rij 65000 geschreven wordt er automatische gesaved wordt
na safe wordt de data gedelete en de data logger kan weer dagen vooruit
ik heb dit ervan gemaakt

If LaatsteRegel 65000 then gosub OpNieuw

OpNieuw:
Dim NaamMeting As String

'om er zeker van te zijn dat de file een unieke naam krijgt gebruik ik de datum plus tijd (=naammeting)
NaamMeting = Day(Now) & Month(Now) & Year(Now) & Hour(Now) & Minute(Now) & ".XLS"

    ActiveWorkbook.SaveAs Filename:=
        "C:\Data\NaamMeting.xls"
        
Range("A4:L65536").Select
    Selection.ClearContents
    Range("A4").Select
    
LaatsteRegel = 3

Return

Maar dit werkt niet
Wie heeft voormij de oplossing

Mvg
Habro

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  if target.row =65000 then 
    Thisworkbook.saveas "C:\" & format(date,"yyyymmyy[COLOR="red"]"[/COLOR]) & timer & ".xls[COLOR="Red"]"[/COLOR]
    Activesheet.usedrange.clearcontents
  end if
End Sub

 

[HaBro]

Hartelijk dank voor de snelle reaktie

Het kan ook altijd korter en duidelijker
ik heb dit stukje meteen geprobeert maar helaas geeft ie een syntaxisfout bij
Thisworkbook.savaes enz.
hoop nog te horen van u

Habro

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 65000 Then
    ThisWorkbook.SaveAs "C:\Data\" & Format(Date, "ddmmyyyy") & Format(Time, "hhmm") & ".xls"
    ActiveSheet.UsedRange.ClearContents
  End If
End Sub

Mvg

Rudi

 

[snb]

Er moet voor de vragensteller nog iets op te lossen overblijven, toch ?
Vorige suggestie aangepast met gemarkeerde wijzigingen.

 

[HaBro]

Geweldig Bedankt Snb en Warme bakkertje

Het werkt perfect
en precies zoals ik het wil
zo wordt de data logger steeds perfecter

Mvg Habro