Últimos mensajes - Powered by IBM

Palabras claves

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

#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

Responder a este mensaje

#2 Zapata

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

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

Responder a este mensaje

#3 Adriano DAmbra

23/12/2003 - 16:19 | Informe spam

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 un
DO While por cada Artículo y sumando las cantidades. Luego cada uno de los
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 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

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

Responder a este mensaje

#4 Adriano DAmbra

23/12/2003 - 16:20 | Informe spam

La solución de zapata me pareció bastante buena también.
Saludos.

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

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

Responder a este mensaje

#5 Compumakro

24/12/2003 - 23:11 | Informe spam

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

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

12 3

Busqueda sugerida