H o l a : Te anexo las macro actualizadas
Private Sub CommandButton3_Click() 'Boton aceptar, enviar datos a las diferentes celdas
'VALIDACINOES
If TextBox3.Text = "" Then
MsgBox ("Debe Ingresar el N° de Factura o Salir")
Exit Sub
End If
If ComboBox1.Text = "" Then
MsgBox ("Debe Seleccionar Tipo de Documento o Salir")
Exit Sub
End If
If TextBox4.Text = "" Then
MsgBox ("Debe ingresar Monto")
Exit Sub
End If
'
'ACTUALIZAR HOJA
ActiveCell.Offset(0, 2).Select
ActiveCell = TextBox3
fila = Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5
'ActiveWorkbook = Sheets("Hoja27").Cells(7, 2)
'---------------------------------------------------
ActiveCell.Offset(0, 1).Select
ActiveCell = ComboBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = CDbl(TextBox4) 'Convierte a número doble
'ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = ComboBox2
ActiveCell.Offset(0, 2).Select
ActiveCell = ComboBox3
'ACTUALIZAR RUCS EMPRESAS
'Act.Por.Dante Amor
If TextBox5 <> ListBox1.List(ListBox1.ListIndex, 2) Then
'El timbrado cambió.
If ListBox1.List(ListBox1.ListIndex, 3) = "" Then
fila = ListBox1.ListIndex + 2
Else
fila = Val(ListBox1.List(ListBox1.ListIndex, 3))
End If
RUC.Cells(fila, "F") = TextBox5
End If
'Fin.Por.Dante Amor
End Sub
Private Sub Buscar(TextBox As Control, Columna As Integer)
uf = RUC.Range("D" & Rows.Count).End(xlUp).Row
If Trim(TextBox) = "" Then
ListBox1.RowSource = "'" & RUC.Name & "'!D2:G" & uf 'Se aumentó a G para considerar el número de fila
Exit Sub
End If
ListBox1.RowSource = ""
For i = 2 To uf
If UCase(CStr(RUC.Cells(i, Columna))) Like "*" & UCase(TextBox) & "*" Then
ListBox1.AddItem RUC.Cells(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 1) = RUC.Cells(i, 5)
ListBox1.List(ListBox1.ListCount - 1, 2) = RUC.Cells(i, 6)
ListBox1.List(ListBox1.ListCount - 1, 3) = i 'se agrega la fila
End If
Next i
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias