Ayuda con Do While
Hola Expertos.
Tengo un problema tengo el siguiente código para búsqueda de datos por medio de un código, pero el problema es que si no encuentra el dato el loop se hace hasta que complete todos los 65000 filas de la columna A como hago para evitar que recoora todo eso y que solo lo haga hasta que encuentre una celda vacía.
elcodigo que tengo es el siguiente
Do While codigo <> Int(TextBox1.Value)
Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12").Value = Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12").Value + 1
cont = Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12")
codigo = Workbooks("Directorio").Worksheets("Directorio").Cells(cont, 1)
Loop
Tengo un problema tengo el siguiente código para búsqueda de datos por medio de un código, pero el problema es que si no encuentra el dato el loop se hace hasta que complete todos los 65000 filas de la columna A como hago para evitar que recoora todo eso y que solo lo haga hasta que encuentre una celda vacía.
elcodigo que tengo es el siguiente
Do While codigo <> Int(TextBox1.Value)
Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12").Value = Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12").Value + 1
cont = Workbooks("Prueba 14").Worksheets("Hoja1").Range("A12")
codigo = Workbooks("Directorio").Worksheets("Directorio").Cells(cont, 1)
Loop
1 respuesta
Respuesta de nicolaspa01
1
A ver explicame una cosa: quieres que tu macro recorra las celdas y se detenga cuando la celda no sea igual a tu textbox y también cuando se vacía.
Yo creo que lo que buscas es que encuentre el valor del textbox
debiera ser algo parececido a esto
Range("A14").select
Do While Activecell <> Empty
If Activecell.value=Val(Textbox1.value) Then
msgBox prompt:="Encontrado"
end if
Activecell.offset(1,0).select
Loop
End Sub
Preguntame nuevamente si no es eso
Yo creo que lo que buscas es que encuentre el valor del textbox
debiera ser algo parececido a esto
Range("A14").select
Do While Activecell <> Empty
If Activecell.value=Val(Textbox1.value) Then
msgBox prompt:="Encontrado"
end if
Activecell.offset(1,0).select
Loop
End Sub
Preguntame nuevamente si no es eso
