programmacode doorvoeren op meerdere kolommen

[damteur]

Hieronder heb ik de code geplakt waarbij je in kolom D bijv =5*5*5 (tekstueel aangeeft) en de uitkomst in kolom F toont.
Mijn vraag is hoe kan ik deze code uitbreiden dat hij deze met meerder kolommen kan doen. Dus D antwoordt in F G antwoordt I, J antwoordt in L enz.



Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column = 4 Then
Application.EnableEvents = False
.Offset(0, 2).Formula = Replace(.Value, ",", ".")
.Offset(0, 2) = .Offset(0, 2).Value
ElseIf .Column = 6 Then
Application.EnableEvents = False
.Offset(0, -2) = .Formula
End If
End If
End With
Application.EnableEvents = True
End Sub

 

[Roncancio]

Een kwestie van de IF-statement verwijderen

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count = 1 Then
        Application.EnableEvents = False
        .Offset(0, 2).Formula = Replace(.Value, ",", ".")
        .Offset(0, 2) = .Offset(0, 2).Value
    End If
End With
Application.EnableEvents = True
End Sub

Met vriendelijke groet,


Roncancio

 

[damteur]

Ik snap niet wat je weg haalt en als ik jou code een op een invoer doet hij het niet goed
dan staat er bijv 25 in kolom D en 25 in kolom F
ipv zoals het hoorde =5*5 in kolom D en 25 in kolom F
Dit zou ik graag weer doorvoeren naar kolommen verderop bijv G en I enz.

 

[WHER]

Iets andere aanpak, met gelijkaardig resultaat.

 

[damteur]

Bedankt het werkt, maar kan je toelichten hoe je het opbouwd in een nieuw blad werkt het namelijk niet

 

[WHER]

In het voorbeeld: selecteer cel F1, ga naar menu Insert (Invoegen) >> Name (Naam) >> Define . Dan zie je een kader met alle gedefiniëerde namen (in dit geval één: FRM). Klik op FRM. In het vak "Refers To" zie je een formule, noteer die en breng ze over naar je nieuwe bestand (ook als genaamde formule uiteraard, niet als formule op het werkblad). Waarom F1 selecteren: omwille van de relatieve celverwijzingen in de genaamde formule moet je vertrekken vanuit de cel op dezelfde rij als de eerste code, en twee kolommen naar rechts. In je nieuwe bestand breng je de genaamde formule in terwijl je je in een vergelijkbare cel bevindt.

 

[damteur]

Heel hartelijk dank, ja snap het nu, zal de vraag als opgelost zetten