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

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Zapata

23/12/2003 - 10:04 | Informe spam

Igualmente felices fiestas para ti y para todo el mundo.Espero que te
funcione sino me lo comunicas
Tienes que ponerlo al evento worksheets_change de la hoja Compras.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("NombresArticulos")) Is Nothing Then Exit Sub

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 c 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

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :