Amigos de Excel.
El cao es:
La celda A3 de la hoja CUOTAS, toma el valor de otra celda E56 de la  hoja ADMINISTRACION. (Mismo Libro)
Está así ahora: =ADMINISTRACION!E56
Esa simple fórmula quiero pasarla a VBA.

_______________________________________________________________________________________________________________

Consulté a PILOT y me dio el siguiente código como Macro.

El problema es que cuando cambia cifra, tengo que ejecutar la macro. (CopiarValor). No  quiero así. Lo quiero automático
Gracias anticipadas por su cooperación

Sub CopiarValor()
    Dim Libro As Workbook
    Dim HojaCuotas As Worksheet
    Dim HojaAdmin As Worksheet
    
    ' Establece el libro activo (el mismo libro en este caso)
    Set Libro = ActiveWorkbook
    
    ' Establece las hojas de trabajo
    Set HojaCuotas = Libro.Sheets("CUOTAS")
    Set HojaAdmin = Libro.Sheets("ADMINISTRACION")
    
    ' Copia el valor de E56 en la celda A3
    HojaCuotas.Range("A3").Value = HojaAdmin.Range("E56").Value
End Sub

Buenas, en la hoja ADMINISTRACION pon el codigo:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$E$56" Then
   Sheets("CUOTAS").Range("A3").Value = Sheets("ADMINISTRACION").Range("E56").Value
 End If
End Sub

saludos

Hola 

Cita

JasallBcn, muchas gracias por atender mi solicitud.
Podrías revisar, que no me funcionó?

Gracias y saludos

 

Te paso archivo. Para que te funcione tu código tienes que llamar a la función desde el evento de la página que detecta un cambio Worksheet_Change

seria :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$E$56" Then
   CopiarValor
 End If
End Sub

saludos

 

cuotas.xlsm

cuotas2.xlsm

No se si he entendido bien el problema, pero a la solución que te da PILOT, prueba a cambiar la ultima instrucción por esta

    ' Copia el valor de E56 en la celda A3
    HojaCuotas.Range("A3").Formula = "=HojaAdmin.Range("E56")"
 

Con esto lo que consigues es que en la celda A3, escriba la fórmula tal cual, era eso lo que querías?

En 9/2/2024 at 1:32 , JasallBcn dijo:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$E$56" Then
   Sheets("CUOTAS").Range("A3").Value = Sheets("ADMINISTRACION").Range("E56").Value
 End If
End Sub

JassallBcn, muchísimas gracias. Perfecto....!!