-
Posts
537 -
Cadastrado em
-
Última visita
Reputação
95-
Excel Saber se uma data está dentro de um período
Márcio Rodrigues respondeu ao tópico de ramon.ramon em Microsoft Office e similares
Olá ramon.ramon Veja se é por aí!!! saber se uma data está dentro de um período.rar -
Excel transferir dados entre listbox
Márcio Rodrigues respondeu ao tópico de Miguelriedel em Microsoft Office e similares
Olá Miguelriedel, você pode usar algo assim: Private Sub CommandButton1_Click() UserForm1.ListBox1.ColumnCount = 3 For i = 0 To ListBox2.ListCount - 1 With UserForm1.ListBox1 .AddItem .List(.ListCount - 1, 0) = ListBox2.List(i, 0) .List(.ListCount - 1, 1) = ListBox2.List(i, 1) .List(.ListCount - 1, 2) = ListBox2.List(i, 2) End With Next i UserForm1.Show End Sub Veja se é por aí!!!! transferir dados entre listbox v2.rar -
Excel transferir dados entre listbox
Márcio Rodrigues respondeu ao tópico de Miguelriedel em Microsoft Office e similares
Olá Miguelriedel, Não consegui gerar a tela que você mencionou. Dá erro porque não tem os UserForm5, UserForm4 e UserForm3 no arquivo. Explique como faço para chegar no resultado que você comentou. Té + -
Excel Linha do Tempo Excel
Márcio Rodrigues respondeu ao tópico de strifgluz1245 em Microsoft Office e similares
Olá Luis Techlhar Fontana Manda aí o arquivo para analisarmos. Té + -
Excel transferir dados entre listbox
Márcio Rodrigues respondeu ao tópico de Miguelriedel em Microsoft Office e similares
Olá Miguelriedel, Mande o arquivo para que possamos analisar. Té + -
Excel transferir dados entre listbox
Márcio Rodrigues respondeu ao tópico de Miguelriedel em Microsoft Office e similares
Olá Miguelriedel, Veja se atende, Té +, transferir dados entre listbox.rar -
Excel VBA - selecionando colunas não adjacentes por nome
Márcio Rodrigues respondeu ao tópico de isabela queiroz em Microsoft Office e similares
Olá isabela queiroz Tentando colaborar, veja se é por aí!!! Exemplos.rar -
Excel Linha do Tempo Excel
Márcio Rodrigues respondeu ao tópico de strifgluz1245 em Microsoft Office e similares
Olá Luis Techlhar Fontana Tente usar uma fórmula para filtrar os dados que devem aparecer no gráfico, ou use o eixo auto expansível conforme https://fabiovianna.com.br/criar-grafico-auto-expansivel/. Segue exemplo. Veja se é por aí!!! Gráfico com eixo dinãmio.xlsx -
Excel Quebrar vínculo ao anexar aba do Excel no e-mail
Márcio Rodrigues respondeu ao tópico de Caio Rodrigues Almeida em Microsoft Office e similares
Olá Caio Rodrigues Almeida Altere seu código como abaixo e teste: On Error GoTo 0 'a partir daqui 'fonte: https://funcaoexcel.com.br/remover-vinculos/ Dim myLinks As Variant myLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) For i = 1 To UBound(myLinks) ActiveWorkbook.BreakLink Name:=myLinks(i), Type:=xlLinkTypeExcelLinks Next i 'ate aqui WB.SaveAs FileName:=ThisWorkbook.Path & "\" & FileName veja se é por aí... -
Excel Erro em Form ao executar a Macro - Excel VBA
Márcio Rodrigues respondeu ao tópico de Carlos Eduardo de Morais em Microsoft Office e similares
Olá Carlos Eduardo de Morais: Não sei se você mandou o arquivo certo, porque após a tela de login dá erro neste objeto: CmbUsuario_Alt. Não localizei em frmCadastro. -
Excel Localizar valor e contar linhas (excel - vba)
Márcio Rodrigues respondeu ao tópico de Jefferson TS em Microsoft Office e similares
Olá Jefferson TS Altere esta parte do código e veja se resolve: Dim PLAN As String PLAN = UserForm1.ComboBox1.Text 'fonte https://docs.microsoft.com/pt-br/office/vba/api/excel.range.find dia = CDate(UserForm1.TextBox8.Text) 'formatar para data Worksheets(PLAN).Activate 'linha = Cells.Find(dia).Row ' 'ActiveSheet.Cells(linha, 7) = UserForm1.TextBox1.Text 'ActiveSheet.Cells(linha, 8) = UserForm1.TextBox2.Text 'ActiveSheet.Cells(linha, 9) = UserForm1.TextBox3.Text 'ActiveSheet.Cells(linha, 10) = UserForm1.TextBox4.Text 'ActiveSheet.Cells(linha, 11) = UserForm1.TextBox5.Text 'ActiveSheet.Cells(linha, 12) = UserForm1.TextBox6.Text Dim rgn As Range With Worksheets(PLAN).Range("G:G") Set rgn = .Find(dia, LookIn:=xlValues) If Not rgn Is Nothing Then linha = rgn.Row Do ActiveSheet.Cells(linha, 7) = UserForm1.TextBox1.Text ActiveSheet.Cells(linha, 8) = UserForm1.TextBox2.Text ActiveSheet.Cells(linha, 9) = UserForm1.TextBox3.Text ActiveSheet.Cells(linha, 10) = UserForm1.TextBox4.Text ActiveSheet.Cells(linha, 11) = UserForm1.TextBox5.Text ActiveSheet.Cells(linha, 12) = UserForm1.TextBox6.Text Set rgn = .FindNext(rgn) Loop While Not rgn Is Nothing End If End With If CheckBox1.Value = True Then ActiveSheet.Cells(linha, 6) = "X" End If Veja se é por aí...... -
Excel Copiar texto de textbox com critério
Márcio Rodrigues respondeu ao tópico de josequali em Microsoft Office e similares
Olá josequali Tente isto: Textbox2.Text = Right(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, ".") + 1) Att, -
Excel cadastro de processos em vba/excel
Márcio Rodrigues respondeu ao tópico de lucasjuliao em Microsoft Office e similares
Olá lucasjuliao Dúvida 1: você quer montar um cadastro com os campos que estão no formulário ou com todos os campos que estão na plan cadastro? Dúvida 2: A pesquisa é por um campo exclusivo ou vários? Boa Páscoa!!! Att, -
Excel Criação de rotina em VBA
Márcio Rodrigues respondeu ao tópico de Ana Carolina Teixeira em Microsoft Office e similares
Olá Ana Carolina Teixeira Veja se é por aí... Projeto_tcc_macro_teste v1.rar -
Excel Criação de rotina em VBA
Márcio Rodrigues respondeu ao tópico de Ana Carolina Teixeira em Microsoft Office e similares
Olá Ana Carolina Teixeira Não consegui entender o q você precisa. O resultado está na plan calculo nas colunas T e V... qual outra informação q você que pegar e levar pra onde?
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