Márcio Rodrigues

Olá ramon.ramon Veja se é por aí!!! saber se uma data está dentro de um período.rar

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

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é +

Olá Luis Techlhar Fontana Manda aí o arquivo para analisarmos. Té +

Olá Miguelriedel, Mande o arquivo para que possamos analisar. Té +

Olá Miguelriedel, Veja se atende, Té +, transferir dados entre listbox.rar

Olá isabela queiroz Tentando colaborar, veja se é por aí!!! Exemplos.rar

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

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

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.

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

Olá josequali Tente isto: Textbox2.Text = Right(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, ".") + 1) Att,

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,

Olá Ana Carolina Teixeira Veja se é por aí... Projeto_tcc_macro_teste v1.rar

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?