Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 01/15/2021 in Posts

  1. Hola JOCAMI90 la formula tenía una falla =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,$A4,Datos!$A$3:$A$5000,">="&$B$1,Datos!$A$3:$A$5000,"<="&FIN.MES($B$1,0)) considera que mi separador de argumentos es la coma (,), si el tuyo es otro, corriges. esto solo funciona para las columnas B y C que pertenecen a Setiembre, deberás cambiar manualmente B1, por D1 en Octubre, esa situación se dá , debido a que utilizaste celdas combinadas, lo que podrías hacer es descombinar las celdas y colocar las fechas en todas l
    4 points
  2. Antoni

    AYUDA CON PLANTILLA

    Esto es lo máximo que se puede reducir el proceso. Abre el adjunto y pulsa sobre la flecha azul, se copiarán los turnos de mañana, tarde y noche del día de la fecha que hay en C3. Plantilla de Servicios5 (Full).xlsm
    2 points
  3. Solo recordar que hay un evento change de hoja a nivel de libro en ThisWorkbook.
    2 points
  4. Disculpa, ya he pillado el segundo punto. De ahí a que el código ponga " Agregamos o modificamos items". Vale tanto para un roto como un descosido 😀🙋‍♂️
    1 point
  5. Esto funciona, ¿A ver si eres capaz de encontrar la diferencia con el anterior? Private Sub btn_Editar_Click() 'Agreamos/Modificamos los Items With ListBox1 If .ListIndex = -1 Then Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Else Fila = .ListIndex + 2 End If Range("A" & Fila) = TextBox1 Range("B" & Fila) = TextBox2 .List = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value Borrar End With End Sub
    1 point
  6. Muchas gracias Silvia Me funciona a la perfeccion. Gracias por los consejos. No me había percatado de los espacios al final de los códigos. Con relación al WH/IN y WH/N/A asi lo prefiero que no se sumen, el WH/N/A originalmente se llamaba WH/INT, pero reemplace esas palabras para por N/A para que no se incluyeran en la suma. Tema resuelto! Muchas gracias!
    1 point
  7. Chico, esque ese archivo está lleno de trampas por lo que cuentas . O subes el original o así no va a haber forma de hacer nada
    1 point
  8. Hola Pero porque no subes ese archivo al foro, además que ese enlace es privado Saludos
    1 point
  9. 1 point
  10. No confundas rojo con republicano, la mayoría de gobiernos de la II Republica fueron de derechas o centro derecha y hasta la guerra civil no hubo ni un solo gobierno rojo-rojo (comunista). Para culturilla: Segunda república
    1 point
  11. las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente" pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto horas x turno v2
    1 point
  12. Private Sub TextBox1_Change() If Len(TextBox1) = 4 Then TextBox2.SetFocus End Sub Private Sub TextBox2_Change() If Len(TextBox2) = 4 Then TextBox3.SetFocus End Sub Private Sub TextBox3_Change() If Len(TextBox3) = 4 Then TextBox4.SetFocus End Sub Private Sub TextBox4_Change() If Len(TextBox4) = 4 Then btn_Activar.Enabled = True End Sub
    1 point
  13. ActiveSheet.Range("A:C").NumberFormat = "General"
    1 point
  14. 1) prefiero multiplicar *24 al final (y no en cada paso) 2) ya sabía que ibas a necesitar distinguir los festivos analiza ambos puntos en esta versión mejorada (pregunta lo que no entiendas) horas x turno v2 (ambos).xlsx
    1 point
  15. Antoni

    AYUDA CON PLANTILLA

    Añade Application.ScreenUpdating = False al principio de cada macro.
    1 point
  16. No sé a qué te refieres conunirlasmacros(me imagino que para que discierna en qué celda se produce el cambio) Con el tiempo he aprendido que es útil utilizar pequeños trucos que te llevan al resultado deseado ¿Es un código elegante? No lo sé... 🙄 ¿Funciona? Sí... 😉 Te dejo una solución. Veras que ya no se usa el evento Calculate, y en la hoja amarillo hay una macro en el evento Change. Esta macro la tienes que copiar en todas las hojas de colores. Eto te lo dejo a ti 😇 Saludos Copia de BUSCAR DATO EN OTRA HOJA 2021.xlsm
    1 point
  17. revisa el adjunto notas: - moví tus variables a la misma hoja (por facilidad de cálculos directos) - estimo que la secuencia de los cálculos lleva una lógica comprensible (no puse comentarios) - agregué al inicio unos registros inventados (solo para comprobar resultados) - las ultimas dos filas comprueban la suma de horas para cada segmento de cálculos - te ahorrarías un montón de funciones ENTERO(... y RESIDUO(... si divides inicio y final => cada una en dos columnas para: la fecha y la hora hay un tema que NO está incluido (por si en algún momento necesitas): - consi
    1 point
  18. ¡Hola, a ambos! Siguiendo las mismas premisas de @tupy77, también puedes usar la siguiente fórmula: =FECHA(B1;1;1)-DIASEM(FECHA(B1;1;1);2)+7*B2+B3 ¡Bendiciones!
    1 point
  19. Aun asi esta formula te dara el resultado que tu quieres.... =(FECHA(B1;1;1)+(B2*7)+(1>=DIASEM(FECHA(B1;1;1))*7)+1-DIASEM(FECHA(B1;1;1)))+B3 donde B1 es la celda del año y B2 la celda de la semana y B3 donde estaria el numero del dia de la semana. Da el resultado pero deberias de ser mas esplicito para que sea mas concorde con lo que cualquiera pueda esperar.... Un saludo
    1 point
  20. Hola, Debes hacer visible el botón antes del Show y si lo quieres volver a ocultar, cuando cierres el UserForm2, debes poner el botón en visible=false. Los formularios se cargan, si no recuerdo mal, al abrir el libro. Si quieres cambiar alguna propiedad del mismo lo puedes hacer en cualquier momento pero teniendo en cuenta que se mostraran cuando se haga la llamada a Show.
    1 point
  21. A ver si lo he entendido. Abre el adjunto y pulsa sobre la flecha. PC1 2019-2 EX53-EN55 Data.xlsm
    1 point
  22. Hola Te adjunto una alternativa, como solucion Saludos Vlookup_GP.xlsm
    1 point
  23. Gerson Pienda, pesa 5 megas y no puedo directamente al foro y no hay otra forma para compartir
    0 points
  24. Hola gracias por tu respuesta, ya lo solucioné, habia uno que no tenia ese error, asi que me armé de paciencia borré todos los que salian mal y del unico que salia bien hice tantas copias como necesitaba y despues les he cambiado los datos de cada uno, ahora todos tienen la misma configuración con sus datos correspondientes, gracias y disculpa las molestias.
    0 points
  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy