add 1 to the value in a cell
 

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 !!

add 1 to the value in a cell
 

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

add 1 to the value in a cell
 

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

add 1 to the value in a cell
 

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

add 1 to the value in a cell
 

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