Ir ao conteúdo
  • Cadastre-se

CasaDoHardware

Membro Pleno
  • Posts

    1.781
  • Cadastrado em

  • Última visita

  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.

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