
Disponemos de dos hojas de trabajo:
- Referencia
- Operador
Supongamos que la celda d2 en la hoja de Referencia contiene el valor $a$25.
¿Cómo cambiar el valor de la celda $a$25 en la hoja Operador usando Excel VBA (haciendo referencia a la dirección de d2 en la hoja Referencia)?
Lo que he probado:
- Capturando la referencia en d2 con una variable:
Dim NewRNG as Range
NewRNG = Range(Range("d2").value).value
No hubo suerte aquí.
- Encontrar la celda de referencia en Operador y usar la dirección de la celda encontrada
Sub Find_Cell()
Dim RNG As Range
Dim NewRNG as Range
With Sheets("Operator").Range("A:A")
Set RNG = .Find(What:=Sheets("Reference").Range("d2"), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
NewRNG = RNG.Address
NewRNG.select
End Sub
**en este caso, no puedo configurar rng.address como una variable