Skip to main content
se añadieron 92 caracteres en el cuerpo
Origen Enlace

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

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

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

etiquetas editadas
Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54
cuerpo editado
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

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)"=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)" =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

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

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

se añadieron 172 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 106 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 60 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54
Loading
se añadieron 269 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 58 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54
Loading
se añadieron 269 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 2 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54
Loading
Origen Enlace
Loading