Saltar al contenido

Hoja de horarios


caiafa

Recommended Posts

publicado

Buenas es mas que nada para solicitarles me puedan ayudar ya que sinceramente soy nulo en esto del excel y ya veran de acuerdo a lo que necesitaria., supongo que es algo mas que facil pero no tengo idea espero me puedan ayudar y tratar de explicarles lo que necesito desde ya gracias.

1- trabajo en dos empresas en un mismo lugar., por lo cual necesitaria una hoja en el cual podria reflejar mes a mes los horarios de dichas empresas., pero no se si se puede por ej. colocarles un color para lo que serian las semana y otro para los libres y otra y fundamental un color para que cuando los horarios en un dia en comun coincidieran ambas empresas.

2 - Las empresas son NEWCO y GROUNFORCE

desde ya gracias si alguien me pudiese dar una mano

publicado

Hola calafa

Bienvenido al Foro, te recomiendo que subas un archivo (Zipiado preferiblemente del 2003) como exigen las Normas del Foro, coloca tus datos y manualmente lo que necesitas, las posibilidades de que te respondan pueden aumentar, recuerda que para nosotros (los que preguntamos) lo tenemos muy claro, lo difícil es trasmitir nuestras dudas y que nos entiendan, si tienes alguna duda como subir un archivo aquí te dejo un Enlace, si todavía te quedas con dudas pues nos pregunta.

[h=3]Breve explicación para subir archivos al Foro[/h]

Además si visitas al final de la pagina los Temas Similares, te dan una pista sobre tu Post.

Saludos

Lázaro.

publicado

hola Lazaro muchas gracias por su respuesta., pero el tema para mi es complicado ya que como puse no se usar excel., se que es un problema ya que no puedo enviar algo que no se hacer.

yo lo unico que he hecho hasta ahora y es como lo voy haciendo en una planilla en word y mes a mes la hago nuevamente., por esto el motivo que alguien me pudiese hacer esta plantilla.

desde ya muchas gracias y espero me comprendas

publicado

HOJA DE HORARIOS trabajo

Buenas es mas que nada para solicitarles me puedan ayudar ya que sinceramente soy nulo en esto del excel y ya veran de acuerdo a lo que necesitaria., supongo que es algo mas que facil pero no tengo idea espero me puedan ayudar y tratar de explicarles lo que necesito desde ya gracias.

1- trabajo en dos empresas en un mismo lugar., por lo cual necesitaria una hoja en el cual podria reflejar mes a mes los horarios de dichas empresas., pero no se si se puede por ej. colocarles un color para lo que serian las semana y otro para los libres y otra y fundamental un color para que cuando los horarios en un dia en comun coincidieran ambas empresas.

2 - Las empresas son NEWCO y GROUNFORCE

desde ya gracias si alguien me pudiese dar una mano

CABE ACLARAR QUE HE SUBIDO UN ARCHIVO EN WORD YA QUE NO SE HACERLO EN EXCEL HE AHI MI CONSULTA., YA QUE MES A MES TENGO QUE IR HACIENDOLO Y COLOREANDO LOS LIBRE Y LOS DIAS QUE COINCIDEN LOS DOS HORARIOS .

HORARIOS ABRIL.zip

publicado

Hola calafa

Pues sí que está un poco complicada la situación, sino conoces nada de nada de Excel, pero no creo que este todo perdido, como te puse en mi anterior respuesta trata de buscar en “Temas Similares” algo que se asemeje por lo menos a lo que tú quieres y si lo encuentras, pues nos dice donde está, escribes el Titulo del Tema, quien es el autor, quizás algún compañero te pueda ayudar.

También dices que tienes un Word, puedes pasar los datos de la misma forma que los tienes en el Word a Excel y si lo logras nos avisa y te podemos indicar con más detalle como subirlo al Foro.

Igual algún compañero ha entendido lo que tú necesitas y te puede enviar algún archivo de ejemplo.

Saludos

Lázaro.

publicado

gracias ya lo he subido con el titulo HOJA DE HORARIOS trabajo a ver si alguien me pudiese ayudar supongo que es bien facil hacerlo pero yo no se., mas que nada es para yo ir mes a mes rellenando con los horarios

publicado

espectacular sinceramente ya te digo no se nada de esto de excel pero me lo hiciste super sencilo como yo realmente queria y aun mas completo con esto de que aparece hasta el mes y sus dias.

lo que si te consulto es lo siguiente- entiendo que me pones que cambie la c9 para cambiar respectivamente mes a mes., bien mi pregunta es en el caso que me pusiste la casilla c9 es la casilla que pone 1 EN ROJO., entiendo que ahi le pongo la fecha que tu me indicas mes a mes y le doy enter y cambiara todo el mes automaricamente.

nada muy agradecido y espero sepas entender mi nada de conocimiento.

mil gracias

publicado

En efecto, es tal como dices.

En la celda C9 debes escribir el primer día del mes que estés operando. Sólamente en esa celda.

En Mayo pondrás 01/05/2012, etc., etc.

Un saludo y un abrazo a mi amigo Lázaro

  • 3 weeks later...
publicado

Q tal soy makay necesito unos horarios automatiza en donde pueda poner mi horario de entrada y automaticamente me marque la hora de salida =me urge=

alguien me puede ayudar xfavor

se los voy a agradecer mucho yo yale intente pero no pude hacerlos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Raised 0.00 EUR of 130.00 EUR target
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.