Ir ao conteúdo
  • Cadastre-se

Philipp Moreira

Membro Pleno
  • Total de itens

    21
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

3

Informações gerais

  • Cidade e Estado
    Sao Paulo
  • Sexo
    Masculino
  1. No Seu projeto VBA, clique em Ferramentas >> Referencias e verifique: Se estiver usando DAO para se comunicar com o banco e realizar o registro dos dados: Se a biblioteca: Microsoft DAO 3.6 Object Library está assinalada; ou Se estiver usando ADODB para se comunicar com o banco e realizar o registro dos dados: Se a biblioteca: Microsoft ActiveX Data Object 2.8 Library está assinalada;
  2. Bruno, boa tarde! Creio que esteja encontrando o erro, pois nas condições IF você pede para verificar uma planilha com o nome Sheets5, porém, ao observar o navegador de objetos do lado esquerdo, não constatei a existencia de nenhuma aba/sheet como o nome Sheets5. Ao invés de Sheets 5 utilize o nome real da planilha de onden advem os dados que você quer chegar na condição. Por exemplo : Sheets17 ou Sheets("DOF") . . . Entendeu?
  3. Victor, bom dia! Rápido e fácil. Crie na modelo 1 uma tabela dinâmica que tenha como fonte de dados a modelo 2.
  4. Complementando a dica do Jhon, após inserir uma tabela: Clique na aba/ribbon Dados Deve ser exibida uma área chamada: Classificar e Filtra Clique em Classificar, será exibido uma janela na qual, poderá selecionar os campos na sequencia de hierarquia que a classificação deve ser seguida e para cada um deste campos você pode escolher se o organiza por ordem crescente ou decrescente.
  5. eu recomendaria usar tabela dinâmica
  6. Dosepa, porque está usando a funcao GetTickCount? Não entendi . . . poderia me explicar? adicionado 31 minutos depois Mais ou menos isso ? CRONÔMETRO.zip
  7. Poste as duas planilhas com dados fakes(simulados/falsos), assim fica melhor entender o que pretende e o que já possui.
  8. Na sua rotina em que registra os itens nesta aba em que os itens não podem se repetir e devem ser somados, você inclui cada registro linha a linha? Caso esteja fazendo isso, tente, ao invés de escrever linha linha jogar em um array, e nele coloque um processamento para nao duplicar. Caso nao tenha entendido, poste uma planilha que contenha a estrutura e as rotinas VBA, para que os demais membros possam analisar e propor uma solução mais adequada.
  9. Wendel, boa noite! Eu recomendo não usar celulas mescladas, mas sim, informar o valor 6 na D1 e para ter o efeito visual que deseja, selecione da D1 até L1, botao direito, formatar celular, aba alinhamento e no alinhamento horizontal, escolha a opção alinhar conforme seleção. Fazendo da forma que sugeri acima como da forma que você evidenciou sua planilha, veja que por mais que as células estejam mescladas, o valor pode ser obtido sempre a partir da primeira célula da sequencia de células mescladas, no seu caso D1.
  10. Dani, vê se o exemplo te ajuda! Se tiver dúvidas da um toque! Exemplo.xlsx
  11. Olá, Pamela! Veja se o exemplo te ajuda quanto a parte do intervalo de datas. Neste exemplo utilizo a intervalo nomeado dinâmico, como ele facilita a manipulação de um range especifico e ele é incremental de forma automatica, pois a cada linha de registro que você inclua ele cresce automaticamente. Quanto ao enviar a planilha por e-mail e ela esta indo sem o código VBA, você ao salva-la é notificada de algum erro? Desculpe perguntar, mas, esta salvando como arquivo xlsm, xlsx ou ... ?
  12. Mais ou menos assim, Sub teste() Dim codigoInformado As variant codigoInformado = InputBox("Informe o código", "Filtro de tabela") If Not VBA.IsNumeric(codigoInformado) Or VBA.Len(VBA.Trim( codigoInformado)) < 1 Then Msgb "mensagem de notificação" Exit Sub End If If WorksheetFunction.CountIf([Informe o range/coluna aonde estão os códigos], codigoInformado < 1 Then Msgb "mensagem de notificação" Exit Sub End If ' Se passou pelas validações acima . . . execute seu processamento . . . End Sub
  13. Espero que ajude! Não se era isto mesmo, que precisava! ' Declarando/criando a rotina, que não recebe parâmetros/variaveis/valores para execução Sub InsereNomesUAPICOS() ' Declaração de variaveis Dim LR As Long, k As Long, m As Long, x As Long ' Inicializando as variaveis / inputando valores nas variaveis ' recuperando o valor da última célular preenchida na coluna L da aba Geral, assim setando o numero da linha na variavel. ' Basicamente o código orienta ao interpretador VBA, selecionar a última celular de toda a planilha
  14. Qual deveria ser o valor esperado para o percentual ?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!