Seleccionar el dato con valor mayor de un listado de acuerdo a una condición

[Slah007]

Buenas Noches

Soy nuevo en esto de las macros y quisiera solicitar su apoyo con el archivo que adjunto en donde de la hoja llamada Siniestros requiero seleccionar el monto de siniestro mayor de la columna "Monto Siniestro M.N. "pero en esta búsqueda del  monto mayor no debo tomar las claves de riesgo 105,106,107,113 y 114 que aparecen en la columna de "Riesgo" y al final debo en una celda colocar la siguiente leyenda "aumentar costo en el riesgo ____________" ahi debo colocar el nombre de la seccion que aparece en la columna de Seccion de acuerdo al riesgo que resulte con el mayor monto, todo esto sera posible hacerlo por que e investigado pero no he logrado que haga esto anexo mi archivo y espero que me puedan ayudar saludos 

Detalle Renov.xlsx

[JSDJSD]

Hace 10 horas, Slah007 dijo:

y al final debo en una celda colocar la siguiente leyenda "aumentar costo en el riesgo ____________" ahi debo colocar el nombre de la seccion que aparece en la columna de Seccion de acuerdo al riesgo que resulte con el mayor monto,

Esta parte no la entiendo, si puedes explicarla mediante un ejemplo te lo adapto.

[JasallBcn]

Buenas , te paso una opción,  la macro se basa en que los datos estén ordenados por la columna  Riesgo, el orden lo he realizado con un macro automático , también he creado una columna id para volver a dejar los datos como estaban originalmente . quizás @JSDJSD u otro usuario te lo ajuste mejor, o tengan otra forma de hacerlo

saludos javier

 

Detalle Renov_v1.xlsm

[JSDJSD]

Prueba y comenta 

pRUEBA 17-03-2022.xlsm

[JasallBcn]

Muy bueno @JSDJSD, cada dia aprendo algo nuevo , " AutoFilter " , me lo apunto.

saludos

 

[Slah007]

Hace 10 horas, JSDJSD dijo:

Esta parte no la entiendo, si puedes explicarla mediante un ejemplo te lo adapto.

Perdón por la tardanza en este mensaje me refiero que varia la parte final del mensaje  "aumentar costo en el riesgo ____________"  si en esta parte el riesgo 101 es el de mayor "Monto Siniestro M.N." el mensaje diria "aumentar costo en el riesgo robo" y si fuere el 102 seria "aumentar costo en el riesgo valores" es decir la ultimas parte del mensaje seria variable de acuerdo al riesgo no se si con esos ejemplos sea tu servidor un poco mas especifico espero esto se pueda también realizar muchas gracias

[Slah007]

Hace 10 horas, JasallBcn dijo:

Buenas , te paso una opción,  la macro se basa en que los datos estén ordenados por la columna  Riesgo, el orden lo he realizado con un macro automático , también he creado una columna id para volver a dejar los datos como estaban originalmente . quizás @JSDJSD u otro usuario te lo ajuste mejor, o tengan otra forma de hacerlo

saludos javier

 

Detalle Renov_v1.xlsm 26.72 kB · 2 descargas

Hola ya revise esta versión y esta muy bien solo que tuve un tema en ocasiones la hoja de siniestros trae mas registros entonces lo que me di cuenta es que con esta macro solo  hace la revisión hasta la fila 91 que es hasta donde tenia información el archivo que adjunte pero como podría hacerse si la información varia puede ser 100 registros, 90, 200, etc. Pero todo lo demás funciona de forma correcta 

[Slah007]

Hace 8 horas, JSDJSD dijo:

Prueba y comenta 

pRUEBA 17-03-2022.xlsm 48.53 kB · 1 descarga

Buenas Noches @JSDJSD la macro que realizaste esta muy completa y es espectacular y realice una prueba con mas registros solo una pregunta para ver si es posible  todo lo que hace la macro lo puede hacer directo sin lazar la pantalla que muestra es decir que al darle comprobar de un solo golpe marque en verde directamente en la hoja de siniestros y en la columna aumentar costo de riesgo coloque la sección así tal como lo hace pero sin que salga la pantalla adicional solo para saber si es posible o solo de esta forma en que se realizo es la única forma  sin mas quedo atento muchas gracias 

[JSDJSD]

Prueba y comenta

pRUEBA 18-03-2022.xlsm

[JSDJSD]

El código utilizado

Private Sub CommandButton1_Click(): Application.ScreenUpdating = False
    With Hoja1
        cliente = Application.WorksheetFunction.Max(.Columns(11))
        Set rango = .Range("K2", "K" & .Range("K" & Rows.Count).End(xlUp).Row)
        For Each buscado In rango
            If buscado = cliente Then
                riesgo = .Cells(buscado.Row, 5)
                Select Case riesgo
                Case 105 To 107
                
                Case 113, 114
                
                Case Else
                    .Cells(buscado.Row, 12) = .Cells(buscado.Row, 6)
                    .Range(.Cells(buscado.Row, 1), .Cells(buscado.Row, 12)).Interior.ColorIndex = 4
                End Select
            End If
        Next
    End With

End Sub

 

[Slah007]

Hace 7 horas, JSDJSD dijo:

Prueba y comenta

pRUEBA 18-03-2022.xlsm 31.66 kB · 0 descargas

Muchas gracias @JSDJSDsi justo es lo que requería 

[Slah007]

Gracias por el apoyo @JSDJSD

[JSDJSD]

Me alegro, pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en el foro se hace mediante el corazoncito que tenemos en la parte inferior derecha, un saludo.

[Slah007]

Perdón como soy nuevo en el foro se me pasó pero hay voy aprendiendo poco a poco se verdad muchas gracias