Este fórum está sendo desativado

[CineAdam]

Fala Galera!

Eu vi em um tópico aqui viewtopic.php?p=13611

Que conseguiram o workbook para o solicitante, no entanto não encontrei onde baixar e eu precisava muito disso pois a meses estou procurando.

Alguém poderia me enviar???

Agradeço desde já!

[gfranco]

Boa noite.
Se não me falha a memória foi nessa época que ocorreu uma perca de dados no servidor do fórum e muitos anexos simplesmente sumiram.

[CineAdam]

Olá!

Muito obrigado pela resposta.

No entanto caso então alguém tenha algum código vba que atenda a mesma solicitação que foi feita no passado eu agradeço.

Pois como mencionei preciso muito.

[Reinaldo]

Creio ser essa a planilha em questão. Mas para 300 mil linhas; dependendo do equipamento não vai rodar ou demorar muito

[CineAdam]

Olá, Reinal!

Exatamente esta planilha que vc me enviou, que eu estava procurando.

Mas agora vc poderia me ajudar ?

Coloquei 163438 jogos na aba "Conferidor"
e os mesmos 163438 jogos na aba "Resultados"

Porém a macro não contou para os 163438 da aba "Conferidor e também não utilizou os 163438 da aba "Resultados".

Como faço para arrumar isso no código?

[Reinaldo]

Veja comwentario na linha da rotina

Código: Selecionar todos

Sub conta()
Dim x As Integer, A As Integer
Dim Resul As Worksheet, Confer As Worksheet

Set Resul = Sheets("Resultados")
Set Confer = Sheets("Conferidor")

Range("BI7:BM24").ClearContents
For x = 6 To 2000                           'Inicia na linha seis e vai até linha 2000 da planilha Resultados
    If Resul.Range("A" & x) <> "" Then
        For y = 7 To 31                     'Inicia na linha sete e vai até linha 31 da planilha Conferidos
            If Confer.Range("H" & y) = "" Then GoTo aqui
            tp = 0
            rng = "H" & y & ":V" & y
            For z = 2 To 16                 'Vai da coluna 2 até coluna dezesseis
              tp = tp + Application.WorksheetFunction.CountIf(Confer.Range(rng), Resul.Cells(x, z))
            Next
            If tp < 11 Then GoTo ali
            Select Case tp
                Case 11
                    Confer.Range("BI" & y) = Range("BI" & y) + 1
                Case 12
                    Confer.Range("BJ" & y) = Range("BJ" & y) + 1
                Case 13
                    Confer.Range("Bk" & y) = Range("BK" & y) + 1
                Case 14
                    Confer.Range("BL" & y) = Range("BL" & y) + 1
                Case 15
                    Confer.Range("BM" & y) = Range("BM" & y) + 1
            End Select
ali:
        Next
aqui:
    End If
Next
End Sub

[CineAdam]

Obrigado, Reinaldo!

No lugar do 31 consegui colocar 163438 e deu certo,
mas quando coloquei 163438 no lugar dos 2000 deu erro, ai fui testando e vi que que o máximo que permitiu colocar foi 32000

[mprudencio]

Não testei o codigo mas tente trocar na declaração das variaveis onde esta integer para long e teste novamente.

[CineAdam]

Deu certo galera!

Muito obrigado msm.