Cellen invullen via vb als cel leeg is

[sph]

Graag heb ik in een veld een cel (als hij leeg is) ingevuld.
Dit moet een suggestie zijn, maar wel overtypbaar zijn.
Kan dit 'realtime'/'live' via VBA / een script / een macro?

Bekijk bijlage 227719

 

[Leotaxi]

zo bijvoorbeeld

mvg

Leo

 

[sph]

Okee dan. Leo bedankt!

 

[VenA]

Iets korter

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$6" And Target = "" Then Target = 5
End Sub

 

[sph]

Easy! haha


Maar mag dit bijvoorbeeld ook?:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$6" And Target = "" Then Target = 5
    If Target.Address = "$D$7" And Target = "" Then Target = 5
    If Target.Address = "$D$8" And Target = "" Then Target = 5
    If Target.Address = "$D$9" And Target = "" Then Target = 5
End Sub

 

[Leotaxi]

@ Ven A

geeft bij mij fout 438, enig idee hoe komt ?

mvg

Leo

 

[VenA]

@Leotaxi, deze foutmelding krijg ik niet. Ik had het even geprobeerd in "jouw" voorbeeldje en daar werkt het. Nu nog en met de aanvullende vraag van sph ook. Voor de aanvullende vraag is jouw code natuurlijk meer geschikt:d

Ietsjes aangepast

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D6:D9")) Is Nothing Then
        If Target = "" Then Target = 5
    End If
End Sub

 

[sph]

Het werkt :thumb:

Op welke manier hebben jullie dit geleerd?
Goed boek of werk of zoiets?

 

[VenA]

Mooi dat het werkt. Wil je nog wel de vraag op opgelost zetten?

Over hoe wij het geleerd hebben kan ik natuurlijk alleen voor mij zelf spreken maar denk dat het voor Leotaxi hetzelfde is. Gewoon proberen en je ziet wel waar het schip strandt. Jouw vraag uit #5 was dus eigenlijk onnodig

 

[Leotaxi]

@ sph

aldoende, veel heel veel proberen


@ Ven A

werkt idd, zal bij eerste poging wel ergens typfout gemaakt hebben, of erger nog de dollars voor ponden geruild