Rap-o ...

La que me ha brindado a mi y a los usuarios de este foro durante estos años.. Éxito en lo que se proponga y éxito en todo!

Ya solucione el problema marcando las filas que tienenla columna menor a 500 con el multiselect ..

Ya lo he conseguido agregue esta línea Lb_buscar.Selected(i) = True y quite el exit for

Dan lo conseguí .. ocupe el left. Gracias If Left(txt_ing_codigo, 2) = vh Or Left(txt_ing_codigo, 2) = vh Then ActiveCell = txt_kilometraje.Text + 6000 ActiveCell.Offset(0, 1).Select Else ActiveCell = txt_kilometraje.Text + 10000 ActiveCell.Offset(0,...

En mi caso lo pegue con acero liquido "eso si debes mantener presionado el espejo contra la superficie"

Dante Amor Hola Dan Resolví el problema me costo pero probando y probando lo solucione.. Agregue estas líneas y funciono.. solo me faltan 2 cosas que solucionar para mi proyecto Gracias saludos If Lb_buscar.List(j, 1) < 5000 Then...

Dante Amor Ya solucione el problema he leído que el webbrowser no acepta menus! Hice un botón para que aparezca un userform y ahí poder ver los pdf..

Prueba con esto Pega esto en la celda que toma la referencia =SI(aqui dejas la celda donde esta la formula en cero =0;"")

puedes ocupar esta fórmula.. Si tus datos los tienes en la hoja1 y quieres que aparezca el ultimo dato de la columna A en la hoja 2 en la celda que desses agregas esta fórmula.. =INDICE(Hoja1!A:A;CONTARA(Hoja1!A:A);)

Creo que es lo que buscas pon esta formula en una celda =EXTRAE(pon la celda donde esta la palabra no practican el ateltismo ;1;15) y listo Y queda no practican el