Jump to content

Que una Celda de una Hoja copie el valor de otra celda de otra Hoja


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Edited by JasallBcn
Link to comment
Share on other sites

  • 2 weeks later...

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?

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • 88 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      177
    • Comments
      89
    • Reviews
      27

  • Crear macros Excel

  • Posts

    • Hola, Te doy la idea de cómo lo haría yo, sin complicarme demasiado la vida. La hoja 'Datos2' es la misma que tu hoja 'Datos'.  Ahora observa la hoja 'Informe2', donde he reconstruido apoyándome en =BUSCARH las fórmulas necesarias de búsqueda. Ahora fíjate en 'Datos3', donde he insertado una columna y he añadido supuestos datos de 2024. La hoja 'Informe3' se ha reconstruido ella sola.  La lógica consiste en situar en B1 el mayor  (último) año, lo que conseguimos con =MAX.  En C1 formulamos de forma que aparezca el año anterior, y las subsiguientes fórmulas de búsqueda hacen su trabajo automáticamente. Vigila que los rangos sean suficientes: quizá haya que ampliar A2:Z2 para la fila 1, y el rango 2:7 en la/s búsqueda/s. Saludos, Libro1 (J).xlsx
    • Hol@ Foro, Hace tiempo que no formulo un tema y de nuevo busco la ayuda de los maestros, Libro con dos hojas, una con datos y otra de resumen. Bien, en la de DATOS hay las unidades anuales en columnas con lineas de detalle de producto. En la hoja de INFORME solo se  debe reflejar la información de dos ejercicios, el n y n-1. En base al año de la celda B1, y la B2 es B1-1, debe proporcionar la información de la hoja DAATOS de los respectivos años. Los años nuevos en la hoja DATOS siempre serán en la columna D, por lo que el año más viejo siempre se moverá hacia la derecha, cuando añada el 2024, la D será 2024 y el 2019 se moverá a la H. Estoy haciendo pruebas mediante la formulación, BUSCARH, BUSCARV,  INDICE y COINCIDIR, pero no logro el objetivo. Alguna fórmula sencilla a usar? Gracias por anticipado por la ayuda.. Adjunto libro ejemplo reducido a dos productos.. Xavi Libro1.xlsx
    • Perfecto, lo solucione con las variables. Muchísimas gracias a todos por vuestra atención. Un cordial saludo
    • Genial, me funcionó, mil gracias!!
    • MUCHAS GRACIAS JSDJSD ❤️, ME DISTE LA SOLUCION, YA HABIA PROBADO DE TODO.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy