Formule in hele kolom

[DeVenter]

Ik probeer voor het eerst (uitgezonderd Macro's enzo) iets met VBA.
Ik heb in kolom A en kolom B cijfers staan
Sommige regels zijn leeg
Ik wil in kolom C het product
Echter alleen in de regels waar iets ingevuld is

Na wat knip-en-plakwerk kom ik tot dit:

['code]
Sub test()
Dim p As Long
Dim d As Range
With ActiveSheet.Range("A:A")
p = 1
For Each d In Range("A" & p, "A" & (p + l))
If d.Offset(, 1).Text <> "" Then
d.Offset(, 2).Formula = "=RC[-2]*RC[-1]"
End If
Next
End With
Range("E13").Select
End Sub
['/code]

Er wordt echter alleen in C1 een product ingevuld.

Met de help-functie kom ik niet verder.
Kan iemand mij zeggen hoe ik zonder kopieren in de hele kolom C resultaten krijg?


BVD
DeVenter

 

[Wigi]

Hallo

zet je code eens tussen code tags: pas je bericht aan, selecteer je code, en klik op het # teken.

Dan wordt de code leesbaar.

Wigi

 

[Wigi]

- Wat zit er in de variabele l?

- je verhoogt de rijteller niet.

Wigi

 

[DeVenter]

p + I moet eigenlijk zijn p+1.
ik dacht dat dat de rijteller was.

 

[Wigi]

Hallo

zet je code eens tussen code tags: pas je bericht aan, selecteer je code, en klik op het # teken.

Dan wordt de code leesbaar.

Wigi

2de poging...