Andrés Reyes

Abraham Valencia respondió: [Hola Tu variable "Rango" tienen asignada solo una hoja cuyo módulo se llama "Hoja1", así que por más que esto esté dentro de un bucle: For Each Celda In Rango Siempre dará "vueltas" sobre las mismas celdas de la hoja cuyo módulo es "Hoja1". Supongo...

Abraham Valencia respondió: [Hola Prueba así: Dim UltimaFila As Range Set UltimaFila = Cells(Rows.Count, 1).End(xlUp) MsgBox UltimaFila.Address Abraham Valencia Lima, Perú

sandra155 respondió: Puedes agregar esta sentencia Adecuala a lo que necesitas Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim n As Range If textbox1.Text <> "" Then Set n = Worksheets("hoja1").Range("a2:a55555").Find(what:=textbox1.Text,...

Intenta adaptar tu disco como si fuera una USB, el cableado lo puedes conseguir en línea.