02/08/2008, 09:04
|
| | | Fecha de Ingreso: julio-2008
Mensajes: 99
Antigüedad: 15 años, 8 meses Puntos: 1 | |
| Respuesta: Forma abreviada
HOLA,
TALVEZ ESTAS LINEAS TE AYUDEN.
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
ActiveCell.SpecialCells(xlLastCell).Select
La primera te desplazara por la fila hasta que encuentre alguna celda con datos
La segunda te desplazara por la columna hasta que encuentre alguna celda con datos
y la tercera te lleva hasta la ultima celda que encuentre con dato entre fila y columna.
ten en cuenta que las primeras dos lineas te desplazaran hasta la ultima celda de la hoja si no encuentra ningun dato por la fila o la columna y la tercera no importa que celda tengas seleccionada siempre te llevara a la ultima celda escrita |