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

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?

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.