Jump to content

nane

Members
  • Content Count

    26
  • Joined

  • Last visited

Everything posted by nane

  1. Muchas Gracias, Funciona como lo esperaba. los códigos previos los reutilice de otro archivo que me ayudaron previamente.
  2. Buenas, Necesito de sus ayuda. Adjunto hay un archivo donde tiene 2 hojas y ya tiene el primer macro donde en el ComboBox1 muestra la lista de la hoja1 columna 1 y en el Texbox1 muestra la información relacionada al dato seleccionado, en el Combobox2 muestra la información de la hoja2, cuando le dan en aceptar sale al Userform2 que arroja el cuadro de confirmación para guardar los cambios. las modificaciones que requiero es que, al confirmar el cambio que la información Reemplazar la información de la Hoja1 con los datos de 1. Hoja1 (POSID con los Datos Textbox4) Reemplazo la Información Hoja2 1. Hoja2 (POSID con los Datos de TextBox2), Fecha de retiro (Textbox7) espero haber sido clara. POS ID Control 1.xlsm
  3. muchas gracias me sirve perfecto lo aplicare para las 3 opciones similares q tengo
  4. Buenas, tengo el siguiente problemita, necesito que cuando llene el ComboBox con un dato, en el texbox de saldo se llene automáticamente en el saldo del nombre que se coloco en el combobox saludos cordiales. Proyecto.xlsm
  5. @Antoni cambie el codigo como me dijo pero me sigue saliendo error. en los Dim de final lo coloque como Long, no se en que estoy fallando realmente. Private Sub CommandButton1_Click() Dim NUEVO As Object Dim I As Integer, H As Integer, L As Integer, M As Integer, j As Integer, T As Integer Dim FINALTOTAL As Integer Dim PRES As String Dim final As Long, FINAL2 As Integer Dim ORIGEN As String Dim SALDO As Double Dim VALOR2 As String, VALOR3 As String Dim val1 As String, val2 As String, val3 As String, val4 As String, val5 As String, val6 As String Dim CONTAR As Double, CONTAR1 As Double Dim x As Integer final = Hoja2.Cells(1, 1).End(xlDown).Row Application.ScreenUpdating = False Set NUEVO = Workbooks.Add NUEVO.Activate ORIGEN = ActiveWorkbook.Name 'Sin lineas divisorias ActiveWindow.DisplayGridlines = False 'ENTRADAS For I = 1 To final If Hoja2.Cells(I, 1) = "" Then final = I - 1 Exit For End If Next
  6. No entiendo esta parte Y de paso, elimina todas las filas en blanco de la hoja Hoja2.
  7. tengo el siguiente cogido para generar informe, pero al momento de determinar el rango completo me da error, adjunto el cogido donde me da error para depurar. por tema de tamaño admitido para subir tuve que borrar registros de la hoja 2, pero tenia mas de 200000 registros, en ese momento que me da error al generar el reporte. por favor si me pueden ayudar muchas gracias. Fila = Hoja2.Cells(Rows.Count, 1).End(xlUp).Row For I = 1 To Fila If Hoja2.Cells(I, 1) = "" Then final = I - 1 Exit For End If Next Proyecto.xlsm
  8. buenas en mi proyecto tengo el siguiente código que termina cual es la ultima linea o la linea vacías para ingresar los datos, pero esta formula solo me limita a las primeras 1000 máximo 9000 lineas sin que me salga un error, luego de esto tuviera que empezar un numero archivo, pero me gustaría que me abarcara hasta la ultima celda de excel A1048576. por favor si me pueden ayudar muchas gracias. adjunto el proyecto en el Userform2 es principalmente donde la utilizo pero realmente la utilizo e manera contante en todo mi proyecto para determinar donde esta el ultimo dato o la celda vacías. muchas gracias de ante mano. For i = 1 To 1000 If Hoja2.Cells(i, 1) = "" Then final = i Exit For End If Next Proyecto.xlsm
  9. Mis Disculpas no vi esa parte en las normas. adjunto archivo donde estan los comentarios son las formulas que deseo que se ejecuten en orden, Proyecto.xlsm
  10. Buenas tardes, tengo el siguiente código donde lo que deseo es que si la primera formula no se cumple se ejecute la segunda primera macro busca lo que esta en el textbox3 sea = al nombre que esta en la lista y cuando la encuentre sume la cantidad, pero si el nombre no esta en la lista deseo que lo agrege a la lista que es lo que haría el segundo macro. por favor ayuda. Primera Macro For j = 1 To 10000 If UserForm040.TextBox3 = Hoja7.Cells(j, 9) Then actual = Hoja7.Cells(j, 10) final = actual + UserForm040.TextBox4 Hoja7.Cells(j, 10) = final Exit For End If Next Segunda Macro For i = 1 To 1000 If Hoja7.Cells(i, 9) = "" Then final = i Exit For End If Next Hoja7.Cells(final, 9) = UserForm040.TextBox3 Hoja7.Cells(final, 10) = cre
  11. lo que requiero es que cuando se inicie el userform me coloque el numero de factura con el formato FACT-00001, cuando se registre en la base de datos al iniciar nuevamente el userform me haga la secuencia de la factura anterior FACT-00002. pero importante sin importar que las facturas se repitan porque se pueden llenar hasta 5 con el mismo numero de factura. no se si me di a comprender asi jejejejeje siento que en algun punto esta un poco complicado jajajajajajaja
  12. Buenas me funciona perfectamente, pero si comienzo un archivo nuevo me sale error, como hago para cuando es la factura 1
  13. Buenas, necesito una ayuda al ejecutar el Userform, en la primer textbox se genera un código de factura automático, pero este toma como numero de referencia el numero de fila que corresponde no la numero corrida ejemplo: FACT-00001, FACT-00002, FACT-00002, FACT-00002, FACT-00003 ya que en una sola factura puede haber varias atenciones entonces utilizaría el mismo numero de factura. adjunto esta el ejemplo Proyecto.xlsm
  14. bien si no realice ninguna modificación porque la verdad no comprendía bien la formula. si me informas en que userform debería de aplicar las modificaciones, considerando el ultimo archivo visto que es la versión completa de mi proyecto. si el userform marca 98 el ultimo registro es 97 pero el problema esta que si te fijas hay varias celdas que repite la misma factura porque el cliente se hizo varias atenciones en el mismo día, es una escenario posible porque en los salones de belleza las mujeres siempre nos realizamos mas de 2 atenciones. entonces en vez de realizar el seguimiento a la factura siguiente solo toma el numero de la fila correspondiente. Te dejo la ultima versión con todos los botones activos y las funciones deseadas ejecutándose algunas me fallan al exportar a las hojas como la de deudas. Por el resto aprecio mucho sus comentarios y ayuda brinda. https://drive.google.com/file/d/1tz7UJDb1V14cvNMfA8xK5fsFCbz7KHvl/view?usp=sharing
  15. Bien todavía no eh llegado a la parte que me falta como te comenté los formularios de Entrada de empleado Modificación de empleado Nueva atención Modificación de atención Nuevo producto Entrada de producto Venta de productos están listos En la de nueva nueva atención en la parte de número de factura que es el textbox 9 del userform4 tengo un problemita que es cuando un cliente se realiza varias atención y son registradas con el mismo número de factura. Cuando cargo de nuevo el formulario en vez de seguir con el número ordenadamente me salta al número que correspondería si todas las celdas estarían numeradas corrido. Creo que ese sería actualmente mi duda para terminar ya con esos formularios y continuar con el de deudas y luego con los informes. Muchas gracias de antemano
  16. Primero quiero decirte que eres lo máximo MUCHAS GRACIAS Bien te voy a enviar el archivo completo obvio hasta donde lo tengo para que me des tu opinión. Atenta a tus comentarios como excede el tamaño te adjunto el archivo desde mi Googe Drive https://drive.google.com/file/d/1tz7UJDb1V14cvNMfA8xK5fsFCbz7KHvl/view?usp=sharing tengo completo todos los botos superiores me falta Deudas de Cliente mi idea es cuando en nueva atención en la casilla de Crédito se coloque se carguen los datos de Nombre, Fecha, monto en la pestaña indicado Informes Informes Varios tanto de Stock como para calculos de quincena. ya eh probado todas las funciones y las se realizan correctamente tengo pendiente los códigos automático este código si me lo puedes explicar por que creo que es el que eh estado buscando porque el mio se salta los numero si agrego varias transacciones con el mismo numero de fact. '--> Macro por Haplo - 04/03/2019<-- ' Private Sub UserForm_Initialize() Dim uFe As Long, uFt As Long Dim a As String Dim ctrl As Control uFe = Hoja2.Range("c" & Rows.Count).End(xlUp).Row uFt = Hoja2.Range("a" & Rows.Count).End(xlUp).Row + 1 a = Format(CStr(uFt), "00000") TextBox8.Text = "FACT-" & a TextBox9 = Date For Each ctrl In UserForm1.Controls If ctrl.Tag = "empleado" Then ctrl.RowSource = Hoja2.Range("C2:C" & uFe).Address ElseIf ctrl.Tag = "detalle" Then ctrl.RowSource = Hoja2.Range("A2:A" & uFt - 1).Address End If Next ctrl End Sub MUCHAS GRACIAS
  17. Primero quiero decirte que eres lo máximo MUCHAS GRACIAS Bien te voy a enviar el archivo completo obvio hasta donde lo tengo para que me des tu opinión. Atenta a tus comentarios como excede el tamaño te adjunto el archivo desde mi onedrive https://1drv.ms/x/s!Avj0OQBR5V1mvx3rS_QT6hRgA7wm tengo completo todos los botos superiores me falta Deudas de Cliente mi idea es cuando en nueva atención en la casilla de Crédito se coloque se carguen los datos de Nombre, Fecha, monto en la pestaña indicado Informes Informes Varios tanto de Stock como para calculos de quincena. ya eh probado todas las funciones y las se realizan correctamente tengo pendiente los códigos automático este código si me lo puedes explicar por que creo que es el que eh estado buscando porque el mio se salta los numero si agrego varias transacciones con el mismo numero de fact. '--> Macro por Haplo - 04/03/2019<-- ' Private Sub UserForm_Initialize() Dim uFe As Long, uFt As Long Dim a As String Dim ctrl As Control uFe = Hoja2.Range("c" & Rows.Count).End(xlUp).Row uFt = Hoja2.Range("a" & Rows.Count).End(xlUp).Row + 1 a = Format(CStr(uFt), "00000") TextBox8.Text = "FACT-" & a TextBox9 = Date For Each ctrl In UserForm1.Controls If ctrl.Tag = "empleado" Then ctrl.RowSource = Hoja2.Range("C2:C" & uFe).Address ElseIf ctrl.Tag = "detalle" Then ctrl.RowSource = Hoja2.Range("A2:A" & uFt - 1).Address End If Next ctrl End Sub MUCHAS GRACIAS
  18. disculpa que te escriba directamente, pero quería pedir tu ayuda nuevamente, el código que me distes para el sacar el porcentaje me funciono perfectamente, pero ahora hice una modificación al archivo colocando 5 cuadros juntos ya que el mismo cliente se puede realizar varias atenciones y seria tedioso llenar 1 por 1 las atenciones. pero no se como hacer que cuando ejecute el primer codigo continue con el siguente.te adjunto el archivo Libro1.xlsm
  19. Buenas disculpa espero no estar molestado mucho. tengo la siente el siguiente código para que el textbox salga la fecha en automático, pero cuando envio los datos recolectados a excel me los coloca como MM/DD/YYYY y yo los quiero DD/MM/YYYY Private Sub UserForm_Initialize() dDate = Format(DateValue(Now), "dd-mm-yyyy") TextBox3 = dDate End Sub
  20. si es perfecto muchas gracias por ahora creo que tengo la mayoria muchas gracias realmente
  21. si lo analice pero el tema esta en el momento que que 2 empleados atiendan al mismo cliente como haga para detallar el porcentaje de cada uno por la atencion, por eso decidí llenar 1 por cada atención realizada. y como le comente a Haplox en el las atenciones de Shampoo y tratamiento el % del empleado es 1.00 directo independientemente cuanto sea el valor. atenta a su ayuda y agradecidad de ante mano.
  22. Muchas Gracias realmente funciona a la perfección, tengo una sola duda en la formula lo que corresponde a tratamiento y shampoo es directamente 1.00 no es una multiplicación como tal, como modifico esos 2 códigos para que en vez de ser multiplicación coloque directamente 1.00.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png