Saltar al contenido

Crear Informe de excel a Word

publicado

Hola a todos, tengo una macro de excel que me genera un informe a Word, el proceso se basa en copiar la celda y pegarla en el word que genera la Macro. Lo que quiero realizar es que cuando la celda no tenga ningún valor o no tenga nada escrito (ya que algunas son funciones logicas donde un resultado sera un "texto" o "" y en otras simplemente no habra nada escrito) solamente quiero que la macro copia y pega dicha celda cuando se tenga texto.

Esta es la Macro:

-------

Sub Botón44_AlHacerClic()

' Botón44_AlHacerClic Macro

' Macro grabada el 26/06/2012 por nn

'

Set WordApp = CreateObject("Word.Application")

Set WordDoc = WordApp.Documents.Add

Worksheets("Auditoria Seguridad").Range("E4:E4").Select

Application.Selection.Copy

WordApp.Visible = True

WordApp.Selection.PasteAndFormat (wdChartvalue)

Worksheets("Auditoria Seguridad").Range("A1:A1").Select

Application.Selection.Copy

WordApp.Visible = True

WordApp.Selection.PasteAndFormat (wdChartvalue)

End Sub

--------

Como veis coge el Rango de celda seleccionado lo copia y lo pega a Word, lo que quieroa es que la copie si dicha celda tiene algún valor generado por la formula o algún texto puesto a mano, en caso contrario si el valor de la formula es 0 o "", que no lo copie

Gracias de antemano por la ayuda

Featured Replies

publicado

Buenas, Xadona

En principio, parece que bastaría con un condicional antes de copiar la casilla......de manera que si no tiene ningún dato o es igual a 0 no siguiera ejecutando y saliera de la macro. Incluso podría mostrar un Msgbox para advertirte de esa situación.

Sin un archivo de ejemplo es más complicado, pero vamos, inténtalo con esto:


If Range("e4") = "" or Range("e4") = 0 Then exit Sub
[/CODE]

Yo lo pondría incluso antes de crear el Word.......por razones obvias.......si no vas a utilizarlo, te lo ahorras....jejeje..

Dime si te funciona o adjunta tu fichero (con datos ficticios) para poder probar otra opción.

Un saludo,

Tese

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.