do while command button property is false
 

I cannot find a property for a command button on a UserForm so that I can use
as a trigger to stop or continue execution of the following code:

rSalesPerson.Value = " " & frmCreditReceipts.listNames.Text
rReceipt.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
rAmount.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
If frmCreditReceipts.listPayType.Text = "cheque" Then
rCheck.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "transfer"
Then
rTransfer.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listNames.Text = "efectivo" Then
rCash.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "nulo" Then
rNulified.Text = "NULO"
End If
frmCreditReceipts.txtReceipt.Value = ""
frmCreditReceipts.txtAmount.Value = ""
frmCreditReceipts.txtAmount.SetFocus
counter = counter + 1

I need the COUNTER to use as part of the Offset() property to enter the
value of textboxes in a Worksheet.

Thank you in advance for any ideas.

do while command button property is false
 

Where is the code you posted located... in the Click event of the
CommandButton or somewhere else?

--
Rick (MVP - Excel)


"oscar.c.marin" wrote in message
...
I cannot find a property for a command button on a UserForm so that I can
use
as a trigger to stop or continue execution of the following code:

rSalesPerson.Value = " " & frmCreditReceipts.listNames.Text
rReceipt.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
rAmount.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
If frmCreditReceipts.listPayType.Text = "cheque" Then
rCheck.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "transfer"
Then
rTransfer.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listNames.Text = "efectivo"
Then
rCash.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "nulo" Then
rNulified.Text = "NULO"
End If
frmCreditReceipts.txtReceipt.Value = ""
frmCreditReceipts.txtAmount.Value = ""
frmCreditReceipts.txtAmount.SetFocus
counter = counter + 1

I need the COUNTER to use as part of the Offset() property to enter the
value of textboxes in a Worksheet.

Thank you in advance for any ideas.

do while command button property is false
 

"Rick Rothstein" wrote:

Where is the code you posted located... in the Click event of the
CommandButton or somewhere else?

--
Rick (MVP - Excel)


"oscar.c.marin" wrote in message
...
I cannot find a property for a command button on a UserForm so that I can
use
as a trigger to stop or continue execution of the following code:

rSalesPerson.Value = " " & frmCreditReceipts.listNames.Text
rReceipt.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
rAmount.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
If frmCreditReceipts.listPayType.Text = "cheque" Then
rCheck.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "transfer"
Then
rTransfer.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listNames.Text = "efectivo"
Then
rCash.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "nulo" Then
rNulified.Text = "NULO"
End If
frmCreditReceipts.txtReceipt.Value = ""
frmCreditReceipts.txtAmount.Value = ""
frmCreditReceipts.txtAmount.SetFocus
counter = counter + 1

I need the COUNTER to use as part of the Offset() property to enter the
value of textboxes in a Worksheet.

Thank you in advance for any ideas.



CORRECT : Private Sub cmmdIngresar_Click(). I want the user to press the
cmmdIngresar ("Enter") command button, and by doing so, entering data in a
worksheet, while he/she has not pressed the Exit command button. I assume the
"value" of the command button Exti will be "False" or "0" before it is
pressed though I didn't find that property.