macro para transpor de colunas para linhas

[sorel]

tenho uma planilia que tem 20 colunas, quero transpor em linhas alguem ajuda!

[eduardodp]

'**** PARA BANCO DE DADOS ***

 

    'GERAÇÃO LEITURA: MATRIZES COLUNA P/ LINHA
    DoEvents
    On Error GoTo trata_erro
    cmdleitura_coluna.Caption = "Aguarde !!!"
    'MATRIZ
    If Val(tabmatriz.RecordCount) = Val(0) Then
        MsgBox "Éra Espêrado Importação / Digitação da(s) Matriz(s) / Matriz(es)?", vbInformation, "Aviso"
        GoTo fechar
    End If
    'VARIAVEL
    Dim leitura_coluna(999, 99)
    Dim passagem As Boolean
    Dim leitura_linha As String
    Dim ctrl As Integer
    lstnumero.Clear
    For x = 1 To 999
        For y = 1 To 99
            leitura_coluna(x, y) = Empty
        Next
    Next
    'GERACAO
    ctrl = 0
    tabmatriz.MoveFirst
    Do While Not tabmatriz.EOF
        ctrl = ctrl + 1
        For x = 1 To 99
            If Trim(tabmatriz("seq" & Format(x, "00"))) = "" Or _
                tabmatriz("seq" & Format(x, "00")) = "NN" Then
                Exit For
            Else
                leitura_coluna(x, ctrl) = tabmatriz("seq" & Format(x, "00"))
            End If
        Next
        tabmatriz.MoveNext
    Loop
    'PREENCHE LIST
    For x = 1 To 999
        leitura_linha = Empty
        passagem = False
        For y = 1 To 99
            If Trim(leitura_coluna(x, y)) <> "" Then
                If passagem = False Then
                    passagem = True
                    leitura_linha = leitura_coluna(x, y)
                Else
                    leitura_linha = leitura_linha & " " & leitura_coluna(x, y)
                End If
            End If
        Next
        lstnumero.AddItem leitura_linha
    Next
    'TEXTO
    arqtexto = "lotomania_leitura_coluna_em_linha"
    texto
fechar:
    'CLOSE
    GoTo saida
trata_erro:
    'TRATA ERRO
    MsgBox Err.Description
saida:
    'SAÍDA
    cmdleitura_coluna.Caption = "Leitura Matriz/Colu"
 

[sorel]

ok, EDUARDO,magnifico, otimo trabalho  obrigado, 

EDUARDO, o bjetivo é para fazer isto=

pegar  os ultimos 60 sorteios da lotomania mas em ordem de sorteio aonde a dezena 99 pode estar na 1ª posiçao

e subir 60 sorteios do ultimo. entao fica= 60 sorteio com 20 dezenas ai a tua macro transpor as 10 colunas em 20 linhas de 60 dezenas sempre uma dela tera´4,5,6 em 60= ou seja  nos 40 restantes ou espelho camos escolher 35 e 15 de volta na linha sao so 20 linhas da para jogar todas

[sorel]

 eopa! erro de compilaçao! EDU

[eduardodp]

8 minutos atrás, sorel disse:

 eopa! erro de compilaçao! EDU

ESSA AI É PARA BANCO DE DADOS

JA ESTOU FAZENDO OUTRA

 

A TUA PLANILHA DA LOTOMANIA TEM O NUMERO DOS RESULTADOS E DATA?

 

[Guest Zangado]

@eduardodp 

para mim esse tipo de pedido são estranhos

pq tem que se ter a estrutura de entrada e saida para ser praticável

fora isso só selecionando na hora de onde vem para onde vai

um transpor precisa de poucas linhas com loop mas num pedido generico fica dificil atender 

 

[sorel]

sim, veja como é eu= baixo os sorteios ordem  de sorteio( aonde as 00 a 99 giram em qualquer posiçao)aleatorio

depois pego os ultimos 60 sorteio subindo do ultimo= mas preciso ser as 60 em linhas e nao colunas

 objetivo pegar nas 20 a linha de 60 que tenha 3,4,5,6 e jogar no espelho= como esta abaixo tem transpo elas

tem transpor 20 linhas de 60 dezenas, pra depois colocar no progrma para medir o aproveitamento e qual dela tem menso pontuaçao para jogar no espelho capichi

11 13 21 29 30 33 35 50 51 60 63 70 73 77 87 90 91 96 99 00 
08 13 14 15 17 27 35 46 50 51 52 65 70 76 80 86 93 97 98 99 
01 02 06 10 12 13 24 29 36 39 44 45 47 48 52 55 58 64 75 84 
05 08 09 11 12 17 26 30 37 38 43 57 63 64 72 74 84 85 87 94 
10 19 24 31 35 38 41 42 46 47 49 55 64 65 76 84 85 86 92 00 
02 03 06 09 10 15 19 23 24 40 49 51 56 61 80 88 91 93 94 96 
10 11 14 21 29 34 41 46 48 58 61 68 69 70 72 81 91 94 96 97 
14 19 22 30 31 32 35 43 47 48 62 70 74 76 83 84 87 96 99 00 
02 03 07 10 11 16 18 23 24 25 27 29 30 34 41 46 55 60 81 83 
05 13 17 27 32 33 34 35 38 45 47 51 58 63 71 83 88 89 91 00 
02 09 11 16 17 25 27 31 46 47 50 56 65 68 72 75 76 80 87 97 
10 15 18 20 25 28 29 44 48 52 55 57 63 64 70 77 88 89 91 97 
11 13 21 24 32 34 37 40 44 45 51 54 55 59 65 73 85 86 90 93 
11 14 26 28 29 30 36 46 47 48 62 73 80 83 84 85 86 88 95 98 
03 05 08 16 18 21 23 29 30 32 36 43 54 58 59 71 72 86 98 00 
01 04 05 09 11 15 19 30 35 38 45 60 70 71 79 81 84 91 92 94 
01 09 12 13 28 32 39 46 50 61 63 64 66 79 83 85 88 90 94 99 
15 20 22 29 37 38 42 49 52 54 55 59 65 68 75 76 84 94 97 99 
06 12 14 16 27 32 42 48 52 61 63 69 71 77 78 84 88 89 90 99 
11 12 20 33 35 37 38 40 43 45 47 62 66 73 76 81 85 94 99 00 
02 08 09 15 20 25 35 40 42 48 59 60 61 72 77 81 83 84 86 99 
02 10 12 17 18 28 32 33 36 44 46 50 58 64 67 68 69 71 75 99 
02 03 05 07 08 10 11 12 16 17 33 40 43 50 56 65 66 80 84 89 
01 10 12 21 27 28 29 38 42 49 64 65 66 67 68 71 72 73 88 93 
02 17 20 24 26 29 38 58 64 66 68 70 78 79 80 81 82 87 88 93 
02 05 11 13 24 26 29 38 43 44 45 48 53 57 58 82 86 88 90 95 
01 03 07 24 38 40 48 53 54 62 68 75 82 83 85 87 91 92 94 95 
02 09 10 13 30 34 35 42 48 49 53 60 66 72 79 87 88 90 93 99 
04 05 06 13 16 37 40 43 46 50 51 57 59 68 73 75 83 86 93 95 
01 07 26 31 35 40 44 46 47 59 64 65 67 79 83 90 92 94 95 97 
01 03 05 08 20 30 33 38 49 50 52 59 61 70 78 83 90 97 99 00 
03 16 17 26 31 33 36 42 43 52 55 59 61 69 71 75 86 89 94 99 
07 13 16 33 38 40 42 44 56 57 61 64 65 67 74 75 80 84 89 96 
02 05 06 14 18 19 24 25 30 42 47 66 67 73 81 89 91 95 97 00 
07 13 21 29 30 31 42 43 51 53 63 64 67 69 74 77 83 89 92 98 
11 13 14 15 24 28 36 37 47 56 62 68 69 79 84 85 88 91 94 95 
02 04 08 14 18 28 33 37 40 42 45 56 62 67 75 77 79 80 83 00 
03 11 23 27 48 52 53 57 60 62 69 79 80 85 86 87 89 92 93 99 
04 07 10 18 20 21 27 28 33 36 42 49 51 53 54 69 73 81 84 94 
08 16 17 22 23 26 29 34 36 40 42 43 55 56 67 69 71 73 80 86 
02 09 26 31 36 39 47 49 52 54 55 56 57 60 61 63 70 77 79 89 
01 03 10 17 36 40 43 47 48 50 64 73 82 83 86 90 92 94 96 99 
02 08 13 15 19 25 28 29 30 49 52 53 59 66 68 71 76 89 91 99 
03 04 05 08 09 19 23 24 31 33 48 52 53 54 65 76 84 87 94 97 
01 03 05 15 16 18 21 22 25 28 40 41 64 71 74 75 79 88 90 97 
12 15 20 23 34 43 48 56 58 60 61 62 72 80 83 84 85 90 97 99 
05 06 15 16 19 22 25 30 31 41 44 50 61 64 66 76 86 88 89 96 
03 15 21 24 25 38 43 44 50 52 56 57 58 75 82 83 88 91 97 99 
12 16 18 36 37 39 43 53 55 57 61 63 71 75 77 89 93 96 97 00 
#

[sorel]

opa opa desculpe as acima esta em ordem crescente tem ser ordem de sorteio se nao nao funciona

 alias edu pode pode criar um planilia? os criterios

 baixo em ordem de sorteio e escolha 60 ou 70 ultimo, bom agora se voce consegue conferir por colunas

 bem ao nao precisa transpor objetivo = é pegar uma coluna com poocas dezena do proximo para jogar no restante ou espelho consegue criar um macro com conferencia por coluna? tem outros já usaria para outra loterias

1    19    28    2    29    19    28    37    29    38    28    37    46    38    47    64    73    82    65    74    73    82    91    74    83    82    91    10    83    92    1    19    28
19    28    2    29    19    28    37    29    38    28    37    46    38    47    64    73    82    65    74    73    82    91    74    83    82    91    10    83    92    1    19    28    2
2    29    38    28    37    29    38    47    37    46    38    47    56    73    82    65    74    83    82    91    74    83    92    91    10    83    92    20    38    3    12    39    4
29    38    28    37    29    38    47    37    46    38    47    56    73    82    65    74    83    82    91    74    83    92    91    10    83    92    20    38    3    12    39    4    47
47    12    39    48    13    56    39    48    57    49    83    75    84    93    76    92    84    93    21    85    20    93    21    30    94    3    12    39    4    13    12    39    48
12    39    48    13    56    39    48    57    49    83    75    84    93    76    92    84    93    21    85    20    93    21    30    94    3    12    39    4    13    12    39    48    13
13    49    39    48    57    49    58    75    84    93    76    85    84    93    76    85    84    93    21    85    94    93    21    30    94    31    13    49    5    14    23    49    58
49    39    48    57    49    58    75    84    93    76    85    84    93    76    85    84    93    21    85    94    93    21    30    94    31    13    49    5    14    23    49    58    14
14    23    59    58    67    23    59    68    85    94    86    95    32    94    31    95    32    41    31    40    32    41    50    49    5    14    23    6    58    14    23    59    15
23    59    58    67    23    59    68    85    94    86    95    32    94    31    95    32    41    31    40    32    41    50    49    5    14    23    6    58    14    23    59    15    67
67    23    59    68    24    94    86    95    32    87    31    95    32    41    96    40    32    41    50    42    6    15    24    7    16    15    24    69    16    25    24    69    78
23    59    68    24    94    86    95    32    87    31    95    32    41    96    40    32    41    50    42    6    15    24    7    16    15    24    69    16    25    24    69    78    25
25    37    87    96    42    97    43    96    42    51    43    52    42    51    60    52    61    15    24    7    16    25    24    69    16    25    37    69    78    25    37    79    96
37    87    96    42    97    43    96    42    51    43    52    42    51    60    52    61    15    24    7    16    25    24    69    16    25    37    69    78    25    37    79    96    42
42    97    43    52    42    51    43    52    61    51    60    52    61    70    25    8    17    26    9    37    17    26    35    18    79    26    35    89    27    52    98    53    62
97    43    52    42    51    43    52    61    51    60    52    61    70    25    8    17    26    9    37    17    26    35    18    79    26    35    89    27    52    98    53    62    54
54    61    53    62    71    63    70    62    71    80    72    8    17    26    9    18    17    26    35    18    27    26    35    89    27    36    98    53    62    54    63    53    62
61    53    62    71    63    70    62    71    80    72    8    17    26    9    18    17    26    35    18    27    26    35    89    27    36    98    53    62    54    63    53    62    71
71    63    72    62    71    80    72    81    17    26    9    18    27    26    35    18    27    36    35    89    27    36    45    53    62    65    63    72    62    71    63    72    81
63    72    62    71    80    72    81    17    26    9    18    27    26    35    18    27    36    35    89    27    36    45    53    62    65    63    72    62    71    63    72    81    71
 

[sorel]

ola EDU E ZANGADO consegui uma matriz da lotomania em que temos 25 linhas e 25 colunas eque no seu cruzamento linha coluna tipo carteziano temos 25x25 temo 625 linhasde 50 aonde tem uma ous dua srepetiçoes

 agora pense se nesta linhas tem 0,1,2,3 para o proximo no espelho direto temos 20,19,17,

11	32	14	73	50	49	81	47	37	95	54	20	56	42	22	6	43	35	15	2	79	77	67	5	98
41	40	76	8	59	60	13	31	9	73	6	80	11	52	47	56	79	89	14	91	32	37	7	25	62
50	84	1	33	60	37	4	38	22	34	52	7	26	54	88	25	13	92	94	70	20	78	48	75	2
32	2	23	13	56	83	55	21	49	79	66	19	87	97	40	37	33	80	22	8	94	88	43	27	71
90	73	98	31	75	15	71	89	23	26	58	94	9	88	91	5	64	76	95	56	99	59	55	8	16
95	69	12	27	17	38	23	64	24	90	74	22	45	68	35	71	26	70	36	47	81	48	73	39	33
83	85	62	79	1	58	90	77	82	11	60	2	32	15	18	40	97	6	10	94	68	42	70	56	30
69	8	71	42	65	26	22	91	32	10	44	38	86	93	60	21	72	37	33	11	64	66	54	4	1
76	23	28	44	94	74	85	67	68	51	87	89	42	22	8	54	29	91	90	13	56	86	37	7	95
52	49	65	39	23	48	60	6	94	46	56	73	15	45	41	54	34	85	32	81	76	11	19	29	31
72	97	28	58	67	31	89	13	11	2	92	79	18	98	82	17	60	41	8	49	42	84	37	32	26
47	68	65	64	90	7	36	3	62	52	45	70	22	83	44	42	16	59	84	89	71	6	41	12	92
52	63	25	45	85	12	57	35	78	66	21	95	74	10	72	36	38	17	19	92	53	1	3	91	37
68	54	75	95	32	1	46	72	50	18	6	84	70	22	69	4	92	67	9	98	26	31	42	49	55
37	13	54	39	6	11	66	20	44	64	50	94	25	34	22	57	99	60	78	88	58	67	23	76	28
50	17	62	83	73	85	72	33	3	79	65	63	19	43	59	13	86	89	6	95	54	70	32	30	64
95	78	73	49	59	60	29	97	93	47	22	75	3	19	20	88	14	76	21	41	80	57	99	33	48
69	52	33	96	2	45	72	58	55	66	22	3	64	60	99	67	80	83	90	78	9	53	50	37	38
82	41	96	72	91	88	53	38	14	85	36	69	3	18	67	6	26	74	51	23	90	61	76	13	47
87	39	30	8	40	86	89	47	95	31	48	22	72	62	91	28	92	43	54	56	49	69	27	41	5
63	85	44	11	66	52	12	72	96	53	59	4	71	42	91	74	37	15	30	5	98	47	73	60	77
64	89	75	77	55	59	53	96	63	69	52	43	12	73	7	95	31	19	26	61	10	22	48	57	65
37	59	73	12	95	21	11	55	96	44	97	93	29	79	66	58	19	43	98	16	9	10	5	94	99
12	45	70	95	8	23	61	65	96	94	74	77	33	89	93	36	37	26	72	14	83	13	92	1	78
50	96	64	58	24	55	66	33	79	71	94	56	81	61	80	67	5	13	95	26	18	30	88	63	40
90	28	15	43	69	65	2	35	66	51	54	19	70	68	42	64	33	14	22	93	63	98	73	49	88

[sorel]

esta acima matrix 25 x25

[sorel]

a  macror gera a matriz 25 x25   beleza booooaaa!!

 note um ex= linha 5 com coluna 5 nao tem repetiçao de dezena quando cruza da 50 no espelho é caixa

EDU POE NA PLANILIA

Sub Button1_Click()

' 25 row of 25 #'s no dup horz or vertical

Dim h(99), v(99)

cl = 1: rw = 5

 Range("A4:AB134").Select

    Selection.ClearContents

Application.ScreenUpdating = False

rand:

a = Int(Rnd(1) * 100)

If h(a) = 1 Then GoTo rand

Cells(rw, cl) = a: h(a) = 1: cl = cl + 1

If cl = 26 Then cl = 1: rw = rw + 1: For x = 1 To 99: h(x) = 0: Next x

If rw < 225 Then GoTo rand

GoSub chk_vert

GoSub chk_vert

Range("A31:AB134").Select

    Selection.ClearContents

Range("a1").Select

Application.ScreenUpdating = True

Exit Sub

' start checking for vertical duplicates

chk_vert:

For cl = 1 To 25: For x = 5 To 30: a = Cells(x, cl): If v(a) = 1 Then GoSub del_line

v(a) = 1

Next x: For q = 1 To 99: v(q) = 0: Next q

Next cl

Return

 

del_line:

Rows(x).Select

Selection.Delete:

 

Return

End Sub

[eduardodp]

'**** PARA EXCEL *** 

 

  'FAVOR ABRA UM PLANILHA CHAMADA -> [ LOTOMANIA ] COM OS RESULTADOS
    'FAVOR ABRA UM PLANILHA CHAMADA -> [ DESTINO ] PARA CONVERSAO EM COLUNA
    'VARIAVEIS
    Dim escala
    Dim escala1
    Dim quantidade As Integer
    Dim linha As Integer
    Dim coluna As Integer
    Dim ctrl_coluna
    escala = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
    escala1 = "abcdefg"
    'ESVAZIA ARQUIVO DE CONVERSAO
    Sheets("DESTINO").Select
    Cells.Select
    Selection.ClearContents
    'CONTROLE DE LINHAS DOS RESULTADO
    linha = 1
    Do While Trim(Sheets("LOTOMANIA").Range("a" & linha)) <> ""
        linha = linha + 1
    Loop
    'GERAÇÃO DA CONVERSAO
    quantidade = 1
    coluna = 0
    Do While quantidade <= Val(60) 'QUANTIDADE DE LINHAS
        quantidade = quantidade + 1
        linha = linha - 1
        coluna = coluna + 1
        If coluna >= 1 And coluna <= 26 Then ctrl_coluna = Mid(escala, coluna, 1) 'abc...
        If coluna >= 27 And coluna <= 52 Then ctrl_coluna = Mid(escala1, 1, 1) & Mid(escala, coluna, 1) 'aa...
        If coluna >= 53 And coluna <= 78 Then ctrl_coluna = Mid(escala1, 2, 1) & Mid(escala, coluna, 1) 'ba...
        If coluna >= 79 And coluna <= 104 Then ctrl_coluna = Mid(escala1, 3, 1) & Mid(escala, coluna, 1) 'ca...
        If coluna >= 105 And coluna <= 130 Then ctrl_coluna = Mid(escala1, 4, 1) & Mid(escala, coluna, 1) 'da...
        If coluna >= 131 And coluna <= 156 Then ctrl_coluna = Mid(escala1, 5, 1) & Mid(escala, coluna, 1) 'ea...
        If coluna >= 157 And coluna <= 182 Then ctrl_coluna = Mid(escala1, 6, 1) & Mid(escala, coluna, 1) 'fa...
        If coluna >= 183 And coluna <= 208 Then ctrl_coluna = Mid(escala1, 7, 1) & Mid(escala, coluna, 1) 'ga...
        If Len(Sheets("LOTOMANIA").Range("a" & linha)) = Val(2) And _
            Len(Sheets("LOTOMANIA").Range("b" & linha)) = Val(2) Then
            For r = 1 To 20 'PLANILHA DA LOTOMANIA - [ SEM ] Nº.CONCURSO E [ SEM ] DATA
                Sheets("DESTINO").Range(ctrl_coluna & r) = Sheets("LOTOMANIA").Range(Mid(escala, r, 1) & linha)
            Next
        ElseIf Len(Sheets("LOTOMANIA").Range("a" & linha)) <> Val(2) And _
            Len(Sheets("LOTOMANIA").Range("b" & linha)) = Val(2) Then
            For r = 2 To 21 'PLANILHA DA LOTOMANIA - [ COM ] Nº.CONCURSO E [ SEM ] DATA
                Sheets("DESTINO").Range(ctrl_coluna & r - 1) = Sheets("LOTOMANIA").Range(Mid(escala, r, 1) & linha)
            Next
        ElseIf Len(Sheets("LOTOMANIA").Range("a" & linha)) <> Val(2) And _
            Len(Sheets("LOTOMANIA").Range("b" & linha)) <> Val(2) Then
            For r = 3 To 22 'PLANILHA DA LOTOMANIA - [ COM ] Nº.CONCURSO E DATA
                Sheets("DESTINO").Range(ctrl_coluna & r - 2) = Sheets("LOTOMANIA").Range(Mid(escala, r, 1) & linha)
            Next
        End If
    Loop

[eduardodp]

2 horas atrás, Zangado disse:

@eduardodp 

para mim esse tipo de pedido são estranhos

pq tem que se ter a estrutura de entrada e saida para ser praticável

fora isso só selecionando na hora de onde vem para onde vai

um transpor precisa de poucas linhas com loop mas num pedido generico fica dificil atender 

 

@Zangado a todo tempo vem alguem aqui e posta combinações/esquemas em colunas certo

eu sempre transformo elas em linhas para conferencia

[eduardodp]

1 hora atrás, sorel disse:

ola EDU E ZANGADO consegui uma matriz da lotomania em que temos 25 linhas e 25 colunas eque no seu cruzamento linha coluna tipo carteziano temos 25x25 temo 625 linhasde 50 aonde tem uma ous dua srepetiçoes

 agora pense se nesta linhas tem 0,1,2,3 para o proximo no espelho direto temos 20,19,17,

11	32	14	73	50	49	81	47	37	95	54	20	56	42	22	6	43	35	15	2	79	77	67	5	98
41	40	76	8	59	60	13	31	9	73	6	80	11	52	47	56	79	89	14	91	32	37	7	25	62
50	84	1	33	60	37	4	38	22	34	52	7	26	54	88	25	13	92	94	70	20	78	48	75	2
32	2	23	13	56	83	55	21	49	79	66	19	87	97	40	37	33	80	22	8	94	88	43	27	71
90	73	98	31	75	15	71	89	23	26	58	94	9	88	91	5	64	76	95	56	99	59	55	8	16
95	69	12	27	17	38	23	64	24	90	74	22	45	68	35	71	26	70	36	47	81	48	73	39	33
83	85	62	79	1	58	90	77	82	11	60	2	32	15	18	40	97	6	10	94	68	42	70	56	30
69	8	71	42	65	26	22	91	32	10	44	38	86	93	60	21	72	37	33	11	64	66	54	4	1
76	23	28	44	94	74	85	67	68	51	87	89	42	22	8	54	29	91	90	13	56	86	37	7	95
52	49	65	39	23	48	60	6	94	46	56	73	15	45	41	54	34	85	32	81	76	11	19	29	31
72	97	28	58	67	31	89	13	11	2	92	79	18	98	82	17	60	41	8	49	42	84	37	32	26
47	68	65	64	90	7	36	3	62	52	45	70	22	83	44	42	16	59	84	89	71	6	41	12	92
52	63	25	45	85	12	57	35	78	66	21	95	74	10	72	36	38	17	19	92	53	1	3	91	37
68	54	75	95	32	1	46	72	50	18	6	84	70	22	69	4	92	67	9	98	26	31	42	49	55
37	13	54	39	6	11	66	20	44	64	50	94	25	34	22	57	99	60	78	88	58	67	23	76	28
50	17	62	83	73	85	72	33	3	79	65	63	19	43	59	13	86	89	6	95	54	70	32	30	64
95	78	73	49	59	60	29	97	93	47	22	75	3	19	20	88	14	76	21	41	80	57	99	33	48
69	52	33	96	2	45	72	58	55	66	22	3	64	60	99	67	80	83	90	78	9	53	50	37	38
82	41	96	72	91	88	53	38	14	85	36	69	3	18	67	6	26	74	51	23	90	61	76	13	47
87	39	30	8	40	86	89	47	95	31	48	22	72	62	91	28	92	43	54	56	49	69	27	41	5
63	85	44	11	66	52	12	72	96	53	59	4	71	42	91	74	37	15	30	5	98	47	73	60	77
64	89	75	77	55	59	53	96	63	69	52	43	12	73	7	95	31	19	26	61	10	22	48	57	65
37	59	73	12	95	21	11	55	96	44	97	93	29	79	66	58	19	43	98	16	9	10	5	94	99
12	45	70	95	8	23	61	65	96	94	74	77	33	89	93	36	37	26	72	14	83	13	92	1	78
50	96	64	58	24	55	66	33	79	71	94	56	81	61	80	67	5	13	95	26	18	30	88	63	40
90	28	15	43	69	65	2	35	66	51	54	19	70	68	42	64	33	14	22	93	63	98	73	49	88

SOREL ESTA COM 26 LINHAS

[Guest Zangado]

47 minutos atrás, eduardodp disse:

@Zangado a todo tempo vem alguem aqui e posta combinações/esquemas em colunas certo

eu sempre transformo elas em linhas para conferencia

o problema em si é a falta de coerencia 

tem muitos pedidos dos mais diferentes tipos mas normalmente nao se chega a um consenso de como aproveitar 

eu mesmo tenho dezenas de ferramentas em uma só planilha a ponto de facilitar o uso, a maioria de efeito visual para tentar enxergar padrões ,  mesmo isso de reoganizar matrizes eu tenho uma macro que consigo definir parâmetros distintos de entrada e saida 

 

 

 

mas de pouco serve se nao se sabe como analisar e usar os dados

[sorel]

edu e zangado esta matriz tem 25 colunas e 25 linhas tem 26  linhas exclua uma acho que nao limpou 

 e quando excutou ficou uma

 bom temos entao 25 x25 linhas colunas, foi montada para que quando cruzar por exemplo

linha 3 com qualquer uma das 25 colunas nao tenha repetiçao de dezena ou mo maximo duas

 ai no espelho tem premios ex= cruzamento carteziano  de uma linha com coluna 

tem 49 quando cruza perde uma no restante premios vamos

 supor que num destes cruzamento tenho 1 ou zero dezenas em 49 os 20,19 esta nas 51 capichi

 ou voce pode pegar em ordem de sorteios subei 70 sorteios, entao se 20 coluna uma dela tem 3,4 em 70 no proximo em 30 voce pegar 17,16,15 e volta na 70 jogar as 20 entende o sincronismo,

 neste de 70 o o proximo sorteio por coluan excluir as dezena porque naoacredito que as 20 coluna aja esquilibro

 zangado manja o movimento do vibraquim, embaixo em cima carregado vazio ,etc