Macro para copiar a otra hoja según dos condiciones.

[K.M.]

Buenas tardes muchachos/as.

Espero puedan ayudarme con esta macro, ya que no sé como hacerla.

Para el desarrollo de un aplicativo de inventario necesito una macro que grabe la cantidad del producto en otra hoja según:

1. El tipo de movimiento (entrada, salida, entrada de remisión o salida de remisión) 

2. El producto del que se trate.

Espero puedan ayudarme con la macro, ¡gracias de antemano!

Inventario.xlsx

[Gerson Pineda]

Hola KM

Utiliza esta macro y nos comentas como te fue

With Hoja2
    vuf = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & vuf) = Range("F5")
    vcol = WorksheetFunction.Match(Range("F6"), _
    .Cells(1, 1).EntireRow, 0)
    .Range("A" & vuf).Offset(, vcol) = Range("F7")
End With

 

Saludos 

[K.M.]

Hola, Buenos días.

Tengo un pequeño problema con la macro, cuando intento correrla aparece un error y en el cuadro de diálogo dice que se requiere un objeto.

No sé si estoy haciendo algo mal, esto fué lo que escribí:

Sub Grabar()
With Inventario
    vuf = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & vuf) = Range("F5")
    vcol = WorksheetFunction.Match(Range("F6"), _
    .Cells(1, 1).EntireRow, 0)
    .Range("A" & vuf).Offset(, vcol) = Range("F7")
End With
End Sub

Pero si depués del With en lugar de Inventario escribo Hoja2, como lo habías escrito, aparece otro error y en el cuadro de diálogo dice que no se puede obtener la propiedad Match de la clase WorksheetFunction.

Espero puedas ayudarme. ¡Gracias de antemano!

[Gerson Pineda]

Cambialo a  With sheets("Inventario")

 

Saludos 

[K.M.]

Hola, aqui molestando de nuevo

Al correr la macro sale un error,  el cuadro de diálogo dice que no se puede obtener la propiedad Match de la clase WorksheetFunction.

Sub GRABAR_INVENTARIO()
With Sheets("Inventario")
    vuf = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & vuf) = Range("H7")
    vcol = WorksheetFunction.Match(Range("H9"), _
    .Cells(1, 1).EntireRow, 0)
    .Range("A" & vuf).Offset(, vcol) = Range("H10")
End With
End Sub

Las dos lineas en rojo las marca como error el VBA.

Muchas Gracias y disculpa la molestia. 

Saludos.

[Gerson Pineda]

Eso te pasa porque en la lista desplegable, la frase "Entrada" tiene un espacio al final, esta asi "Entrada ", corrigelo

 

Saludos 

[K.M.]

Ya funciona pero copia los valores al final de la lista, no en la misma fila del producto elegido.

Espero me puedas ayudar.

Saludos.

 

[Gerson Pineda]

Sube un ejemplo con resultados manuales que deseas haga VBA

 

Saludos 

[K.M.]

Buenos dias.

Acá está el archivo con un pequeño ejemplo.

Espero me ayudes

Saludos

Inventario.xlsx

[Gerson Pineda]

Prueba 

Sub CopiarDatos()

Application.ScreenUpdating = False
With Hoja2
On Error GoTo erro:
    vfil = WorksheetFunction.Match(Range("F5"), _
    .Cells(1, 1).EntireColumn, 0)
    vcol = WorksheetFunction.Match(Range("F6"), _
    .Cells(1, 1).EntireRow, 0)
    .Cells(vfil, vcol) = Range("F7").Value
End With
erro:
Application.ScreenUpdating = True

End Sub

 

[K.M.]

No me ha funcionado pero gracias por el tiempo y esfuerzo invertido

Saludos

 

[Gerson Pineda]

Hace 2 horas, K.M. dijo:

No me ha funcionado pero gracias por el tiempo y esfuerzo invertido

Saludos

 

Típica respuesta de alguien que no quiere hacer ningún esfuerzo por aprender o interpretar los aportes

Esperaré un dia por lo menos para que alguien pueda darte lo que exactamente necesitas, de lo contrario cerraré el tema

 

Saludos 

[JM123]

Hola a los dos

La macro de Gerson funciona perfectamente, el problema es que los datos que tienes en la lista de validación no coinciden exactamente con los datos que tienes en la hoja de inventario. He cambiado la validacion y funciona perfectamente.

Saludos

 

Inventario.xlsm

[Gerson Pineda]

Gracias JM23 y se lo indiqué mucho antes, mira

En 26/4/2016 at 11:02 , Gerson Pineda dijo:

Eso te pasa porque en la lista desplegable, la frase "Entrada" tiene un espacio al final, esta asi "Entrada ", corrigelo

 

Saludos 

 

Saludos