Validar búsqueda en VBA

Gracias por la ayuda Héctor

Tengo 1 Textbox y un CommandButton en la Hoja1

En el textbox introduzco un número, y luego quiero programar en el botón que
si encuentra el número (ubicado en la hoja2, columna H) que aparece en el
TextBox, aparezca un mensaje diciendo número ya existe, de lo contrario que
ejecuete otro código que ya tengo programado.

Saludos y muy agradecido,

Roberto

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

Quisiera validar... via codigo a traves de un boton, buscar en una
columna un numero
y a partir de ese numero emitir un mensaje, lo que necesito es saber si
existe o no, para poder validar.

de entre varias alternativas posibles, y a reserva de que expongas algunos
detalles mas... 'concretos' como:
- de donde/como <-> tome/pases 'el numero' para que el codigo lo busque ?
- en donde [hoja y rango/columna(s)] habria de buscarse ?
- el 'tipo' de boton [si de la barra de herramientas formularios o cuadro
de controles] ?

prueba usando la funcion 'contar.si' [por codigo en ingles -> countif] +/-
como sigue:

MsgBox Application.WorksheetFunction.CountIf(Columns("b"), 15)

o simplemente: -> MsgBox Application.CountIf(Columns("b"), 7)

o suponiendo que el numero se debe buscar en una hoja 'determinada'...

MsgBox Application.CountIf(Worksheets("hoja2").Columns("d"), 1050)

etc. etc. etc. :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Excelente Héctor...

Gracias

Roberto

"Héctor Miguel" escribió en el mensaje
news:%

hola, Roberto !

Tengo 1 Textbox y un CommandButton en la Hoja1
En el textbox introduzco un numero, y luego quiero programar en el boton
que si encuentra el numero
(ubicado en la hoja2, columna H) que aparece en el TextBox, aparezca un
mensaje diciendo numero ya existe
de lo contrario que ejecuete otro codigo que ya tengo programado.

revisa, confirma/modifica 'nombres' [controles y hoja], y prueba con un
codigo +/- como el siguiente
[en el modulo de codigo de 'la hoja' que contiene los controles -asumo- de
la barra cuadro de controles]...

Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
If Application.CountIf(Worksheets("hoja2").Columns("h"), TextBox1) Then
MsgBox "El numero " & TextBox1 & " ya existe.", , " Indica uno
diferente."
TextBox1 = Empty
Exit Sub
End If
MsgBox "Aqui se continuan las acciones ..."
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Roberto !

Quisiera validar... via codigo a traves de un boton, buscar en una columna un numero
y a partir de ese numero emitir un mensaje, lo que necesito es saber si existe o no, para poder validar.

de entre varias alternativas posibles, y a reserva de que expongas algunos detalles mas... 'concretos' como:
- de donde/como <-> tome/pases 'el numero' para que el codigo lo busque ?
- en donde [hoja y rango/columna(s)] habria de buscarse ?
- el 'tipo' de boton [si de la barra de herramientas formularios o cuadro de controles] ?

prueba usando la funcion 'contar.si' [por codigo en ingles -> countif] +/- como sigue:

MsgBox Application.WorksheetFunction.CountIf(Columns("b"), 15)

o simplemente: -> MsgBox Application.CountIf(Columns("b"), 7)

o suponiendo que el numero se debe buscar en una hoja 'determinada'...

MsgBox Application.CountIf(Worksheets("hoja2").Columns("d"), 1050)

etc. etc. etc. :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Roberto !

Tengo 1 Textbox y un CommandButton en la Hoja1
En el textbox introduzco un numero, y luego quiero programar en el boton que si encuentra el numero
(ubicado en la hoja2, columna H) que aparece en el TextBox, aparezca un mensaje diciendo numero ya existe
de lo contrario que ejecuete otro codigo que ya tengo programado.

revisa, confirma/modifica 'nombres' [controles y hoja], y prueba con un codigo +/- como el siguiente
[en el modulo de codigo de 'la hoja' que contiene los controles -asumo- de la barra cuadro de controles]...

Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
If Application.CountIf(Worksheets("hoja2").Columns("h"), TextBox1) Then
MsgBox "El numero " & TextBox1 & " ya existe.", , " Indica uno diferente."
TextBox1 = Empty
Exit Sub
End If
MsgBox "Aqui se continuan las acciones ..."
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.