Datos para reporte
Hola Elsa, ya me habías pasado una macro
Para mi consulta pero hoy me doy cuenta de esto:
Mi hoja tiene 3 libros
Factura - Datos - Reporte
Cuando termino paso los datos al reporte
Y muy bien si pasan pero no del todo bien.
El libro de reporte tiene
#fact-cliente-Subtotal- Impuesto-Total
En los 3 últimos como son campos que tienen fórmula desde el libro factura
al pasarlos al reporte no aparecen los
datos si no aparecen las fórmulas, creo
los debe tomar como datos,
¿Me puedes decir como? Te paso la macro que me diste:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 08/01/2007 por TCI
'
' Acceso directo: CTRL+a
'Sub actualizaRep()
'macro desarrollada por Elsamatilde 6/01/07
Dim filalibre As Integer
'encontrar fila libre en hoja Resumen
Sheets("Reporte").Select
filalibre = ActiveSheet.Range("C65536").End(xlUp).Row + 1
'volver a la hoja factura
Sheets("Factura").Select
'copiado de datos de la hoja fact a la hoja Rep
'ejemplo de instrucciones.
'copia en col B
ActiveSheet.Range("H4").Copy Destination:=Sheets("Reporte").Cells(filalibre, 1)
'copia en col B
ActiveSheet.Range("G2").Copy Destination:=Sheets("Reporte").Cells(filalibre, 2)
Y así para cada campo
Para mi consulta pero hoy me doy cuenta de esto:
Mi hoja tiene 3 libros
Factura - Datos - Reporte
Cuando termino paso los datos al reporte
Y muy bien si pasan pero no del todo bien.
El libro de reporte tiene
#fact-cliente-Subtotal- Impuesto-Total
En los 3 últimos como son campos que tienen fórmula desde el libro factura
al pasarlos al reporte no aparecen los
datos si no aparecen las fórmulas, creo
los debe tomar como datos,
¿Me puedes decir como? Te paso la macro que me diste:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 08/01/2007 por TCI
'
' Acceso directo: CTRL+a
'Sub actualizaRep()
'macro desarrollada por Elsamatilde 6/01/07
Dim filalibre As Integer
'encontrar fila libre en hoja Resumen
Sheets("Reporte").Select
filalibre = ActiveSheet.Range("C65536").End(xlUp).Row + 1
'volver a la hoja factura
Sheets("Factura").Select
'copiado de datos de la hoja fact a la hoja Rep
'ejemplo de instrucciones.
'copia en col B
ActiveSheet.Range("H4").Copy Destination:=Sheets("Reporte").Cells(filalibre, 1)
'copia en col B
ActiveSheet.Range("G2").Copy Destination:=Sheets("Reporte").Cells(filalibre, 2)
Y así para cada campo
1 Respuesta
Respuesta de Elsa Matilde
1