grim

Lo que pides es sencillo. Si el encabezado de la tabla lo tienes por ejemplo en la fila 4, lo que tienes que hacer es seleccionar toda la fila 5, ir al menú "Ventana", opción "Dividir" y luego otra vez menú "Ventana" opción "Inmovilizar paneles".

Lo que pides es sencillo, se hace con la función JERARQUÍA(). Aplicado a tu ejemplo sería así: B1: =JERARQUIA(A1;$A$1:$A$5) B2: =JERARQUIA(A2;$A$1:$A$5) B3: =JERARQUIA(A3;$A$1:$A$5) Etc...

Prueba así: Por = InputBox("Por favor introduzca el Nº de FACTURA de desea abrir", "PLAVIcostes v.1") busqueda_exitosa = False s = 1 Do celda_actual_de_buskeda = Worksheets("datos factura").Cells(s, 1).Value If x = celda_actual_de_buskeda Then MsgBox...