Cellen automatisch invullen

[svekkes]

Aan allen,

Ik heb een stukje code in VBA om een cellen automatisch te voorzien van een datum als de cel ernaast wordt ingevuld.
Maar ik had deze nu graag aangepast om het volgende te doen:
Wanneer nu in de C-kolom iets wordt ingevuld, zou in de B-kolom telkens de naam van de klant moeten komen.

Zie ook bijgevoegd voorbeeld (hopelijk is het een beetje duidelijk).

Alvast bedankt voor jullie hulp.

 

[Joske2000]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
    If Target.Offset(0, -1).Value = "" Then
    Target.Offset(0, -1).FormulaR1C1 = "=+R[-1]C"
End If
End If
End Sub

Joske

 

[Roncancio]

Aan allen,

Ik heb een stukje code in VBA om een cellen automatisch te voorzien van een datum als de cel ernaast wordt ingevuld.
Maar ik had deze nu graag aangepast om het volgende te doen:
Wanneer nu in de C-kolom iets wordt ingevuld, zou in de B-kolom telkens de naam van de klant moeten komen.

Zie ook bijgevoegd voorbeeld (hopelijk is het een beetje duidelijk).

Alvast bedankt voor jullie hulp.

Volgens mij kan het niet wat je wilt, want een item kan door diverse klanten worden gekocht. Hoe kan Excel dan achterhalen welke klant het is geweest?

Met vriendelijke groet,


Roncancio

 

[svekkes]

Beste Roncancio,

Dit is maar een enkel blad om te dienen als voorbeeld. Normaal gezien worden de gegevens, in het volledige document, dmv invulformulieren en invulvelden op zijn juiste plaats gezet.

Maar ik zal het eens uitproberen om zeker te zijn.