Skip to main content
cuerpo editado
Origen Enlace
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

Dim nueva_formula 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. 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

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

Dim nueva_formula 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

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

se añadieron 719 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

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

Puse average en vez de promedio (en mi ordenador Promedio no lo reconoce)

y el rango de la formula es G:Gslope, no en vez de G*:G*pendiente porque en VBA usa los nombres en inglés

Sub CambiarFormulaprueba()

 Dim cell As Range


Dim celda_inicio As String
 Dim celda_fin As String

Dim celda_finnueva_formula As String

celda_inicio = "A7"
celda_fin = "A15"

Dim nueva_formulaformula_vieja As String

Dim posicion As Integer



For Each cell In Range(celda_inicio, =celda_fin)
 "A1"   
    celda_finformula_vieja = "A10"cell.formula
    
    nueva_formulaformula_vieja = "=AverageReplace(G:Gformula_vieja, "SLOPE", "AVERAGE")"
    
    Rangeposicion = InStr(celda_inicio1, celda_finformula_vieja, ",")
    
    If posicion > 0 Then
        cell.formula = nueva_formulaLeft(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

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

Puse average en vez de promedio (en mi ordenador Promedio no lo reconoce)

y el rango de la formula es G:G, no G*:G*

Sub CambiarFormula()

    Dim celda_inicio As String
    Dim celda_fin As String

    Dim nueva_formula As String

    celda_inicio = "A1"
    celda_fin = "A10"
    
    nueva_formula = "=Average(G:G)"

    Range(celda_inicio, celda_fin).formula = nueva_formula

End Sub

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

Dim nueva_formula 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

Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

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

Puse average en vez de promedio (en mi ordenador Promedio no lo reconoce)

y el rango de la formula es G:G, no G*:G*

Sub CambiarFormula()

    Dim celda_inicio As String
    Dim celda_fin As String

    Dim nueva_formula As String

    celda_inicio = "A1"
    celda_fin = "A10"
    
    nueva_formula = "=Average(G:G)"

    Range(celda_inicio, celda_fin).formula = nueva_formula

End Sub