View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
oscar.c.marin[_2_] oscar.c.marin[_2_] is offline
external usenet poster
 
Posts: 12
Default 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.