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.
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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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