Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

OK, it will be the same.
Just replace the variable lCountButtonA with:
Cells(22, 9)

RBS


"Paul Black" wrote in message
oups.com...
Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Thanks RBS,

Unfortunately I am new to VBA and am unsure of how to incorporate this
into the existing code.

Thanks again.
All the Best.
Paul

RB Smissaert wrote:
OK, it will be the same.
Just replace the variable lCountButtonA with:
Cells(22, 9)

RBS


"Paul Black" wrote in message
oups.com...
Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

You can leave the:
Public lCountButtonA as Long
as it is or take it out.

In other places replace lCountButtonA with:
Cells(22, 9)
You may have to do:
Sheet1.Cells(22, 9) or whatever sheet that cell is on.

Nil else to be done.

RBS

"Paul Black" wrote in message
oups.com...
Thanks RBS,

Unfortunately I am new to VBA and am unsure of how to incorporate this
into the existing code.

Thanks again.
All the Best.
Paul

RB Smissaert wrote:
OK, it will be the same.
Just replace the variable lCountButtonA with:
Cells(22, 9)

RBS


"Paul Black" wrote in message
oups.com...
Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many
times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Sub Counter() 'Assigned to you're A Button
Dim CurrCount As Long
Range("A1").Value = Range("A1") + 1
End Sub

Sub ClearCount() 'Assigned to your B Button
Range("a1").Value = 0
End Sub

"Paul Black" wrote in message
oups.com:

Hi everyone,

I have a Form Button called "A". I would like to count how many times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Thanks for the reply Jim,

I left out the line of code ...

Dim CurrCount As Long

.... for "A" and incorporated the line of code ...

Range("A1").Value = Range("A1") + 1

.... which worked perfectly.
I incorporated the line of code for "B" ...

Range("a1").Value = 0

.... which also worked perfectly.

----------------------------------------------------------------------

Thanks for the reply RBS,

I will also try out your suggestion.

Thank you both.
All the Best.
Paul

RB Smissaert wrote:
You can leave the:
Public lCountButtonA as Long
as it is or take it out.

In other places replace lCountButtonA with:
Cells(22, 9)
You may have to do:
Sheet1.Cells(22, 9) or whatever sheet that cell is on.

Nil else to be done.

RBS

"Paul Black" wrote in message
oups.com...
Thanks RBS,

Unfortunately I am new to VBA and am unsure of how to incorporate this
into the existing code.

Thanks again.
All the Best.
Paul

RB Smissaert wrote:
OK, it will be the same.
Just replace the variable lCountButtonA with:
Cells(22, 9)

RBS


"Paul Black" wrote in message
oups.com...
Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many
times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul

Hi,

I protected the sheet without using a password and it seems to work OK.
Can my code be improved please :-

Sub Test1()
ActiveSheet.Unprotect
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
ActiveSheet.Protect
End Sub

Thanks in Advance.
All the Best.
Paul

Paul Black wrote:
Thanks for the reply Jim,

I left out the line of code ...

Dim CurrCount As Long

... for "A" and incorporated the line of code ...

Range("A1").Value = Range("A1") + 1

... which worked perfectly.
I incorporated the line of code for "B" ...

Range("a1").Value = 0

... which also worked perfectly.

----------------------------------------------------------------------

Thanks for the reply RBS,

I will also try out your suggestion.

Thank you both.
All the Best.
Paul

RB Smissaert wrote:
You can leave the:
Public lCountButtonA as Long
as it is or take it out.

In other places replace lCountButtonA with:
Cells(22, 9)
You may have to do:
Sheet1.Cells(22, 9) or whatever sheet that cell is on.

Nil else to be done.

RBS

"Paul Black" wrote in message
oups.com...
Thanks RBS,

Unfortunately I am new to VBA and am unsure of how to incorporate this
into the existing code.

Thanks again.
All the Best.
Paul

RB Smissaert wrote:
OK, it will be the same.
Just replace the variable lCountButtonA with:
Cells(22, 9)

RBS


"Paul Black" wrote in message
oups.com...
Thanks for the reply RBS,

What I ideally want is the count of the depressions of Form Button "A"
to appear in Cell I22.
The code I am using for Form Button "A" is :-

Sub Testl()
Calculate
With Sheets("A").Range("H20")
.Value = .Value + Application.Sum(Sheets("A").Range("H18:J18"))
End With
End Sub

Thanks in Advance.
All the Best.
Paul

RB Smissaert wrote:
Make a public variable in a normal module (at the top), say
something like lCountButtonA, so:
Public lCountButtonA As Long

In form A have somehing like this:

Private Sub CommandButtonA_Click()
lCountButtonA = lCountButtonA + 1
End Sub

In form B have somehing like this:

Private Sub CommandButtonB_Click()
lCountButtonA = 0
End Sub


RBS


"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a Form Button called "A". I would like to count how many
times
it is pushed.
I also have a Form Button called "B". I would like the count of Form
Button "A" to reset to ZERO when Form Button "B" is pressed.

Thanks in Advance.
All the Best.
Paul