Lista Paralela

Hola Compumakro, con código esta tarea sería muy sencilla. ¿Tenés alguna
idea o no lo manejás?
En caso afirmativo te paso las pautas a seguir:

En lugar de hacer SUMAR.SI yo lo que hago es un corte de control haciendo

DO While por cada Artículo y sumando las cantidades. Luego cada uno de

resultados se van situando en la otra hoja. Esto hace que la solución sea
genérica no importando si se trata de un producto nuevo. Hay otras
soluciones pero esta es la que mejor me va.

Saludos.


"Compumakro" escribió en el mensaje
news:u$
> Amigos
> Antes les reitero mis buenos deseos para todos ustedes. Que estas
navidades
> sean muy gratificantes y que el año nuevo 2004 esté lleno de paz
espiritual,
> Amor, Unión, Comprensión y un poco más de dinero.
>
> El siguiente es un Reto de "Fantasía".
> En la Hoja "Compras" entran productos diversos (Heterogéneos) Así:
> Fecha Artículo Cantidad Nº Remisión Nº
> Factura Precio
> 20/12/03 Arroz 50 5423
> 1256 810
> 21/12/03 Tomate 20 45698
> 3987 970
>
> En la hoja "Estado" deben estar los Artículos y Sumadas las Cantidades.
> Hasta aquí no hay nada extraordinario, pues en últimas se resuelve con
Suma
> Condicional.
>
> Artículo Cantidad
> Arroz 50
> Tomate 20
>
> El caso es que necesito que en la Hoja "Compras" se copie

> cada que ingrese un Artículo nuevo, es decir que no estaba en la lista y
que
> no copie los que ya están. Luego lo pegue en la siguiente fila en

de
> la Hoja "Estado" y le active la Suma Condicional en la celda contigua.
> Que mantenga activada la suma condicional para todos los artículos.
>
> Saludos
> Oscar
> Barranquilla
>
>

Gracias "Zapata"
Dos cosas:
1 -- Copié y pegué en Código y no funciona. Yo escribí varios Artículos en
"COMPRAS" y no apareció nada en "ESTADO".
2 -- La suma condicional, tal como expuse el problema, que debe ser
"automática" y no se cómo redactarla, (siempre y cuando se pueda) pues
tendría que anexar a la suma condicional un nuevo artículo cada que
aparezca.
El reto es que debe detectar por si sola la aparición de un nuevo artículo

crear la suma condicional automáticamente y llevar el resultado a

Como comparando tablas de manera activada y anotando los artículos que no
están
Y las suma condicional por Código, no se el código.
Gracias
Oscar
Barranquilla


"Zapata >" <ignaciopsantaella@<hotmail.com> escribió en el mensaje Gracias
"Zapata"news:
> El anterior estaba mal, con esto de copiar y pegar se me olvidó cambiar
una
> c por una x
> With Sheets("COMPRAS").Range("NombresArticulos")
> Set c = .Find(Target.Value, LookIn:=xlValues)
> If c Is Nothing Then
> With Sheets("ESTADO").Range("NombresArticulos")
> Set x = .Find("", LookIn:=xlValues)
> If Not x Is Nothing Then
> x.Value = Target.Value
> x.Offset(0, 1).Formula = "Formula de la suma condicional"
> End If
> End With
> End If
> End With
> End Sub
> Un saludo
>
>

porque no haces una tabla dinamica cada vez que ingreses mercancia a tu
listado. así te va a incluir todo lo nuevo

Saludos

Manolo
Cancun, México





"Compumakro" escribió en el mensaje
news:%23d$
> Gracias "Zapata"
> Dos cosas:
> 1 -- Copié y pegué en Código y no funciona. Yo escribí varios Artículos

> "COMPRAS" y no apareció nada en "ESTADO".
> 2 -- La suma condicional, tal como expuse el problema, que debe ser
> "automática" y no se cómo redactarla, (siempre y cuando se pueda) pues
> tendría que anexar a la suma condicional un nuevo artículo cada que
> aparezca.
> El reto es que debe detectar por si sola la aparición de un nuevo

y
> crear la suma condicional automáticamente y llevar el resultado a
"ESTADO".
> Como comparando tablas de manera activada y anotando los artículos que

> están
> Y las suma condicional por Código, no se el código.
> Gracias
> Oscar
> Barranquilla
>
>
> "Zapata >" <ignaciopsantaella@<hotmail.com> escribió en el mensaje

> "Zapata"news:
> > El anterior estaba mal, con esto de copiar y pegar se me olvidó

> una
> > c por una x
> > With Sheets("COMPRAS").Range("NombresArticulos")
> > Set c = .Find(Target.Value, LookIn:=xlValues)
> > If c Is Nothing Then
> > With Sheets("ESTADO").Range("NombresArticulos")
> > Set x = .Find("", LookIn:=xlValues)
> > If Not x Is Nothing Then
> > x.Value = Target.Value
> > x.Offset(0, 1).Formula = "Formula de la suma condicional"
> > End If
> > End With
> > End If
> > End With
> > End Sub
> > Un saludo
> >
> >
>
>
>

Hola:
Lamento el retraso pero estuve unos dias ausente.Te pongo la macro para

te haga la suma mediante VBA
la he probado y funciona perfectamente. Aunque esta pensada para empezar a
trabajar sin tener datos en las hojas. Si ya tuvieras datos en las hojas

la parte del codigo que esta a partir del "Else" deberias poner un bucle
como muy bien indicó nuestro amigo Adriano. Si no consigues que funcione
aqui estoy..
Private Sub Worksheet_Change(ByVal Target As Range)
'Cantidad debe de ser la ultima columna a rellenar de la hoja Compras
' y el nombre del articulo la columna anterior
'esta macro esta en el evento change de la hoja Compras
If Intersect(Target, Range("CantidadArticulo")) Is Nothing Then Exit Sub
With Sheets("Estado").Range("NombresArticulos")
Set c = .Find(Target.Offset(0, -1).Value, LookIn:=xlValues)
If c Is Nothing Then
With Sheets("Estado").Range("NombresArticulos")
Set x = .Find("", LookIn:=xlValues)
x.Value = Target.Offset(0, -1).Value
x.Offset(0, 1).Value = Target.Value
End With
Else

c.Offset(0, 1).Value = c.Offset(0, 1).Value + Target.Value

End If
End With
End Sub