Jump to content

JSDJSD

Members
  • Posts

    1,207
  • Joined

  • Last visited

  • Days Won

    83

JSDJSD last won the day on August 24

JSDJSD had the most liked content!

About JSDJSD

  • Birthday 01/01/1972

Profile information

  • Localización:
    Priego de Córdoba -- Excel 2016 --

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

4,509 profile views

JSDJSD's Achievements

  1. Buenas noches JSD

    No sé si esto viola el Reglamento del Foro, pero me gustaría tener un correo donde localizarlo.

    Si estoy cometiendo una indisciplina, pido disculpas por ello. No se repetirá.

    Gracias

  2. 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
  3. Si nadie te da una solución antes, el sábado o domingo te doy una solución
  4. 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
  5. 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
  6. 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
  7. 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
  8. 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).
  9. ' 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
  10. 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 ?
×
×
  • Create New...

Important Information

Privacy Policy