Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

¿Hay alguna fórmula que se ajuste a lo que intento hacer?

yeri

Por yeri
en Excel General

Recommended Posts

yeri Novato

yeri

publicado
publicado

Buenas, vengo para buscar un poquito de ayuda. Llevo varios días intentando hacer un Excel desde 0 que me permita crear mi propia dieta y ajustar los macronutrientes. El tema es que no tengo muchos conocimientos de Excel y no creo que lo esté haciendo de la forma más óptima y he llegado a un punto muerto donde no sé qué hacer.

El funcionamiento es el siguiente:

En cada comida he puesto 5 ingredientes que se pueden seleccionar desde una lista desplegable que he hecho con la casilla de validación de datos y seleccionando todos los nombres de la tabla con los alimentos y sus características, así:

https://imgur.com/a/xp0Uatv

Hay un total de 25 listas desplegables (5 por comida, 5 comidas en total) y 200 ingredientes con todos sus macronutrientes registrados en la tabla. Hasta aquí todo bien. Primero selecciono el ingrediente y luego debajo de él escribo la cantidad que quiero asignar en esa comida. El problema viene a la hora de decirle a Excel qué macronutrientes corresponden a cada alimento. Debajo de todo esto, tengo como una especie de zona de cálculos para poder recabar todos los datos y expresarlos bonito y sencillo arriba. Esta es la "calculadora": https://imgur.com/a/WsI6VBP

El método que estaba siguiendo y hasta ahora me estaba funcionando era usar la función =SI.CONJUNTO para decirle que si la casilla del alimento (seleccionado con la lista desplegable) es igual al nombre de alguno de los alimentos, coja los datos correspondientes a este alimento. Por ejemplo, si selecciono en el desplegable JAMÓN SERRANO, coge los datos de jamón serrano y los multiplica por los gramos que haya escrito en la casilla de debajo. El problema es que la función =SI.CONJUNTO me ha dicho que he introducido demasiados argumentos y no sé cómo proceder.

En resumen, no sé como conseguir hacer que Excel elija unos números en vez de otros a la hora de seleccionar distintas opciones de una lista desplegable. 

No sé si me he explicado muy bien, si hay alguna duda decídmelo e intento explicarlo mejor. Muchas gracias por la ayuda de antemano.

yeri Novato

yeri

publicado
  • Autor
publicado

Muchas gracias por la respuesta, tienes toda la razón.  Adjunto el archivo.

Creo que está activado que se pueda editar. Lo he dejado preparado en la zona A de la "calculadora" para que se pueda entender lo que quiero hacer.  Para calcular los macronutrientes, alimento a alimento, hay una casilla que detecta con =SI.CONJUNTO cuál es el nombre del alimento, así:

=SI.CONJUNTO($C3=$P4;$C4*Q4/100;$C3=$P5;$C4*Q5/100;$C3=$P6;$C4*Q6/100;$C3=$P7;$C4*Q7/100;$C3=$P8;$C4*Q8/100;$C3=$P9;$C4*Q9/100;$C3=$P10;$C4*Q10/100)

Dependiendo de si C3 coincide con P4, P5, P6, P7, P8, P9 o P10, multiplicará C4 (cantidad que he escrito debajo del alimento) por la correspondiente grasa, hidrato o proteína del mismo y lo dividirá entre 100 para poder expresarlo en gramos. Este proceso ocurre para cada macronutriente y cada alimento por separado y en las pequeñas casillas a la derecha de DESAYUNO hay unos sumatorios para recoger todos los datos de los alimentos calculados abajo en la calculadora y expresarlos en conjunto de forma sencilla y visual. El problema viene que la función =SI.CONJUNTO me ha dado error por límite de argumentos al necesitar en este caso casi 200. Creo que tiene que haber alguna forma mejor de plantear esta situación pero no tengo los conocimientos de Excel suficientes para saber resolverlo.

Muchas gracias de nuevo.

yeri Novato

yeri

publicado
  • Autor
publicado
Hace 8 minutos , Sergio dijo:

@yeri, no se permite la subida de archivos desde enlaces en la nube.

¿cómo le comparto el archivo para que puedan verlo?

Sergio Miembro destacado

Sergio

publicado
publicado

Puedes valorar los planes de suscripción de la comunidad (tienes el enlace en el recuadro amarillo de la parte superior). Si optas por el plan anual podrás hacer todas las consultas que desees y acceder a todos los mensajes, además de cargar y descargar los archivos y aportes que desees.

 

Archivado

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

Ir al listado de temas

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

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


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de 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
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      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
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @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
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      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
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      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.