Saltar al contenido

Recommended Posts

publicado

A mi me gusto

saludos

P.D.

http://www.megaupload.com/?d=7G11FVF0

Pongo el enlace porque no he podido añadir un archivo, las indicaciones estan en ingles, no vendria mal en español como antes

publicado

Respuesta: espero les guste

simpatica animacion :D

Gracias, por lo menos te has dignado a responder. 55 visitas y solo una respuesta.No me estraña uno de vuestros errores es dar las plantillas ó planillas ya hechas en vez de explicar paso a paso como hacerlas de esa forma se aprende. pero que le vamos a hacer nadie es perfecto, parece esto una carrera a ver quien da la plantilla ó planilla mas perfecta, que aprenda el que pregunta es lo de menos.

publicado
Gracias, por lo menos te has dignado a responder. 55 visitas y solo una respuesta.No me estraña uno de vuestros errores es dar las plantillas ó planillas ya hechas en vez de explicar paso a paso como hacerlas de esa forma se aprende. pero que le vamos a hacer nadie es perfecto, parece esto una carrera a ver quien da la plantilla ó planilla mas perfecta, que aprenda el que pregunta es lo de menos.

ay caray, gracias por ese comentario, creo que hacía falta.... y lo digo por mí, jaja.

yo en realidad estoy acá tratando de aprender y qué mejor forma de hacerlo que tratando de solucionar algunas de las dudas, pero no lo había visto como tu lo planteas. Gracias por recordarnos que acá todos estamos para aprender y no para impresionar a nadie con lo poco que sabemos :).

Y muy bueno tu archivo, me entretuve un rato con él. Gracias por compartirlo.

y aprovecho también para saludarte ST, que nos cruzamos con frecuencia.

Así que aprovecho para expresarte mi admiración, no sólo por tus conocimientos sino por la buena persona que se ve que eres.

publicado

Respuesta: espero les guste

y aprovecho también para saludarte ST, que nos cruzamos con frecuencia.

Así que aprovecho para expresarte mi admiración, no sólo por tus conocimientos sino por la buena persona que se ve que eres.

caray la verdad es que se agradece el comentario sobre todo por que me auto-considero un usuario de excel de nivel medio-bajo ya que aun me faltan demasiados conocimientos por adquirir,en lo personal hasta me dan envidia(de la buena) a todos aquellos que ademas de tener un excelente nivel general de excel,tambien lo tienen en funciones (caso contrario totalmente al mio,es mas eso de las funciones no se ni con que se comen :D )

ademas hay que agregar que no solo manejan lo ya mencionado,si no que son buenisimos en el manejo de código (me parece que mi única virtud,ya que con dificultades logro desarrolar algunas subrutinas que den solucion a problemas especificos )

creo que ellos son los verdaderos 'conocedores' de excel y heroes anonimos(por el nickname) que benefician a cuanto usuario se topan en el camino....mi total reconocimiento por inigualable labor,con lo cual no me queda mas que congratularme de ser parte de este excel-ente foro. :)

publicado

Respuesta: espero les guste

Tienes toda la Razon ST hay heroes anonimos que a su paso inpartieron sus conocimientos para el beneficio de los demas sin esperar nada a cambio, un saludo para la mayoria a quienes tambien considero como maestros desde mi aparicion en este foro mis conosimientos han ido en aumento y en lo general tambien trato de dar soluciones a usuarios que estoy en la facultad de poder desarrollarlos.

Un saludo para todos

publicado

Respuesta: espero les guste

Brillantes respuestas compañeros, asi es en el foro uno aprende ayudando y generando unas posibles soluciones, ademas de tener amigos virtuales, ya que asi considero a gran parte del foro ya que ni los conozco a simple vista, pero es mejor, las palabras expresan algo mas alla de lo que la persona refleja...

Un saludo,,

Hola 54022298, asi es pero lo bueno es que sabemos, que aportamos algo que a alguien le podria servir,, asi como tu yo he aportado, y a veces esperamos las graxx o algun comentario, pero es mejor decir "me nacio ayudar"

Un saludo, ahhh, de casualidad lo podrias montar en sendspace o por tu skydrive, es que no puedo descargar de megaupload ni mucho menos rapidshare, ya que yo uso la banda tranza telcel (banda ancha jeje) y no me deja descargar, por motivos de ip etc...

Uj saludo master ST and mjrofra y jamel....

publicado

Respuesta: espero les guste

Brillantes respuestas compañeros, asi es en el foro uno aprende ayudando y generando unas posibles soluciones, ademas de tener amigos virtuales, ya que asi considero a gran parte del foro ya que ni los conozco a simple vista, pero es mejor, las palabras expresan algo mas alla de lo que la persona refleja...

Un saludo,,

Hola 54022298, asi es pero lo bueno es que sabemos, que aportamos algo que a alguien le podria servir,, asi como tu yo he aportado, y a veces esperamos las graxx o algun comentario, pero es mejor decir "me nacio ayudar"

Un saludo, ahhh, de casualidad lo podrias montar en sendspace o por tu skydrive, es que no puedo descargar de megaupload ni mucho menos rapidshare, ya que yo uso la banda tranza telcel (banda ancha jeje) y no me deja descargar, por motivos de ip etc...

Uj saludo master ST and mjrofra y jamel....

Kira, gracias por responder pero no tengo ni idea de que es un sendspace o por tu skydrive, pero me envia un mensaje iy te lo adjunto mi correo es ********

Un saludo.

Luis

A mi no me desespera que no me contesten, sabes lo que me DESESPERA QUE TENGO CERCA DE 200 PLANTILLAS Y "NO SE COMO SE DESARROLLAN"

publicado

Respuesta: espero les guste

Hola! la verdad que esta impecable despues de ver esto uno se pregunto como se hara pero en fin como novato quedare con las dudas, la otra vez estuve mirando unos dibujos en youtube hechos con excel que estan de 10 entren y busquen, saludos.-

publicado

Respuesta: espero les guste

Gracias, por lo menos te has dignado a responder. 55 visitas y solo una respuesta.No me estraña uno de vuestros errores es dar las plantillas ó planillas ya hechas en vez de explicar paso a paso como hacerlas de esa forma se aprende. pero que le vamos a hacer nadie es perfecto, parece esto una carrera a ver quien da la plantilla ó planilla mas perfecta, que aprenda el que pregunta es lo de menos.

Disculpa 54022298 pero creo que si bien es cierto que muchos de nosotros no explicamos siempre los adjuntos que mandamos(lo ideal para mi es que el que pregunta, analice un poco el archivo y trate de hacerlo solo y lo que dude vuelva a preguntar), la mayoria de los que preguntan solo quieren eso que tu dices "Que le mandemos el trabajo ya hecho con las formulas, los codigos de las macros, etc...solo un comentario

Me lo podrias mandar por mail ya que no lo puedo ver nicolas2777@gmail.com

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
  • 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.