Skip to main content
11 de 11
se añadieron 92 caracteres en el cuerpo

Ejecutar comando Replace en VisualBasics para reemplazar una formula

Estoy intentando crear una macro y tengo problemas al intentar usar el comando Replace cuando afecta a una formula en VisualBasics.

Mi situación es la siguiente:

  1. En la columna L tengo calculos de pendiente de disitntos rangos: =PENDIENTE(G33:G60;C33:C60) =PENDIENTE(G95:G122;C95:C122) etc.

  2. Tengo que canviar el calculo de PENDIENTE por PROMEDIO (el excel esta en castellano asi que las operaciones las tiene en castellano) de modo que quede: =PROMEDIO(G33:G60) =PROMEDIO(G95:G122) etc.

Despues de algunos intentos me he quedado aquí (tampoco se si esta bien):

Dim Cadena1 As String
    Cadena1 = Replace("=PENDIENTE(G*:G*;C*:C*)", "PENDIENTE", "PROMEDIO")


Dim Cadena2 As String
    Cadena2 = Replace("=PROMEDIO(G*:G*;C*:C*)", ";C*:C*", " ")
    

Dim iRow, StartRow As Integer
Dim Col1, ColValues As String
    Col1 = "L"
    ColValues = "M"
    StartRaw = 2

NumRows = Range(Col1 & StartRow, Range(Col1 & StartRow).End(xlDown)).Rows.Count

me sale este menaje y me señala la ultima fila "NumRows"

¿Algún consejo? Si alguien conoce algun manual de VisualBasics que pudiera ayudar o algo similar tambien lo agradecieria