Fórmula mixta. Necesito cambiar línea de código

Esta línea:

ActiveCell.FormulaR1C1 = _

"=IF(RC[-36]="""","""",VLOOKUP(RC[-37],CopiaInsumos!R117C1:R1000C26,24,0))"

Necesito que el bloque de VLOOKUP no sea con referencia, probé varias formas y no lo consigo. Sería algo así, pero este ejemplo da me da error ya que el bloque de búsqueda lo escribe con tildes:

ActiveCell.FormulaR1C1 = _
"=IF(RC[-36]="""","""",VLOOKUP(RC[-37],CopiaInsumos!A1:Z1000,24,0))"

1 Respuesta

Respuesta

[H o l a y bienvenido a Todoexpertos.

  1. En cuál celda vas a poner la fórmula?
  2. RC[-36] a cuál celda corresponde?
  3. RC[-37] a cuál celda corresponde?
  4. Vas a copiar la fórmula, la vas a copiar hacia la derecha o hacia abajo?

Responde en ese orden.

1. Columna "BI"

2. Columna "Y"

3. Columna "X"

4. No la voy a copiar, solo queda en la celda de la columna "BI" y la fila en que trabaja la ejecución del código.

Prueba lo siguiente:

Sub prueba()
  Dim fila As Long
  fila = ActiveCell.Row
  Range("BI" & fila).Formula = _
    "=IF(Y" & fila & "="""","""",VLOOKUP(X" & fila & ",CopiaInsumos!A1:Z1000,24,0))"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas