Convertir Formula RC a Valor

1 post / 0 nuevos
oskkk4
Imagen de oskkk4
Offline
última acción: Hace 3 semanas 5 días
alta: 24/06/2020 - 04:45
Puntos: 105
Convertir Formula RC a Valor

Buenas noches tengo la siguiente macro donde me ejecuta la formual segun el contenga el color amarillo en la columna B, arrojandome el resultado en columna J, lo que quiero es que me de el valor y no la formula, ya que tengo que ejecutar otra macro para convertir la formula y pues me quisiera ahorrar esta macro, ya he conseguido que me de el valor con otra macro con with, pero ahora con esta es que no se hacer el bucle para que solo ejecute macro segun celda color amarillo en columna B.

----Sub celdaAmarillas()

    

    Dim fila  As Integer

    'uf = Sheets("Basicos").Range("a" & Rows.Count).End(xlUp).Row

    

    fila = 9

        While Cells(fila, 1) <> Empty

            If Sheets("Basicos").Cells(fila, 2).Interior.Color = vbYellow Then

                Sheets("Basicos").Cells(fila, 10).FormulaR1C1 = "=RC[-8]&COUNTIF(R9C2:RC[-8],RC[-8])"

            End If

    fila = fila + 1

        Wend

    

---End Sub

aqui la ota que no ejecuta bucle.

---Sub celdasAmarillasW()

With Worksheets("Basicos").Range("j9:j500")

.Formula = "=RC[-8]&COUNTIF(R9C2:RC[-8],RC[-8])"

.Formula = .Value

End With

---End Sub

AdjuntoTamaño
File tarjetas_exp_neo_eje.xlsm391.71 KB

Etiquetas: