The worst thing Nick is that I have called Niek Nick in the past, and I
don't want to make that mistake again. I am confusing myself :-)

Bob


"NickHK" wrote in message
...
Bob,
I've been called worse.

NickHK

"Bob Phillips" wrote in message
...
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