Jump to content

Cambiar valor celda activa temporalmente


Recommended Posts

Buenos días a todos;

-Tengo una macro empezada que no se terminar porque desconozco que función debo usar. 

Explico:

En una hoja hay una macro que al pulsar sobre la celda activa llama a un condicional que según su valor pues cambia de valor e incluso de color.

Lo que no sé conseguir es como recuperar el estado inicial. 

Adjunto macro para mayor comprensión-

Saludos y buenos días a todos.

MCeldaActiva.xlsm

Link to post
Share on other sites
Hace 10 horas, Benito Bartolomé dijo:

Tengo una macro empezada que no se terminar porque desconozco que función debo usar. 

A veces no hace falta una función, sino un poco de picardía 😉. Con un pequeño truco lo puedes conseguir.

EN el fichero que te dejo, al cambiar de celda PRIMERO se gurda la dirección y el valor de la celda en O1 y O2, cuando vuelves a cambiar, esos valores se restauran pasándolos a la celda anterior.

Mira el código para que te quede más claro... Si alguien tiene otra opción, que la deje B)

Copia de MCeldaActiva.xlsm

Link to post
Share on other sites
Ahora mismo, Antoni dijo:

Como era de esperar yo no lo haría de la forma en que lo planteas.

 

MCeldaActiva.xlsm 50.42 kB · 0 descargas

Lo de no circunscribir la acción a una columna concreta solo traerá problemas, por ejemplo:

Si existen el valor 20 o 18 en la columna importe o en cualquier otra, la cosa no va

Link to post
Share on other sites
Hace 12 horas, Haplox dijo:

A veces no hace falta una función, sino un poco de picardía 😉. Con un pequeño truco lo puedes conseguir.

EN el fichero que te dejo, al cambiar de celda PRIMERO se gurda la dirección y el valor de la celda en O1 y O2, cuando vuelves a cambiar, esos valores se restauran pasándolos a la celda anterior.

Mira el código para que te quede más claro... Si alguien tiene otra opción, que la deje B)

Copia de MCeldaActiva.xlsm 50.4 kB · 1 descarga

Buenos días Haplox, en primer lugar un honor interactuar por primera vez con usted.

En cuanto a la macro, perfecta. Solo comentar por si no lo ha llegado a probar aún que al salirse de la columna "D" la macro deja de funcionar.

Ignoro si hay tratamiento (?).

Saludos y muchas gracias por su tiempo y trabajo. Muy agradecido

Link to post
Share on other sites
Hace 11 horas, Antoni dijo:

Lo de no circunscribir la acción a una columna concreta solo traerá problemas, por ejemplo:

Si existen el valor 20 o 18 en la columna importe o en cualquier otra, la cosa no va

Bo e frio día Antoni;

Tu macro también es excelente, me gusta mucho lo de:

ActiveSheet.Shapes("ALBARÁN")

Comentario:

Cita

Lo de no circunscribir la acción a una columna concreta solo traerá problemas, por ejemplo:

Si existen el valor 20 o 18 en la columna importe o en cualquier otra, la cosa no va

 Estoy de acuerdo en ese punto como bien me has comentado.

PROBLEMA: Me la limita un poco.

Corrígeme si me equivoco , se puede hacer que "If Not Intersect(Target, Columns("D")) Is Nothing Then" en vez de referirse a la letra de la columna se refiera el "título" porque ese siempre será el mismo.

No es por dar el coñazo, se debe a que en esa hoja traigo los datos de varias consultas y a veces no coincide el orden. 

Si se puede bien y sino tendré que cambiar el orden en el origen de la consulta.

Moitas grazas como sempre  Antoni, por certo abrigate que hoxe veñen curvas.🌧️❄️

 

Link to post
Share on other sites
Hace 9 minutos , Haplox dijo:

Pues sí, pero en tu ejemplo solo había una columna :huh:. Si no es así, sube un archivo de ejemplo real para poder establecer los rangos de la macro

Buenos días Haplox;

Te dejo un video explicativo si te parece bien. Creo que al verlo ya te daras de cuenta.

Enlace: VideoCeldaActiva

Muchas gracias por su amabilidad.

Link to post
Share on other sites
Hace 6 minutos , Haplox dijo:

No he entendido nada... Si usas la siguiente columna ¿Qué quieres que ocurra? :huh: ¿o cuál es el problema?

Lo que ocurre es que si pinchas sin querer otra columna que no sea (columna D)  y vuelves de nuevo a la "D" pues ya no va la macro. 

¿No lo logras ver bien en el video?

Espero que lo entiendas sino lo vuelvo a grabar pero mas tarde, voy empezar a trabajar.

Un saludo y muy amable.

Link to post
Share on other sites
Hace 19 minutos , Benito Bartolomé dijo:

voy empezar a trabajar.

Qué suerte... Yo llevo desde las 7:00 😒

Ya tenías la solución con el
 

If Not Intersect(Range("D:D"),Target) Is Nothing Then


End If

Solo tendrías que modificar el rango si fuese otro. O eso, o sigo sin entender nada

Copia de Copia de MCeldaActiva.xlsm

Link to post
Share on other sites

Ahora que tengo un minuto,;

Ocurre lo siguiente, en la columna "D" te mueves por ella y donde encuentra el valor "18 o  20" lo cambia por "albaran" o "factura". Hasta ahí todo bien.

Cuando sin querer o queriendo pincho en otra columna distinta a la "D" y  regreso de nuevo a la "D" y hago click en una celda sí me marca si es factura u albarán pero al pasar a otra celda de esa misma columna no recupera el valor inicial "20 o 18".

Si te fijas bien en el video notarás bien lo que ocurre.

Nota: Otra cosa distinta es que me digas que eso así esta bien y no se puede cambiar. Si así es perdóname por haberle molestado.

Espero haberme explicado mejor, entiendo que muchas veces unos vemos hacía un lado y otros hacía el otro y no nos encontramos.

Muchísimas gracias y disculpe las molestias. 

Feliz finde.

 

Link to post
Share on other sites

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("FACTURA").Visible = False
ActiveSheet.Shapes("ALBARÁN").Visible = False
Set documento = Rows(1).Find("documento")
If Not documento Is Nothing Then
   If Not Intersect(Target, Columns(documento.Column)) Is Nothing Then
      If ActiveCell = 18 Then
         With ActiveSheet.Shapes("ALBARÁN")
            .Top = ActiveCell.Top
            .Left = ActiveCell.Offset(0, 1).Left
            .Height = ActiveCell.Height
            .Visible = True
         End With
      End If
      If ActiveCell = 20 Then
         With ActiveSheet.Shapes("FACTURA")
            .Top = ActiveCell.Top
            .Left = ActiveCell.Offset(0, 1).Left
            .Height = ActiveCell.Height
            .Visible = True
         End With
      End If
   End If
End If
End Sub

Vale para cualquier columna con el texto documento en la fila 1.

Hay una opción sin macros ¿Te interesa?

Link to post
Share on other sites

Lo anterior no es del todo cierto, si que es necesario una macro, dobleclick en la celda.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(1, Target.Column) = "documento" Then
   If Target = 18 Then
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Address, ScreenTip:="ALBARÁN"
   Else
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Address, ScreenTip:="FACTURA"
   End If
   Cancel = True
End If
End Sub

 

Link to post
Share on other sites
Hace 38 minutos , Antoni dijo:

Lo anterior no es del todo cierto, si que es necesario una macro, dobleclick en la celda.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(1, Target.Column) = "documento" Then
   If Target = 18 Then
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Address, ScreenTip:="ALBARÁN"
   Else
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Address, ScreenTip:="FACTURA"
   End If
   Cancel = True
End If
End Sub

 

También perfecto Antoni;

Moitas grazas, ya me llega.

Tengo ya tres cartuchos, dos tuyos y uno de Haplox.

Muy agradecido a los dos.

Buen finde. 

Por certo, en Vigo e Nigrán xa temos cofé eso sí a las 17:00 para casa.😀

Link to post
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
  • Crear macros Excel

  • Posts

    • las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente" pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto horas x turno v2 (ayudaExcel).xlsx
    • Hola Hector Miguel, mil gracias por ese gran trabajo. Tengo las siguientes consultas relacionadas con la nueva versión del file. Lo descrito es lo que puedo interpretar de la revisión:  Columna J: Días. Indica la cantidad de días, más el primero y último día de la semana de la actividad. Columna K: Turno. Columna L: s/d/F. Cantidad de Sábados, Domingos y Feriados involucrados en la actividad. Columna M: Período. N° total de días en los que se desarrolló la actividad. Columna N: 6-s, 7-d, 8-f. Finalmente, quisiera preguntarte que método utilizaste para separar la celda que contiene la fecha y la hora, en 2 celdas separadas. Muchas gracias por la atención prestada a mi caso!!! Jeani    
    • No se si ya pudiste resolver el problema pero ¿Será que el formato de celda te ayude? En celda cuando quieres ver mas de 24:00 lo que se hace es darle el formato a la celda [hh]:mm:ss si fuera hh:mm:ss no verias en  la celda un dato mayor a a 24:00. Quiizas con eso presente puedas tener los resultados que esperas con tu codigo.   Saludos Valentino
    • Expertos buenas tardes, tengo un archivo de excel que funciona bastante bien lo unico es que en la hoja REPORTE hay grafico dinamicos se pierden los datos por la cantidad de informacion que existe no se hay una forma para poder arreglarlo, estare agradecido eternamente por favor. Adjunto el archvio. https://drive.google.com/file/d/1olczNQkvlp9gWiGGev2S3GtcItJtab3F/view?usp=sharing
    • Muchas gracias por el aporte! Y gracias a todos por participar
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy