Crear Informe de excel a Word

[xadona]

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

[tese1969]

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