Listado de validación

Squalljead :
Supongo que las columnas que usas de la Hoja1 son A, B y C.
En la Hoja2 uso la columna B, para poner la concatenación y la A para buscar mediante buscarv (vlookup)el mismo datos en las celdas anteriores.
Voy a usar un evento (Worksheet_Change) que se ejecuta cada vez que se CAMBIA un valor en una celda de la hoja1.
Ese evento usa una función propia (verificación) para ver si ese dato ya fue ingresado previamente.
En la hoja1 (celda a1) conviene poner una suma(a1:a10000) y llamar a la celda sumatoria. El valor de esta celda sirve para verificar si alguna combinación quedó repetida.
Ahora los códigos .
En Excel y con Alt-f11 ingresa al VBA.
(1)Ctrl+R para ir a la Ventana Proyecto(VBAProject).
Hacer doble click en "Hoja1".
El cursor se posiciona en la ventana de código.
En la lista de OBJETO seleccioná "Worksheet".
En la lista de PROCEDIMIENTO seleccioná "change".
Pegá allí el siguiente código.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim fila
Dim resp As Boolean
fila = Target.Row
resp = False
'supongo los datos en columnas A,B y C
If Target.Column = 1 Then
If Not IsEmpty(Target.Offset(0, 1).Value) And Not IsEmpty(Target.Offset(0, 2).Value) Then
resp = Verificacion(fila)
End If
ElseIf Target.Column = 2 Then
If Not IsEmpty(Target.Offset(0, -1).Value) And Not IsEmpty(Target.Offset(0, 1).Value) Then
resp = Verificacion(fila)
End If
ElseIf Target.Column = 3 Then
If Not IsEmpty(Target.Offset(0, -1).Value) And Not IsEmpty(Target.Offset(0, -2).Value) Then
resp = Verificacion(fila)
End If
End If
If resp = True Then
MsgBox "Los datos estan repetidos"
End If
End Sub
***********************
***********************
(2) Insertá un módulo (Insertar/Modulo)
y pegá allí la función :
Function Verificacion(ByVal nf As Long) As Boolean
'**defino nombres de hojas
Dim NH1 As String, NH2 As String
Dim CantRepe
NH1 = "Hoja1"
NH2 = "Hoja2"
'** NH1 = Sheets(1).Name
'** NH1 = Sheets(2).Name
Sheets(NH2).Range("B" & Format$(nf, "#0")).FormulaR1C1 = "=" & NH1 & "!RC[-1]&" & NH1 & "!RC&" & NH1 & "!RC[1]"
Sheets(NH2).Range("A" & Format$(nf, "#0")).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[1],R1C2:R[-1]C2,1,FALSE)),0,1)"
calculate
If Sheets(NH2).Range("A" & Format$(nf, "#0")).Value = 1 Then
Verificacion = True
Exit Function
Else
Verificacion = False
End If
'****** para verificar las otras celdas , "Sumatoria" es la celda A1 de la hoja2
CantRepe = Sheets(NH2).Range("sumatoria").Value
If CantRepe Then
MsgBox "Habría : " & Format$(CantRepe, "#0") & " repeticiones . Verifique "
End If
End Function
Espero haber sido claro.
La hoja2 puede estar oculta (formato hoja ocultar).
Si tenés algún problema, indicame tu dirección de e-mail y te mando el excel de prueba.
Existe otra solución sin macro, usando buscarv en la hoja2 (tal como en la macro), la celda "sumatoria" y mostrando un mensaje en alguna celda de hoja1 si sumatoria es >0. Pero me gusta más esta.
Suerte.

Ok. Verificare esta forma.. creo que va ha salir muy bien... pero si no... de estudio me servirá tu código.. .gracias.. y luego te cuento