Valores Duplicados Amitir

24/09/2007 - 20:36 por Veronika | Informe spam

Saludos amigos, tengo el siguiente problema, tengo las siguientes columnas:

COLUMNAS:

A B C D
1 100 3 100
2 200 4 80
2 1 100
3 100 5 60
4 80 2 200
5 60
5

La columna A me representan numeros de tiendas (la cantidad de tiendas es
fija), algunas se repiten porque estan programadas para enviar su cantidad de
ventas dos o tres veces al dia, la columna B son montos de venta de cada
tienda.

La columna C y D me sirven de entrada para las columnas A y B
respectivamente, tal como se aprecia.

Como hago para:

Que cuando se ingrese un monto nuevo de una tienda que se repita, se guarde
precisamente en su celda vacia. y que no me vaya a borrar el anterior
registro de la misma tienda.

Por ejemplo, en la muestra ya tengo registrado los montos de las tiendas
1,2,3,4 y 5, estos los ingreso de forma manual y vienen desordenados. cuando
viene otra vez la tienda 2 con un nuevo monto esta debe ir en la tienda 2 que
tiene su celda vacia.

Hasta el momento solo puedo controlar la columna C para cuando intento
ingresar una tienda duplicada (=CONTAR.SI(C:C,C1)=1), Lo uso con Validacion
de datos.

Gracias por toda ayuda.

Muy atentamente.

Alumna de la Universidad de San Cristobal - Lima - Perú

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Veronika

27/09/2007 - 22:06 | Informe spam

Hola Hector.

Disculpa mi ignorancia, pero no puedo ejecutar el modulo; el codigo lo pego
tal como esta en un modulo de mi libro, cuado lo ejecuto me pide nombre de
macro, pero al dar nombre de macro se crea una macro vacia.

que estoy haciendo mal?

Veronika.
Alumna de la Universidad de San Cristobal - Lima - Perú

"Héctor Miguel" escribió:

hola, Veronika !

> ... si necesitas mas informacion para que me puedas ayudar encantada te la brindo.
> No lo hace ninguna macro, lo digito teniendo como fuente una hoja impresa que envian las tiendas.
> La lista de tiendas esta en la columna A, alguna de ellas estan repetidas porque tienen que informar varias veces al dia
> esta lista se cambia en forma manual cada mes.
>>
>> 3) quieres que ingresando ventas en la columna D... segun la tienda identificada en la columna C [misma fila]
>> alguna macro *detecte* si es la primera, segunda o posteriores ventas/s que se registra/n EN LA MISMA CELDA
>> -> para *mandar* el dato de ventas [reciente o ultimo ingresado] a la celda *que le toque* en la columna B
>> -> *identificando* la tienda que le corresponda [columna A] segun la tienda *controlada* en la columna C ???
>
> CORRECTO HECTOR, eso es lo que necesito.

estoy *suponiendo* algunas cosillas, por lo que es probable que sea necesario efectuar algunos *ajustillos* :D

-> la fila 1 son titulos
-> en la columna A esta el listado de las tiendas incluyendo algunas repeticiones segun veces deben reportar ventas
-> en la columna B se debera depositar el dato que registres en la columna D [primera, segunda, ... ultima]
-> la columna D [venta registrandose] esta *en paralelo* con la columna C [que identifica a la tienda correspondiente]
-> el codigo REGISTRA la venta [columna B] segun las veces que se hayan ingresado datos en la columna D

copia/pega las siguientes lineas en el modulo de codigo de *esa* hoja y...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [d:d]) Is Nothing Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Reportes As Byte, Sig As Byte, Tienda As Range
If Intersect(Target, [d:d]) Is Nothing Or Target.Row = 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub _
Else Reportes = Application.CountIf([a:a], Target.Offset(, -1))
If Reportes = 0 Then Exit Sub _
Else Set Tienda = [a:a].Find(Target.Offset(, -1), [a1], xlValues, xlWhole)
If IsEmpty(Tienda.Offset(, 1)) Then Tienda.Offset(, 1) = Target: GoTo Fin
For Sig = 2 To Reportes
Set Tienda = [a:a].FindNext(Tienda)
If IsEmpty(Tienda.Offset(, 1)) Then Tienda.Offset(, 1) = Target: Exit For
Next
Fin:
Set Tienda = Nothing
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida