Ir ao conteúdo
  • Cadastre-se

CasaDoHardware

Membro Pleno
  • Posts

    1.781
  • Cadastrado em

  • Última visita

Tudo que CasaDoHardware postou

  1. Fala meu povo!!! Estou tentando fazer uma busca na internet com o Power Query do Excel e nesta caso não encontra a tabela, porém se eu faço a busca com PBi a tabela aparece para a conexão. Tem algo que possa habilitar no excel para que seja possível fazer a conexão no site. Este Site https://ge.globo.com/futebol/brasileirao-serie-a/ é um exemplo que foi relatado acima
  2. Experimente este ajuste. Sub Copiar() Dim W As Worksheet Dim WS As Worksheet Dim lRow As Long Set W = Sheets("APR-HO") Set WS = Sheets("PPRA") 'Pula duas linhas a partir da ultima com dados. lRow = WS.Range("B" & Rows.Count).End(xlUp).Offset(2, 0).Row 'Copia e cola os dados incluindo a formatação. W.Range("B2:S23").Copy Destination:=WS.Range("B" & lRow) End Sub
  3. Eu não consegui salvar o arquivo e não sei o motivo disso, sendo assim não sei como é a planilha, se você fizer um exemplo menor fique mais fácil ajudar. Não consegui subir o arquivo que fiz, mas tenta ajustar este codigo. Sub Copiar() Dim W As Worksheet Dim WS As Worksheet Dim lRow As Long Set W = Sheets("APR-HO") Set WS = Sheets("PPRA") 'Pula duas linhas a partir da ultima com dados. lRow = WS.Range("A" & Rows.Count).End(xlUp).Offset(2, 0).Row 'Copia e cola os dados incluindo a formatação. W.Range("A4:L19").Copy Destination:=WS.Range("A" & lRow) End Sub
  4. Eu não sei como é sua planilha, nem como você faz o preenchimento, porém basta você usar o auto filtro que você consegue visualizar os dados que estão vencidos.
  5. Ja pensou em criar um grafico dinamico e duas segmentações de dados ai você consegue fazer isso sem o VBA e de foma dinamica. Escolhe o nome e a data na segmentação e o grafico aparece conforme sua seleção.
  6. Cria a conexao dos relatorios nas configurações da tabela dinamica
  7. E porque nao fazer tudo no proprio excel??? Não complica o simples!!!!!
  8. Boa tarde!!! O titulo é auto explicativo, preciso fazer upload de um arquivo excel no Google Drive, preferencialmente sem usar APIs, as tentativas que fiz foram sem sucesso. Alguem tem uma rotina neste sentido que possa compartilhar?
  9. Minha sugestão: Imprima paginas impares, depois paginas pares. Outra possibilidade, é abrir a caixa de dialogo de impressão para imprimir conforme sua necessidade.
  10. Para escolher o arquivo a ser aberto pode usar essa linha de codigo. Application.Dialogs(xlDialogOpen).Show
  11. Se eu entendi direito seu problema esse codigo resolve. O codigo abaixo copia as celulas G4, B5 e D5 da planilha "SOLICITAÇÃO" para a primeira linha em branco planilha "CONTROLE" Sub Lançar() Dim W As Worksheet Dim WS As Worksheet Dim UltimaLinha As Long Set WS = Sheets("SOLICITAÇÃO") Set W = Sheets("CONTROLE") UltimaLinha = W.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row W.Cells(UltimaLinha, 2).Value = WS.Range("G4").Value W.Cells(UltimaLinha, 3).Value = WS.Range("B5").Value W.Cells(UltimaLinha, 5).Value = WS.Range("D5").Value WS.Range("B5", "D5").ClearContents End Sub
  12. Excluir porque? A tabela dinamica vai consolidar os dados. Olhei seu arquivo mas nao entendi direito do que você pretende, seria bom um exemplo mais completo mostrando o resultado desejado.
  13. Nem olhei mas se eu entendi uma tabela dinamica faz milagres
  14. Crtl C Ctrl V Não resolve? Selecione A1:A6 Ctrl + C Selecione B1 Ctrl + V
  15. Com formulas nao creio ser muito eficiente. Com VBA talvez! Eu sugiro usar uma tabela dinamica.
  16. Levando em conta o seu codigo eu faria assim: Sub SomaseVBA() Dim UltimaLinha As Long Dim W As Worksheet Set W = Sheets("Planilha1") 'Troque pelo nome da sua planilha 'Evite usar activesheet, a possibilidade de erros na hora de execução é muito grande 'Pesquise tambem sobre codname diminui ainda mais a possibilidade de erros na hora da execução 'Ultima Linha com dados UltimaLinha = W.Range("A" & Rows.Count).End(xlUp).Row 'Somase em VBA 'Coloquei o resultado em C1 mas acho que você nao tera dificuldade em modificar. W.Range("C1").Value = Application.WorksheetFunction.SumIf(W.Range("C2:C" & UltimaLinha), "total micro", W.Range("H2:H" & UltimaLinha)) End Sub
  17. Caso o produto tenha mais de um CA você cadasta cada um com um codigo, mesmo que com a mesma descrição.
  18. @Frederico.Koch acho que você respondeu no lugar errado. kkkk
  19. Se você usa o Chrome da mudar sim. Experimente!! Abra o navegador Clique nos ... a direita no alto da tela > Configurações Na janela que abrir role ate avançado > Downloads La você consegue alterar a pasta de download e ativar para salvar onde desejar manualmente.
  20. Não é possivel direcionar o download para uma pasta especifica? Se o download for manual e você fizer pelo Chrome é possivel escolher a pasta.
  21. Junte o seu codigo com o do Patropi Private Sub Worksheet_calculate() Dim entrada As Variant If Range("L18").Value = "SIM" Then entrada = InputBox("Insira algum valor") Range("E39").Value = entrada End If End Sub
  22. porque você transcreve o formulario para uma planilha no excel e salva em PDF, imprime, sei la, faz o que for pretendido a cada preenchimento. Simples e direto.
  23. Tem dois jeitos de fazer o que você quer. A primeira é usando a função somase para realizar a totalização. A segunda é usando uma Tabela Dinamica. O ideal é que sua planilha de exemplo seja igual a sua real. De acordo com os comentarios que você colocou na planilha eu usaria a Tabela Dinamica.

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...