Jump to content

Arturo Castillo Chavez

Members
  • Content Count

    33
  • Joined

  • Last visited

About Arturo Castillo Chavez

  • Rank
    Member
  • Birthday 11/03/1961

Contact Methods

  • Facebook
    Arturo Castillo Chavez

Profile information

  • Gender
    Hombre
  • Localización:
    Irapuato

Converted

  • Campos
    ;

Recent Profile Visitors

563 profile views
  1. Sr. Antoni este es mi proyecto: Tengo dos formularios que quiero sustituirlos por las hojas con los nombre similares En formulario frm_AltaFactura el textbox Me.txt_Dias_Credito + Me.txt_Fecha_Facturacion = Me.txt_Fecha_Vto 29-abr-19 + 30 = 29-may-19 2.- Que aparezca el importe total de la factura aparezca en tiempo real Me.txt_Importe_Factura Me.ListBox1.List(i, 😎= Me.txt_Importe_IVA Me.ListBox1.List(i, 9) = Me.txt_Total 3.- El el Frm_PagoFactura Me.txt_Fecha_Factura Me.ListBox1.List(i, 3) = Format(Me.txt_Fecha_Factura, "dd-mmm-yy") Me.ListBox1.List(i, 4) = Me.txt_Fecha_Vencimiento Me.ListBox1.List(i, 4) = Format(Me.txt_Fecha_Vencimiento, "dd-mmm-yy") Me.ListBox1.List(i, 7) = Me.txt_Importe Me.ListBox1.List(i, 7) = Format(Me.txt_Importe, "#,##0.00") Me.ListBox1.List(i, 😎 = Me.txt_Fecha_Pago Me.ListBox1.List(i, 😎 = Format(Me.txt_Fecha_Pago, "dd-mmm-yy") El fecha factura aparece 18/04/2019 y quiero que se presente 18-abr-19 lo mismo el lafecha de vencimiento Format(Me.txt_Importe, "#,##0.00") aparece 806,58 y yo quisiera que fuera 806.58 Estos formularios van a ser las veces de las hojas de caltuc alta de facturas y pago de factura (sería por pura estetica) Este proyecto es con el fin de tener al día todas las facturas por pagar (Vencidas no pagadas y por vencier) por cada proveedor, a partir de la hoja "regfac" Esperando de verdad pueda ayudarme reciba un cordial saludo
  2. Sr. Antoni por favor seria tan amable en ver mi nota sobre como sumar dos texto y el total a un tercer y en otra suma para sacar el vencimiento de una factura 24-abr-2019 +30 = 29-may-2019
  3. Gracias por tu respuesta pero este código no se donde debe ir, si es necesario te pasaría mi código para que por favor me orientes en donde debe ir Y de nuevo gracias
  4. Tengo un un formulario que tienes varios texbox el problema es que no se como haceros funcionar es en un formulario para dar de alta las factura en una hoja donde se concentran las altas y los pagos de facturas. Por favor en este formulario que se llama txt_Fecha_Facturacion + 30 = txt_Fecha_Facturacion (16-abr-19 +30 = 16-may-19) en excel si lo hace. en el txt_Total = txt_Importe_Factura + txt_Importe_IVA (Ejempo $ 3,000.00 + 480.00 = $ 3,480.00 Se podra hacer que lo haga a al momento y se vacien al listbox (ya tambien hice le código) El código del botón de buscar ya lo hice El boton de Agregar ya lo hice El botón de Actualizar (Que se guarda en una base de datos ya lo hice), eleminar registro también. Por favor haran la obra buena de semana santa Saludos
  5. Buenas tardes Solo cambie la hoja con el verdadero nombre del proveedor, haz de comprender que no debí hacer esto pero se me fue y en cuanto a la solución que me mandas muchas gracias, perdón por mi ignorancia he tratado de adecuar la macro pero no veo como, te comento mi proyectos es que tengo dos 4 hojas 1.- Datos del Proveedor 2. Captura de facturas que se almacenan que se almacenas en un hoja que llamo Registro de facturas en la columna "H" 3.- Captura de pagos de facturas que se almacenan también en la hoja de Registros de Facturas en la columna " I" lo que quiero es que de ese registro de Facturas pueda generar una consulta de cada proveedor ya sea con una validación de datos o un combobox donde elija el No. de proveedor y me despliegue todas la facturas por vencidas no pagadas y por vencer y después y que se imprimir yen formulario de consultas no veo como pueda escoger el proveedor como el ejemplo que me mandaron que si es bueno, que no salgan las facturas ya pagadas. te anexo el fichero Espero que me de a entender. Ustedes son los buenos en programación, y so un aficionada de en VBA que le falta mucho por aprender Ayudame por favor ya lo tienes el código solo para poner el formularios Saludos y gracias por todas las atenciones
  6. Buen día aqui en México No se de donde seas Y antes que nada muchas gracias ahorita lo checo, y si me sirve solo una duda mas por favor, esta base de datos de facturas de entrada y las pagadas va creciendo, Si va estar actualizando cada alta y pago de factura? De nuevo muchisimas gracias, voy a ver como lo hiciste haber si aprendo Saludos y mis respetos a todo la comunidad que se toma el tiempo de leerlo En serio Muchas gracias Cacho y todos
  7. Tienes razón que lo deje incompleto pero no sé si viste que al modulador me dijo que ya tenia que abrir otro tema porque ya estaba resuelto. y por lo menos el mio no. Como era muy pesado no puede enviarlo para saber como subierlo y la verdad hubo respuesta, pero bueno alguien como tú y leopoldo blancas ya comentaron Muchas gracias
  8. HOOOOOOOLA Buenas tardes Seria mucho pedir si me ayudaras con esto formulario de consulta y que se imprime el reportare por proveedor, Gracias Saludos FORMULARIO DE CONSULTA.xlsm
  9. '--> Macro por Haplo - 05/10/2018 <-- Sub facturas() Dim vencidas() Dim futuras() Dim i%, j%, k%, l%, m%, uF& Application.ScreenUpdating = False uF = Range("A" & Rows.Count).End(xlUp).Row ReDim vencidas(1 To uF, 1 To 12) ReDim futuras(1 To uF, 1 To 11) i = 4 j = 1 m = 1 Do While Cells(i, 1) <> "" If Cells(i, "F") < Now() And Cells(i, "I") = "" Then For k = 1 To 10 vencidas(j, k) = Cells(i, k) Next vencidas(j, 11) = Cells(i, "H") vencidas(j, 12) = "FACTURA VENCIDA" j = j + 1 ElseIf Cells(i, "F") >= Now() Then For l = 1 To 11 futuras(m, l) = Cells(i, l) Next m = m + 1 End If i = i + 1 Loop Range("M2:X2").Copy Sheets.Add(After:=Sheets(Sheets.Count)).Name = "REPORTE" AQUI MARCA UN ERROR CUANDO ACTUALICE LOS REGISTOS Range("A1").PasteSpecial (xlPasteAll) Cells(2, 1).Resize(j, 12) = vencidas Cells(j + 1, 1).Resize(m, 11) = futuras Range("A:L").EntireColumn.AutoFit End Sub ACTUALIZANDO LOS REGISTRO YA SON 1042 Y Y SE DETIENE
  10. Para subir un archivo incompleto te molestaste en escribirle al Dueño del sitio... ???

     

    1. Leopoldo Blancas

      Leopoldo Blancas

      Mi computadora me hizo una treta...Me disculpo, si estan los datos...

      Le echare un vistazo.

  11. Buenas tardes Haber si no me lo rechazan, pero tengo 1 año pidiendo ayuda de cualquier indole, a donde puede leer algo de literatura. vídeo lo que sea que me ayude a sacar un reporte por proveedor de todas las factruas vencidas no pagadas y por vencer y que se puedan imprimir anexo la hoja donde una vez capturada las factura y capturado los pagos se puedan tomar los datos solo las vencidas no pagadas facturas por vencier (como un estado de cuenta por proveedor)Registro de facturas.xlsx De antemano grancias por tomarse la molestia en leerlo
×
×
  • Create New...

Important Information

Privacy Policy