• 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.

Datum vandaag weergeven indien naastgelegen kolommen worden veranderd

Status
Niet open voor verdere reacties.
H

hulpbijcomputer

Gebruiker
Lid geworden
30 nov 2010
Berichten
24
Beste hulpbiedende,

Ik heb een Excel overzicht gemaakt waar verschillende gebruikers info kunnen invullen/wijzigen. Nu zou ik graag een kolom willen toevoegen waarin automatisch de datum van vandaag wordt weergegeven als er iets in een bepaalde regel wordt aangepast/toegevoegd. Is zoiets mogelijk?

Ik heb zelf al met ALS zitten proberen maar die kun je (voorzover ik weet) enkel exact bepaalde waarden meegeven.

Alvast bedankt! :thumb:
 
Plaats deze code achter je worksheet.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value > 0 Then Target.Offset(0, 1) = Date
End Sub
 
Bedankt Ad, echter deze code heeft enkel betrekking op 1 kolom. Graag zou ik meerdere kolommen erbij betrekken.

Dus bijv. in kolom A t/m D worden gegevens ingevuld. Als in één of meerdere kolommen iets wordt veranderd (er kunnen dan al oude gegevens instaan die worden aangepast) dan moet in kolom E de datum van vandaag weergegeven worden.

Is zoiets mogelijk?...

Alvast bedankt!

Gr. Jeroen
 
Zo dan?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or target.column = 2 Or target.column = 3 Or target.column = 4 Then
If Target.Value >= 0 Then 'verander indien nodig
Application.EnableEvents = False
Cells(Target.Row, 5).Value = Now
Application.EnableEvents = True
End If
End If
End Sub
 
Laatst bewerkt:
Klasse deze werkt perfect!

Is het eventueel ook mogelijk om de gebruiker erbij toe te voegen die iets aanpast?... en eventueel de cel(len) die worden aangepast.

Alvast bedankt!
 
Jeroen,
Deze code is voor de naam erbij.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then
If Target.Value >= 0 Then 'verander indien nodig
Application.EnableEvents = False
Cells(Target.Row, 5).Value = Date
Cells(Target.Row, 6) = Environ("username")
Application.EnableEvents = True
End If
End If
End Sub

En deze met Naam en cel adres:
Let wel op, datum, naam, en celadres staan in apparte cellen:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then
If Target.Value >= 0 Then 'verander indien nodig
Application.EnableEvents = False
Cells(Target.Row, 5).Value = Date
Cells(Target.Row, 6) = Environ("username")
Cells(Target.Row, 7) = Target.Address
Application.EnableEvents = True
End If
End If
End Sub
 
Laatst bewerkt:
De code werkt erg goed. Ik ben de code aan het uitbreiden met meer kolommen door telkens dat stukje Or Target.Column = te herhalen. Maar nu kan ik maximaal 46 kolommen toevoegen omdat ik dan aan het einde van de regel ben (in dat VBA scherm). Een enter om een nieuwe regel te beginnen werkt niet, hoe is dit probleem op te lossen?

Alvast bedankt!
 
Ook ik heb een vraag hier over,

Ik heb meerdere cellen a1, a2, a3, a4, a5, a6,a7 enz.
die datum dient dan in de cellen a11, a12, a13, a14, a15, a16, a17, enz.
dus bij het invullen van cel A1 dient de datum te komen in A11 enz.

Wat ook opvalt is dat als ik de cel weer leeg maak ,de datum ook veranderd.
en dat is nou net niet de bedoeling.

vast bedankt
yib
 
Het is niet de bedoeling in een forum om in te breken in een vraag van iemand anders.
Dit werkt enkel verwarrend.
Je kunt uw bericht verwijderen en een nieuwe vraag openen.

Cobbe
 
Cobbe zei:
Het is niet de bedoeling in een forum om in te breken in een vraag van iemand anders.
Dit werkt enkel verwarrend.
Je kunt uw bericht verwijderen en een nieuwe vraag openen.

Cobbe
Klik om te vergroten...


Mijn beste

ten eerste,
Ik breek niet in een forum, Ik ben geregistreerd gebruiker.
Laat dat duidelijk zijn !

Ik heb hier een vraag over het zelfde probleem.
aleen is mijn vraag iets uit gebreider ivm de gebruikte cellen in excel.

Dan ga je toch niet een nieuw forum item aan maken, dat werkt pas verwarrend,
als er over het zelfde probleem meerdere forum items over bestaan.

yib
 
Ik ben niet UW beste en het is echt wel verwarrend .

Gr, Cobbe
 
@yibbeda

Ik breek niet in een forum, Ik ben geregistreerd gebruiker.

Dit is natuurlijk juist .
Echter je breekt wel in op een andermans vraag
Een als je de forum regels leest is dat niet toegestaan:

http://www.helpmij.nl/forum/misc.php?do=showrules

Kopje Berichten plaatsen:

punt 5 staat:

'Breek niet in' in andermans vraag, heb je een soortgelijk probleem, stel zelf een nieuwe vraag.

Dus Cobbe had wel degelijk gelijk hij toen hij zei:

Het is niet de bedoeling in een forum om in te breken in een vraag van iemand anders
Klik om te vergroten...

Hij zei dus niet inbreken op een forum maar inbreken op een vraag!
 
:thumb:

Bedankt voor de steun.:P

Mvgr. Cobbe
 
Cobbe zei:
Het is niet de bedoeling in een forum om in te breken in een vraag van iemand anders.
Dit werkt enkel verwarrend.
Je kunt uw bericht verwijderen en een nieuwe vraag openen.

Cobbe
Klik om te vergroten...
Bedankt voor je interventie maar verzenden van een misbruikbericht is voldoende. Mod's doen dan de rest.
 
Alle berichten die er niet toe doen verwijderd.

@yibbeda Het is op Helpmij niet toegestaan om in een ander zijn of haar vraag jouw probleem aan de orde te stellen, dat is wat Cobbe bedoeld. Bovendien is het verwarrend voor de helpers en de oorspronkelijke vragensteller.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan