Buenas noches a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la macro que describo y adjunto archivo, la macro permite exportar la tabla que se encuentran en la pestaño TELECREDITO a una planitlla en word y problema esta la siguiente instrucción: Worksheets("TELECREDITO").Range("A1:D7").Select y como podran apreciar la cantidad de filas es superior a lo indicado Range("A1:D7") y lo que deseo es que esta instrucción sea automática es decir que por si sola busque la ultima fila que tiene información.
Desde ya agradezco su apoyo.
| Adjunto | Tamaño |
|---|---|
 nueva_carpeta.zip | 615.37 KB |
Si en todos los registros hay datos en la columna D (monto), puedes utilizar esto para identificar el final de tus datos.
Se trataría de reproducir lo mismo que harías con el teclado cuando te sitúas en la celda D1 y pulsas [Fin][flecha abajo]
con esta combinación de teclas la celda activa se iría a la última celda con datos debajo de la D1
Mediante programación esto se consigue con el método .End de una celda, indicando como dirección hacia abajo "xlDown"
Es decir, que el rango sería desde la celda A1, hasta la última celda que haya bajo la D1
por ejemplo así:
With Worksheets("TELECREDITO")
.Range(.Range("A1"), .Range("D7").End(xlDown)).Select
End With
------
Ya sé Excel, pero necesito más.
Buenos días pacomegia, gracias el aporte brindado la cual me ayudo mucho en solucionar la distribución del rango, por lo quedaría como TEMA SOLUCIONADO.
Saludos.
Salaverrino.