Ir ao conteúdo
  • Cadastre-se

olliver.soul

Membros Plenos
  • Total de itens

    835
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

251

Informações gerais

  • Cidade e Estado
    São Paulo, SP
  • Sexo
    Prefiro não dizer
  1. Para facilitar acho melhor tratar os dados como strings no vetor, assim fica mais fácil comparar Segue um exemplo supondo que os dígitos já foram informados. Reservei os primeiros três dígitos para o código do "concurso" e tratei os números no formato "00". Sub Main() Dim I, N As Integer Dim S As String Dim StrV(3) As String StrV(0) = "100020510131820" StrV(1) = "101060815192021" StrV(2) = "103010709152131" StrV(3) = "108020510131820" For I = 0 To UBound(StrV) - 1 For N = I + 1 To UBound(StrV) If Mid(StrV(I), 4, Len(StrV(I))) > Mid(StrV(N), 4, Len(StrV(N))) Then S = StrV(I) StrV(I) = StrV(N) StrV(N) = S End If Next N Next I For I = 1 To UBound(StrV) If Mid(StrV(I - 1), 4, Len(StrV(I - 1))) = Mid(StrV(I), 4, Len(StrV(I))) Then MsgBox "Repetição concurso " & Left(StrV(I - 1), 3) & " repetiu no Concurso " & Left(StrV(I), 3) End If Next I End Sub
  2. @Eri França Agora que vi que aquele trecho de ListSubItems.Add tem em outros eventos do formulário, Você vai ter que fazer a alteração em todos. Sobre ele procurar em "Editora", veja se você fez a alteração correta. Já que a única coisa feita foi trocar a coluna 6 (F) para 7 (G)
  3. @Eri França No evento UserForm_Initialize nesta linha, li.ListSubItems.Add Text:=Sheets("Base").Cells(lin, 6).Value Altere o parâmetro columnIndex de Cells onde está 6 para 7.
  4. Veja se dessa forma roda, Sub teste() Dim ie As New InternetExplorer MsgBox ie.Path End Sub Se o erro continuar esse tutorial deve ajudar a resolver, https://support.microsoft.com/en-gb/help/828550/you-receive-run-time-error-429-when-you-automate-office-applications
  5. A parte de baixo é para substituir a de cima. Nas linhas 3 e 4 eu já faço a subtração e soma direto sem usar a variável R.
  6. Você pode editar essa parte, R = Abs(y + x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R E deixar assim, Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & Abs(y - x) Cells(4, iColuna) = y & "+" & x & "=" & y + x
  7. @Floremil Júnior Tente usar a fórmula CONT.SE, Retorna células com valor: =CONT.SE(F5:F453;"<> ") Em banco: =CONT.SE(F5:F453;" ")
  8. @Marcela da Silva de Souza No VBA, MOD é um operador. Exemplo de uso: If X Mod 2 = 0 Then E o CONTA.SES é WorksheetFunction.CountIfs
  9. @Eri França O código que busca e mostra a foto em Image1 já está no evento ListView1_Click, Você só tem que colocar o caminho da imagem correspondente de cada item na coluna F.
  10. Segue, Sub CopiarFormula() Range("I3").Copy Range("I3:EA15").PasteSpecial xlPasteFormulas End Sub Para automatizar a questão da variação de linhas e colunas, é só editar o range que cola a fórmula.
  11. @MrBoorjs Segue uma alternativa, Function Truncar(dNumero As Double, iDigitos As Integer) Truncar = Int(dNumero * 10 ^ iDigitos) / 10 ^ iDigitos End Function Sub Main() MsgBox Truncar(1.2357, 2) End Sub
  12. @Purgg Você pode ativar o gravador de macro e importar os dados do Access em: Obter Dados > Do Banco de dados > Do Banco de dados do Microsoft Access. Feito isso é só desativar o gravador e adaptar o código se precisar.
  13. @Guilherme Benvenuto Isso acontece por causa de um erro na fórmula da planilha pal, veja que na coluna Z ela está retornando #VALOR!. Você vai ter que corrigir a fórmula ou usar a instrução On Error Resume Next na macro se isso não for um problema.
  14. @alexassa Se for questão de arredondamento, você pode usar a fórmula ARRED, Por exemplo nos cálculos de J7 e L7,
  15. Tem que dar o mesmo resultado. Crie uma nova planilha, copie novamente esse último o código e faça outro teste. Qual fórmula?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...