Skip to main content
3 de 3
cuerpo editado
lois6b
  • 7.6k
  • 5
  • 33
  • 54

Con la propiedad .formula puedes asignarle la formula al rango de celdas.

Puse average en vez de promedio y slope en vez de pendiente porque en VBA usa los nombres en inglés

Sub prueba()

    Dim cell As Range
  
    Dim celda_inicio As String
    Dim celda_fin As String

    celda_inicio = "A7"
    celda_fin = "A15"

    Dim formula_vieja As String

    Dim posicion As Integer


    For Each cell In Range(celda_inicio, celda_fin)
    
        formula_vieja = cell.formula
    
        formula_vieja = Replace(formula_vieja, "SLOPE", "AVERAGE")
    
        posicion = InStr(1, formula_vieja, ",")
    
        If posicion > 0 Then
            cell.formula = Left(formula_vieja, posicion - 1) + ")"
        End If
    
    Next

End Sub

Funcionamiento:

Va celda por celda en el rango especificado con las variables, y coge la formula actual y cambia slope por average

Luego busca donde está la coma . La formula en ingles no es =PENDIENTE(G33:G60;C33:C60) si no =PENDIENTE(G33:G60,C33:C60)

Si encuentra la coma, coge el cacho del string de la izquierda y luego añado un ")" para cerrar la formula

lois6b
  • 7.6k
  • 5
  • 33
  • 54