Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas.

En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los otros datos correspondientes a la fila y no este hay problema,

El problema ya se genera cuando busco un valor que aun no se ha creado y me sale error de un bug.

Quisiera crear una instrucción que si ingreso un valor que no este creado en la columna donde se cargan los datos creados me genere un mensaje como " el valor no existe"

El código empleado para la búsqueda es el siguiente

Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HW123"

Cells.Find(What:=TextBox6.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox7.Text = ActiveCell.Row

Sheets("SEGUIMIENTO"). Protect "HW123"
UserForm6. Hide
UserForm3.Show

1 respuesta

Respuesta
1

Algo sencillo que te puede quitar del apuro si te da un error, prueba con este código:

On Error Goto Salir

Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HW123"
Cells.Find(What:=TextBox6.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox7.Text = ActiveCell.Row
Sheets("SEGUIMIENTO").Protect "HW123"
UserForm6.Hide
UserForm3.Show

Salir:

MsgBox "el valor no existe", vbOKOnly + vbCritical, "Atención: Error!"

-----

Si quieres algo mas elaborado concediéndome mas detalles podría ayudarte, e implementamos un código dependiendo lo que tengas armado.

Saludos.

Hola,

desafortunadamente no funciona como lo necesito

te voy a explicar bien,

tengo varios formularios.

en el primer formulario estoy creando un formulario para que me ingrese todos los datos en una columna ( cada fila es ingresado por el formulario 1)

así:

columna a columna b

fila 1 ot:0001 1-12-12

fila 2 ot:0002 1-12-12

fila 3 ot:0003 1-12-12

esos datos son cargados en el formulario y cada vez que ingreso un dato lo organiza en la columna con cada valor asignado.

ya para el formulario 2, lo primero que hago es buscar el dato de la columna "A" para este caso OT:0001 (esto desde un formulario que solo busca el dato ingresado y es eubica en la fila donde este) y así poder ingresar mas datos a otras columnas, en total son 50 columnas.

si ingreso el valor OT:0001 o algún valor que ya este en la columna A, los formularios continúan sin problema, y ahí es donde ya necesito ayuda....

si ingreso un valor que no este en la columna A, me genera un debug, lo que quiero llegar ha hacer es que si ingreso un valor como por ejemplo OT:XXXX me arroje un mensaje que diga dato no encontrado.

espero que ahora si haya hecho entender mejor.

gracias,

Te entiendo, facilitame el código que utilizas para buscar ese dato de la columna "A"

Y le buscamos una solución.

mira,

con este cargo los primero datos

Dim Count As Integer
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub CommandButton1_Click()
Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HUAWEI123"
Count = Worksheets("DATA").Cells(2, 14).Value
Count = Count + 1
Worksheets("SEGUIMIENTO").Cells(Count, 1).Value = TextBox1.Value
Worksheets("SEGUIMIENTO").Cells(Count, 2).Value = TextBox7.Value
Worksheets("SEGUIMIENTO").Cells(Count, 3).Value = LDDate1.Date
Worksheets("SEGUIMIENTO").Cells(Count, 5).Value = ComboBox2.Value
Worksheets("SEGUIMIENTO").Cells(Count, 8).Value = ComboBox1.Value
Worksheets("SEGUIMIENTO").Cells(Count, 6).Value = ComboBox3.Value
Worksheets("SEGUIMIENTO").Cells(Count, 11).Value = ComboBox4.Value
Worksheets("SEGUIMIENTO").Cells(Count, 13).Value = ComboBox5.Value
Worksheets("SEGUIMIENTO").Cells(Count, 14).Value = ComboBox6.Value
Worksheets("SEGUIMIENTO").Cells(Count, 16).Value = TextBox4.Value
Worksheets("SEGUIMIENTO").Cells(Count, 17).Value = TextBox5.Value
Worksheets("SEGUIMIENTO").Cells(Count, 10).Value = TextBox10.Value
Worksheets("SEGUIMIENTO").Cells(Count, 51).Value = TextBox8.Value
Worksheets("SEGUIMIENTO").Cells(Count, 52).Value = TextBox9.Value
Worksheets("SEGUIMIENTO").Cells(Count, 9).Value = TextBox6.Value
Worksheets("SEGUIMIENTO").Cells(Count, 19).Value = ComboBox7.Value
Worksheets("SEGUIMIENTO").Cells(Count, 15).Value = TextBox11.Value
Sheets("SEGUIMIENTO").Protect "HUAWEI123"
Sheets("MACRO").Select
UserForm4.Hide

con este busco el dato

Private Sub CommandButton1_Click()
' FORMULA PARA BUSCAR EL NOMBRE DE UNA SELECCION DEL COMBOBOX
Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HUAWEI123"
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox2.Text = ActiveCell.Row
Sheets("SEGUIMIENTO").Protect "HUAWEI123"
UserForm7.Hide
UserForm1.Show
End Sub

y el segundo dato lo cargo asi:

Dim Count2 As Integer
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
Count2 = Worksheets("DATA").Cells(2, 14).Value
Sheets("SEGUIMIENTO").Unprotect "HUAWEI123"
Worksheets("SEGUIMIENTO").Cells(Count2, 32).Value = ComboBox1.Value
Worksheets("SEGUIMIENTO").Cells(Count2, 33).Value = LDDate1.Date
Worksheets("SEGUIMIENTO").Cells(Count2, 34).Value = TextBox1.Value
Worksheets("SEGUIMIENTO").Cells(Count2, 35).Value = TextBox2.Value
Worksheets("SEGUIMIENTO").Cells(Count2, 36).Value = ComboBox2.Value
Worksheets("SEGUIMIENTO").Cells(Count2, 37).Value = LDDate2.Date
Worksheets("SEGUIMIENTO").Cells(Count2, 38).Value = TextBox3.Value
Worksheets("SEGUIMIENTO").Cells(Count2, 39).Value = TextBox4.Value
Sheets("SEGUIMIENTO").Protect "HUAWEI123"
UserForm1.Hide

gracias,

Disculpa mi desatención, sino me equivoco está aquí el tema:

If TextBox7.Text = "" Then
MsgBox "El valor no existe", vbOKOnly + vbCritical, "Atención: Error"
Exit Sub
Else
Sheets("SEGUIMIENTO").Protect "HW123"
UserForm6.Hide
UserForm3.Show
End If

Prueba y me comentas,

Private Sub CommandButton1_Click()
' FORMULA PARA BUSCAR EL NOMBRE DE UNA SELECCIÓN DEL COMBOBOX
Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HUAWEI123"
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox2.Text = ActiveCell.Row ' en esta linea debería de ser
Sheets("SEGUIMIENTO").Protect "HUAWEI123"
UserForm7.Hide
UserForm1.Show
End Sub

¿En este da el error cierto? ¿En qué línea?

sale acá

False, SearchFormat:=False).Activate

Private Sub CommandButton1_Click()
' FORMULA PARA BUSCAR EL NOMBRE DE UNA SELECCIÓN DEL COMBOBOX

On Error GoTo Salir
Sheets("SEGUIMIENTO").Select
Sheets("SEGUIMIENTO").Unprotect "HUAWEI123"
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox2.Text = ActiveCell.Row
Sheets("SEGUIMIENTO").Protect "HUAWEI123"
UserForm7.Hide
UserForm1.Show

Exit Sub

Salir:

MsgBox "el valor no existe", vbOKOnly + vbCritical, "Atención: Error!"
End Sub

----

Prueba asi

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro Diferenciar nombres parecidos en celdas

Junto con saludar y agradecer su ayuda anterior, necesito arreglar un pequeñito problema usando la macro: Como tengo varias celdas con nombres parecidos (bomba 14, bomba 141, bomba 142), la macro reconoce la palabra "bomba 14" e ingresa el dato, pero...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Proteger celdas con formato en VBA

Necesito proteger las celdas de una hoja que tengan un formato determinado. Estas celdas pueden hallarse en cualquier fila/columna de la hoja. Estoy usando la siguiente instrucción pero me da error 9 "subíndice fuera del intervalo"....
1 respuesta

Reemplazar texto en Excel

Estoy intentando hacer una macro en Excel 2003 para que me busque un texto en un rango y cuando lo encuentre seleccione la celda y luego se mueva una celda abajo. Una vez posicionado allí tiene que sustituir una serie de caracteres. Hasta aquí me...
1 respuesta

Macro que busque y seleccione (sin filtro)

En esta oportunidad les quito un tiempito para hacerles una consulta en cuanto una macro que busque y seleccione la celda encontrada, si no existe me de un MsgBox y si la celda de búsqueda está en blanco que también me lo diga. Tengo este Macro:...
1 respuesta

Autocompletar TextBox con contenido de la columna A

¿Cómo puedo hacer que lo que escribo en el textbox (que he llamado txtNombre) se autocomplete con el contenido de la columna A de la hoja actual? Soy novato; hace apenas una semana que programo con VBA y he hecho una base de datos que voy ampliando a...
1 respuesta

Buscar con 2 textbox en una hoja de excel

Tengo un formulario y tengo el código en vb para buscar un registro al introducir lo buscado en el textbox y mostrarlo, pero no se como hacerlo para buscar el registro con 2 datos Este es el código para buscar con un textbox, ¿Pero cómo lo hago para...
1 respuesta

Macro para buscar y desplazarse hasta la coincidencia

Quisiera saber como hacer una macro para buscar el contenido de A1 en un libro de excel y que al pulsar un botón me lleve hasta la coincidencia en cualquier otra hoja. Por ejemplo en A1 tengo un texto el cual escojo de una lista de validación y la...
1 respuesta