Generar un documento a partir de una hoja excel
Tengo una hoja de excel con varias columnas: articulo, unidades y "unidades × precio de unidad". Es posible generar un archivo (tabla, word, pdf, etc.) ¿En el que solo aparezcan las filas de los artículos marcados?
1 Respuesta
No te he entendido. De la hoja de Excel, de todos los productos, solo pongo cantidades en 4. Quiero que me genere un listado solo con esos 4 productos. No se si se haría con una macro.
Mi nivel es básico, gracias.
Lo que pasa es que necesito ver en dónde están qué columnas están tus datos, ¿son la A, la B, la M?
Por eso te pido una imagen.
No sé en cuál columna tienes las cantidades, ¿en cuál fila empiezan tus cantidades?
Lo que quiero ver es un ejemplo, si pudieras facilitar más información de cómo tienes tus datos, sería más práctico hacerte la macro.
Para generar un archivo PDF de forma automática se tiene que hacer con una macro. No te preocupes por la macro, yo te la voy a hacer, pero para hacer la macro, necesito que me des más información.
Si no quieres que sea con una macro, entonces simplemente filtra tu información en la columna de cantidad por las que sean mayores a cero, entonces guarda el archivo como PDF y te creará un archivo PDF solamente con lo que ves en tu hoja de excel.
Hola de nuevo.
Este es el excel:
Las columnas que el usuario rellena son la C, H, M y R.
En este ejemplo, quiero que me genere un archivo (me da igual el formato) que sea imprimible, de la siguiente forma:
-Fanta Naranja 1 2.24
-Batido Vainilla 2 1,8
-Brugal 1 32.05
-Esparragos 1 41.5
TOTAL= 77.59 €
Gracias....
H o l a:
Te anexo la macro para generar un archivo PDF en la misma carpeta donde tienes tu archivo de excel.
Sub Imprimir()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
h2.Range("A1:C1") = Array("Producto", "Cantidad", "Importe")
k = 2
cols = Array("C", "H", "M", "R")
For j = LBound(cols) To UBound(cols)
col = Columns(cols(j)).Column
For i = 4 To h1.Range(cols(j) & Rows.Count).End(xlUp).Row
If h1.Cells(i, col) > 0 Then
h2.Cells(k, "A") = h1.Cells(i, col - 2)
h2.Cells(k, "B") = h1.Cells(i, col)
h2.Cells(k, "C") = h1.Cells(i, col + 1)
tot = tot + h1.Cells(i, col + 1)
k = k + 1
End If
Next
Next
h2.Cells(k, "A") = "TOTAL"
h2.Cells(k, "C") = tot
'
ruta = ThisWorkbook.Path & "\"
arch = "resumen.pdf"
h2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
h2.Delete
MsgBox "Se creó archivo PDF"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Imprimir
- Aceptar.
- Para ejecutarla dale click a la imagen.
Cuando guardes tu archivo, deberás guardarlo como excel habilitado para macros.
':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)R ecuerda valorar la respuesta. G r a c i a s
