Datum.

[jpvs]

In een tabel (C414) word een x gezet en in dit gebied (C4757) word deze formule gebruikt =ALS(F6="x";VANDAAG();"")
maar 's anderendaags veranderd de datum bij het openen van het bestand?

Is het mogelijk voor deze statisch te maken?





Pierre

 

[Rommyke]

Hoi Pierre ,

kijk eens of je met onderstaande link iets zijt

http://www.ozgrid.com/Excel/free-training/excel-lesson-38-basic.htm


Groetjes
Romain

 

[jpvs]

Nog wat verder gaan zoeken op de site van Ozgrid
en dit gevonden : http://www.ozgrid.com/VBA/auto-add-date.htm
wat aangepast en is dit geworden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("C4:P14")) Is Nothing Then
            With Target(44, 1)
                .Value = Date
                .EntireColumn.AutoFit
            End With
        End If
End Sub

Bedankt voor de site.

Alleen bij het verwijderen van de x in C4 tot P19 blijft de datum staan in C4757?



Pierre

 

[Wigi]

Pierre

Dit is denk ik wat je vraagt:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Target
        
        If .Cells.Count > 1 Then Exit Sub
        
        If Not Intersect(.Cells(1), Range("C4:P14")) Is Nothing Then
            
            If .Value = "x" Then
                Application.EnableEvents = False
                .Offset(43).Value = Date
                Application.EnableEvents = True
            ElseIf .Value = "" Then
                Application.EnableEvents = False
                .Offset(43).ClearContents
                Application.EnableEvents = True
            End If
            
            .EntireColumn.AutoFit
        End If
        
    End With
End Sub

Met deze regel:

If Not Intersect(Target, Range("C4:P14")) Is Nothing Then

test je of je in het juiste bereik bent, maar je test niet of een x wordt gezet of dat er niets gezet wordt.

Voorts kan je beter een constructie als deze ook gebruiken:

                Application.EnableEvents = False
                'code
                Application.EnableEvents = True

Met dit

.Value = Date

zet jij de datum in een cel, en dus wijzig je een cel, en dus wordt dezelfde macro nog eens uitgevoerd. OK, dat is niet zo heel erg want als je test of je in het juiste bereik bent, zal dat niet het geval zijn. Maar toch, beter vermijden

Wigi

 

[jpvs]

Wigi,

Werkt perfect, thanks.

Pierre