Ir ao conteúdo
  • Cadastre-se

CasaDoHardware

Membros Plenos
  • Total de itens

    1.858
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

236

8 Seguidores

Sobre CasaDoHardware

  • Data de Nascimento 07/03/1975 (44 anos)

Informações gerais

  • Cidade e Estado
    Nova Iguaçu - RJ
  • Sexo
    Masculino

Outros

  • Interesses
    Informatica - Xadrez
  1. 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?
  2. Minha sugestão: Imprima paginas impares, depois paginas pares. Outra possibilidade, é abrir a caixa de dialogo de impressão para imprimir conforme sua necessidade.
  3. Para escolher o arquivo a ser aberto pode usar essa linha de codigo. Application.Dialogs(xlDialogOpen).Show
  4. 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
  5. 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.
  6. Nem olhei mas se eu entendi uma tabela dinamica faz milagres
  7. Crtl C Ctrl V Não resolve? Selecione A1:A6 Ctrl + C Selecione B1 Ctrl + V
  8. Com formulas nao creio ser muito eficiente. Com VBA talvez! Eu sugiro usar uma tabela dinamica.
  9. 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
  10. Caso o produto tenha mais de um CA você cadasta cada um com um codigo, mesmo que com a mesma descrição.
  11. @Frederico.Koch acho que você respondeu no lugar errado. kkkk
  12. Tentou usar power query?
  13. 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.
  14. Não é possivel direcionar o download para uma pasta especifica? Se o download for manual e você fizer pelo Chrome é possivel escolher a pasta.
  15. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!