Hallo forum,
In een werkblad staan (heel veel) entiteiten met daar direct onder in dezelfde kolom B een telkens wisselend aantal velden die gekozen kunnen worden. Gevolgd door een lege rij. Als je voor de Entiteit een x plaatst dan wil je alle daaronder staande velden hebben. Wil je enkele velden selecteren dan zet je de x voor dat bepaalde veld in kolom A.
Nu wil ik dat er in kolom D (verborgen) een x geplaatst wordt achter alle velden als er voor de Entiteit een x geplaatst is.
Daarvoor heb ik in D de volgende formule =ALS($A$596="X";"X";ALS(A608="X";"X";""))
$A$596 is dus de rij waar de Entiteit staat en in rij 608 een veld.
Ik wil deze formules via VBA / macro in het werkblad plaatsen.
Ik heb de volgende code:
Mijn macro werkt helaas niet helemaal zoals het moet want hij schrijft de formule als: =ALS(A596="X";"X";ALS(A608="X";"X";"")) zonder de $ voor de absolute verwijzing.
Hoe moet ik de code R[-1]C[-3] aanpassen?
Groet,
Herman
In een werkblad staan (heel veel) entiteiten met daar direct onder in dezelfde kolom B een telkens wisselend aantal velden die gekozen kunnen worden. Gevolgd door een lege rij. Als je voor de Entiteit een x plaatst dan wil je alle daaronder staande velden hebben. Wil je enkele velden selecteren dan zet je de x voor dat bepaalde veld in kolom A.
Nu wil ik dat er in kolom D (verborgen) een x geplaatst wordt achter alle velden als er voor de Entiteit een x geplaatst is.
Daarvoor heb ik in D de volgende formule =ALS($A$596="X";"X";ALS(A608="X";"X";""))
$A$596 is dus de rij waar de Entiteit staat en in rij 608 een veld.
Ik wil deze formules via VBA / macro in het werkblad plaatsen.
Ik heb de volgende code:
Code:
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 3).Select
ActiveCell.FormulaR1C1 = "= IF(R[-1]C[-3] =""X"",""X"",IF(RC[-3]=""X"",""X"",""""))"
r = Range("D" & Rows.Count).End(xlUp).Row
i = Range("C" & r).End(xlDown).Row
Cells(r, 4).AutoFill Destination:=Range(Cells(r, 4), Cells(i, 4)), Type:=xlFillCopy
Mijn macro werkt helaas niet helemaal zoals het moet want hij schrijft de formule als: =ALS(A596="X";"X";ALS(A608="X";"X";"")) zonder de $ voor de absolute verwijzing.
Hoe moet ik de code R[-1]C[-3] aanpassen?
Groet,
Herman