Marcela da Silva de Souza

Ok. mas eu não sei onde está o ero o problema é esse só mostra erro de execução quando eu coloco no excel.

Bom dia gente, esse código está dando erro de compilação preciso de compila lo alguém ajuda? Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor(12), iConta As Integer Dim iColuna, iArq, x, y As Integer Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq For J = 0 To 11 Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To 12 If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To 10 For W = J + 1 To 11 If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To 11 x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To 11 For N = J + 1 To 11 For R = N + 1 To 11 For T = R + 1 To 11 For W = T + 1 To 11 iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub E eu gostaria que juntasse as funções dele com esse outro código que escolhe a quantidade que o usuário quer: Sub Main() Dim I, J, N, T, R, W, Z As Integer Dim iVetor() As Integer Dim iColuna, iArq, x, y As Integer Dim iNumeros As Integer Dim iConta As Long Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq iNumeros = InputBox("Entre com a quantidade de números") ReDim iVetor(iNumeros) iNumeros = iNumeros - 1 For J = 0 To iNumeros Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To iNumeros If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To iNumeros - 1 For W = J + 1 To iNumeros If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To iNumeros - 1 For Z = J + 1 To iNumeros If iVetor(J) > iVetor(Z) Then T = iVetor(J) iVetor(J) = iVetor(Z) iVetor(Z) = R End If Next Z Next J For J = 0 To iNumeros x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 6 For J = I + 1 To iNumeros For N = J + 1 To iNumeros For R = N + 1 To iNumeros For T = R + 1 To iNumeros For W = T + 1 To iNumeros For Z = T + 1 To iNumeros iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) - " & iVetor(W)" Next Z Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub adicionado 1 minuto depois Motivo: vou para a roça longe de internet e civilização rsrsrs adicionado 5 minutos depois Ou melhor o primeiro código tá dando erro de execução

? Bom dia

Olá boa tarde eu gostaria de saber se se eu quiser mudar os valores no código como devo fazer? Obrigada

OLÁ,eu consegui compilar pois eu tinha copiado digitando, mas eu gostaria que a macro reagisse aos valores que eu mudo na planília.E eu gostaria que esse código estivesse junto com o anterior para eu obter todos os resultados na mesma planília. Obrigada boa noite.

Não estou encontrando o erro de compilação será que alguém pode me ajudar...Boa noite.

Boa noite, será que alguém poderia ajudar a ver o que seria mais adequado nessa planilha por favor, já tentei vária fórmulas até =PREVISÃO fórmulas lineares e linear sozonais.ALGUÉM AÍ PODE VIM COM UMA LÂMPADA E ACENDER UMA LUZ PODE SER DA CEBE rsrs.Brincadeira mas se puderem me auxiliar eu agradeceria muito abraços a todos(as).

Boa noite, eu gostaria de saber apesar de eu já ter entregue meu trabalho.Pois na parte que eu não consegui fazer não tive pontuação no trabalho.Era o seguinte, era para determinar intervalo entre sequência de números ex: 1-01 02 06 10 13 20 2-04 07 15 16 19 30 3-05 08 17 28 34 50 4-01 02 06 10 13 20 Repetição de sequência de números: 1* grupo e 4* .Nesse exemplo mostrou que a sequência de números se repetiu na quarta linha.Então ela poderia ser mesclada para mostrar em qual linha essa sequência se repetiria com os mesmos números ou pelo menos parte deles. Tentei aplicar fórmula no Excel CONTA SES porém ele queria em vBA não consegui.Como será que aplico no codigo poderiam me explicar: E também gostaria de saber se posso colocar 2 macros na mesma planilha

adicionado 1 minuto depois A parte de baixo é continuação da de cima?Eu já entreguei o trabalho quero aprender mesmo com vocês agora.

Boa noite como faço para implementar no código uma função para que X e y somem e subtraia na mesma planilha.

Tem como colocar a função subtração e soma na mesma planilha, mas em células diferentes?

Boa noite mas para mostrar o intervalo de números tipo na planilha mostrar ?

Bomais dia será que alguém sabe passar essa fórmula de Excel o V BA só estou conseguindo assim

Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor() As Integer Dim iColuna, iArq, x, y As Integer Dim iNumeros As Integer Dim iConta As Long Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq iNumeros = InputBox("Entre com a quantidade de números") ReDim iVetor(iNumeros) iNumeros = iNumeros - 1 For J = 0 To iNumeros Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To iNumeros If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To iNumeros - 1 For W = J + 1 To iNumeros If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To iNumeros x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) R = Abs(y + x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To iNumeros For N = J + 1 To iNumeros For R = N + 1 To iNumeros For T = R + 1 To iNumeros For W = T + 1 To iNumeros iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "comb. =>" & iConta End Sub Olá estou utilizando esse código no VBA porém eu gostaria de saber que formula posso utilizar para mostrar repetição em um intervalo, onde o usuário possa escolher o grupo que quer ver onde se repetirá a posição do concurso. Ex: Concurso 100- |02|05|10|13|18|20| Concurso 101-|06|08|15|19|20|21| Concurso 103-|01|07|09|15|21|31| Concurso 108-|02|05|10|13|18|20| Repetição concurso 100 repetiu no Concurso:108 Encontrei essas fórmulas: =CONT SES e CONT com SE separado. não sei qual seria mais adequada.

=CONTA-SES e a =MOD

Será que é por causa da versão do meu Excel 7 será que é isso? adicionado 35 minutos depois Tem alguma função para verficar sequência de números repetidos em um intervalo de tempo exemplo: Concurso 4005-1 2 4 6 8 10 11 12 24 27 28 30* Concurso-4006-3 5 6 7 9 11 15 17 23 25 30 Concurso 4007-1 2 4 6 8 10 11 12 24 27 28 30* Intervalo- 1 jogo Concurso 4007 Eu encontrei uma fórmula no Excel, mas será que tem no VBA?

Okm.A parte de somar os números não está dando certo somei X com y não deu

Está certo o jeito que eu fiz? no código? Ainda está subtraindo e agora não pergunta a quantidade de número que o usuário quer colocar.

Boa noite é só fazer assim como vou colocar no código Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor(12), iConta As Integer Dim iColuna, iArq, x, y As Integer Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq For J = 0 To 11 Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To 12 If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To 10 For W = J + 1 To 11 If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To 11 x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y + x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To 11 For N = J + 1 To 11 For R = N + 1 To 11 For T = R + 1 To 11 For W = T + 1 To 11 iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub Porém está dando erro de caminho.

E preciso fazer a soma dos números um pelos outros igualmente como eu fiz com subtrações. Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor(12), iConta As Integer Dim iColuna, iArq, x, y As Integer Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq For J = 0 To 11 Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To 12 If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To 10 For W = J + 1 To 11 If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To 11 x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To 11 For N = J + 1 To 11 For R = N + 1 To 11 For T = R + 1 To 11 For W = T + 1 To 11 iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub Usar código acima: adicionado 11 minutos depois

Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor(12), iConta As Integer Dim iColuna, iArq, x, y As Integer Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq For J = 0 To 11 Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To 12 If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To 10 For W = J + 1 To 11 If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To 11 x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To 11 For N = J + 1 To 11 For R = N + 1 To 11 For T = R + 1 To 11 For W = T + 1 To 11 iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub

Olá boa tarde, é isso mesmo que o professor quer, independente do que o usuário colocar, deve ter um comando para finalizar o programa na hora que o usuário quiser. =CONT.SE($C$1:$XFD$1;C6) Essa fórmula que está acima já soluciona o problema?

Oi, boa noite então como fica tenho que Digitar mais For ? Não entendi sobre o range. adicionado 55 minutos depois É desse jeito assim para mostrar os números até no final? Sub Main() Dim I, J, N, T, R, W, Z As Integer Dim iVetor() As Integer Dim iColuna, iArq, x, y As Integer Dim iNumeros As Integer Dim iConta As Long Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq iNumeros = InputBox("Entre com a quantidade de números") ReDim iVetor(iNumeros) iNumeros = iNumeros - 1 For J = 0 To iNumeros Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To iNumeros If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To iNumeros - 1 For W = J + 1 To iNumeros If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To iNumeros - 1 For Z = J + 1 To iNumeros If iVetor(J) > iVetor(Z) Then T = iVetor(J) iVetor(J) = iVetor(Z) iVetor(Z) = R End If Next Z Next J For J = 0 To iNumeros x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 6 For J = I + 1 To iNumeros For N = J + 1 To iNumeros For R = N + 1 To iNumeros For T = R + 1 To iNumeros For W = T + 1 To iNumeros For Z = T + 1 To iNumeros iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) - " & iVetor(W)" Next Z Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub