Fomule voor Systeemdatum

Hdek te H · 4 jan 2009

L.s.

Ik ben beginnend Excel gebruiker
Ik ben op zoek naar een formule zie attachment

trucker10 · 4 jan 2009

Beste Hdek te H ,

Ik zie lege celle in de door opgegeven E6 ; F6 ; D6 ; C6 en je vraag komt niet overeen met wat je waarschijnlijk wil , help de mensen eens beter opweg , om voor jou een oplossing te zoeken .

Hdek te H · 4 jan 2009

trucker10 zei:
Beste Hdek te H ,

Ik zie lege celle in de door opgegeven E6 ; F6 ; D6 ; C6 en je vraag komt niet overeen met wat je waarschijnlijk wil , help de mensen eens beter opweg , om voor jou een oplossing te zoeken .

Ik weet juist niet wat ik moet invullen in die cellen
De bedoeling is: als iemand cel C4 en/of cel D4 en/of cel E4 veranderd of invult
Dat dan ook de wijzigingsdatum (Cel B4) veranderd.
En eventueel ook de naam van het systeem (de persoon welke de computer bediend)

Alvast bedankt voor de medewerking
en................. uiteraard een fantastisch Nieuwjaar gewenst.

Vriendelijke groet,

Henri

trucker10 · 4 jan 2009

Hdek te H zei:
Ik weet juist niet wat ik moet invullen in die cellen

Henri

Ik ook niet

Kijk eens of je hier niet met verder kan .

Groeten ,

Daniël

Hdek te H · 4 jan 2009

Had je er een voorbeeld bij gedaan?

of is het niet duidelijk wat ik bedoel?

trucker10 · 4 jan 2009

Hdek te H zei:
Had je er een voorbeeld bij gedaan?

of is het niet duidelijk wat ik bedoel?

Oeps ik was vergeten om de link bij te voegen http://www.helpmij.nl/forum/showthread.php?t=391770

Hdek te H · 4 jan 2009

Beste Daniël,

Sorry maar daar kom ik ook niet uit!

Ik heb nogmaals een voorbeeld toegevoegd

Wil je er a.u.b. naar kijken?

vr.gr. Henri

trucker10 · 4 jan 2009

Hdek te H zei:
Beste Daniël,

Sorry maar daar kom ik ook niet uit!

Ik heb nogmaals een voorbeeld toegevoegd

Wil je er a.u.b. naar kijken?

vr.gr. Henri

Henri , sorry dit is werk voor specialisten , niet voor mij er staan in hje voorbeeld nog een paar foutjes cel B6 zal waarschijnlijk cel C3 zijn en het systeem dat het bestand gewijzigd heeft , zal waarschijnlijk de gebruiker zijn . Ik vermoed dat je map op een server staat en dat er vanaf meerder cpu's kan gewerkt worden .
" Ik kijk soms ook al eens in de hex files of een excel bestandje is gewijzigd , maar daar ga ik ni dieper op in .

Ik kijk zeker uit naar de oplossing , maar ik kan je niet verder helpen .

Groeten ,
Daniël

Roncancio · 4 jan 2009

Zodra er een wijziging plaatsvindt in de cellen D4 of E4, wordt de datum en de naam van de gebruiker aangepast.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4:E4")) Is Nothing Then
    Range("B4").Value = Date
    Range("C4").Value = Application.UserName
End If
End Sub

Deze code zet je in de Visual Basic Editor van het werkblad.

In de link waarnaar gerefereerd werd, wordt een lijst bijgehouden van degenen die het bestand hebben geopend.
Met bovenstaande code wordt namelijk uitsluitend de laatste wijziging verwerkt en de voorafgaande overschreven.

Met vriendelijke groet,

Roncancio

trucker10 · 4 jan 2009

Ron , ik was aan het meevolgen heb je code ingevoerd :thumb: in eerste instantie kreeg ik niks

ik had nl. de cellen B4 en C4 niet leeg gemaakt .

Roncancio · 4 jan 2009

trucker10 zei:
Ron , ik was aan het meevolgen heb je code ingevoerd :thumb: in eerste instantie kreeg ik niks ik had nl. de cellen B4 en C4 niet leeg gemaakt .

Dat zou ook niet hoeven, tenzij je Jan heet.

Dan zie je namelijk geen verschil met de oorspronkelijke tekst.

Met vriendelijke groet,

Roncancio

trucker10 · 4 jan 2009

Roncancio zei:
Dat zou ook niet hoeven, tenzij je Jan heet.
Dan zie je namelijk geen verschil met de oorspronkelijke tekst.

Met vriendelijke groet,

Roncancio

Ik bedoelde in het vb van Hdek te H staat in cel C4 =NU() , deze had ik niet leeg gemaakt waardoor het niet werkte .

Groetjes ,

Daniël

Hdek te H · 4 jan 2009

Ron en Daniël,

bedankt voor jullie inzet :thumb:

Het Werkt!

Vriendelijke groet,

Henri

Roncancio · 4 jan 2009

Hdek te H zei:
Ron en Daniël,

bedankt voor jullie inzet :thumb:

Het Werkt!

Vriendelijke groet,

Henri

Graag gedaan.
Gaarne de vraag dan op opgelost zetten (rechtsonderaan het scherm)

Bvd.

Met vriendelijke groet,

Roncancio

Hdek te H · 4 jan 2009

Roncancio zei:
Zodra er een wijziging plaatsvindt in de cellen D4 of E4, wordt de datum en de naam van de gebruiker aangepast.

Code:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D4:E4")) Is Nothing Then Range("B4").Value = Date Range("C4").Value = Application.UserName End If End Sub

Deze code zet je in de Visual Basic Editor van het werkblad.

In de link waarnaar gerefereerd werd, wordt een lijst bijgehouden van degenen die het bestand hebben geopend.
Met bovenstaande code wordt namelijk uitsluitend de laatste wijziging verwerkt en de voorafgaande overschreven.

Ik heb toch nog een vraag:

Nu heb ik een lijst van 300 cellen onder elkaar
Ik kan de cel "B4" en de cel "C4"niet naar beneden door kopieren
Wat moet ik daaraan doen?

Zie attachment

Vriendelijke groet,

Henri

Met vriendelijke groet,

Roncancio

Roncancio · 4 jan 2009

Ik heb de code aangepast.
Als er in de D of E-kolom iets wordt gewijzigd dan wordt de datum en gebruiker op dezelfde regel in de B en C-kolom geplaatst.
Dus wijzigt het aantal in cel D27 dan wordt de datum in B27 geplaatst en de gebruiker in C27.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 5 Then
    Range("B" & Target.Row).Value = Date
    Range("C" & Target.Row).Value = Application.UserName
End If
End Sub

Met vriendelijke groet,

Roncancio

Hdek te H · 5 jan 2009

Roncancio zei:
Ik heb de code aangepast.
Als er in de D of E-kolom iets wordt gewijzigd dan wordt de datum en gebruiker op dezelfde regel in de B en C-kolom geplaatst.
Dus wijzigt het aantal in cel D27 dan wordt de datum in B27 geplaatst en de gebruiker in C27.

Code:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Or Target.Column = 5 Then Range("B" & Target.Row).Value = Date Range("C" & Target.Row).Value = Application.UserName End If End Sub

Met vriendelijke groet,

Roncancio

Ik heb je code ontvangen en........ hij werkt!
mijn dank.

Maar nu heb ik ze op een andere cel staan en de code gewijzigd - zie attachment
en dit werkt helaas niet.

Vraag: wat doe ik verkeerd?

Vr.gr. Henri

Roncancio · 5 jan 2009

De verwijzing naar de kolommen kloppen niet.
De waarde van Column komt overeen met de plaats van de letter in het alfabet (A = 1, B = 2, etc).
Er wordt pas gewijzigd als kolom 13 (M-kolom) of kolom 15 (O-kolom) verandert.
Dat lijkt mij niet in orde.
Volgens mij liggen kolom 7 (G-kolom) en kolom 8 (H-kolom) meer voor de hand.
Dus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7Or Target.Column = 8 Then
    Range("E" & Target.Row).Value = Date
    Range("F" & Target.Row).Value = Application.UserName
End If
End Sub

Als alternatief kan je onderstaande code gebruiken omdat je direct kunt zien welke kolom het betreft:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Chr(64 + Target.Column) = "G" Or Chr(64 + Target.Column) = "H" Then
    Range("E" & Target.Row).Value = Date
    Range("F" & Target.Row).Value = Application.UserName
End If
End Sub

Met vriendelijke groet,

Roncancio

Fomule voor Systeemdatum

Gebruiker

Bijlagen

Terugkerende gebruiker

Gebruiker

Terugkerende gebruiker

Gebruiker

Terugkerende gebruiker

Gebruiker

Bijlagen

Terugkerende gebruiker

Meubilair

Terugkerende gebruiker

Meubilair

Terugkerende gebruiker

Gebruiker

Meubilair

Gebruiker

Bijlagen

Meubilair

Gebruiker

Bijlagen

Meubilair

Wij waarderen jouw privacy