Automatische waarden van een andere cel aanpassen bij invoer

[Finch]

Ik zat in de buurt

Zeer zeker. :thumb:

 

[Khoneini]

Oke!!!

Het werkt !!!

Heb ook ff de dag op 21ste gezet en hij removed niet datums van de 20ste die behoud hij gewoon.

Ik dank jullie allemaal vriendelijk!!

//EDIT: Ik zit nog met 1 probleem(sorry)

Ik wil in vak C dat als er een invoer is bij A dat hij daar automatische Khoneini neerzet
Is dit nog mogelijk?

//EDIT

En is het mogelijk dat de Datum ipv Rij C in Rij E komt. Dan ben ik helemaal klaar en heb ik geen vragen meer!

 

[Khoneini]

Voor het gemak geef ik hier het Excel document waar alles in moet,

Ik heb de macro er uit gehaald voor het gemak,
Wat er nu dus nog moet gebeuren is het volgende:

- Als de samengevoegde cellen A(en B) een invoer krijgen moeten in de samengevoegde cellen E(en F) de datum van die dag erin komen, ook moet er als er een invoer is in de samengevoegde cellen A(enB) in de samengevoegde cellen C(en D) Khoneini komen.

Als dit allemaal gedaan is is het Excel document af!
Dan heb ik geen vragen meer betreft dit document!

Alvast bedankt voor de mensen die mij hierboven al hebben geholpen!!

PS Serienummer.xlsx is voor Excel 2007
Serienummer.rar is voor Excel 2003 of lager

 

[Timmiesch]

Khoneini,

Hierbij de code die je moet gebruiken in jou geval

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Target.Value) > "" Then
    Target.Offset(, 3) = Date
    Target.Offset(, 1) = "Khoneini"
End If
End Sub

Bijgevoegd een rar bestand met de code erin verwerkt!
Hoop dat je hiermee geholpen bent

 

[Finch]

Khoneini,

Hierbij de code die je moet gebruiken in jou geval

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Target.Value) > "" Then
    Target.Offset(, 3) = Date
    Target.Offset(, 1) = "Khoneini"
End If
End Sub

Bijgevoegd een rar bestand met de code erin verwerkt!
Hoop dat je hiermee geholpen bent

@Timmiesch,

volgende regel zou ik vervangen

If Target.Column = 1 And Len(Target.Value) > [COLOR="Red"]""[/COLOR] Then

door

If Target.Column = 1 And Len(Target.Value) > [COLOR="SeaGreen"]0[/COLOR] Then

@Khoneini:

Samengestelde cellen brengen vaak problemen met zich mee, zeker binnen VBA code.
Probeer die te vermijden indien mogelijk. Ofwel door de kolombreedte aan te passen ofwel door te centreren op de twee cellen (zonder samen te voegen).

 

[Khoneini]

Oke,

Het werkt!! Alleen ik heb de cellen samengevoegd gelaten en hij geeft geen conflict.

Kan er later nog een conflict ontstaan of niet?

Alvast bedankt!!!

 

[Timmiesch]

Alle cellen zijn samengevoegd en blijven samengevoegd?

 

[Khoneini]

Alle cellen zijn samengevoegd en blijven samengevoegd?

Nee ik heb ze samengevoegd gelaten en het werkt gewoon omdat jullie zeiden dat het een conflict kon opleveren, dat is dus tot zover niet gebeurd.

Ik dank jullie allemaal vriendelijk voor jullie hulp het probleem is opgelost!

Mvg,

Khoneini