Saltar al contenido

[CERRADO] Se han creado las mejores macros y detrás de los creadores quien hay?


Recommended Posts

publicado

Srs. Dueños del Foro Con su permiso

Srs. solo he creado este tema para agradecer públicamente a todos y todas las personas que amablemente y sin esperar nada a cambio, tan solo unas gracias por la ayuda, que humildad, que sencillez...verdad, creo que se merecen un poco mas, tal como lo que se merecen no es medible, pero nuestras alegrías si son capaces de reflejar la gratitud, cuando sentimos que nos han solucionado nuestros conflictos, lo que ellos no pueden apreciar.

Srs. muchas gracias por toda la ayuda prestada, se que mis palabras no reflejan el tenor de ellas pero quiero que sepan que son realmente las mas valiosas que puedo entregar a Uds.

muchas Gracias

P.D. si alguien quiere solo agradecer...adelante no es malo

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Bueno desde acá querido colega chileno me sumo a sus agradecimientos a todos quienes en mas de un vez nos han ayudado a resolver los problemas que se nos presentan... un saludo a todos y como siempre MUCHAS GRACIAS!!!

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Hola,

Yo tambien me sumo a los agradeciemientos y sobre todo a uno en especial logroastur que me ayudado en todo lo que necessitava.Muchas gracias por ayudarnos en los problemas que no nos salian, pero al final con la ayuda que nos han ofrecido los hemos podido resolver, hoy nos ayudan ellos pero mañana ayudamos nosotros.

Muchas gracias a todos

Saludos

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Saludos desde Santiago, Republica Dominicana.

Quiero unirme a este hilo, pues al igual que muchos, siento la necesidad de agradecer a aquellos que hacen tanto, sin esperar nada a cambio. Realmente me siento maravillado con los grandes aportes y conocimientos que son compartidos aqui, libremente, con la unica intencion de enseñar lo que saben a aquellos que tenemos deseos de aprender. Realmente, este hilo no es suficiente para mostrar mi agradeciminto, pues me siento muy comprometido con esta web y con cada uno de los aprendices, futuros expertos y expertos que aqui se reunen para ayudarnos. GRACIAS A TODOS.

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Excelente iniciativa de Katto, de igual manera me sumo al agradecimiento para todos los colaboradores del Foro que desinteresada

mente nos han apoyado en todas nuestras consultas y dudas, espero que todos nuestros amigos del Foro, continuen respondiendo a este tema.

Nuevamente gracias a todos por vuestra iniciativa de colaborar y apoyarnos dia a dia.

Saludos.

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Hola a todos!

De verdad me agrada este tema, ya que ustedes demuestran tres cosas, que aqui hay verdaderos maestros, que el foro es de lo mejor y que son bien agradecidos:)

Saludos desde Honduras

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

EStimados compañeros:

dedoarriba.jpg

Comparto completamente los comentarios añadidos hasta el momento y al mismo tiempo quisiera recordarles, que el final de cada mensaje en la parte izquierda hay una pequeña mano con el pulgar hacia arriba, con el cual directamente daremos las gracias al que nos ayuda.La verdad es que ser agradecidos no cuesta nada

publicado

Re: Se han creado las mejores macros y de tras de los creadores de estas macros que h

Que importante es poder dedicar unos segundos de nuestro tiempo en agradecer, sin pedir algo a cambio...ayuda o soluciones de algún problema, también es bueno que los que nos dan su ayuda y parte de su importante tiempo, no sientan que siempre solo nos conectamos solo para acudir a ellos.

publicado

Re: Se han creado las mejores macros y detrás de los creadores de estas macros que ha

No solo me uno para dar las gracias a los que ayudan en el foro, sino también a los que preguntan sus dudas y exponen sus problemas y de igual manera a los que publican sus "Ideas y aportes". Sin ellos, nadie sabría lo que se hace y cómo se hace en este foro.

Saludos a tod@s

publicado

Re: Se han creado las mejores macros y detrás de los creadores de estas macros que ha

Hola:

Igualmente, quiero dar gracias a todos los del foro, cuando entre aqui no sabia ni lo que era un macro, con su ayuda y los ejemplos que uno va bajando he mejorado un poco mi manejo en VBA, eternamente gracias.

Guido.

publicado

Re: Se han creado las mejores macros y detrás de los creadores de estas macros que ha

Pues sí, gracias a todos los que de alguna manera tanto preguntando como ayudando nos hacen pensar en soluciones que a veces no encontramos pero que de otra manera nunca encontraríamos. También a los que últimamente se dejan ver poco por aquí, IOYAMA, LUISFECAB y otros que ahora no recuerdo pero que de los que de un modo u otro también hemos aprendido y hemos disfrutado investigando cosas nuevas que no conocíamos.

Gracias a todos, seguid así.

Lucas.

publicado

Re: Se han creado las mejores macros y detrás de los creadores de estas macros que ha

Muchas gracias a los que han dado su opinión, eso demuestra que no solo somos capaces de escribir cuando necesitamos una ayuda.

Invitado
Este tema 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

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • 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

    • Estimados amigos espero estén bien   Tengo este archivo que me ayuda a llevar las horas trabajadas al que necesito añadir en la Hoja5 (HHE) una fórmula que me cuente las Horas trabajadas en Días de Descanso (fines de semana y feriados), actualmente mediante una Regla de Formato Condicional se resaltan en amarillo el Dia de Semana y la Fecha de los Días de Descanso sin embargo el inconveniente se me presenta con los días feriados que cambian de posición de acuerdo a la fecha y cuando el mes comienza en día domingo por lo cual necesito una fórmula que me permita sumar los Días de Descanso cuando la Fecha que le corresponda este resaltada en Amarillo la sintaxis sería más o menos esta para la primera semana del mes de Enero de 2025: =SI('VTL1'!$I$7=AMARILLO;'VTL1'!$I8;0) + SI('VTL1'!$J$7=AMARILLO;'VTL1'!$J8;0) + SI('VTL1'!$K$7=AMARILLO;'VTL1'!$K8;0) + SI('VTL1'!$L$7=AMARILLO;'VTL1'!$L8;0) + SI('VTL1'!$M$7=AMARILLO;'VTL1'!$M8;0) + SI('VTL1'!$N$7=AMARILLO;'VTL1'!$N8;0) + SI('VTL1'!$O$7=AMARILLO;'VTL1'!$O8;0) Y así sucesivamente para el resto de las semanas, con los datos actuales el resultado esperado para la primera semana (I8:O8) sería 9 horas mientras que para el mes (Fila8) el resultado esperado seria 35 horas estos resultados deben reflejarse en la Celda “$Z7” de la Hoja5 (HHE) de modo tal que una vez haya completado la totalidad de la fórmula para el resto de las semanas del mes la pueda correr de Z27 hasta Z42 VTL - HHE_101128.xlsx
    • 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
  • 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.