estimado buenas tardes.
>>> use English, please <<<
Estoy intentando sacar el informe de este archivo de esta manera.
intente jalar de la columna codigo y fijar en celda celda Codigo, el cual esta resaltado en la siguiente imagen, pero al generar la macro como resultado me jala el codigo del cuadro o informe anterior, e intento hacer una busqueda de la hoja5 comparando con la hoja6 yy direccionar el dato encontrado en las celdas código de la hoja6, pero no me da ningun resultado tampoco, la macro que esta corriendo es
>>> use code - tags <<<
Terminará si Del mes Terminar estafa Finalizar sub por next favor me podrian ayudar a solucionar este caso o darme las pautas para poder corregir si en algun punto genere mal los codigos de programacion. muchas gracias por su apoyo
>>> use English, please <<<
Estoy intentando sacar el informe de este archivo de esta manera.
intente jalar de la columna codigo y fijar en celda celda Codigo, el cual esta resaltado en la siguiente imagen, pero al generar la macro como resultado me jala el codigo del cuadro o informe anterior, e intento hacer una busqueda de la hoja5 comparando con la hoja6 yy direccionar el dato encontrado en las celdas código de la hoja6, pero no me da ningun resultado tampoco, la macro que esta corriendo es
>>> use code - tags <<<
Code:
subseparador()
tenue fila mientras
Dim final siempre
Hoja6.Activar
Final = nReg(Hoja6, 13, 1) - 2
Con Hoja6
Para Fila = Final A 12 Paso -1
Si .Celdas(Fila + 1, 15) <> .Celdas(Fila, 15) Entonces
Filas(.Celdas(Fila+1, 1).Fila & ":" & .Celdas(Fila+1, 1).Fila+11).Insertar .Cells(
Fila + 1 + 1, 1) = "FORMATO 13.1: REGISTRO DE INVENTARIO PERMANENTE VALORIZADO - DETALLE DEL INVENTARIO VALORIZADO"
.Celdas(Fila + 1 + 2, 1) = "PERIODO:"
.Celdas(Fila+1+2,2) = ""
.Celdas(Fila + 1 + 3, 1) = "RUC:"
.Celdas(Fila+1+3,2) = ""
.Celdas(Fila + 1 + 4, 1) = "RAZÓN SOCIAL:"
.Celdas(Fila+1+4,2) = ""
.Celdas(Fila + 1 + 5, 1) = "CÓDIGO:"
.Celdas(Fila + 1 + 5, 2) = Hoja6.Celdas(Fila, 15)
.Celdas(Fila + 1 + 6, 1) = "DESCRIPCION:"
.Celdas(Fila + 1 + 6, 2) = Hoja6.Celdas(Fila, 16)
.Celdas(Fila + 1 + 7, 1) = "UNI.DE MEDIDA:"
.Celdas(Fila + 1 + 7, 2) = ""
.Cells(Fila + 1 + 8, 1) = "MÉTODO DE EVALUACIÓN:"
.Celdas(Fila + 1 + 8, 2) = ""
.Celdas(Fila + 1 + 11, 1) = "FECHA DEL DOCUMENTO"
. Celdas(Fila + 1 + 11, 2) = "TIPO DE COMPROBANTE"
.Celdas(Fila + 1 + 11, 3) = "SERIE"
.Cells(Fila + 1 + 11, 4) = "Nro DE DOCUMENTO"
.Celdas (Fila + 1 + 11, 5) = "TIPO DE OPERACION"
.Celdas(Fila + 1 + 10, 6) = "ENTRADAS"
.Celdas(Fila + 1 + 10, 9) = "SALIDAS"
.Celdas(Fila + 1 + 10, 12) = "SALDOS"
.Celdas(Fila + 1 + 11, 6) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 7) = "COSTO UNITARIO"
.Celdas(Fila + 1 + 11, 8) = "COSTO TOTAL"
. Celdas(Fila + 1 + 11,9) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 10) = "COSTO UNITARIO"
.Celdas(Fila + 1 + 11, 11) = "COSTO TOTAL"
.Celdas(Fila + 1 + 11, 12) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 13) = "COSTO UNITARIO" .Celdas( Fila + 1 + 11, 14) = "COSTO TOTAL" .Celdas(Fila + 1 + 11, 15) = "CÓDIGO"
Attachments
Last edited by a moderator: