Basole

@ricardo_br valeu cara comi bola!
Obrigado, já removi do post e atualizei aqui
 
 
 
InfoWim.zip

@Raquel Coelho o Listbox não tem todos os recursos do Listview, como o cabeçalho, por exemplo e pra dribrar isso, eu inseri mais um componente Listbox para atender o recurso.

 
Quanto a escolha da data das parcelas atualizei a rotina para selecionar a primeira p/ 30 dias, e as demais de acordo com combobox (período)
   
Veja se é isso !
Modelo Simulador_v1.zip

@Luciana Goes espero ter entendido.
 
 
 
LISTBOX_1.zip

@pedroch não tem como eu testar, pois não estou no meu PC no momento, mas experimente, a cima da Linha Next s colocar o comando abaixo: 
 
Kill SelFiles(s) & ".rtf"
 
 

@Martti pelo que entendi voce quer que, ao inserir um novo registro na planilha WS e na coluna K [ TRDPP ], o valor for 2, copiar a linha toda, automaticamente, para a aba TRDPP.
 
Veja se é isso:
 
IMAGE_DATA.zip

@paulocezarpicos beleza segue o código com as alterações.
 
Abrx.
 
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) If ActiveSheet.Name <> "Geral" Then Exit Sub Sheets("Geral").Unprotect "0" Static xLastRng As Range On Error Resume Next On Error Resume Next If Not Application.Intersect(taget, Range("B7:G7,B9:D9,F9:G9,B11:C11," & _ "E11:F11,G11,A14:D14,E14:G14")) Is Nothing Then Application.EnableEvents = False Target.Interior.ColorIndex = 2 xLastRng.Interior.ColorIndex = 36 Set xLastRng = Target Sheets("Geral").Protect "0" Application.EnableEvents = True End If On Error GoTo 0 End Sub  
 

Veja se é isso: ...
 
Sub procurarValorCopiarLinhaInteira() Dim rng As Range Dim r As Range With Sheets("Planilha2") For Each r In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row) ' Procura o valor na planilha1, (valor)que está na planilha2 (na Coluna A) Set rng = Sheets("Planilha1").Columns("A").Find(.Range("A" & r.Row).Value, _ LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then 'copia a linha inteira e cola na celula respectiva linha da Planilha2 rng.EntireRow.Copy Destination:=.Range("A" & r.Row) End If Next r End With End Sub  

Veja se é isso: ...
 
Sub procurarValorCopiarLinhaInteira() Dim rng As Range Dim r As Range With Sheets("Planilha2") For Each r In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row) ' Procura o valor na planilha1, (valor)que está na planilha2 (na Coluna A) Set rng = Sheets("Planilha1").Columns("A").Find(.Range("A" & r.Row).Value, _ LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then 'copia a linha inteira e cola na celula respectiva linha da Planilha2 rng.EntireRow.Copy Destination:=.Range("A" & r.Row) End If Next r End With End Sub  

Veja se é isso: ...
 
Sub procurarValorCopiarLinhaInteira() Dim rng As Range Dim r As Range With Sheets("Planilha2") For Each r In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row) ' Procura o valor na planilha1, (valor)que está na planilha2 (na Coluna A) Set rng = Sheets("Planilha1").Columns("A").Find(.Range("A" & r.Row).Value, _ LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then 'copia a linha inteira e cola na celula respectiva linha da Planilha2 rng.EntireRow.Copy Destination:=.Range("A" & r.Row) End If Next r End With End Sub  

Bom dia
Neste link tem um exemplo. 
 
Veja se consegue adaptar as necessidades. 
Pode rodar o código, no word por exemplo. 
 
Converter RTF para WORD

@Camila Fernandes o erro apresentado é devido valor da variavel estar fora da sub rotina.
 
Veja as alterações no anexo:
 
 
 
Planilha_v1.zip

@Luciana Goes pode-se usar o evento AfterUpdate do textbox
 
 
VBA_1.zip

Fiz as alteracões necessarias para encontar o respectivo registro (RG), no evento CBEditar_Click
 
Veja se é isso que precisa: 
 
Private Sub CBEditar_Click() On Error GoTo Erro If TId = "" Or TData = "" Or Thrs = "" Or Tempresa = "" Or Tcolaborador = "" Or TRg = "" Or _ ComboCRACHA = "" Or COMBTtrabalho = "" Or COMBautorizado = "" Or TSat = "" Or CBoxTacompanhante = "" Then MsgBox "Precisa preencher todos os campos!", vbCritical, "ERRO" Exit Sub End If Dim ID As Double ID = TId Dim Data As Date Data = TData.Value Dim Linha As Long Dim rng As Range With ThisWorkbook.Worksheets("Dados") ' PROCURA PELO RG NA "COLUNA F" E RETORNA A LINHA DO REGISTRO: Set rng = .Columns("F").Find(Me.TRg.Text, LookIn:=xlValues, Lookat:=xlWhole) If Not rng Is Nothing Then Linha = rng.Row If .Cells(Linha, 1).Value = ID Then .Cells(Linha, 1).Value = ID .Cells(Linha, 2).Value = TData .Cells(Linha, 3).Value = Thrs .Cells(Linha, 4).Value = Tempresa .Cells(Linha, 5).Value = Tcolaborador .Cells(Linha, 6).Value = TRg .Cells(Linha, 7).Value = ComboCRACHA .Cells(Linha, 8).Value = COMBTtrabalho .Cells(Linha, 9).Value = COMBautorizado .Cells(Linha, 10).Value = TSat .Cells(Linha, 11).Value = Thsaida .Cells(Linha, 12).Value = CBoxTacompanhante Call Limpar MsgBox "Editado com sucesso!", vbInformation, "EDITAR" Exit Sub End If Else MsgBox "Não encontrado!", vbInformation, "EDITAR" End If End With Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub  

@Luciana Goes não é necessario selecionar a aba oculta nem as celulas para fazer as alteracoes.
 
Aproveite parte do codigo com o find que localiza dados, para fazer a alteração.
 
 
Editar listbox1.zip

@Luciana Goes Veja se é isso...
 
A rotina carrega os dados e o filtro na pesquisa com a aba listbox oculta, sem interferencias na tela
 
Listbox - Filtrar parte da palavra_v1.zip

@Luciana Goes o código abaixo aceita os digitos de 0 a 9 
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii >= 48 And KeyAscii <= 57 Then Else KeyAscii = 0 End If End Sub  
* Altere o nome do textbox no exemplo, caso necessario

@Luciana Goes seria somente a formula que a macro esta inserindo na ABA1 ? 
 
ActiveCell.FormulaR1C1 = "=" & "'" & NewSheet.Name & "'!R[-1]C[2]"  

@ANDRADEOLIV corrigi um erro ao referenciar a aba. 
 
Agora sim esta conforme solicitado.
 
 
LOCALIZAÇÃO.zip

@Dione p veja se é isso.....
 
 
 
Sub SALVAR_PDF() ' ' SALVAR_PDF Macro Dim ws As Worksheet Dim i As Integer With ActiveWorkbook For Each ws In .Sheets(Array("Aut", "+A", "2", "3", "4", "S", "A")) If .Sheets(ws.Name).Range("AA1").Value = 1 Then If i > 0 Then .sheets(ws.Name).Select False i = i + 1 Else .sheets(ws.Name).Select i = i + 1 End If End If Next ws ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\P\Downloads\Projeto " & .Sheets("+A").Cells(7, 2).Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True .Sheets("+A").Select End With End Sub  

@Luciana Goes o erro e bem neste trecho do seu codigo: 
                                          .List(linhalistbox, 0) = Sheets("listbox").Cells(linha, 1)
 Altere para:
 
With ListBox1 .AddItem Sheets("listbox").Cells(linha, 1) End With  
 
 
  

@Luciana Goes veja se e isso que deseja
 
* Acrescentei uma rotina para aceitar somente numeros e virgula nas textbox, para não gerar erros nos calculos
textbox_1.zip

@Luciana Goes veja se é isso que entendi, que voce precisa
 
 
Cálculo automático_1.zip

@jun1orp1m3n7a experimente alterar no código, em LookAt:= o valor
xlParts
por 
xlWhole

@Luciana Goes no exemplo abaixo eu usei a propriedade .List ao invés da .RowSource do 
 Listbox, desta forma são carregados somente as linhas com dados e não um intervalo. 
Ignorar vazias listbox_V1.zip

@NetobarbuioConforme prometido, segue exemplo...
 
  Aproveitei a rotina "ApagaFicheiro" do colega @AfonsoMira, que "destrói" a planilha 
 
* Copie e cole o codigo abaixo no modulo: EstaPasta_de_trabalho
 
Private Sub Workbook_Open() Dim cnt As Long cnt = VBA.GetSetting("MyProjet", "Settings", "Open", 0) cnt = cnt + 1 VBA.SaveSetting "MyProjet", "Settings", "Open", cnt If cnt > 30 Then MsgBox "Esta é uma Versão de Avaliação e se expirou! " & VBA.vbNewLine & _ "E será fechada automaticamente.", vbCritical, "A T E N Ç Ã O" ApagaFicheiro End If End Sub Private Sub ApagaFicheiro() Dim xNomeCompleto As String xNomeCompleto = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xNomeCompleto Application.ActiveWorkbook.Close False End Sub