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

Ordenar datos en una Matriz de Riesgos

alejoresu

Por alejoresu
en Excel General

Recommended Posts

alejoresu Novato

alejoresu

publicado
publicado

Buen día a todos, gusto en saludarlos nuevamente

Me dirijo a uds con el propósito de consultar la posibilidad de ubicar ciertos datos en una matriz de riesgos creada en una hoja excel. Hago mención a esto porque es una especie de gráfico, pero visualmente hablando. Lo que se requiere es colocar la información obtenida allí y me parece, a criterio muy personal pero no cerrado a nuevas opiniones, mas práctico para lo que requiero.

En el archivo anexo se encuentra el ejemplo, junto con la consulta en sí.

Espero me puedan dar una mano con esto, cualquier detalle que pueda faltar y que haya obviado sin querer, con gusto me lo hacen saber que enseguida lo respondo.

Gracias de antemano y saludos nuevamente

Matriz de Riesgos.xls

Matriz de Riesgos.xls

alejoresu Novato

alejoresu

publicado
  • Autor
publicado
Hola alejoresu

Una solución sencilla con INDICE y dos COINCIDIR.

Un saludo desde Vitoria

Saludos ioyama, gracias por responder

Sin embargo, no es lo que requiero realmente. No me supe explicar, pero lo que requiero mas bien es la inversa de tu ejemplo, es decir, completar el gráfico, y no que desde el gráfico se complete la tabla.

De todos modos dejo anexo un nuevo archivo con unos nuevos comentarios al respecto y un pequeño esquema de cómo se esperan obtener los datos

Gracias y saludos

MatrizRiesgos_2.xls

MatrizRiesgos_2.xls

alejoresu Novato

alejoresu

publicado
  • Autor
publicado
Hola alejoresu

Revisa el adjunto. Funciona con una macro de evento.

Un saludo desde Vitoria

Saludos nuevamente ioyama

Revisé el archivo, la macro ejecuta lo que se busca en la matriz, está muy buena. Sólo quisiera hacerte una pregunta y disculpa la molestia nuevamente en esto (es que de macros no se mucho, trate de buscarle una solución pero no supe hacerlo): el asunto es que al irse colocando los datos, dentro de la celda éstos van agrupándose mediante un espacio o línea adicional (es decir, similar a presionar alt+enter dentro de una celda).......hay posibilidad de que se ordenen a lo largo de la línea?, es decir:

En vez de que se ordenen dentro de una celda de la siguiente manera:

1

3

5

10

12

queden así:

1, 3, 5, 10, 12

o así:

1-3-5-10-12

Si se puede, desde ya te lo agradecería mucho..........de resto, como te mencioné, está representado muy bien lo que se quiere con la tabla

Saludos de nuevo

ioyama Novato

ioyama

publicado
publicado

Hola alejoresu

Evitar el salto de fila es sencillo, la línea

Cells(ame, vul) = Cells(ame, vul) & Chr(10) & Target

la dejas tal que

Cells(ame, vul) = Cells(ame, vul) & " " & Target

y te dejará un espacio entre datos, ahora bien, supongo que la idea es que elimine los duplicados y los deje ordenados. Esto requiere más programación, si tengo un rato miraré qué se puede hacer, pero no prometo nada

Un saludo desde Vitoria

  • 2 years later...
alejoresu Novato

alejoresu

publicado
  • Autor
publicado

Un saludo desde hace mucho tiempo [uSER=182]@ioyama[/uSER]

Noté que mi post aún se encuentra pendiente, y no es por nada malo al contrario, como no respondí en su momento hacía que estaba cerrado pero afortunadamente no es así. Sin embargo antes de retomarlo, pido disculpas por el tiempo (razones ajenas a mi voluntad)

Entrando en el tema....el archivo adjunto está muy bueno, de hecho en la forma que se debe ejecutar (maualmente) cumple a la perfección con la solicitud. Sin embargo, y repito, sin querer ser muy exigente, ¿es posible que los datos en la matriz se obtengan de forma automatica?....paso a explicar

1.- En el archivo adjunto, al rango de celdas G13:G30 se le coloca de manera manual el número que le corresponde del escenario evaluado, que en este caso sería el valor de cada celda correspondiente al rango D13: D30. Al escribirlos, aparecen reflejados en la matriz como mencioné y es lo que busco en parte

Sin embargo....

2.- Si copio todo el rango D13: D30 y hago pegado especial ---> valores en el rango G13:G30, la macro deja de funcionar y no coloca los valores en el gráfico de la matriz de riesgos

ó

3.- Si escribo una formula mediante un SI condicional, de manera que coloque el valor que corresponde a la celda evaluada del rango D13: D30 (por ejemplo: en G13 escribo la formula =si(e13>0;d13;"")), la macro no me lo permite, y en consecuencia termina escribiendo en la matriz el valor de la formula y no el cálculo en si.

En base a éstas observaciones, y mencionando algo personal: reconozco que ignoro totalmente el tema de macros y/o programación (esto por si la solución es simple y no la visualizo), quisiera preguntar lo siguiente:

¿Es posible que se pueda elaborar la macro para qué en vez de obtener el resultado manualmente, se pueda obtener ya sea mediante copiar y pegar o mediante alguna formula?......es que el ejemplo son solo algunas celdas, pero en la práctica, manejaría un total de 300 datos, e ir 1 por 1 no es muy grato que digamos.

Desde ya, agradezco de antemano todo el aporte que me puedan brindar al respecto.

Un gran saludo

NOTA: no anexo ningún archivo, porque se puede utilizar el ultimo que se encuentra en tu mensaje

alejoresu Novato

alejoresu

publicado
  • Autor
publicado
Un saludo desde hace mucho tiempo [uSER=182]@ioyama[/uSER]

Noté que mi post aún se encuentra pendiente, y no es por nada malo al contrario, como no respondí en su momento hacía que estaba cerrado pero afortunadamente no es así. Sin embargo antes de retomarlo, pido disculpas por el tiempo (razones ajenas a mi voluntad)

Entrando en el tema....el archivo adjunto está muy bueno, de hecho en la forma que se debe ejecutar (maualmente) cumple a la perfección con la solicitud. Sin embargo, y repito, sin querer ser muy exigente, ¿es posible que los datos en la matriz se obtengan de forma automatica?....paso a explicar

1.- En el archivo adjunto, al rango de celdas G13:G30 se le coloca de manera manual el número que le corresponde del escenario evaluado, que en este caso sería el valor de cada celda correspondiente al rango D13: D30. Al escribirlos, aparecen reflejados en la matriz como mencioné y es lo que busco en parte

Sin embargo....

2.- Si copio todo el rango D13: D30 y hago pegado especial ---> valores en el rango G13:G30, la macro deja de funcionar y no coloca los valores en el gráfico de la matriz de riesgos

ó

3.- Si escribo una formula mediante un SI condicional, de manera que coloque el valor que corresponde a la celda evaluada del rango D13: D30 (por ejemplo: en G13 escribo la formula =si(e13>0;d13;"")), la macro no me lo permite, y en consecuencia termina escribiendo en la matriz el valor de la formula y no el cálculo en si.

En base a éstas observaciones, y mencionando algo personal: reconozco que ignoro totalmente el tema de macros y/o programación (esto por si la solución es simple y no la visualizo), quisiera preguntar lo siguiente:

¿Es posible que se pueda elaborar la macro para qué en vez de obtener el resultado manualmente, se pueda obtener ya sea mediante copiar y pegar o mediante alguna formula?......es que el ejemplo son solo algunas celdas, pero en la práctica, manejaría un total de 300 datos, e ir 1 por 1 no es muy grato que digamos.

Desde ya, agradezco de antemano todo el aporte que me puedan brindar al respecto.

Un gran saludo

NOTA: no anexo ningún archivo, porque se puede utilizar el ultimo que se encuentra en tu mensaje

Un saludo.......ya que ha pasado una semana, y dado que me gustaría saber si es factible mi consulta, no es necesario que solo ioyama me brinde una respuesta al respecto...

Cualquier conocedor que me pueda dar una mano sera de mucha ayuda

Gracias

  • Silvia bloqueó este tema

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.