Ir para conteúdo
Fórum Script Brasil

silviolcf

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Tudo que silviolcf postou

  1. Valeu cara, vou olhar com calma e tentar adaptar alguns conceitos... o meu maior problema hoje está sendo em desconsiderar uma das linhas quando ela já foi utilizada... Obrigado.
  2. 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!
  3. Então, eu estava tentando usar como função, mas acho que algumas coisas ali não funcionam dentro de funções, fiz como macro e funcionou certinho :)
  4. 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: GRUSDUCGHGIGBSBSSAGRU0344273368511378SDU3440365149251146CGH2736503598691407GIG3361435909111141BSB85192586991101040SSA137811461407114110400 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...