JSDJSD

Sube tu archivo, y pon un ejemplo

Cambia tu código por este modificado Private Sub CommandButton1_Click() Dim Uc As Integer Dim I As Integer Dim Uf As String Dim Pago As String With Hoja3 Uf = .Range("A" & Rows.Count).End(xlUp).Row Pago = TxtPago For I = 1 To Uf Uc = .Cells(I, Columns.Count).End(xlToLeft).Column If ComboBox1.Text = .Cells(I, 2).Text Then .Cells(I, Uc).Offset(0, 1) = TxtPago .Cells(I, Uc).Offset(0, 2) = TxtConcepto .Cells(I, Uc).Offset(0, 3) = CDate(Date) Exit For End If Next MsgBox "REGISTRADO SATISFACTORIAMENTE", vbInformation, "PROCESADO" End With End Sub

Sube tu archivo

Si nadie te da una solución antes, el sábado o domingo te doy una solución

Me alegro, pero no olvides agradecer a quien te ayuda o intenta ayudar, y en este foro es mediante el corazoncito que hay en la parte inferior derecha, un saludo

Y con tu código prueba y comenta Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 _ Or KeyAscii = 32 Or KeyAscii = 95 Or KeyAscii = 58) Then KeyAscii = 0 End If End Sub

Prueba y comenta Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 32 Case 58 Case 65 To 90 Case 95 Case 97 To 122: Case Else: KeyAscii = 0 End Select End Sub

Aquí tienes el archivo, ya tienes operativos todos los botones. Si pulsas el botón pdf te genera una copia en formato pdf de la factura seleccionada en la carpeta informes, la cual se crea automáticamente en la misma ruta donde se encuentre tu archivo. Si pulsas Imprimir te imprime la factura seleccionada en tu impresora, para lo cual tienes que modificar lo siguiente en la siguiente macro. Sub ActivarImpresora() actPrnt = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Brother MFC-L2710DW series", Collate:=True Application.ActivePrinter = actPrnt End Sub Cambia en esta línea el nombre de la impresora por el de la tuya. ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Brother MFC-L2710DW series", Collate:=True Si pulsas en Informes te genera un informe de todas tus facturas. Si pulsas en Eliminar Factura te borra la factura seleccionada. Facturación 26082021JSD.xlsm

Prueba y comenta

Te dejo un avance

Se puede modificar para que admita más terminaciones

Te valdría algo como esto ? Este sería el formulario por el cual se añadirían todos los datos tanto a la base de datos como a la factura, si crees que puede ser viable dilo y te lo preparo con más detalles (consulta de facturas, Imprimir factura).

' Imprimir actPrnt = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut Copies:=1, _ ActivePrinter:="Brother MFC-L2710DW series (Copiar1)", _ Collate:=True Application.ActivePrinter = actPrnt He añadido esta parte al código, sustituye en esta línea el nombre de tu impresora ActivePrinter:="Brother MFC-L2710DW series (Copiar1)", _ prueba y comenta. Diseño2.xlsm

Preguntas: En el archivo original hay una hoja exclusiva para clientes ? En el archivo original hay una hoja exclusiva para descripciones y precios o estas se improvisan ? La hoja Factura tiene que tener la estructura que muestra o puede cambiarse ? El formulario tiene que quedarse tal como lo tienes o puede cambiar ?

Te refieres que este mismo reporte te lo imprima en papel verdad?

Me alegro mucho pero la forma de agradecer a quien te ayuda o intenta ayudar es mediante el corazoncillo que hay en la parte inferior derecha, un saludo

uf = Sheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet5").Range("K2:L" & uf).NumberFormat = "dd/mm" Prueba y comenta

Prueba y comenta Diseño2.xlsm

Mañana te subo algo

Supongo que tal cual lo tenemos en el listbox verdad ?

Pon un ejemplo de lo que necesitas y desde que listbox quieres hacerlo.

Prueba y comenta Diseño2.xlsm

Sube tu archivo con dos o tres ejemplos

Prueba y comenta Disponibilidad 23Foro (1).xlsm

Revisa este aporte del Maestro Antoni.