contador en macro Excel

[alexmtz]

Hola a Todos, estoy haciendo una macro pero quiero agregarle un contador, mi macro va guardando y registrando informacion de una etiquetas, y quiero que cuando hayan registrado la etiqueta 500 se detenga y no permita hacer nada, si alguien me puede ayudar se lo agradecere mucho, saludos

[wwwmaster]

Si publicas el codigo fuente de tu codigo creo que sera mas facil ayudarte, supongo que ya estas entrando al entorno de programacion en excel con ALT+F11 para manipular los contenidos de las celdas con Visual Basic Applications

[alexmtz]

gracias por responder, ok, mira ahi te va, tengo 3 user form, te voy a pasar el de la captura principal, la mayoria de los codigos los he ido adecuando conforme los he necesitado de ejemplos que he visto, ahora como te decis solo tengo que agregar un contador que cuando llegue a las 500 capturas de etiquetas se detenga, saludos

Private Sub cmdCaptura_Click()

On Error Resume Next

'aqui verificamos que los texts no esten vacios
If Me.txtEtiqueta.Text = "" Then MsgBox "El Numero de Etiqueta no puede estar vacio", _
vbExclamation, "CONTROL DE BOTELLAS": Exit Sub
If Me.txtCodigo.Text = "" Then MsgBox "El Codigo de Botella no puede estar vacio", _
vbExclamation, "CONTROL DE BOTELLAS": Exit Sub

Range("A1").Activate
'inicia la busqueda en la columna A
[a1:a1010].Find(What:=txtEtiqueta, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'si encontro el valor se posiciona
ActiveCell.Offset(0, 0).Select
'pregunta si la posicion del valor buscado esta vacio
If Selection.Offset().Value <> "" Then
'si no esta vacia le dice k ya hay registro
MsgBox "Esta etiqueta ya fue capturada", vbExclamation, "CONTROL DE BOTELLAS"
Else

' si todo esta bien entonces insertamos los datos en la hoja
If Sheets("HISTORIA").Range("A5").Value = "" Then
' si no hay ningun registro todavia
Sheets("HISTORIA").Range("A5").Value = Me.txtEtiqueta.Text
Sheets("HISTORIA").Range("B5").Value = Me.txtCodigo.Text
MsgBox "Te informo que el NUMERO DE ETIQUETA es ahora el numero de tu BOTELLA", _
vbExclamation, "CONTROL DE BOTELLAS"
Range("A7").Select
Selection.End(xlDown).Select
Selection.Offset(0, 4).Select
ActiveCell.FormulaR1C1 = Date

Else
' a partir dl segundo registro
Sheets("HISTORIA").Range("A4").End(xlDown)(xlDropD own).Value = Me.txtEtiqueta.Text
Sheets("HISTORIA").Range("A4").End(xlDown).Next.Va lue = Me.txtCodigo.Text
MsgBox "Recuerda, el NUMERO DE ETIQUETA es ahora el numero de tu BOTELLA", _
vbExclamation, "CONTROL DE BOTELLAS"
Range("A4").Select
Selection.End(xlDown).Select
Selection.Offset(0, 4).Select
ActiveCell.FormulaR1C1 = Date

End If

End If
' limpiamos el formulario para la siguiente captura
Me.txtEtiqueta.Text = ""
Me.txtCodigo.Text = ""

' ponemos el cursor en el primer campo de captura
Me.txtEtiqueta.SetFocus

Range("A4").Select
Selection.End(xlDown).Select
End Sub