CONTAR TERMINACIONES Y DECENAS

Buenas lo siento pero me da error en la linea siguiente:

If Cells(1, final + 8).Value = "" Then Cells(1, final + 8).Value =

y como podras comprobar no tengo ni idea, de todas formas muchas gracias

El adjunto no me llego.

"AnSanVal" escribió:

Suponiendo que los datos los tienes en A:F y que H:Q las tienes libres:

Sub prueba()
Dim fila As Integer
Dim columna As Integer
Dim final As Integer
Columns("H:Q").ClearContents
Columns("H:Q").ColumnWidth = 2
Range("H1:Q1").Font.ColorIndex = 3
Range("H1:Q1").Font.Bold = True
For fila = 2 To 250
If Cells(fila, 1) = "" Then Exit Sub
For columna = 1 To 6
final = Right(Cells(fila, columna), 1)
If Cells(1, final + 8).Value = "" Then Cells(1, final + 8).Value =
final
Cells(fila, final + 8).Value = Cells(fila, final + 8).Value + 1
Next columna
Next fila
End Sub

(te envio un adjunto con el ejemplo)

Lo de las decenas lo puedes implementar de forma parecida.

Saludos desde Tenerife (España).
*****************************************************
"JACS" escribió en el mensaje
news:
> Buenas, necesito contar las terminaciones y las decenas de unos numeros en
> concreto del 1 al 50, el problema es que estan en grupos de 6.
>
> Ejemplo:
>
> (E7:J7)
> 1 4 11 23 34 49
>
> Necesitaria contar las terminaciones y las decenas.
>
> Terminaciones: Decenas:
> 1 11 1 4
> 4 34 11
> 23 23
> 49 34
> 49
> Existen unas 250 combinaciones de 6 numeros espero me podais ayudar
> Gracias
> anticipadas

La variable "final" (sin comillas), que está en la línea siguiente, va a
continuación del signo = (igual), en la línea que mensionas y NO en la linea
siguiente. Posiblemente por falta de espacio, al entrar aqui corta las filas
de texto, pero yo la envié en una sola fila. :-)

Saludos desde Tenerife (España).
******************************
"JACS" escribió en el mensaje
news:

Buenas lo siento pero me da error en la linea siguiente:

If Cells(1, final + 8).Value = "" Then Cells(1, final + 8).Value >
y como podras comprobar no tengo ni idea, de todas formas muchas gracias

El adjunto no me llego.

"AnSanVal" escribió:

Suponiendo que los datos los tienes en A:F y que H:Q las tienes libres:

Sub prueba()
Dim fila As Integer
Dim columna As Integer
Dim final As Integer
Columns("H:Q").ClearContents
Columns("H:Q").ColumnWidth = 2
Range("H1:Q1").Font.ColorIndex = 3
Range("H1:Q1").Font.Bold = True
For fila = 2 To 250
If Cells(fila, 1) = "" Then Exit Sub
For columna = 1 To 6
final = Right(Cells(fila, columna), 1)
If Cells(1, final + 8).Value = "" Then Cells(1, final + 8).Value >> final
Cells(fila, final + 8).Value = Cells(fila, final + 8).Value + 1
Next columna
Next fila
End Sub

(te envio un adjunto con el ejemplo)

Lo de las decenas lo puedes implementar de forma parecida.

Saludos desde Tenerife (España).
*****************************************************
"JACS" escribió en el mensaje
news:
> Buenas, necesito contar las terminaciones y las decenas de unos numeros
> en
> concreto del 1 al 50, el problema es que estan en grupos de 6.
>
> Ejemplo:
>
> (E7:J7)
> 1 4 11 23 34 49
>
> Necesitaria contar las terminaciones y las decenas.
>
> Terminaciones: Decenas:
> 1 11 1 4
> 4 34 11
> 23 23
> 49 34
> 49
> Existen unas 250 combinaciones de 6 numeros espero me podais ayudar
> Gracias
> anticipadas

hola, JACS !

... necesito contar las terminaciones y las decenas de unos numeros en concreto del 1 al 50
el problema es que estan en grupos de 6. Ejemplo:
(E7:J7) 1 4 11 23 34 49
Necesitaria contar las terminaciones y las decenas.
Terminaciones: Decenas:
1 11 1 4
4 34 11
23 23
49 34
Existen unas 250 combinaciones de 6 numeros [...]

[por casualidad]... estas llevando un registro de los numeros de la loteria -?-
y... quisieras que excel te sirva/ayude/... para calcular las probabilidades de algun siguiente numero -?-

comentas [si hbiera] algun detalle mas... 'significativo' ?
saludos,
hector.

hola [de nuevo], JACS !

[por casualidad]... estas llevando un registro de los numeros de la loteria -?-
y... quisieras que excel te sirva/ayude/... para calcular las probabilidades de algun siguiente numero -?-

si lo anterior es 'acertado' -?- -> prueba con la siguiente funcion personalizada
[genera una 'serie' de 6 numeros 'al azar' -aleatorios entre 1 y 49-] :))

Function Loteria() As String
Dim Sig As Integer, Bolita As New Collection, Bolitas As Variant
Application.Volatile
Do: On Error Resume Next
Bolitas = Int((Rnd * 49) + 1)
Bolita.Add Bolitas, CStr(Bolitas)
Loop Until Bolita.Count = 6: Bolitas = ""
For Sig = 1 To 6
Bolitas = Bolitas & Bolita.Item(Sig) & "."
Next: Loteria = Left(Bolitas, Len(Bolitas) - 1)
End Function

llamala en alguna celda: -> =Loteria()
cada vez que pulses {F9} veras una serie de numeros 'diferente' ;)

saludos,
hector.

p.d. si los tiros 'van por otro camino'... comentas detalles adicionales ?

sinceramente no he podido entender que es lo que se busca, aun con la macro
y el ejemplo que funciona bien, no entiendo el resultado.

Podrias sacarme de la duda?

Gabriel Raigosa

news://msnews.microsoft.com/microso...c.es.excel
"JACS" escribió en el mensaje
news:
| Buenas, necesito contar las terminaciones y las decenas de unos numeros en
| concreto del 1 al 50, el problema es que estan en grupos de 6.
|
| Ejemplo:
|
| (E7:J7)
| 1 4 11 23 34 49
|
| Necesitaria contar las terminaciones y las decenas.
|
| Terminaciones: Decenas:
| 1 11 1 4
| 4 34 11
| 23 23
| 49 34
| 49
| Existen unas 250 combinaciones de 6 numeros espero me podais ayudar
Gracias
| anticipadas.