control horas/semanas

publicado el 19 de enero15 años

Aqui os envio una mejora de un progama de control de horas que me se soluciono un pequeño gran problema, espero que le pueda servir de referencia a los compañeros del foro.

http://cid-63c27bca84f44fba.office.live.com/self.aspx/P%c3%bablico/choras.zip

Gracias a todos por vuestra ayuda

publicado el 19 de enero15 años

Rafael

Gracias por compartir tu archivo, con el foro

Saludos

publicado el 19 de enero15 años

Hola:

Rafael, te digo lo mismo que te dice Gerson, gracias por compartir el archivo seguro que a más de uno le será útil.

Subo el archivo por el foro, aunque partido en trozos, debéis descargar todas las partes y después al descomprimir la primera parte se descomprimirá todo.

Saludos.

publicado el 19 de enero15 años

Hola Rafael

La presentación me parece muy bien.

Cuando pongo las horas tanto en la 2ª semana y posteriores no me las desplaza al resumen por semanas pero si al resumen total del mes.

Se podria corregir

Uun saludo y gracias

publicado el 19 de enero15 años

Autor

Hola JAI2009

El objetivo de la hoja es que puedas controlar las horas por semanas independientemente, del total de horas del mes, si las celdas estan vacias no cuenta nada.

publicado el 20 de enero15 años

Hola Rafael.

Tiene protegida por contraseña el poder modificar las horas extras.

La fórmula que esta, creo que está mal.

Un saludo

publicado el 20 de enero15 años

Hola Rafael.
Tiene protegida por contraseña el poder modificar las horas extras.

La fórmula que esta, creo que está mal.

Un saludo

Es en la columna V

publicado el 20 de enero15 años

Autor

hola JAI2009

Perdon por el despiste, que cuando lo pase a la persona a la que iba dirigida, lo protegi para evitar errores en las formulas, la contraseña es 5688, y si la macro esta protegida es 6420, en un futuro procurare que no ocurra y muchas gracias por la observacion

https://ayudaexcel.com/foro/topic/11376-control-horassemanas/

Seguidores

Ir al listado de temas

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 4

Reseteo de recuentos y nuevos datos

No lo entiendo bien, pero prueba y comenta
Envío.xlsm

Por JSDJSD, · publicado hace 21 horas 21 hr
Reseteo de recuentos y nuevos datos

Así lo he hecho, he aceptado la segunda columna de anotación y he añadido una macro:

Private Sub Worksheet_Calculate()
Dim f As Long
Dim disparar As Boolean
' Si ya se disparó una vez, salimos
If Me.Range("XX2").Value <> "" Then Exit Sub
' Comprobamos si alguna W llegó a 2
For f = 2 To 6
If Me.Cells(f, "W").Value = 2 Then
disparar = True
Exit For
End If
Next f
' Si ninguna llegó a 2, no hacemos nada
If disparar = False Then Exit Sub
' Guardamos TODO el rango como base
For f = 2 To 6
Me.Cells(f, "XX").Value = Me.Cells(f, "W").Value
' Fórmula en Y restando su base
Me.Cells(f, "Y").FormulaLocal = _
"=CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!D:D;$V" & f & ")" & _
"-CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!E:E;$V" & f & ")" & _
"-XX" & f
Next f
End Sub

No es la opción más bonita porque sigue contando los objetos en la columna W, pero la función me resulta suficiente para poder llevar la cuenta.
Tendré que hacer una pequeña macro para cada jugadora, son 14, pero espero no tener problemas

Por Maku, · publicado ayer a las 13:311 día
Reseteo de recuentos y nuevos datos

Igual puedo conseguir lo que necesito con dos columnas de anotación? Pero seguiría necesitando una macro que hiciera el efecto: Cuando en la primera columna una de las casillas llegue a 2, el recuento continúa en la segunda. 🤔

Por Maku, · publicado ayer a las 12:161 día
Reseteo de recuentos y nuevos datos

Buenas noches, tengo un problema que no consigo solventar tras tres días dándole vueltas.
Tengo esta hoja de registro de un juego:
-En la hoja Tablas Jugadoras necesito que unas casillas me hagan el recuento de los objetos encontrados por la jugadora, restando los perdidos.
Puedo hacerlo con una fórmula, el problema es que quiero que cuando la jugadora haga una pareja (llegue a dos un objeto) estos datos se reseteen, marque un 1 en la celda verde de encima y vuelva a contabilizar desde cero para la segunda pareja (Son necesarias dos)
También necesito que me aparezca un 1 en la casilla que está encima de esos recuentos si la jugadora ha conseguido una pareja y VERDADERO si la jugadora ha conseguido las dos.
Lo he intentado con la hoja ResetObjetos, pero me encuentro siempre con el mismo problema:cuando una jugadora consigue su primera pareja todo va bien:
- resetea anotando lo elminado en la hoja ResetObjetos
- me marca 1 en la casilla verde
Lo malo es que en cuanto otra jugadora consigue una pareja me marca como verdadero las casillas verdes de las dos jugadoras.
He simplificado al máximo el archivo, he eliminado datos, macros, dibujos... espero que lo que queda sea suficiente
Gracias por su tiempo!

Envío.xlsm

Por Maku, · publicado ayer a las 00:461 día
Crear un loop para emitir recibos

Debes mover las líneas que leen Range("AK27").Value dentro del bloque donde configuras el objeto Email, asegurándote de que se lean después de que todos los datos del recibo se hayan actualizado (justo antes de preparar el envío).
Al mover la lectura de Range("AK27").Value al momento justo antes de usarla (With Email), te aseguras de que estás capturando el valor dinámico y actualizado para cada recibo.

Por JSDJSD, · publicado el 18 de enero18 ene

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

control horas/semanas

Featured Replies

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Reseteo de recuentos y nuevos datos

Reseteo de recuentos y nuevos datos

Reseteo de recuentos y nuevos datos

Reseteo de recuentos y nuevos datos

Crear un loop para emitir recibos

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)