Exportar Tabla de Excel con Word con rango

3 envíos / 0 nuevos
Último envío
SALAVERRINO
Imagen de SALAVERRINO
Offline
última acción: Hace 3 años 6 meses
alta: 24/05/2016 - 15:59
Puntos: 210
Exportar Tabla de Excel con Word con rango

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.

 

AdjuntoTamaño
Package icon nueva_carpeta.zip615.37 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 17 horas 56 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Si en todos los registros hay

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.

SALAVERRINO
Imagen de SALAVERRINO
Offline
última acción: Hace 3 años 6 meses
alta: 24/05/2016 - 15:59
Puntos: 210
Exportar Tabla de Excel con Word con rango

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.