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 IntegerFila = 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
0
