Direccionar de un rango a una celda especifica

Inocente

New Member
Joined
Mar 22, 2023
Messages
1
Office Version
  1. 365
  2. 2021
estimado buenas tardes.

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
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"
.Cells(Fila + 1 + 11, 2) = "TIPO DE COMPROBANTE"
.Celdas(Fila + 1 + 11, 3) = "SERIE"
.Cells(Fila + 1 + 11, 4) = "Nro DE DOCUMENTO"
.Cells(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 próximo
Terminar estafa

Finalizar sub

por 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

vínculo de la hoja excel

-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---
 

Attachments

  • 1679349745980.png
    1679349745980.png
    50.2 KB · Views: 13
  • 1679350405725.png
    1679350405725.png
    78.4 KB · Views: 11

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes

Forum statistics

Threads
1,213,551
Messages
6,114,267
Members
448,558
Latest member
aivin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top