cai_man

Esto funciona con Excel XP, en 2000 no lo he probado. Prueba el siguiente código Sub Hipervinculos() Topo = ActiveSheet.Name For Each H In Worksheets(Topo).Hyperlinks H.ScreenTip = " " Next End Sub Y se debería mostrar un rectángulo amarillo vacío.

El problema es que Excel tiene la función BUSCAR pero parte de que la búsqueda de datos se sitúe en la primera columna y el resultado en la segunda o sucesivas y no al revés. En código se puede hacer con una pequeña macro. ¿No puedes modificar la...

Creo que el problema que tienes es que las celdas están formateadas como "general" y entonces excel automáticamente las convierte en formato científico (vaya expotencial cuando estudiaba). Vete al menu Formato/Celdas y selecciona la opción "número"...

Prueba el siguiente código: Sub Texto() Do Until ActiveCell = "" If Not IsNumeric(ActiveCell.Value) = True Then Topo = Left(ActiveCell.Value, 2) ActiveCell.Offset(0, 1) = Topo End If ActiveCell.Offset(1, 0).Select Loop End Sub