MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Carregar resultado da loteria

    avatar
    JOSEMORAES
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 201
    Registrado : 23/02/2011

    [Resolvido]Carregar resultado da loteria Empty [Resolvido]Carregar resultado da loteria

    Mensagem  JOSEMORAES 12/10/2021, 22:59

    Olá colegas.

    Vi esse tópico sobre carregar um resultado de loteria, o exemplo postado é muito bom, mas eu gostaria de otimiza-lo informando também o campo do numero do concurso, eu até tentei, mas como é em excel não tive muito sucesso, inclusive tentei falar com o autor mas também não consegui.

    Por isso estou recorrendo ao grupo.

    O LInk do tópico que estou me referindo é esse

    https://www.maximoaccess.com/t34750-resolvidoobter-dados-externos-web#273427


    Obrigado e desde já agradeço




    .................................................................................
    [Resolvido]Carregar resultado da loteria 10715412
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3136
    Registrado : 22/11/2016

    [Resolvido]Carregar resultado da loteria Empty Re: [Resolvido]Carregar resultado da loteria

    Mensagem  DamascenoJr. 14/10/2021, 01:47

    Troque
    Código:
    For j = 1 To UBound(varSubInfoConcurso) + 1
      ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = varSubInfoConcurso(j - 1)
    Next j

    Por
    Código:
    For j = 1 To UBound(varSubInfoConcurso) + 2
      Select Case j
          Case 1: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = DateSerial(Split(varSubInfoConcurso(j - 1), "/")(2), Split(varSubInfoConcurso(j - 1), "/")(1), Split(varSubInfoConcurso(j - 1), "/")(0))
          Case 2: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = i + 1
          Case Else: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = varSubInfoConcurso(j - 2)
      End Select
    Next j

    Como sugestão, para soluções mais rápidas sobre dúvidas em Excel, sugiro fóruns específicos do programa. A galera é bem prestativa por lá também. Very Happy


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    JOSEMORAES
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 201
    Registrado : 23/02/2011

    [Resolvido]Carregar resultado da loteria Empty loto.xls

    Mensagem  JOSEMORAES 14/10/2021, 11:15

    Opa, valeu muito obrigado vai me ajudar muito.



    .................................................................................
    [Resolvido]Carregar resultado da loteria 10715412

      Data/hora atual: 19/10/2021, 16:01