Visual Basic para Aplicaciones - Evitar Registros Duplicados con (2 Criterios)

Life is soft - evento anual de software empresarial
   
Vista:

Evitar Registros Duplicados con (2 Criterios)

Publicado por Humberto Tellez (6 intervenciones) el 20/08/2017 00:43:02
Hola necesito ayuda con el siguiente codigo, lo quiero modificar para que no guarde registros duplicados pero que cumpla dos criterios, es decir para este ejemplo que no se repita el codigo y el folio . Gracias de antemano

1
2
3
4
5
6
'Este es el codigo que uso para que no se repita el mismo codigo
 
Dim unico, Fila As Integer
Fila = Hoja1.Range("B" & Rows.Count).End(xlUp).Row
unico = Application.WorksheetFunction.CountIf(Hoja1.Range("B1:B" & Fila), Text_Codigo.Text)
If unico > 0 Then: MsgBox ("EL codigo ya existe"): Exit Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Evitar Registros Duplicados con (2 Criterios)

Publicado por Antoni Masana (175 intervenciones) el 21/08/2017 08:59:07
No se entiende. Ni el problema ni lo que significa este trozo de código.
¿Cual es son los datos?
¿Cual es son los criterios?
¿Cual es el código completo?

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad