Márcio Rodrigues

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

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á 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á 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á Ana Carolina Teixeira
Veja se é por aí...
Projeto_tcc_macro_teste v1.rar

Olá
 
Cole logo abaixo do:
Private Sub cboEmpresas_Change()
  TextBox4 = ActiveCell.Formula = _
  "=VLOOKUP(Cadastro_Empresas[Empresa],C[-7]:C[-3],2,FALSE)"
    
End Sub
isto:
 
'consultado Pedro Martins em http://www.sigaonerd.com/2016/11/vba-artigo-022-efetuando-pesquisas-com.html
Private Sub cboEmpresas_Click()
                
    Dim rngRange As Range
    Dim searchCompany As String
    Dim rngRangeResult As Range
    Dim lRow As Long
    
    Set rngRange = Range("a1:a" & Rows.Count)
            
    searchCompany = cboEmpresas.List(cboEmpresas.ListIndex, 0)
    
    Set rngRangeResult = rngRange.Find(searchCompany, LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns)
        
        If Not rngRangeResult Is Nothing Then
        
            lRow = rngRangeResult.Row
        
            TextBox4.Text = Cells(lRow, 3).Value
        
        End If
    
End Sub
 
Pode apagar o código Private Sub cboEmpresas_Click()
 
Veja se é por aí...
 
Té +
Márcio

Olá AlanBC
 
Verifique se te atende.
 
Veja se é por aí...
 
Té +
Márcio
controle v1.rar

Olá ErickSant
 
Segue anexo.
 
Veja se é por aí...
 
Té +
Márcio
teste v1.rar

Olá diego_janjao
 
Verifique se resolve o problema.
 
Veja se é por aí...
 
Té +
Márcio
rec2019 v2.rar

Olá Thiago088
 
Você poderia filtrar por cor e excluir as linha, coloquei um exemplo no arquivo.
 
Por macro, conforme já colocado pelo:
 
Fiz uma macro que verifica a cor da célula A2 (seu cabeçalho) e varre toda a planilha, caso todas as células do range A até E tenham a mesma cor da célula A2 então deleta a linha.
 
Veja se é por aí...
 
Té +
Márcio
2013 a 2015 v1.rar

Ola xandymarinho
 
Alterei o código.
Inclui um teste para saber se esta no começo do range.
Teste e veja se é por ai..
 
Té +
Márcio
Analise Mix_AMOSTRA v1.rar

Ola casodrigo
 
Segue anexo arquivo com possível solução.
Veja se é por aí...
 
Té +
Márcio
Transferencias exemplo v1.rar

Olá jcgmc
 
Veja se é por aí!!!
 
Márcio
(jcgmc) ListBox - Listar Historicos Versao1.rar

Olá João Célio da Costa
 
Seque arquivo com macro para gerar a separação. Seu arquivo tem algumas linhas fora de padrão. Veja as colunas F, G e H, provavelmente são dígitos dos RG.
 
Veja se é por aí!!!
 
Márcio
Final Versão 1.rar