Ir ao conteúdo
  • Cadastre-se

AfonsoMira

Membro Pleno
  • Posts

    463
  • Cadastrado em

  • Última visita

Tópicos solucionados

  1. O post de AfonsoMira em Como importar informações de site e inserir na planilha// organizá-los? foi marcado como solução   
    @bielrrn Boas,
    Aconselho você a estudar VBA/Macros que é a linguagem de programação que está acima.
    E também a pesquisar um pouco sobre Web Scraping.
  2. O post de AfonsoMira em Como importar informações de site e inserir na planilha// organizá-los? foi marcado como solução   
    @bielrrn Boas,
    Aconselho você a estudar VBA/Macros que é a linguagem de programação que está acima.
    E também a pesquisar um pouco sobre Web Scraping.
  3. O post de AfonsoMira em extrair texto de uma celula com quebra de linha - vba ou formula foi marcado como solução   
    @samuca678 Boas,
    Encontrei duas maneiras uma com fórmula outra com macro/VBA.
     
    Com fórmula utilize:
    =SUBSTITUIR(A2;CARACT(10);";")  
    Supondo que os pedidos estejam em A2, ela vai substituir as quebras de linhas por ";" sendo assim mais fácil passar para várias colunas.
     
    Já com macro deixo arquivo em anexo.
    extrair_texto_InforMira.zip
  4. O post de AfonsoMira em Excel vba soma coluna separadamente foi marcado como solução   
    @deejaywesley Boas,
    Experimente assim:
    Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Dim linhas As Range Set linhas = Range("B3:Z10000") On Error Resume Next If Not Application.Intersect(linhas, Range(Target.Address)) Is Nothing Then coluna = Target.Column myRange = ActiveSheet.Range(Cells(3, coluna), Cells(20, coluna)) Cells(1, coluna).Value = WorksheetFunction.Sum(myRange) End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub  
    Espero ter ajudado.
  5. O post de AfonsoMira em criar id único e permanente foi marcado como solução   
    @NatanMaceno Boas,
    Veja se isto lhe ajuda: ids unicos.xlsx
  6. O post de AfonsoMira em Erro ao instalar aplicativos no androidx86 foi marcado como solução   
    Boas, @Medina156
    Pelo que pesquisei penso que para instalar aplicativos não pode ser através do PlayStore.

    Experimente o seguinte:
     
    Primeiro, tem que ativar a instalação de terceiros
     
    Português Definições --> Aplicações --> fontes desconhecidas Caso esteja em inglês: Settings --> Applications --> Unknown sources Depois baixe o aplicativo com a extensão .apk
    E depois instale a aplicação.
     
    Espero ter ajudado!
  7. O post de AfonsoMira em Calcular Stock diferentes colunas foi marcado como solução   
    Boas, preciso de ajuda para resolver este meu problema.
    Então eu possuo uma tabela com vários itens de diferentes tipos, separados por estoque por cortar e cortado.
    Por exemplo temos o tipo PAPEL, divido por estoque por cortar e cortado.
    No exemplo do item Teste1A após cortar ele vai para o estoque dos cortados, porém pode ter dois caminhos o Teste1AA ou o Teste1AB.
     
    O que eu pretendo é criar uma tabela com estes estoque em apenas uma coluna.
     
    Exemplo:
    ITEM - STOCK
    Teste1A - x 
    Teste1AA - x
    Teste1AB - x
    Teste2A - x
    Teste2AA - x
     
     
    Deixo um arquivo anexado para melhor entendimento.
     
    Desde já agradeço qualquer ajuda.  
     
    exemplo.xlsx
     
     
    Consegui resolver utilizando "pivottable and pivotchart wizard"
     
    Ficou assim:

     
    Vou deixar o ficheiro resolvido em anexo para se alguém precisar.
    exemplo.xlsx
  8. O post de AfonsoMira em Abrir varios arquivos .xlsm e inserir uma imagem foi marcado como solução   
    @thiago.alves22 Então fiz aqui dois códigos:
     
    Um com o caminho da pasta e da imagem já dentro do código:
    Sub loopFoto() Dim MinhaPasta As String, MeuFicheiro As String, MinhaImagem As String MinhaPasta = "C:\Users\thiago.vasconcelos\OneDrive - Axess AS\Desktop\Axess\Axess\Modelo" MinhaImagem = "C:\Users\thiago.vasconcelos\OneDrive - Axess AS\Desktop\Axess\Axess\Assinatura Lincon\Assinaturas\Assinatura Lincon Daquilla.jpeg" Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Application.Calculation = xlCalculationManual MeuFicheiro = Dir(MinhaPasta & "\", vbReadOnly) Do While MeuFicheiro <> "" DoEvents On Error GoTo 0 Workbooks.Open Filename:=MinhaPasta & "\" & MeuFicheiro, UpdateLinks:=False 'Aqui vai o nome da WorkSheet Sheets("SegundaPagina2Fotos").Select With ActiveSheet.Pictures.Insert(MinhaImagem) With .ShapeRange .LockAspectRatio = msoTrue .Width = 75 'Alterar tamanho .Height = 100 'Alterar tamanho End With .Left = ActiveSheet.Range("Q59").Left .Top = ActiveSheet.Range("Q59").Top .Placement = 1 .PrintObject = True End With 0 Workbooks(MeuFicheiro).Close SaveChanges:=True MeuFicheiro = Dir Loop Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True Application.Calculation = xlCalculationManual End Sub  
    Outro com a possibilidade de escolher a pasta e a imagem:
    Sub loopFoto() Dim MinhaPasta As String, MeuFicheiro As String, MinhaImagem As String MsgBox "Selecione a pasta!", vbOKOnly With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show MinhaPasta = .SelectedItems(1) Err.Clear End With MsgBox "Selecione a imagem!", vbOKOnly With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear .Filters.Add "JPG", "*.JPG" .Filters.Add "JPEG File Interchange Format", "*.JPEG" .Filters.Add "Graphics Interchange Format", "*.GIF" .Filters.Add "Portable Network Graphics", "*.PNG" .Filters.Add "Tag Image File Format", "*.TIFF" .Filters.Add "All Pictures", "*.*" .AllowMultiSelect = False .Show MinhaImagem = .SelectedItems(1) Err.Clear End With Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Application.Calculation = xlCalculationManual MeuFicheiro = Dir(MinhaPasta & "\", vbReadOnly) Do While MeuFicheiro <> "" DoEvents On Error GoTo 0 Workbooks.Open Filename:=MinhaPasta & "\" & MeuFicheiro, UpdateLinks:=False Sheets("SegundaPagina2Fotos").Select With ActiveSheet.Pictures.Insert(MinhaImagem) With .ShapeRange .LockAspectRatio = msoTrue .Width = 75 .Height = 100 End With .Left = ActiveSheet.Range("Q59").Left .Top = ActiveSheet.Range("Q59").Top .Placement = 1 .PrintObject = True End With 0 Workbooks(MeuFicheiro).Close SaveChanges:=True MeuFicheiro = Dir Loop Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True Application.Calculation = xlCalculationManual End Sub  
    Espero que lhe ajude!

    Ps. Certifique-se que dentro da pasta apenas existem ficheiros Excel caso contrário vai causar erro.
  9. O post de AfonsoMira em Cabo DVI de 18 pinos serve no soquete de 24 Pinos? foi marcado como solução   
    @Ryan Cardeal Boas, vai dar sim para usar.
    Só é necessário usar os 24 pinos caso seu monitor tenha resolução 4K ou se for um monitor com taxa de atualização superior a 120hz.
  10. O post de AfonsoMira em Como contar células de uma dada data? foi marcado como solução   
    Boas @NatanMaceno,
    Veja se este exemplo lhe ajuda: 
    Contar Data.xlsx
  11. O post de AfonsoMira em é possível usar teclado e mouse no android quando executado em um pc ?? foi marcado como solução   
    @Medina156 Boas,
    Então se vai utilizar o Android x86, pelo que estive a ver no site oficial ele suporta teclado e mouse sim.
    Já para ligar por internet de cabo, penso que seja da seguinte forma:
     
    Pressionar:
    ALT + F1
    Escrever:
    netcfg eth0 dhcp
    setprop net.dns1 8.8.8.8
     
    Como está no seguinte Tutorial - Step 5 (ING)
     
    Espero ter ajudado!
  12. O post de AfonsoMira em Quanto eu conseguiria neste celular? foi marcado como solução   
    @PatrickMatos Sim, parece me um preço justo visto que novo está uns 700 Reais.
  13. O post de AfonsoMira em Qual o melhor galaxy 01 x nokia 2.3 foi marcado como solução   
    @Angern Em relação a processador o melhor é mesmo o Galaxy A01.

  14. O post de AfonsoMira em fórmula ou código vba com critérios foi marcado como solução   
    @guicrissantos Peço desculpas pelo meu erro. Veja se agora está correto?
    FÓRMULA COMISSÃO.zip
  15. O post de AfonsoMira em erro em tempo de execução '94"' uso de 'null" inválido foi marcado como solução   
    @paulotuca  Experimente trocar a linha do pela seguinte:
    tabela.Range(l, 9).Value = If(Nz(UserForm2.obpadrao, "Padrão", "Fora de Padrão"),0) ou tabela.Range(l, 9).Value = If(Nz(UserForm2.obpadrao, "Padrão", "Fora de Padrão",0))  Ps. Não consegui testar aqui
     
  16. O post de AfonsoMira em Somar valores contidos em uma única célula foi marcado como solução   
    @Márcio Bianchini Veja se assim está funcionando para você. 
    Somar valores contidos em uma única célula - InforMira.zip
  17. O post de AfonsoMira em índice + corresp duplo foi marcado como solução   
    @Ileusis Luna Boas, em anexo envio-lhe ficheiro com 2 resoluções.
    Uma com a fórmula filtro, apenas funciona no Excel Office 365.
    A outra com a fórmula Índice, que funciona em todas a versões.
     
    Espero ter ajudado!
    PLANILHA COMBUSTIVEL.xlsx
  18. O post de AfonsoMira em 165Hz 23.8" ou 144Hz 27"? foi marcado como solução   
    Neste caso a diferença de hertz não é muito grande, pois ela indica a quantidade de FPS que o seu monitor consegue apresentar.
    Ou seja em um monitor, você pode jogar até 144 FPS enquanto no outro até 165 FPS.
    Por exemplo se você apenas conseguir rodar jogos até no máximo 140 FPS, não compensa o monitor de 165, pois não vai utilizar tudo o que ele pode.
  19. O post de AfonsoMira em Crystaldiskinfo - Alerta "Reallocated sectors count " é preocupante? foi marcado como solução   
    Boas, @Shaunari
    Já de fabrica, existem discos que vêm com alguns defeitos devido ao processo de fabricação.
     
    A indicação "Reallocated Sectors Count" indica o numero de sectores que foram realocados. Se não estou em erro.
    Aqui no seu caso o valor é 99.
     
    Na prática, não é preciso ficar preocupado.
    Se o valor se mantiver igual depois de alguns reinícios do sistema, não será algo a preocupar.
    Caso contrário, se notar subidas nos valores, poderá possuir problemas no HD.
     
    Ps. Se ainda estiver na garantia peça a troca da peça, pelo sim pelo não
  20. O post de AfonsoMira em Como adicionar planilha atualizada no Power B.I ? foi marcado como solução   
    @nilzon Boas eu penso que basta clicar neste botão no PowerBI Desktop que ele atualiza com as novas informações.
    Botão Atualizar:
  21. O post de AfonsoMira em Estabelecer que a célula vazia é para escrever NA foi marcado como solução   
    @Raquel Coelho Boas, poderia disponibilizar o seu ficheiro para ser mais fácil para nós testar as fórmulas.
     
    Obrigado!
     
    Mas experimente algo deste género:
    =SE(L5=$L$3;"Vence hoje";SE(L5="";"NA";SE(L5>$L$3;"A Vencer";SE(L5<$L$3;"Atrasado";"SEM PARCELA"))))  
  22. O post de AfonsoMira em Excel - Função Hoje "Fixa" com Células Bloqueadas foi marcado como solução   
    @laudnvp Boas, veja se é isto que pretende.
    Recebimento de Notas Fiscais.zip
  23. O post de AfonsoMira em Dois HD em um único PC foi marcado como solução   
    @lucas g rocha
    Sim tem como: Veja aqui como fazer.
    Créditos: Techtudo
  24. O post de AfonsoMira em VBA - Selecionar Botão de Opção e Carregar no Textbox foi marcado como solução   
    @Luciana Goes Boas veja se é isto que pretende.
    EXEMPLO.zip
  25. O post de AfonsoMira em Retornar login do usuário ao preencher células foi marcado como solução   
    @Rafael nunes da silva Boas veja se é algo desse tipo:
     
    Copy of Tela de Login - Teste.zip

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

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!