simple... HasFormula ?

please... what's my error?

Dim sglEndSum As Single

If Range("D" & sglEndSum).HasFormula = True Then
MsgBox Range("D" & sglEndSum).Address & " contains a formula..."
Range("D" & sglEndSum).Value = "not any more !"
End If


thanks in advance,
mark

Since rows can reach up to 65536:
Dim sglEndSum As Long

But this does not keep your code from running OK by me.

HTH
--
AP

"mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
%23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
> please... what's my error?
>
> Dim sglEndSum As Single
>
> If Range("D" & sglEndSum).HasFormula = True Then
> MsgBox Range("D" & sglEndSum).Address & " contains a
> formula..."
> Range("D" & sglEndSum).Value = "not any more !"
> End If
>
>
> thanks in advance,
> mark
>

I'm getting a

method 'range' of object _worksheet failed

message

-m.

"Ardus Petus" <ardus.petus@laposte.net> wrote in message
news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
> Since rows can reach up to 65536:
> Dim sglEndSum As Long
>
> But this does not keep your code from running OK by me.
>
> HTH
> --
> AP
>
> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
> %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
>> please... what's my error?
>>
>> Dim sglEndSum As Single
>>
>> If Range("D" & sglEndSum).HasFormula = True Then
>> MsgBox Range("D" & sglEndSum).Address & " contains a
>> formula..."
>> Range("D" & sglEndSum).Value = "not any more !"
>> End If
>>
>>
>> thanks in advance,
>> mark
>>
>
>

With debugger, check the value of sglEndSum. Maybe it is zero.

--
AP

"mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
%23064Z$PdGHA.4264@TK2MSFTNGP05.phx.gbl...
> I'm getting a
>
> method 'range' of object _worksheet failed
>
> message
>
> -m.
>
> "Ardus Petus" <ardus.petus@laposte.net> wrote in message
> news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
>> Since rows can reach up to 65536:
>> Dim sglEndSum As Long
>>
>> But this does not keep your code from running OK by me.
>>
>> HTH
>> --
>> AP
>>
>> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
>> news: %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
>>> please... what's my error?
>>>
>>> Dim sglEndSum As Single
>>>
>>> If Range("D" & sglEndSum).HasFormula = True Then
>>> MsgBox Range("D" & sglEndSum).Address & " contains a
>>> formula..."
>>> Range("D" & sglEndSum).Value = "not any more !"
>>> End If
>>>
>>>
>>> thanks in advance,
>>> mark
>>>
>>
>>
>
>

Also you don't need to test = True

If Range("D" & sglEndSum).HasFormula Then


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Ardus Petus" <ardus.petus@laposte.net> wrote in message
news:%23BEh4KQdGHA.3900@TK2MSFTNGP05.phx.gbl...
> With debugger, check the value of sglEndSum. Maybe it is zero.
>
> --
> AP
>
> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
> %23064Z$PdGHA.4264@TK2MSFTNGP05.phx.gbl...
> > I'm getting a
> >
> > method 'range' of object _worksheet failed
> >
> > message
> >
> > -m.
> >
> > "Ardus Petus" <ardus.petus@laposte.net> wrote in message
> > news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
> >> Since rows can reach up to 65536:
> >> Dim sglEndSum As Long
> >>
> >> But this does not keep your code from running OK by me.
> >>
> >> HTH
> >> --
> >> AP
> >>
> >> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
> >> news: %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
> >>> please... what's my error?
> >>>
> >>> Dim sglEndSum As Single
> >>>
> >>> If Range("D" & sglEndSum).HasFormula = True Then
> >>> MsgBox Range("D" & sglEndSum).Address & " contains a
> >>> formula..."
> >>> Range("D" & sglEndSum).Value = "not any more !"
> >>> End If
> >>>
> >>>
> >>> thanks in advance,
> >>> mark
> >>>
> >>
> >>
> >
> >
>
>

it had been "zero-ing out"... thanks



"Bob Phillips" <bob.NGs@googlemailxxx.com> wrote in message
news:OPJ10dQdGHA.3948@TK2MSFTNGP03.phx.gbl...
> Also you don't need to test = True
>
> If Range("D" & sglEndSum).HasFormula Then
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove xxx from email address if mailing direct)
>
> "Ardus Petus" <ardus.petus@laposte.net> wrote in message
> news:%23BEh4KQdGHA.3900@TK2MSFTNGP05.phx.gbl...
>> With debugger, check the value of sglEndSum. Maybe it is zero.
>>
>> --
>> AP
>>
>> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
>> news:
>> %23064Z$PdGHA.4264@TK2MSFTNGP05.phx.gbl...
>> > I'm getting a
>> >
>> > method 'range' of object _worksheet failed
>> >
>> > message
>> >
>> > -m.
>> >
>> > "Ardus Petus" <ardus.petus@laposte.net> wrote in message
>> > news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
>> >> Since rows can reach up to 65536:
>> >> Dim sglEndSum As Long
>> >>
>> >> But this does not keep your code from running OK by me.
>> >>
>> >> HTH
>> >> --
>> >> AP
>> >>
>> >> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
>> >> news: %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
>> >>> please... what's my error?
>> >>>
>> >>> Dim sglEndSum As Single
>> >>>
>> >>> If Range("D" & sglEndSum).HasFormula = True Then
>> >>> MsgBox Range("D" & sglEndSum).Address & " contains a
>> >>> formula..."
>> >>> Range("D" & sglEndSum).Value = "not any more !"
>> >>> End If
>> >>>
>> >>>
>> >>> thanks in advance,
>> >>> mark
>> >>>
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Also you don't need to test = True

If Range("D" & sglEndSum).HasFormula Then


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Ardus Petus" <ardus.petus@laposte.net> wrote in message
news:%23BEh4KQdGHA.3900@TK2MSFTNGP05.phx.gbl...
> With debugger, check the value of sglEndSum. Maybe it is zero.
>
> --
> AP
>
> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
> %23064Z$PdGHA.4264@TK2MSFTNGP05.phx.gbl...
> > I'm getting a
> >
> > method 'range' of object _worksheet failed
> >
> > message
> >
> > -m.
> >
> > "Ardus Petus" <ardus.petus@laposte.net> wrote in message
> > news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
> >> Since rows can reach up to 65536:
> >> Dim sglEndSum As Long
> >>
> >> But this does not keep your code from running OK by me.
> >>
> >> HTH
> >> --
> >> AP
> >>
> >> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
> >> news: %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
> >>> please... what's my error?
> >>>
> >>> Dim sglEndSum As Single
> >>>
> >>> If Range("D" & sglEndSum).HasFormula = True Then
> >>> MsgBox Range("D" & sglEndSum).Address & " contains a
> >>> formula..."
> >>> Range("D" & sglEndSum).Value = "not any more !"
> >>> End If
> >>>
> >>>
> >>> thanks in advance,
> >>> mark
> >>>
> >>
> >>
> >
> >
>
>

Also you don't need to test = True

If Range("D" & sglEndSum).HasFormula Then


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Ardus Petus" <ardus.petus@laposte.net> wrote in message
news:%23BEh4KQdGHA.3900@TK2MSFTNGP05.phx.gbl...
> With debugger, check the value of sglEndSum. Maybe it is zero.
>
> --
> AP
>
> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de news:
> %23064Z$PdGHA.4264@TK2MSFTNGP05.phx.gbl...
> > I'm getting a
> >
> > method 'range' of object _worksheet failed
> >
> > message
> >
> > -m.
> >
> > "Ardus Petus" <ardus.petus@laposte.net> wrote in message
> > news:%238P737PdGHA.1436@TK2MSFTNGP05.phx.gbl...
> >> Since rows can reach up to 65536:
> >> Dim sglEndSum As Long
> >>
> >> But this does not keep your code from running OK by me.
> >>
> >> HTH
> >> --
> >> AP
> >>
> >> "mark kubicki" <mark@tillotsondesign.com> a écrit dans le message de
> >> news: %23ZIu83PdGHA.1456@TK2MSFTNGP04.phx.gbl...
> >>> please... what's my error?
> >>>
> >>> Dim sglEndSum As Single
> >>>
> >>> If Range("D" & sglEndSum).HasFormula = True Then
> >>> MsgBox Range("D" & sglEndSum).Address & " contains a
> >>> formula..."
> >>> Range("D" & sglEndSum).Value = "not any more !"
> >>> End If
> >>>
> >>>
> >>> thanks in advance,
> >>> mark
> >>>
> >>
> >>
> >
> >
>
>