Anónimo
Verificación de Duplicados.
Hola Experto : Mi consulta es la siguiente, estoy desarrollando un pequeño programa en VBA (es version en ingles) capturo un código de barras en un textbox, lo grabo como cadena, la corto, y las ultimas 4 cifras son el numero consecutivo, lo grabo en la celda que le corresponde según el numero de folio, quiero validar cuando capture un numero duplicado que me envíe un msg . Te doy las gracias anticipadas al presente.
Set L(2) = Worksheets("DB").Range("L2")
Set L(3) = Worksheets("DB").Range("L3")
Set L(4) = Worksheets("DB").Range("L4")
CapBox = Mid(TextBox110, 24, 4)
'
For i = CapBox To (CapBox)
L(i) = CapBox
Next i
'
Saludos.
Set L(2) = Worksheets("DB").Range("L2")
Set L(3) = Worksheets("DB").Range("L3")
Set L(4) = Worksheets("DB").Range("L4")
CapBox = Mid(TextBox110, 24, 4)
'
For i = CapBox To (CapBox)
L(i) = CapBox
Next i
'
Saludos.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
podrías hacer lo de la siguiente forma: voy a suponer que el número lo pones en C4, también voy a suponer que haz renombrado la columna de código con el nombre de CodProd, entonces en D4 puedo utilizar la función =Contar.Si(CodProd,C4).
ahora puedo poner una condición como la siguiente:
If Range("D4").Value >= 1 Then
MsgBox "Código ya existe.", vbInformation, "Validación"
Exit Sub
TextBox110.SetFocus
End If
[email protected]
ahora puedo poner una condición como la siguiente:
If Range("D4").Value >= 1 Then
MsgBox "Código ya existe.", vbInformation, "Validación"
Exit Sub
TextBox110.SetFocus
End If
[email protected]
Hola amigo...
Me apena mucho pero no funciono, no guardo mi texto en ninguna celda, lo coloco directamente en la " L(i) " que le corresponda, me marca sintax error tal vez porque mi version es en ingles, no reconoce el Contar.si. en verdad agradezco tu esfuerzo y tu respuesta, si tienes alguna otra idea sera bien recibida.. gracias.
Te anexo algo de mi código para que te des una idea..
Set L(2) = Worksheets("DB").Range("L2")
Set L(3) = Worksheets("DB").Range("L3")
Set L(4) = Worksheets("DB").Range("L4")
Set L(5) = Worksheets("DB").Range("L5")
Set L(6) = Worksheets("DB").Range("L6")
Set L(7) = Worksheets("DB").Range("L7")
Set L(8) = Worksheets("DB").Range("L8")
Set L(9) = Worksheets("DB").Range("L8")
'
CapBox = Mid(TextBox110, 24, 4)
For i = CapBox To (CapBox)
L(i) = CapBox
Next i
Mil Gracias Amigo...
Saludos.
Me apena mucho pero no funciono, no guardo mi texto en ninguna celda, lo coloco directamente en la " L(i) " que le corresponda, me marca sintax error tal vez porque mi version es en ingles, no reconoce el Contar.si. en verdad agradezco tu esfuerzo y tu respuesta, si tienes alguna otra idea sera bien recibida.. gracias.
Te anexo algo de mi código para que te des una idea..
Set L(2) = Worksheets("DB").Range("L2")
Set L(3) = Worksheets("DB").Range("L3")
Set L(4) = Worksheets("DB").Range("L4")
Set L(5) = Worksheets("DB").Range("L5")
Set L(6) = Worksheets("DB").Range("L6")
Set L(7) = Worksheets("DB").Range("L7")
Set L(8) = Worksheets("DB").Range("L8")
Set L(9) = Worksheets("DB").Range("L8")
'
CapBox = Mid(TextBox110, 24, 4)
For i = CapBox To (CapBox)
L(i) = CapBox
Next i
Mil Gracias Amigo...
Saludos.