Saltar al contenido

Aclaración sobre tema...


Recommended Posts

publicado

Buenas noches colegas. Espero se encuentren bien de salud junto a sus familiares.

Primero que todo ofrecer mis disculpas porque sé que esto no es una plataforma para este tipo acción, pero creo oportuno hacerlo con el permiso de sus administradores.

Hace un par de días Haplox acudió a dar respuesta a uno de mis temas publicados en este Foro y a algo que él escribió (…) yo le contesté y un par de compañeros de mi trabajo me dijeron que quizás había sido un poco fuerte con él.

Yo no creo que fuera así, porque de hecho yo tomé sus palabras como una broma. Recordar que soy CUBANO y que tenemos un Gran Sentido del Humor y si me conocieran personalmente sabrían que el humor en mí, abarca una gran parte de mi carácter. Soy excesivamente respetuoso y valoro mucho al ser humano.

Mi respuesta nunca tuvo el animo de ofender o “atacar”, sencillamente le ofrecí aspectos por los cuales nunca “vendería” un software y con esto no quiero que me mal interpreten, no soy un santo y en la sociedad donde vivo se pasan muchas penurias que jamás ustedes podrían entender. Por solo poner un ejemplo, mi salario mensual es de $ 3310.00 pesos cubanos y un par de zapatos acá cuesta entre 4 000.00 y 6 000.00 pesos cubanos… Soy casado, tengo tres hijos varones de 5, 11 y 33 años y no me vendría nada mal obtener un dinero extra porque a mitad de mes comienza mi “cuesta arriba”. No vendería un software porque por encima de todo no creo que tengan la calidad necesaria como para “comercializarlo”. Los Proyectos que hago, lo hago para tratar de mejorar un tanto mi trabajo y el de mi esposa, usando una Herramienta tan potente y maravillosa como el EXCEL y VBA, además, apenas hace 1 año que comencé a Programar (si es que se puede decir de esta manera) y tengo mucho por aprender.

No tengo Ordenador y gracias a un buen amigo que me da 5 o 6 horas a la semana en el suyo, es que hago mis cosas porque en mi trabajo no me dejan. Acá nos quitan la corriente entre 4 y 6 horas diarias, no tengo la bibliografía necesaria para estudiar y mucho de los códigos que hago los voy pensando y escribiendo en una hoja de papel mientras viajo a mi trabajo que es alrededor de 1 hora y 30 minutos para después en el Ordenador tratar de “Ordenar” (valga la reiteración) cada línea de código.

Mucho tengo que agradecer a este Foro, al profesor JSD, que prácticamente se ha convertido en una especia de “Padrino”, a Antoni con sus enormes conocimientos, a Alexander, a Janlui, Abraham Valencia, Gerson Pineda, Diego PC, Gabriel Raigosa, Pegones, y muchos más, a todos, porque de alguna manera todos contribuyen. En más de una ocasión he dicho que admiro su labor altamente altruista y los tengo como “Seres Superiores” porque hacen dejación de sus placeres, de sus compromisos personales y familiares para AYUDAR y de buena manera ENSEÑAR a todos los que queremos y necesitamos aprender. Para Sergio Propergol mis mayores agradecimientos porque gracias a él, hoy formo parte de este prestigioso Foro.

A usted Haplox, no creo que se sienta ofendido porque esa no era la intención, pero si de alguna manera usted lo entendió así, le ofrezco mis más sinceras disculpas.

A todos, sin excepción, les deseo unas buenas noches y un excelente día para mañana.

Un abrazo fuerte y mis respetos.

Pino.

publicado

Si el amigo @Haplox es el de siempre, pues estoy seguro que sabe que no hay alguna ofensa de tu parte y más bien yo creo que él sí bromeaba sobre el porcentaje a los que te ayudan en referencia, creo yo, a que hay bastante "trabajo" en dicha ayuda que se te ha dado, pero sé que no lo dijo de mala fe  o en todo caso cuando vayamos a Cuba, todo se soluciona con cerveza... eso sí, tú invitas jajaja

publicado

Buenas noches colegas.

Hola Abraham, que gusto que usted pudo entender ambas partes, eso me reconforta. En cuanto a las "Cañas", eso no tiene problemas, brindaremos por salud, amistad...brindaremos por tener trabajo, brinadremos por nuestras familias, por nuestros amigos, o sea, ustedes, porque aunque no nos conozcamos personalmente y no nos hemos estrechado las manos , yo los considero como tal. Como dije antes, siento un gran respeto y admiració por ustedes.

Vivo en Edificio # 28, Apto # 26 Isla de Turiguanó. Morón, Ciego de Avila, Cuba, aca tendre bien en recibirlos...

Las cervezas esperan!!!!!!!!!!!

Un abrazo a todos

Pino

publicado

Buenos días @pinoji

No llegué a leer el post al que haces referencia pero seguro la intención no fue ofender pues vemos que lo recurrente es que te diriges a todos con mucho respeto.

Me apena mucho las penurias que nos comentas, espero que la situación en Cuba mejore. Yo soy de Perú, aquí hay muchas cosas que van mal (delincuencia, el tránsito caótico, las autoridades incompetentes, la gasolina por las nubes, la economía golpeada por toda la coyuntura, etc) pero siento que la situación no es tan desesperante, te mando mucha fuerza para seguir adelante.

En cuanto a tus esfuerzos, felicito tu determinación para dedicarte a Excel pese a no tener las facilidades. Mis amigos me suelen molestar y dicen que mi esposa en realidad no es mi mujer sino mi hoja de cálculo... "allí viene el casado con Excel" comentan.

Yo también le dedico muchas horas a Excel, me encanta!! Lo enseño hace 27 años, el año pasado saqué el MOS Master y el MCT pero no los he renovado por falta de tiempo y de presupuesto, pero lo más bonito de esto es que, a pesar de los certificados y de las "horas de vuelo" uno siempre aprende mucho día a día de todos los maestros.

John Vergara me hace parecer un bebé de pañales en temas de fórmulas, Antoni me hace parecer un recién nacido en temas de macros, ni qué decir de muchos otros integrantes del foro que me hacen sentir un principiante. Todos vamos creciendo, todos seguimos aprendiendo, no perdamos esas ganas de superarnos, vamos para adelante!

 

Un abrazo a todos

Diego

publicado

Buenos días a tos mis colegas. Espero se encuentren con una salud excelente.

Gracias Diego por sus palabras. Son muy reconfortantes.

No soy de las personas que se rinden fácilmente, lucho hasta ver si existen posibilidades reales de logar lo que busco o hasta obtenerlo. De penurias ni hablar, creo que el mundo se ha convertido en un enorme CAOS, sobre todo después de esta horrible pandemia.

Yo también soy de los "casados con excel" y mi esposa me dice "excel+excel", pero el camino recorrido no es nada comparado con el que me falta y ya tengo 56 años, las neuronas no son las mismas y el tiempo no perdona, pero sigo adelante, buscando la manera de aprender aunque sea un argumento de una función al día, con eso me siento satisfecho.

Comparto con usted muchas cosas y tenemos un grupo de Miembros del Foro AyudaExcel que son verdaderos MAESTROS, por eso, cada vez que puedo trato de aprender de ellos, trato de absolver todo cuanto pueda.

Mil gracias por sus palabras. Mis respetos y bendiciones y que tanto usted como su familia estén bien.

Gracias a los demás miembros.

Un abrazo

Pino

 

publicado
En 26/5/2022 at 5:57 , pinoji dijo:

A usted Haplox, no creo que se sienta ofendido porque esa no era la intención, pero si de alguna manera usted lo entendió así, le ofrezco mis más sinceras disculpas.

Nop, en ningún momento me sentí ofendido. Además si recuerdas te di una guía de por dónde empezar a solucionar el problema.

Y sip @Abraham Valencia, más bien el comentario que no entendió fue el mío, que era una especie de broma, pero esto de internet de no vernos las caras...

Y sip tambien, las cervezad las paga @pinoji :D

publicado

Buenos días Foristas. Espero se encuentren bien de salud.

Buenos días Haplox, espero se encuentre bien de salud. Me alegra que todo haya quedado así. Respeto demasiado a las personas como para comprometer mi moral y conducta.

En cuanto a las cervezas, pues tendremos que ponernos de acuerdo... yo pago las dos primeras rondas..las demas las puede pagar Abraham  y quizás usted alguna otra...jajajajajajajajajajaja.

Un abrazo y mis respetos.

Tenga un excelente día.

Pino

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

  • 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

    • 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.