hi all !! good afternoon !!!

i want to remerciate the microsoft forum for the precious help.

i need this:

If "my.condition.true" Then
add 1 to the value of cell "b5"
End If

Ty all for interesting !!

Hi pls123

With Sheets("Sheet1")
.Range("B5").Value = .Range("B5").Value + 1
End With


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"pls123" <(E-Mail Removed)> wrote in message news:4DA0A14A-26E4-47F4-9434-(E-Mail Removed)...
> hi all !! good afternoon !!!
>
> i want to remerciate the microsoft forum for the precious help.
>
> i need this:
>
> If "my.condition.true" Then
> add 1 to the value of cell "b5"
> End If
>
> Ty all for interesting !!
>

hi ron tyvm
i don't understand the needing of " with " !!

"Ron de Bruin" wrote:

> Hi pls123
>
> With Sheets("Sheet1")
> .Range("B5").Value = .Range("B5").Value + 1
> End With
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "pls123" <(E-Mail Removed)> wrote in message news:4DA0A14A-26E4-47F4-9434-(E-Mail Removed)...
> > hi all !! good afternoon !!!
> >
> > i want to remerciate the microsoft forum for the precious help.
> >
> > i need this:
> >
> > If "my.condition.true" Then
> > add 1 to the value of cell "b5"
> > End If
> >
> > Ty all for interesting !!
> >
>

Hi

> i don't understand the needing of " with " !!

Now I only have to use Sheets("Sheet1") one time and if I want to edit the sheet name
I only have to do it one time

This is the same

Sheets("Sheet1") .Range("B5").Value = Sheets("Sheet1") .Range("B5").Value +1

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"pls123" <(E-Mail Removed)> wrote in message news:C62C5034-201E-4D8E-8A36-(E-Mail Removed)...
> hi ron tyvm
> i don't understand the needing of " with " !!
>
> "Ron de Bruin" wrote:
>
>> Hi pls123
>>
>> With Sheets("Sheet1")
>> .Range("B5").Value = .Range("B5").Value + 1
>> End With
>>
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "pls123" <(E-Mail Removed)> wrote in message news:4DA0A14A-26E4-47F4-9434-(E-Mail Removed)...
>> > hi all !! good afternoon !!!
>> >
>> > i want to remerciate the microsoft forum for the precious help.
>> >
>> > i need this:
>> >
>> > If "my.condition.true" Then
>> > add 1 to the value of cell "b5"
>> > End If
>> >
>> > Ty all for interesting !!
>> >
>>

ah yes !! now i remember, sorry !!!
ty ron , see you next !!




"Ron de Bruin" wrote:

> Hi
>
> > i don't understand the needing of " with " !!
>
> Now I only have to use Sheets("Sheet1") one time and if I want to edit the sheet name
> I only have to do it one time
>
> This is the same
>
> Sheets("Sheet1") .Range("B5").Value = Sheets("Sheet1") .Range("B5").Value +1
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "pls123" <(E-Mail Removed)> wrote in message news:C62C5034-201E-4D8E-8A36-(E-Mail Removed)...
> > hi ron tyvm
> > i don't understand the needing of " with " !!
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi pls123
> >>
> >> With Sheets("Sheet1")
> >> .Range("B5").Value = .Range("B5").Value + 1
> >> End With
> >>
> >>
> >> --
> >>
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl/tips.htm
> >>
> >>
> >> "pls123" <(E-Mail Removed)> wrote in message news:4DA0A14A-26E4-47F4-9434-(E-Mail Removed)...
> >> > hi all !! good afternoon !!!
> >> >
> >> > i want to remerciate the microsoft forum for the precious help.
> >> >
> >> > i need this:
> >> >
> >> > If "my.condition.true" Then
> >> > add 1 to the value of cell "b5"
> >> > End If
> >> >
> >> > Ty all for interesting !!
> >> >
> >>
>