comparar valor de combobox con valor en columna

Hola nin:
Mira a ver si este código te vale..

Private Sub ComboBox1_Change()
Dim cb_1 As Variant, c As Range
cb_1 = ComboBox1.Value

Set c = Worksheets(1).Range("c:c").Find(What:=cb_1, _
After:=Worksheets(1).Range("c:c").Cells(1, 1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not c Is Nothing Then
MsgBox "El valor " & cb_1 & " ya existe."
Else: MsgBox "el valor " & cb_1 & " NO EXISTE"
'Aquí tu código
End If
End Sub

Saludos.-


"nin" escribió en el mensaje de noticias
news:

¡ Hola !
Espero me puedan ayudar con mi consulta:

Tengo un combobox que recoge los valores de la columna F en hoja 2. Solo
algunos
de esos valores están en la columna C de hoja 1
Necesito que el valor elegido en el combobox sea comparado con la columna
C de
la hoja 1 y si el valor existe lance mensaje "ya existe". Si no existe
entonces ya pasa a otra instrucción (que funciona perfectamente)

Juan Español escribió el 06/11/2011 01:28 :

Hola nin:
Mira a ver si este código te vale..

Private Sub ComboBox1_Change()
Dim cb_1 As Variant, c As Range
cb_1 = ComboBox1.Value

Set c = Worksheets(1).Range("c:c").Find(What:=cb_1, _
After:=Worksheets(1).Range("c:c").Cells(1, 1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not c Is Nothing Then
MsgBox "El valor " & cb_1 & " ya existe."
Else: MsgBox "el valor " & cb_1 & " NO EXISTE"
'Aquí tu código
End If
End Sub

Saludos.-


"nin" escribió en el
mensaje de noticias
news:

¡ Hola !
Espero me puedan ayudar con mi consulta:

Tengo un combobox que recoge los valores de la columna F en hoja 2. Solo
algunos
de esos valores están en la columna C de hoja 1
Necesito que el valor elegido en el combobox sea comparado con la columna
C de
la hoja 1 y si el valor existe lance mensaje "ya existe". Si no
existe
entonces ya pasa a otra instrucción (que funciona perfectamente)

Gracias Juan!
Quedó perfecto. Nunca había utilizado el método Find, así que otra cosita más que aprendo.

Saludos
Nin :))