Jump to content

JSDJSD

Members
  • Posts

    1,207
  • Joined

  • Last visited

  • Days Won

    83

Everything posted by JSDJSD

  1. 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
  2. Si nadie te da una solución antes, el sábado o domingo te doy una solución
  3. 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
  4. 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
  5. 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
  6. 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
  7. 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).
  8. ' 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
  9. 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 ?
  10. Te refieres que este mismo reporte te lo imprima en papel verdad?
  11. 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
  12. uf = Sheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet5").Range("K2:L" & uf).NumberFormat = "dd/mm" Prueba y comenta
  13. Supongo que tal cual lo tenemos en el listbox verdad ?
  14. Pon un ejemplo de lo que necesitas y desde que listbox quieres hacerlo.
  15. Sube tu archivo con dos o tres ejemplos
  16. Prueba y comenta Disponibilidad 23Foro (1).xlsm
×
×
  • Create New...

Important Information

Privacy Policy