Ir ao conteúdo
  • Cadastre-se

AfonsoMira

Membro VIP
  • Total de itens

    389
  • Cadastrado em

  • Última visita

  • Qualificações

    0%

Tópicos solucionados

  1. O post de AfonsoMira em Mais argumentos na função SES + PROCV do que o Excel permite foi marcado como solução   
    @Guilhermepa3
    Veja se agora já está como pretende?
     
    Formulário Orçamento -atualizado - Copia OK.xlsx
  2. O post de AfonsoMira em VBA - AfterUpdate com condicional foi marcado como solução   
    Boas @Luciana Goes,
     
    Substitua todo o seu código por esse: 
    Private Sub UserForm_Initialize() TextBox1.Text = Plan1.Range("b3").Value TextBox2.Text = Plan1.Range("c3").Value TextBox3.Text = Plan1.Range("d3").Value TextBox1_AfterUpdate End Sub Private Sub TextBox1_AfterUpdate() valor2 = Right(TextBox2.Value, Len(TextBox2.Value) - 3) If TextBox1.Value < 0 Then TextBox4.Value = valor2 * CDbl(TextBox1.Value) ElseIf TextBox1.Value >= 0 Then TextBox4.Value = valor2 * TextBox3.Value End If End Sub Private Sub TextBox2_Change() TextBox2.Value = VBA.Format(TextBox2.Value, "R$ ###,##0.00") TextBox2.TabStop = False End Sub  
    Espero ter ajudado.
  3. O post de AfonsoMira em Inserir linhas em varias celulas selecionadas no excel foi marcado como solução   
    @WAGNNERMDS Boas,
    Veja se assim consegue:
     
    Selection.Insert  
    Vai adicionar linha acima das células que estiverem selecionadas.
    Espero ter ajudado.
  4. O post de AfonsoMira em Inserir linhas em varias celulas selecionadas no excel foi marcado como solução   
    @WAGNNERMDS Boas,
    Veja se assim consegue:
     
    Selection.Insert  
    Vai adicionar linha acima das células que estiverem selecionadas.
    Espero ter ajudado.
  5. O post de AfonsoMira em Inserir linhas em varias celulas selecionadas no excel foi marcado como solução   
    @WAGNNERMDS Boas,
    Veja se assim consegue:
     
    Selection.Insert  
    Vai adicionar linha acima das células que estiverem selecionadas.
    Espero ter ajudado.
  6. O post de AfonsoMira em Copiar dados de uma coluna em blocos para planilha espelho foi marcado como solução   
    Então veja se é mais ou menos isto que deseja.
    IMAGE_DATA.zip
  7. O post de AfonsoMira em VBA - Editar listbox em abas diferentes foi marcado como solução   
    Boas,
    Veja se é isto que deseja:
    Alterações que fiz estão a verde:
     
    Private Sub CommandButton1_Click()
        
        If TextBox1.Value <> "" Then
            If MsgBox("Aplicar alterações no registro selecionado?", vbQuestion + vbYesNo, "Atualizar informações") = vbYes Then
                On Error GoTo erro
                ListBox1.List(ListBox1.ListIndex, 0) = TextBox1.Text
                With ThisWorkbook.Sheets("tipomaterial")
                .Cells(ActiveCell.Row, "A") = TextBox1
                End With
                MsgBox "Alteração realizada com sucesso!", vbInformation, "Atualização de dados"
                Unload Me
                telalistagemtipodemateriais.Show
             End If
        End If
        If TextBox1.Value = "" Then
            If MsgBox("Aplicar alterações no registro selecionado?", vbQuestion + vbYesNo, "Atualizar informações") = vbYes Then
                MsgBox "É necessário informar o novo nome", vbInformation, "Atualização de dados"
                Unload Me
                editartipodemateriais.Show
             End If
        End If
        Sheets("MENU").Activate
        Exit Sub
    erro:
    MsgBox "É necessário selecionar um item e digitar o novo nome"
    Sheets("MENU").Activate
      End Sub
     
     
     
     
    Editar listbox.zip
  8. O post de AfonsoMira em copilar os todos os resultados encontrados com um procv? foi marcado como solução   
    Boas, 
    Veja se seria isto:
     
    HelpPlease.xlsx
  9. O post de AfonsoMira em alerta de vencimento na tela - excel foi marcado como solução   
    Boas,
    Veja se lhe ajuda:
     
    Planilha de acompanhamento de documento offshore.zip
  10. O post de AfonsoMira em VBA Excel - Evento Open do Workbook não executa foi marcado como solução   
    @Diclas Boas, 
    Não tenho 100% certezas, mas penso que seja por o Excel já se encontrar aberto.
    Editado: Estive pesquisando e parece ser um bug do Excel.
     
    Encontrei aqui o que parece ser uma solução, de uma olhada e veja se resolve.
  11. O post de AfonsoMira em Formatação condicional para coincidência. foi marcado como solução   
    @GENECIOFICIAL Boas,
    Veja se é isto que deseja.
     
    format-cond-2-coincid.xlsx
  12. O post de AfonsoMira em Formatação condicional para coincidência. foi marcado como solução   
    @GENECIOFICIAL Boas,
    Veja se é isto que deseja.
     
    format-cond-2-coincid.xlsx
  13. O post de AfonsoMira em Formatação condicional para coincidência. foi marcado como solução   
    @GENECIOFICIAL Boas,
    Veja se é isto que deseja.
     
    format-cond-2-coincid.xlsx
  14. O post de AfonsoMira em Erro quando copia listbox sem data de nascimento foi marcado como solução   
    @Jefferson TS Boas,
    Então o erro acontece, pois a variável nasc está declarada como data, como está a atribuir o valor "" como este não é uma data então dá o erro.
     
    Experimente algo como isso, ele verifica se o valor é "" ou não.
     
  15. O post de AfonsoMira em Soma coluna no banco Access e mostrar no label do excel foi marcado como solução   
    @josequali Boas,
    Experimente o seguinte código na inicialização do form.
     
     
     
  16. O post de AfonsoMira em Resetar o meu Hdd para o 0 foi marcado como solução   
    Boas, @Leel12  veja se o seguinte site lhe ajuda: https://canaltech.com.br/hardware/apague-definitivamente-os-dados-de-seu-disco-rigido/
  17. O post de AfonsoMira em SOMASES em larga escala no VBA foi marcado como solução   
    @feross Eu cheguei nesse código, mas ele tambem demora algum tempo.
     
    Sub teste()     Dim Arg1 As Range 'Range a somar entrada     Dim Arg2 As Range 'Primeiro range criterio entrada     Dim Arg3 As Variant 'Primeiro Criterio entrada     Dim Arg4 As Range 'Segundo range criterio entrada     Dim Arg5 As Variant 'Segundo Criterio entrada          Dim Arg6 As Range 'Range a somar saida     Dim Arg7 As Range 'Primeiro range criterio saida     Dim Arg8 As Variant 'Primeiro Criterio saida     Dim Arg9 As Range 'Segundo range criterio saida     Dim Arg10 As Variant 'Segundo Criterio saida          Set Arg1 = ThisWorkbook.Sheets("BD").Range("F:F")     Set Arg2 = ThisWorkbook.Sheets("BD").Range("A:A")     Set Arg4 = ThisWorkbook.Sheets("BD").Range("E:E")          Set Arg6 = ThisWorkbook.Sheets("BD").Range("F:F")     Set Arg7 = ThisWorkbook.Sheets("BD").Range("A:A")     Set Arg9 = ThisWorkbook.Sheets("BD").Range("E:E")          'Criterio Entrada     Arg3 = "ENTRADA"     'Criterio Saida     Arg8 = "SAÍDA"          Dim ws As Worksheet     Set ws = ActiveSheet     Dim i As Long     Dim ultimo As Long          ultimo = ws.Cells(rows.count, 1).End(xlUp).Row          Application.ScreenUpdating = False     Application.EnableEvents = False     Application.DisplayAlerts = False          For i = 2 To ultimo         Arg5 = ws.Cells(i, 1).Value         Arg10 = ws.Cells(i, 1).Value         ws.Cells(i, 3).Value = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3, Arg4, Arg5) - Application.WorksheetFunction.SumIfs(Arg6, Arg7, Arg8, Arg9, Arg10)     Next          Application.ScreenUpdating = True     Application.EnableEvents = True     Application.DisplayAlerts = True          MsgBox "Atualizado com sucesso!"      End Sub  
  18. O post de AfonsoMira em perda de referências em fórmulas foi marcado como solução   
    Então veja se o seguinte exemplo fica bom.
    Alterei apenas na folha "SIGP_34 LEANDRO SOROC EET-5I96"
     
    Nas restantes folha fica tudo igual menos o seguinte:
    DADOS!J:J,2 onde está o 2 você coloca a linha que pretende chamar.
     
    Espero que tenha ajudado.
    PLANEJAMENTO E CONTROLE DE PRODUÇÃO_FINAL.zip
  19. O post de AfonsoMira em como editar o byobu foi marcado como solução   
    @Um mero usuário Boas,
    Estive a dar uma pesquisada pelos fóruns ingleses e descobri o nome de um ficheiro que eles dizem para editar o conteúdo.
    Não sei se lhe ajuda mas aqui fica o caminho para o ficheiro:
    /usr/share/byobu/keybindings/f-keys.tmux  
    Fonte: Stack Overflow
  20. O post de AfonsoMira em Gráfico de velocímetro excel foi marcado como solução   
    @Mayara Rezende Veja se o seguinte exemplo lhe ajuda.
    velocímetro.xlsx
  21. O post de AfonsoMira em Botão de "guardar PDF" foi marcado como solução   
    @Andre4 Veja se assim lhe atende não consegui melhor.

    Lembrando que ele vai gravar tudo em apenas 1 ficheiro PDF.
    Planilha.xls
  22. O post de AfonsoMira em Seleção de opptionButton em frame obrigatória foi marcado como solução   
    @josequali Boas,
    Veja se este exemplo lhe ajuda:
    obrigatorio_dentro_de_frames.zip
  23. O post de AfonsoMira em Colocar botão no canto superior direito de uma página web foi marcado como solução   
    Troque: 
     Por:
    <div id="cabecalho"> <a href="sobre.html"><button> Sobre </button></a> </div>  
    Estava faltando a TAG a
    Sem ela não existia nenhum link.
     
    Aqui fica um link para melhor consulta: tag <a>
  24. O post de AfonsoMira em Lista Suspensa com critérios foi marcado como solução   
    @Abraão Tavares Penso que seja na fórmula filtro que eu utilizei não funcione na sua versão.
    Teste este novo ficheiro que tive que utilizar 3 colunas de ajuda que ficaram escondidas, mas é compatível em todas as versões do Excel.
    Planilha em teste (1).xlsx
  25. O post de AfonsoMira em Colocar animação em imagem foi marcado como solução   
    @Joel Martins Boas,
    Falta-lhe os " ; " no final de width e height.
    Ficando assim:
    <center> <style> #PandaStore_logo_{ width="25%"; height="25%"; animation-name: pandastorelogo; animation-duration: 4s; position: relative;} @keyframes pandastorelogo { 0% {left:0px; top:0px;} 25% {left:200px; top:0px;} 100% {left:0px; top:0px;} } </style> <img src="Imagens/PandaStore(letters (line))1.png" id="PandaStore_logo_" alt="PandaStore_logo_"> <hr>  

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

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!