transferir datos de una celda a otra en otra hoja

[cristian_ojeda]

Tengo dos hojas, en hoja2, una lista de productos con la cantidad de producto, en hoja uno selecciono un producto e ingreso una cantidad nueva para dicho producto, deseo que el nuevo valor quede reflejado en hoja 2. Ej

Hoja2

Cuaderno 2
Lapices 5
Pincel 4

Hoja1

Selecciono Lapices, ingreso una cantidad por ejemplo 7

En Hoja2

Debiera tener Ahora:

Cuaderno 2
Lapices 12
Pincel 4

¿Como lo hago?

[Pittcha]

Yo creo que deberias añadir una formula en todas las celdas de la hoja 2, en que sume lo que pones en la misma celda que la hoja 1, o sea, si en la hoja 2 tienes en la celda un valor de 4, deberias poner 4 + hoja1$A4$


Espero que te sirva de ayuda.

Saludo.

[cristian_ojeda]

La alternativa no me sirve pues en la hoja 1 selecciono el valor a ingresar y el resultado puede afectar a muchas filas pues todas harian refrencia al lugar donde modifico el registro.

Lo que requiero es como copio el valor obtenido a la hoja 2 teniendo presente que de acuerdo a una busqueda me posicionare en una fila determinada.

Si busco lapices en la fila de los lapices
Si busco cuaderno en la fila de ciuaderno

Gracias por tu ayuda

[rid501]

En Hoja1 tenemos:
CeldaA1 PRODUCTO y en CeldaB1 CANTIDAD
CeldaA2 Lápices
CeldaA3 Cuadernos
CeldaA4 Pinceles
....etc ...
La columna B esta vacia porque ahí introduciremos las cantidades que queremos que se acumlen en la Hoja2

El diseño de la Hoja2, en este ejemplo, es similar al de Hoja1:
CeldaA1 PRODUCTO y en CeldaB1 CANTIDAD_ACUMULADA
CeldaA2 Lápices
CeldaA3 Cuadernos
CeldaA4 Pinceles
....etc ...


El siguiente código lee todas las cantidades introducidas en la columna B de la Hoja1 y a que artículo estan asignadas y las acumula a las cantidades ya existentes del mismo articulo en la columna B de la Hoja2.

No es necesario que la lista de articulos esté ordenada pero si que sea una lista consecutiva sin celdas intermedias en blanco.

Al final del proceso se limpia la columna B de la Hoja1 para poder introducir más cantidades

Código:

Dim Articulo
Dim Cantidad

Sub Acumular()
    I = 2
    Do While Sheets(1).Cells(I, 1) <> Empty
        Cantidad = Sheets(1).Cells(I, 2)
        If Cantidad <> Empty Then
            Articulo = Sheets(1).Cells(I, 1)
            BuscarEnHoja2
        End If
        I = I + 1
    Loop
    Limpiar
End Sub

Sub BuscarEnHoja2()
    J = 2
    Do While Sheets(2).Cells(J, 1) <> Empty
        If Articulo = Sheets(2).Cells(J, 1) Then
            Sheets(2).Cells(J, 2) = Sheets(2).Cells(J, 2) + Cantidad
        End If
        J = J + 1
    Loop
End Sub

Sub Limpiar()
    I = 2
    Do While Sheets(1).Cells(I, 1) <> Empty
        Sheets(1).Cells(I, 2) = Empty
        I = I + 1
    Loop
End Sub