• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Dirección de un rango a una celda especifica

Inocente

New Member
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 <<<
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"
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


83535
 

Attachments

  • Kardex1.xlsm
    174.7 KB · Views: 1
Last edited by a moderator:
Inocente, if you want, you can email me privately and I'll try to help. My Spanish isn't as good as Marc's, I think, but I'm interested in learning more so it would be good practice for me. I use a Gmail address "robhbridges".

Inocente, si quieres, puedes escribirme por privado e intentaré ayudarte. Creo que mi español no es tan bueno como el de Marc, pero quiero aprender más, así que sería una buena práctica para mí. Tengo la correo electrónico de "robhbridges" y dominio Gmail.
 
Back
Top