Cellen vullen via VBA code

[wieter]

Dag helpers
Het was eenvoudiger om de vraag rechtstreeks in de bijlage te plaatsen
Iemand die dit wil oplossen?
Wieter

 

[zapatr]

Kijk goed wat je als voorbeeld post a.u.b., want dit is erg verwarrend.
Je schrijft: "Als er in Kolom D een waarde staat, moet die ook in Kolom E verschijnen".
Welnu: in kolom E staat er bij jou HEEL WAT ANDERS dan in kolom D.
Hoe is dat te verklaren ?

 

[hazesoft]

Maar de kolommen B, C en E worden regelmatig leeg gemaakt, dus weg FORMULE

Lijkt mij eenvoudig zapatr!

 

[zapatr]

Lijkt mij eenvoudig zapatr!

Dat is het ook,
maar je mag op zijn minst verwachten dat een vragensteller zijn voorbeeld aanpast aan zijn vraag. Al te vaak zie je op dit forum dat vragenstellers nog niet eens behoorlijk nagedacht hebben over hun vraag en kennelijk redeneren: "zoek het maar uit". Een vraag behoorlijk stellen is op de eerste plaats in hun eigen belang; het zijn immers ZIJ die met een probleem zitten, niet de beantwoorders.

 

[wieter]

Beste helpers
Ik vermoedde al dat de vraagstelling verwarrend zou zijn
Kolom E moet manueel kunnen ingevuld worden, behalve als de kolommen B en C ingevuld zijn, dan zou de waarde die in kolom D verschijnt automatisch in kolom E moeten komen.
Met een formule in kolom E kan dit, maar de lijst wordt regelmatig vernieuwd(delete) en dan is de formule weg.
Daarom mijn vraag of er via VBA een oplossing is
Sorry voor de verwarring
Wieter

 

[hazesoft]

Nu wordt het helaas nog "verwarrender"!

 

[Cobbe]

Wat ik begrepen heb moet deze code het doen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets(1)
For rij = 1 To 30
If .Range("B" & rij) <> "" And .Range("C" & rij) <> "" Then .Range("E" & rij) = .Range("D" & rij)
Next
End With
End Sub

Cobbe

 

[zapatr]

Volgens de uitleg blijft kolom D intact en dus ook de formules daarin.
Daarop is de oplossing in de bijlage dan ook gebaseerd.

 

[wieter]

Bedankt Cobbe, hiermee kan ik verder
Door toevoeging van een IF instuctie: als range D verschillend is van leeg
Bedankt dat je de moeite nam mijn erwtensoep te ontwarren.

 

[wieter]

@Zapatr
Reactie telaat gezien
Bedankt voor de oplossing

 

[zapatr]

wieter,
markeer de vraag nog even als "Opgelost" a.u.b.