Kopieren in VBA

[kruysklm]

Hallo,

Ik de bijgevoegde bijlage loop ik tegen het volgende probleem aan.
Ik wil in VBA de code die ik gebruik voor kolom "R" ook toepassen op kolom "T".
wat ik ook kopier, knip of plak ik krijg het niet werkend.

Als ik de formule in R6 aanpas wordt deze automatisch doorgekopieerd naar R11, R16 enz, dit wil ik ook in kolom T zo hebben.

Dus als ik T6 wijzig dat dit automatisch wordt door gekopieerd naar T11, T16 enz.

Mijn vorige vraag ging hier ook over en dacht er uit te komen maar helaas.

Groeten,

Klaas

 

[Superzeeuw]

Klaas,

Gebruik deze code eens

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$6" Or Target.Address = "$T$6" Then
For x = 11 To 56 Step 5
Cells(x, ActiveCell.Column).FormulaR1C1 = Cells(6, ActiveCell.Column).FormulaR1C1
Next x
End If
End Sub

Grtz.

 

[Warme bakkertje]

1 opmerking, bevestig de formulewijziging met ctrl-Enter zodat de formulecel de actieve cel blijft, want anders werkt de ActiveCell.Column niet aangezien de focus verplaatst wordt(natuurlijk afhankelijk van de cursorverplaatsing bij Enter)

Mvg

Rudi

 

[Superzeeuw]

Rudi,

Bedankt voor de aanvulling.
Ik was ervan uitgegaan dat bij Enter altijd naar de volgende regel gesprongen wordt.

Grtz