Jump to content

Manuyes

Members
  • Content Count

    61
  • Joined

  • Last visited

About Manuyes

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Gracias @Haplox, creo que ya lo vi, estaban mal expresadas las condiciones. Private Sub CommandButton1_Click() Sheets("Hoja1").Select If CheckBox1.Value = False And TextBox1.Value = "" Or CheckBox2.Value = False And TextBox2.Value = "" Or CheckBox3.Value = False And TextBox3.Value = "" Then MsgBox "Debe especificar un motivo", vbExclamation, "Atención" CheckBox1.SetFocus Exit Sub Else buscar2 If CheckBox1.Value = True Then ActiveCell.Offset(0, 3) = "VERDADERO" If CheckBox1.Value = False Then ActiveCell.Offset(0, 3) = "FALSO" ActiveCell.Offset(0, 4) = TextBox1.Value If CheckBox2.Value = True Then ActiveCell.Offset(0, 5) = "VERDADERO" If CheckBox2.Value = False Then ActiveCell.Offset(0, 5) = "FALSO" ActiveCell.Offset(0, 6) = TextBox2.Value If CheckBox3.Value = True Then ActiveCell.Offset(0, 7) = "VERDADERO" If CheckBox3.Value = False Then ActiveCell.Offset(0, 7) = "FALSO" ActiveCell.Offset(0, 8) = TextBox3.Value End If MsgBox "Arqueo cerrado correctamente", vbInformation, "Aviso" Unload UserForm2 Unload UserForm1 End Sub Creo que ahora funciona perfectamente, gracias. Damos por cerrado el tema
  2. Muchas Gracias @Haplox, creo que hace lo que buscaba. @Antoni no es que quiera dos botones para cerrar, lo que quiero es asegurarme de que al finalizar la jornada, tras realizar el arqueo se contesten una serie de cuestiones para saber si ha existido alguna incidencia y dejar constancia de ello. Pero el archivo se abre unas 20 veces al dia para guardar cierres parciales u otras cuestiones. creo que si llamo al cada vez que haga un cierre de una caja me pediría validar y solo quiero que lo haga al final del día. Lo primero que se me ocurrió es meter un botón para validar, pero la mitad de las veces, por despiste o por desidia no se validaba, por lo que al final perdía esa información del chequeo. Quizá pueda decirle al evento Userform_terminate, que si la hora es >20:00 llame al proceso Validar y cerrar y evitarme el botón Validar. Probare esta noche. Muchas gracias por la sugerencia. Tengo otro pequeño problema, cuando marco los check en el userform2 para indicar que todo esta correcto, si marco todos correctos (true) y le doy a cerrar, no me guarda los datos en la hoja1, pero si marco alguno en False, si me los guarda, y no se a que se debe. Private Sub CommandButton1_Click() Sheets("Hoja1").Select If CheckBox1.Value = False Or CheckBox2.Value = False Or CheckBox3.Value = False Then If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox "Debe especificar un motivo", vbExclamation, "Atencion" CheckBox1.SetFocus Exit Sub End If buscar2 If CheckBox1.Value = True Then ActiveCell.Offset(0, 3) = "VERDADERO" If CheckBox1.Value = False Then ActiveCell.Offset(0, 3) = "FALSO" ActiveCell.Offset(0, 4) = TextBox1.Value If CheckBox2.Value = True Then ActiveCell.Offset(0, 5) = "VERDADERO" If CheckBox2.Value = False Then ActiveCell.Offset(0, 5) = "FALSO" ActiveCell.Offset(0, 6) = TextBox2.Value If CheckBox3.Value = True Then ActiveCell.Offset(0, 7) = "VERDADERO" If CheckBox3.Value = False Then ActiveCell.Offset(0, 7) = "FALSO" ActiveCell.Offset(0, 8) = TextBox3.Value End If MsgBox "Arqueo cerrado correctamente", vbInformation, "Aviso" Unload UserForm2 Unload UserForm1 End Sub GRACIAS POR LA AYUDA
  3. Buenas noches, me gustaría si alguien pudiera indicarme como hacer para que el aspa (X) de cierre de un formulario se desactive a partir de las 20:00 y solo permita cerrar el formulario con el botón Validar y Cerrar. He conseguido deshabilitar la x del formulario con QueryClose, pero me gustaría que lo hiciera a partir de esa hora, ya que durante el día quiero que se abra guardar y cerrar normalmente. Muchas gracias Cerrar formulario con boton.xlsm
  4. Muchas gracias a los tres, he aprendido muchas cosas. @ateneo, tu versión me daba errores, pero agradezco mucho tu interés. @Leopoldo Blancas, lo he estado probando y funciona perfectamente, gracias de nuevo por las aclaraciones. @Antoni, decía que podía esperar, porque tus versiones suelen sorprenderme y así ha sido. La verdad es que no tenia mucho sentido tener hoja productos y existencias, mejor unificarlas. Tal y como lo has planteado es lo que yo quería hacer desde el principio (incluso mucho mejor que mi idea inicial...), Yo no lo habría conseguido, por eso renuncie a la idea del histórico de movimientos.... Te agradezco mucho tu tiempo dedicado. Sólo he visto, después de probarlo, que seria interesante un botón para dar de baja los productos, pero ya me pegaré mañana con ello. Por mi parte se puede cerrar el tema triplemente solucionado
  5. Hola @Leopoldo Blancas, te lo agradezco mucho tu tiempo y los comentarios. Como esto lo hago por afición y no es algo que haga a diario, intento comentar todo lo posible el código, habrá quien le parezca que comento "cosas de Perogrullo", pero a lo mejor me tiro dos o tres meses sin volver a tocarlo y cuando vuelvo a mirarlo si no lo he comentado me cuesta un poco más de tiempo entender lo que había hecho. He probado tu versión, y me sigue dando el mismo error (Ya no se si es mi ordenador, me pasa tb con la versión de @ateneo...),lo miraré con calma el domingo por la noche.
  6. Muchas gracias @ateneo, la idea del label en vez del Msgbox, no es mala (evita un clicK), la apariencia tb me gusta, le echaré un vistazo con calma. De nuevo gracias
  7. Gracias @Antoni, @Leopoldo Blancas, había un error aquí '.......ACTUALIZA... For Fila = 2 To 1000 If Hoja4.Cells(Fila, 1) = Hoja3.Cells(Final, 2) Then Existencia = Hoja4.Cells(Fila, 3) lo he cambiado por Me.TextBox1 y ahora parece que funciona. @Antoni, tienes todo mi respeto, se que mis conocimientos son muy modestos, así que no me ofendo. Tienes un par de días o los que necesites, siempre me encanta ver tu solución. Muchas gracias a los dos.
  8. Hola @Leopoldo Blancas, sigue dándome el error, y no veo porque.
  9. Si, está mucho mejor. La mía estaba más apretada, gracias por la sugerencia
  10. Pero esto que comentas ya lo hace. Puedes buscar el producto de las tres formas, tecleando el código, usando el combobox y con el doble click en el listado. Quizás no te haya entendido
  11. Muchas gracias @Leopoldo Blancas, he probado como dices pero me sigue dando problemas. Lo curioso es que sólo me pasa cuando intento eliminar el producto "destornilladores planos", con este producto si pongo más de uno, me salta el msgbox. También he visto que cada vez que hago un intento me lo graba en la hoja salidas, aunque salga el msgbox y no reste nada. Tengo que revisar el botón salidas. Lo del listbox, para ir registrando el histórico, creo que tienes razón y no merece la pena. Siempre puedes sacar un informe de movimientos de ese día. Creo que lo voy a descartar. He hecho una pequeña modificación en el listbox de las existencias, gracias a una respuesta de @Gerson Pineda a otra pregunta en el foro, ahora al hacer doble click a un elemento del listbox carga los datos en los textbox para añadir o eliminar del formulario. Control Almacen_2.xlsm
  12. Hola a tod@s, necesito una pequeña ayuda con un nuevo proyecto. Estaba haciendo un pequeño archivo para gestionar un almacén, pero me he atascado con las validaciones, para evitar meter errores, como que saque del almacén, más productos de los que existen. Es decir, si tengo 15 productos y quiero sacar 22, me saca un msgbox indicando que no puedo sacar más productos de los que quedan. Hasta ahí funciona bien, pero cuando pongo después una cantidad menor me sigue mostrando el msgbox. supongo que el error estará aquí. For Fila = 2 To 1000 If Hoja4.Cells(Fila, 1) = Hoja3.Cells(Final, 2) Then Existencia = Hoja4.Cells(Fila, 3) If Me.TextBox5 > Me.TextBox4 Then MsgBox (" No puedes dar de baja mas productos de los que hay cargados") Exit Sub Else Total = Existencia - Me.TextBox5 Hoja4.Cells(Fila, 3) = Total Exit For End If End If Next La otra duda, es que me gustaría que en el listBox1 me fuera mostrando los movimientos que voy haciendo mientras tengo abierta la aplicación, por si tuviera que deshacer alguno cargado por error. Había pensado en que creara una hoja en la que fuera guardando los movimientos temporalmente y la borrara después de darle al botón actualizar. No se si alguien tiene otra sugerencia mejor Control Almacen_1.xlsm
  13. Gracias @Antoni, aun no he tenido tiempo de mirarlo a fondo, lo intentaré mirar esta noche. Aunque me siento mal, por haberte quitado tiempo de estar con tu nueva familia. De nuevo te agradezco enormemente tus aportaciones, ya que algo, aunque sea poquito, vamos aprendiendo.
  14. Enhorabuena @Antoni, espero que disfrutes mucho de él o ella.
  15. Hablaba de dos decimales como si fueran euros (2,99), es decir, que los textbox (dije los label) permitan introducir dos decimales y carguen los dos decimales. Ahora te permite meterlos, pero luego los redondea. Gracias
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5