Lista Paralela

23/12/2003 - 02:23 por Compumakro | Informe spam

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 automáticamente
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 blanco 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

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 Compumakro

09/01/2004 - 03:06 | Informe spam

Hola Zapata.
Necesito un Auxilio adicional. Ojalá me puedas cooperar. (Excúsame pero a
veces se adicionan situaciones)
No sé como poner, que en la hoja ESTADO se sume también el Total, que está
en la Hoja COMPRAS.
En la hoja COMPRAS el Total (=C*F) y está en la Columna G.
Gracias nuevamente
Saludos
Oscar
Barranquilla

"Zapata >" <ignaciopsantaella@<hotmail.com> escribió en el mensaje
news:

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

que

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida