comparar serie de numeros

Hola Hector,

La propuesta del boton es para que hiciera la comparacion una vez que se
hayan introducido todos los numeros y que no ejecutara la comparacion hasta
que no se apretara el boton.

Quizas sea complicarlo pero me gusta investigar y sobre todo introducir
programacion, en access lo controlo bastante pero en excel me descoloca un
poco la forma de trabajar con visual.

Gracias

un saludo

Ramon leal

"Héctor Miguel" wrote:

hola, Ramon !

> Tengo una duda con la solucion que me propones por lo que puedo interpretar me comparara los dos bloques de numeros
> y en caso de que haya coincidencias me dira cuantas ha habido pero no me dira que numeros son coincidentes.
> Me equivoco.

es correcto... para la "identificacion" de cuales numeros son los coincidentes (y en donde estan)...
es precisamente el objetivo de usar los formatos condicionales (y asi esta indicado) ;)

> Y una duda mas si quisiera que la comparacion la hiciera cunado el usuario aprieta un boton (comandbutton), como se haria?
> Se haria a traves de una macro o lo podria hacer mediante codigo? Me podrias poner un pequeno ejemplo si no te es molestia.

y... que es (exactamente) lo que se espera que debiera hacer la macro ?

saludos,
hector.

__ la propuesta anterior __
>> > Lo que quiero es comparar boletos de la loteria primitiva, por lo cual la comparacion tienen que ser por numeros identicos.
>> > El ejemplo seria: celdas A1,B1,C1,D1,E1,F1,G1 y sus valores serian siempre los mismos, por ejemplo 01,03,12,15,25,36,49.
>> > Los numeros que cambiarian cada semana seria los que pondria en las celdas A3,B3,C3,D3,E3,F3,G3
>> > y me los tendria que comparar con todos los numeros del primer bloque por ejemplo tendria que compara A3 con A1,B1,C1...
>> > hasta que encontrara un numero igual o no, despues compararia b3 con a1,b1 y asi sucesivamente.
>> > Una vez que los haya comparado en otras celdas, da igual cuales sean, me tendria que poner el numero de aciertos
>> > (numeros iguales) y si es posible que numeros han sido los que han coincidido...
>>
>> asumiendo que [A1:G1] tendra numeros fijos (algo asi como lo numeros que se juegan siempre)
>> y que las siguientes filas (mismas columnas a partir de la 3) tendran el resultado de fechas posteriores
>> y que NO importa si coincide la posicion, sino simplemente que aparezcan en ambas filas -?-
>>
>> OJO con el separador de argumentos, mi sistema usa a la coma ',' NO al punto y coma ';' :D
>>
>> 1) selecciona el rango A3:G3 -> [A3] debera ser la celda activa...
>> y aplica formatos condicionales (para identificar los que si aparecen -no importa el orden-)
>> usa condicion de formula y pones la siguiente: -> =contar.si($a$1:$g$1,a3)
>> aplicas formatos segun tus preferencias (color de fondo, letra, bordes, ...)
>>
>> 2) suponiendo que la cuenta de coincidencias la pondras en la columna H
>> en H3 usas la siguiente formula: -> =sumaproducto(contar.si($a$1:$g$1,a3:g3))

hola, Ramon !

La propuesta del boton es para que hiciera la comparacion una vez que se hayan introducido todos los numeros
y que no ejecutara la comparacion hasta que no se apretara el boton.

(creo que) se entiende en cual es la "intencion" (en este caso) de alguna macro/boton/...
(incluso puedo imaginar varias "formas" -aun antes de necesitar el uso de macros- pero...)
lo que no has comentado es:
" >> y... que es (exactamente) lo que se espera que debiera hacer la macro ? "

Quizas sea complicarlo pero me gusta investigar y sobre todo introducir programacion
en access lo controlo bastante pero en excel me descoloca un poco la forma de trabajar con visual.

yo tambien trataba de "solucionarlo TODO" usando macros (al principio) :D
hasta que me di cuenta que las aplicaciones "ya traen lo suyo" y generalemente (puedes creerme)...
son mas eficientes que los inventos que se pueda imaginar uno (tratando de "suplir" a las aplicaciones)

saludos,
hector.

Hola Hector,

Creo que tienes toda la razon, es un problema mio el tener siempre que
complicar las cosas, pero me gusta investigar y ir siempre un poco por
delante de lo facil.

Aunque al final como bien dices la aplicacion trae sus propios medios y
funcionan sin complicar las cosas.

Con referncia a la macro lo que queria que hiciera es esperar hasta que
estuvieran todos lon numeros introducidos y una vez que se cumpliera esa
condicion hiciera la comparacion, y la forma mas facil que se me ocurria es a
traves de un boton.

Muchas gracias por tu tiempo Hector, aunque seguire preguntando ya que se me
ha metido el gusanillo de este programa y creo que le voy a sacar provecho.

Hasta ahora siempre habia pensado que excel era una aplicacion basica pero
me he dado cuenta que no, que es bastante completa y que se puede hacer todo
lo que se te ocurra y seas capaz de hacer.

Un saludo

Ramon leal

"Héctor Miguel" wrote:

hola, Ramon !

> La propuesta del boton es para que hiciera la comparacion una vez que se hayan introducido todos los numeros
> y que no ejecutara la comparacion hasta que no se apretara el boton.

(creo que) se entiende en cual es la "intencion" (en este caso) de alguna macro/boton/...
(incluso puedo imaginar varias "formas" -aun antes de necesitar el uso de macros- pero...)
lo que no has comentado es:
" >> y... que es (exactamente) lo que se espera que debiera hacer la macro ? "

> Quizas sea complicarlo pero me gusta investigar y sobre todo introducir programacion
> en access lo controlo bastante pero en excel me descoloca un poco la forma de trabajar con visual.

yo tambien trataba de "solucionarlo TODO" usando macros (al principio) :D
hasta que me di cuenta que las aplicaciones "ya traen lo suyo" y generalemente (puedes creerme)...
son mas eficientes que los inventos que se pueda imaginar uno (tratando de "suplir" a las aplicaciones)

saludos,
hector.

hola, Ramon !

__ 1 __

Creo que tienes toda la razon, es un problema mio el tener siempre que complicar las cosas
pero me gusta investigar y ir siempre un poco por delante de lo facil.

1) (creo que) es cuestion de gustos, usos y costumbres (?) (algo asi como "lo cortes no quita lo valiente") :D

__ 2 __

Aunque al final como bien dices la aplicacion trae sus propios medios y funcionan sin complicar las cosas.

2) (yo ?) desde que conozco acerca del "principio del kiss" (Keep It Simple and Stupid) procuro mantenerme por ahi ;)

__ 3 __

Con referncia a la macro lo que queria que hiciera es esperar hasta que estuvieran todos lon numeros introducidos
y una vez que se cumpliera esa condicion hiciera la comparacion
y la forma mas facil que se me ocurria es a traves de un boton.

3) con respecto de este punto (segun yo)... sigues sin comentar (o dar respuesta TOTAL) en relacion con...

" >> y... que es (exactamente) lo que se espera que debiera hacer la macro ? "

__ 4 __

... seguire preguntando ya que se me ha metido el gusanillo de este programa y creo que le voy a sacar provecho.

4) como te decia en el mensaje anterior...
" >> (creo que) se entiende en cual es la "intencion" (en este caso) de alguna macro/boton/... "
" >> (incluso puedo imaginar varias "formas" -aun antes de necesitar el uso de macros- pero...) "

__ 5 __

Hasta ahora siempre habia pensado que excel era una aplicacion basica pero me he dado cuenta que no
que es bastante completa y que se puede hacer todo lo que se te ocurra y seas capaz de hacer.

5) este punto, no te lo discuto (absolutamente) para nada :))

(finalmente) como no has comentado "que" es lo que se espera que "debiera" hacer la macro (+/- exactamente)..
si suponemos que lo unico que se espera de la macro es que "reporte" cuantas coincidencias hubo...
despues de entrados los numeros (y haberse llenado los datos) en el rango A3:G3 -???-

prueba copiando/pegando las siguientes lineas en el modulode codigo de "esa" hoja (donde estan los numeros fijos en A2:G1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a3:g3")) Is Nothing Then Exit Sub
If Application.Count(Range("a3:g3")) < 7 Then Exit Sub
MsgBox "Existen " & Evaluate("sumproduct(countif(a1:g1,a3:g3))") & " coincidencias."
End Sub

saludos,
hector.

Gracias Hector,

Lo probare y te dire pero seuro que funciona.

Muchas gracias por tu tiempo, espero que con el tiempo yo tambien te pueda
ayudar en algo, soy experto en temas de patentes y derechos de propiedad
intelectual por lo cual si en algun momento necesitas algo de esto estare
encantado de ayudarte como tu lo has hecho conmigo.

Un abrazo

Ramon leal

"Héctor Miguel" wrote:

hola, Ramon !

__ 1 __
> Creo que tienes toda la razon, es un problema mio el tener siempre que complicar las cosas
> pero me gusta investigar y ir siempre un poco por delante de lo facil.

1) (creo que) es cuestion de gustos, usos y costumbres (?) (algo asi como "lo cortes no quita lo valiente") :D

__ 2 __
> Aunque al final como bien dices la aplicacion trae sus propios medios y funcionan sin complicar las cosas.

2) (yo ?) desde que conozco acerca del "principio del kiss" (Keep It Simple and Stupid) procuro mantenerme por ahi ;)

__ 3 __
> Con referncia a la macro lo que queria que hiciera es esperar hasta que estuvieran todos lon numeros introducidos
> y una vez que se cumpliera esa condicion hiciera la comparacion
> y la forma mas facil que se me ocurria es a traves de un boton.

3) con respecto de este punto (segun yo)... sigues sin comentar (o dar respuesta TOTAL) en relacion con...
>> " >> y... que es (exactamente) lo que se espera que debiera hacer la macro ? "

__ 4 __
> ... seguire preguntando ya que se me ha metido el gusanillo de este programa y creo que le voy a sacar provecho.

4) como te decia en el mensaje anterior...
" >> (creo que) se entiende en cual es la "intencion" (en este caso) de alguna macro/boton/... "
" >> (incluso puedo imaginar varias "formas" -aun antes de necesitar el uso de macros- pero...) "

__ 5 __
> Hasta ahora siempre habia pensado que excel era una aplicacion basica pero me he dado cuenta que no
> que es bastante completa y que se puede hacer todo lo que se te ocurra y seas capaz de hacer.

5) este punto, no te lo discuto (absolutamente) para nada :))

(finalmente) como no has comentado "que" es lo que se espera que "debiera" hacer la macro (+/- exactamente)..
si suponemos que lo unico que se espera de la macro es que "reporte" cuantas coincidencias hubo...
despues de entrados los numeros (y haberse llenado los datos) en el rango A3:G3 -???-

prueba copiando/pegando las siguientes lineas en el modulode codigo de "esa" hoja (donde estan los numeros fijos en A2:G1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a3:g3")) Is Nothing Then Exit Sub
If Application.Count(Range("a3:g3")) < 7 Then Exit Sub
MsgBox "Existen " & Evaluate("sumproduct(countif(a1:g1,a3:g3))") & " coincidencias."
End Sub

saludos,
hector.