Macro envía datos a columna

[mago18]

Buenas tardes a todos.

Tengo un pequeño libro con una hoja Registro en donde capturo el código de un producto, en ella ingreso cantidad,Lote y caducidad.
en otra hoja tengo un listado con varios...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Erik Lopez]

Range("D4:F4").Copy Destination:=Sheets("listado").Range(ubica).Offset(0, 4)

 

[Goldfinger]

click en el boton y comentas

 

[mago18]

Range("D4:F4").Copy Destination:=Sheets("listado").Range(ubica).Offset(0, 4)

Erik. muchas gracias, con la solución tengo parte de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mago18]

click en el boton y comentas

Muchas gracias por la respuesta, el archivo me funciona, pero al colocar nuevo código o producto me marca...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Lacayo]

Pero si el producto tiene 2 caducidades diferentes o mas, debo pegarlo en las columnas siguientes.

Si el producto tiene dos caducidades, ¿No...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Lacayo]

Edito.
Lo he entendido mal. Quieres agrupar los productos por nombre en la hoja listado.

 

[Goldfinger]

Muchas gracias por la respuesta, el archivo me funciona, pero al colocar nuevo código o producto me marca un error 400, esto después de capturar los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mago18]

Edito.
Lo he entendido mal. Quieres agrupar los productos por nombre en la hoja listado.

Asi es, una vez encontrado el codigo en el listado...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub Copiar(): On Error Resume Next
With Sheets("Listado")
   For x = 4 To Range("B" & Rows.Count).End(xlUp).Row
      Set código = .Columns("C").Find(Range("B" & x), , , xlWhole)
      If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mago18]

Macro Antonio.
Excelente solución, justo lo que necesitaba.
yo había agregado al macro inicial y con parte de la opción de Erik.

Range("D4:F4").Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí