Historia de rangos seleccionados

[Antoni]

Hola foreros:

¿ Cuantas veces hemos jurado en arameo después de olvidarnos pulsar el último CTRL en la selección de múltiples rangos discontinuos ? Seguramente muchas, pero con este aporte ya no se producirá mas.

Después de abrir el archivo adjunto, pulsa la tecla de función F1, a partir de este momento, cualquier rango seleccionado quedará debidamente registrado e irá apareciendo en la barra de estado.

Si pulsas F2, se efectuará la selección de todos los rangos seleccionados hasta el momento, si pulsas F3, se borrará el historial de selección y se empezará de nuevo, y por último, si pulsas F4 se pausará el registro de la selección hasta que pulses de nuevo F1 que continuará a partir del punto en que se pulsó F4 por última vez.

Al cerrar el archivo se pierde la historia.

Saludos

Historial de rangos seleccionados.xls

[Sergio]

Macro, voy a probarla, pero sé que me va a ser de mucha utilidad.

Gracias.

[juliocesar_seapf]

Muy buena ..... me la guardo....

[rmaximo]

buenas Macro Antonio, buen aporte, se le pueden buscar utilidades... solo un coment

simplemente con poner Target.Address (0,0) no tendrias que hacer uso de la funcion Replace(Target.Address, "$", "")

saudos meu compañeiro

Ya hace mucho que estoy en el foro pero es la primera vez que dispongo de 5 min para poder poner unas lineas.

Feliz Navidad a todos.

[Antoni]

simplemente con poner Target.Address (0,0) no tendrias que hacer uso de la funcionReplace(Target.Address, "$", "")

Y todavía sería mas correcto:

Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)

Saludos