CasaDoHardware

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

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

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

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.

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.

Cria a conexao dos relatorios nas configurações da tabela dinamica

E porque nao fazer tudo no proprio excel??? Não complica o simples!!!!!

Minha sugestão: Imprima paginas impares, depois paginas pares. Outra possibilidade, é abrir a caixa de dialogo de impressão para imprimir conforme sua necessidade.

Para escolher o arquivo a ser aberto pode usar essa linha de codigo. Application.Dialogs(xlDialogOpen).Show

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

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.

Nem olhei mas se eu entendi uma tabela dinamica faz milagres

Crtl C Ctrl V Não resolve? Selecione A1:A6 Ctrl + C Selecione B1 Ctrl + V

Com formulas nao creio ser muito eficiente. Com VBA talvez! Eu sugiro usar uma tabela dinamica.

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

Caso o produto tenha mais de um CA você cadasta cada um com um codigo, mesmo que com a mesma descrição.

@Frederico.Koch acho que você respondeu no lugar errado. kkkk

Tentou usar power query?

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.

Não é possivel direcionar o download para uma pasta especifica? Se o download for manual e você fizer pelo Chrome é possivel escolher a pasta.

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

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.

Faz no excel que fica mais fácil

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.

Tem um modelo da etiqueta? Não é difícil fazer