Jump to content

Julioferral

Members
  • Content Count

    9
  • Joined

  • Last visited

About Julioferral

  • Rank
    Newbie

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. A TODOS EN GENERAL, LES AGRADEZCO DEMASIADO AL APOYO QUE ME HAN BRINDADO, @johnmpl, la segunda formula de buscar me ha servido muy bien, ( aun sigo analizandola ya que no entiendo como da el resultado) @JSDJSD, el macro tambien me ha funcionado muchas gracias
  2. SI, PERO EL DETALLE ES QUE LLEGANDO A ESTE PUNTO 5874.88 5877.45 6084.26 6300.42 6406.19 EN LA TRABLA FECHAS LOS VALORES NO QUEDAN DENTRO DE NINGUN RANGO Y ESTE PONE LA FECHA DEL ULTIMO MAS SERCANO, OCUPO QUE SI NO HAY RANGO LO DEJE EN BLANCO
  3. Hola @JSDJSD , disculpa no me explique si el valor 405.64 queda entre los valores de una fila digamos Columna A para minimo y Columna B para maximo, si el Valor buscado esta entre A y B, colocar el Valor C ( La fecha )
  4. que tal @Gerson Pineda a formula como tal no me funcionaria, disculpen si no fui claro como tan con lo que necesito pero es lo siguiente: Buscar el valor 405.64 en la hoja "Fecha", el valor debe de ser buscando en los rangos Inicial y Final, en este caso el 405.64 queda entre: 385 y 415 por eso se coloca la fecha: 19/02/18, lo mismo para los demas valores
  5. Puedes subir el ejemplo? mas que nada para entender que es lo que pasa
  6. Buen día solicito de su apoyo nuevamente, estoy en busca de un macro que me pueda buscar un numero dentro de una tabla con numero inicial y final, y que me arroje la fecha de este rango, les dejo el ejemplo De la Hoja Principal, que busque el primero valor en la tabla Fecha, si el valor coincide con el Inicio y Final de una fila, ponga la fecha de este, subraye el ejemplo Hoja Princial: numero FECHA 405.64 19/02/2018 Inicial final FECHA 60.00 215.00 15/02/2018 215.00 385.00 16/02/2018 385.00 414.00 19/02/2018 414.00 426.00 19/02/2018 426.00 525.00 20/02/2018 525.00 605.00 24/02/2018 Ejemplo.xlsx
  7. @Haplox Lo he terminado completamente y lo he adaptado a mis necesidades reales Sub colorear_celdas() Dim min As Long, max As Long, uF As Long Dim celda As Range Dim kpi As String, kpf As String Dim primero As String, segundo As String, varea As String uF = Range("B" & Rows.Count).End(xlUp).Row 'Última fila con datos en AREA min = Cells(3, "R") 'Valor mínimo max = Cells(3, "T") 'Valor máximo 'Designamos el área If Range("P3").Value = "row" Then varea = 1 Else If Range("P3").Value = "tendido" Then varea = 2 Else If Range("P3").Value = "curvado" Then varea = 3 Else If Range("P3").Value = "soldadura" Then varea = 4 Else If Range("P3").Value = "recubrimiento" Then varea = 5 Else If Range("p3").Value = "zanja" Then varea = 6 Else If Range("p3").Value = "holiday" Then varea = 7 Else If Range("p3").Value = "bajado" Then varea = 8 Else If Range("p3").Value = "cama" Then varea = 9 Else If Range("p3").Value = "poliducto" Then varea = 10 Else If Range("p3").Value = "tapado" Then varea = 11 End If End If End If End If End If End If End If End If End If End If End If If Range("p3").Value = "" Then 'Verificar que se introdujo un valor en área MsgBox "Introducir área", vbCritical, "Error al Cargar" 'pedir cargar valor en área Else If Range("r3").Value = "" Then 'Verificar que se introdujo un valor en KP inicial MsgBox "Introducir KP Inicial", vbCritical, "Error al Cargar" ' pedir KP inicial Else If Range("t3").Value = "" Then 'Verificar que se introdujo un valor en KP Final MsgBox "Introducir KP Final", vbCritical, "Error al Cargar" ' Pedir KP final Else For Each celda In Range("B3:B" & uF) 'Buscamos el mínimo If celda.Offset(1, 0) > min And celda <= min Then 'Comparamos el valor con la celda y la siguiente para ver si está en ese rango primero = celda.Offset(, varea).Address 'Al hallarlo calculamos la dirección en la columna C End If Next celda For Each celda In Range("B3:B" & uF) 'Buscamos el máximo If celda.Offset(1, 0) > max And celda <= max Then segundo = celda.Offset(, varea).Address End If Next celda Range(primero) = min Range(segundo) = max Range(primero & ":" & segundo).Interior.Color = RGB(255, 204, 153) 'Coloreamos el rango de verde End If End If End If End Sub te agradezco mucho tu ayuda, si me dejas tu correo te puedo compartir el archivo, ya que es un rango de celdas muy amplio ya que llega hasta el 320,000 en múltiplos de 10 en 10 por cada celda Saludos Julio Ferral
  8. Buen día @Haplox El valor mínimo y el valor máximo son variables completamente, así mismo para el Área , puede ser A, B , C, etc... (no referido como columnas) Es decir si pongo Área = A , Inicio: 25, Final: 618, necesito que coloree la columna del área A del 25 hasta el 618, si cambio el área a D, igual haga lo mismo, pero el inicio y el fin puede ser diferente siempre para cada una de las áreas
  9. Buenas día solicito de su ayuda, he estado intentando realizar una macro que cambie el color de relleno de de un rango de celdas de la misma columna pero buscando un valor inicial y un final, seleccionar este rango y cambiar el color de las celdas seleccionadas. AREA A Inicio 102 Fin 205 CANTIDAD A B C D E 0 10 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 TOMANDO EN CUENTA EL AREA "A", BUSCAR EL VALOR DE INICIO Y FIN EN LA PRIMERA COLUMNA MOVERSE A LA COLUMNA DEL AREA Y CAMBIAR COLOR DE RELLENO DE LAS CELDAS QUE ESTÉN DENTRO DEL RANGO 102 Y 202 Y PONER LA CANTIDAD AL INICIO Y AL FINAL ESPERO EN VERDAD ME PUEDAN AYUDAR CON ESTA MACRO GRACIAS DE ANTEMANO, SALUDOS CORDIALES Actividades.xlsx
×
×
  • Create New...

Important Information

Privacy Policy