Sorry it is Nick this time, not Niek :-)

Bob


"Bob Phillips" wrote in message
...
Seeing Niek's, this too should be

Dim oToe As Worksheet
Dim nValue As Double
Dim i As Long
Set oToe = Worksheets("toekomst_oud")
With Me
nValue = .Range("D12") + .Range("D13")
.Range("I27") = oToe.Columns("P:P") + ovalue
For i = 1 To 6
.Range("I" & 27 + i) = oToe.Columns(24 + i * 4)) + ovalue
Next i
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
Then it can be simpler

Dim oToe As Worksheet
Dim nValue As Double
Set oToe = Worksheets("toekomst_oud")
With Me
nValue = .Range("D12") + .Range("D13")
.Range("I27") = oToe.Columns("P:P") + ovalue
.Range("I28") = oToe.Columns("AB:AB") + ovalue
.Range("I29") = oToe.Columns("AF:AF") + ovalue
.Range("I30") = oToe.Columns("AJ:AJ") + ovalue
.Range("I31") = oToe.Columns("AN:AN") + ovalue
.Range("I32") = oToe.Columns("AR:AR") + ovalue
.Range("I33") = oToe.Columns("AV:AV") + ovalue
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jean-Pierre D via OfficeKB.com" wrote in message
...
Hi NickHK,
the ranges Range("D12") + Range("D13") refer to
sheets("staffelberekening")
The code is in the object sheet1(staffelberekening) under workbook
'selection
change'



NickHK wrote:
Jean-Pierre,
Which sheets do the ranges Range("D12") + Range("D13") refer to ?

NickHk

Hi,

[quoted text clipped - 18 lines]
Thanks,
Jean-Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1