Ir para conteúdo
Fórum Script Brasil

silviolcf

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Posts postados por silviolcf

  1. Galera, Boa tarde!

    Preciso muito de ajuda com a lógica para solucionar um problema.

     

    O Caso é:

    Tenho os seguintes dados:

    Número total de passageiros à ser transportado:

    Capacidades de: Carro, Van, MicroOnibus e Onibus

    Valor de cada um destes veículos.

    Preciso, dado um número X de passageiro, saber qual a melhor combinação de veículos considerando o menor valor gasto.

    Não estou conseguindo sair do lugar para resolver isso.

     

    Obrigado!

  2. Galera, bom dia!

    Desculpe se a pergunta for muito idiota, mas sou bem novo no VBA e estou tentando criar uma fórmula muito especifica aqui no trabalho.

    Basicamente temos uma matriz com a distância de varias cidades, por exemplo:

     GRUSDUCGHGIGBSBSSA
    GRU0344273368511378
    SDU3440365149251146
    CGH2736503598691407
    GIG3361435909111141
    BSB85192586991101040
    SSA137811461407114110400

     

    Recebemos um relatorio com as cidades percorridas conforme abaixo:

    GRU/SDU/BSB/GRU

    Fiz a função já identificar quantos trechos temos e selecioná-los por pares com um contador, sendo, na primeira varredura ele pega

    GRU/SDU depois SDU/BSB depois BSB/GRU e para.

     

    porém o relatório está na Plan2 e a base na Plan1, preciso agora conseguir colocar neste código, para ele fazer o seguinte.

    Tenho nas minhas variáveis CidadeA e CidadeB, preciso que ele pegue a CidadeA e procure nas linhas da coluna A, vendo se encontra a mesma cidade, encontrando, ele me traria o número da linha, e o mesmo com as colunas na linha 1, fiz o código abaixo, mas ele dá referencia circular, alguém pode me ajudar?

     

    For k = 2 To 6
    Sheets("Plan1").Activate
    ActiveSheet.Cells(k, 1).Select
    If CidadeA = ActiveCell.Value Then
    Linha = k
    End If
    Next

    Lembrando que estou criando uma Function.

    obrigado galera.

×
×
  • Criar Novo...