Excel - se pueden usar emoticonos en el código de los botones de un formulario

 
Vista:
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 26/11/2019 10:49:28
Buenas.

Estaba probando a poner emoticonos en los botones de un formulario para que copiara ese emoticono del botón que se pulse hacia la celda de la hoja pero parece que no se puede.
Adjunto foto y la hoja del ejemplo por si alguien sabe alguna forma ingeniosa de hacerlo.

Muchas gracias de antemano.
emoticonos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por Andres Leonardo (1541 intervenciones) el 26/11/2019 15:26:44
Hola!!

Y son muchos... a que va la pregunta... Lo que pasa es que la CELDA no contiene imagenes, qe podrias hacer ... colocar un frame o image .. en cada celda y colocarle un nombre de la celda imgA3 y le asignas el valor o imagen del boton a esa "celda" que en realidad es un image

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 26/11/2019 16:40:26
Hola Andres

En principio serían solo esos 5 botones con emoticono pero mejor si no fueran imágenes para que fuera más ligera la hoja para poder usarla con el móvil también.

Estaba pensando que cada uno de los botones podía escribir un nº, del 1 al 5 en la tabla, y ponerle un condicional a la tabla que cambiara esos números por su emoticono correspondiente.

O poner alguna macro a los botones de los formularios pero no sé como hacerlo tampoco.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por Andres Leonardo (1541 intervenciones) el 26/11/2019 19:41:55
Otro consejo que podria ser ... es que le pongas la fuente Wingdings 2 que te da iconos en vez de letras y quizas puedas usar tu cometido

le das el valor "Q" que es un VISTO no se se me ocurre que se lo asignes ... Cuientame con esa locura que opinas
.


SAludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 26/11/2019 21:49:55
Sí me parece buena idea usar los emojis de Wingdings 2, la pena es que tenga tan poca variedad.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 29/11/2019 11:08:02
Buenas a todos.

Conseguí que se peguen los emoticonos de los botones del formulario en las celdas mezclando y probando vuestros códigos de otras respuestas anteriores.
Solo me falta que se pueda aplicar lo mismo a todo el rango de la tabla y no solo a una celda concreta como está ahora.

Adjunto 2 botones de ejemplo que hice, que solo copian el emoticono a una celda determinada porque no sé cómo ampliar el rango a toda la tabla para poder pegar el emoticono pulsado en las otras celdas de la tabla.

Adjunto ejemplo.

Muchas gracias a todos por la valiosa ayuda que aportáis.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por Andres Leonardo (1541 intervenciones) el 29/11/2019 14:54:41
Mi pregunta es como detarminas a que celda debes copiarla????

si es por eso .. puedes sacar la celda seleccionada y ahi pegarla...

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 29/11/2019 15:14:01
Buenas Andres.
Gracias por responder.

Pues sería que se copiara en la celda que active el formulario.

Adjunto una hoja resuelta en otra pregunta anterior que hace eso mismo: al picar en una celda de la tabla amarilla se escribe el contenido del botón que se pulse después en el formulario y se pega en la celda que se haya picado antes.
Por ej. si puldas en D4 y luego el botón SI se escribe el SI en D4
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por Andres Leonardo (1541 intervenciones) el 29/11/2019 15:44:17
Lo que pasa es que tu defines en que rango muestras el formulario

1
2
   ' Asigno el rango donde deseo aparezca el formulario
   Set rngForm = Range("B8:E8")


entonces i no presionas ahi no se va presentar ... ahora cuando defines que sea otro rango deberias mostrar otro formulario....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   '
   Dim X As Long
   Dim Y As Long
   Dim rngForm As Range
   '
   ' Asigno el rango donde deseo aparezca el formulario
   Set rngForm = Range("B8:E8")
   '
   ' Verifico si el cursor se encuentra en alguna celda del rango
   If Union(Target, rngForm).Address = rngForm.Address Then
      '
      'Calculo la aparicion Izquierda del form
      X = UserForm1.Width - Range("B8").Left
      '
      'Calculo la aparicion superior del form
      Y = Range("B8").Top + UserForm1.Height + 13
      '
      'llamo al formulario
      UserForm1.Promedio X, Y
      '
   End If
   '
   Set rngForm = Range("B3:E7")
   '
   If Union(Target, rngForm).Address = rngForm.Address Then
      '
      'llamo al formulario
      Call calculadora.VerCalcu(ActiveCell.Address)
      '
  Else  'cambie este else para que me diga si no son los rangos anteriores pregunto por el tercero.
   '
   'Código añadido para el TERCER FORMULARIO NOTA
   Dim notaform As String
   notaform = ActiveCell.Address
 
   If Not Intersect(Target, Range("h3:k7")) Is Nothing Then
      '
      'Llama los formularios
      NOTA.Show
      '
   End If
   '
 
   End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 29/11/2019 15:58:15
Es que me lío cuando hay varios formularios Andres.
Por eso hice el ejemplo sencillo de los 2 botones de 1 solo formulario para intentar entender como se relaciona el código de la hoja que es este:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ' Asigno el rango donde deseo aparezca el formulario
   Set rngForm = Range("B2:E7")
   If Union(Target, rngForm).Address = rngForm.Address Then
' llamo al formulario
      emoticonos.Show
   End If
End Sub

con le código de los 2 botones que es el de la foto.
codigo-2-botones
y si parece que está el rango de la tabla bien en la Hoja, B2:E7, pero me falla el rango de los botones yo creo, o no es el código correcto.
Probé a poner el mismo rango, B2:E7, en los 2 botones pero haciendo eso pega el dibujo del emoticono en todas las celdas, en vez de en 1 sola.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

se pueden usar emoticonos en el código de los botones de un formulario

Publicado por celia (418 intervenciones) el 30/11/2019 23:34:57
Buenas a todos.

Conseguí que funcione como quería probando códigos de otros formularios e ideas vuestras (sin realmente saber del todo por qué funciona)

Adjunto la hoja resuelta por si le sirve a alguien más.

Intenté borrar alguna línea más para simplificarlo al mínimo de código pero ya no alcanzo a más sin estropearlo.
Por ej. creo que sobra la palabra "VerCalcu", que aparece en 2 sitios y debe ser de otro formulario anterior que resolvió Alfredo en otra pregunta diferente... No sé... Intenté borrarla pero deja de funcionar o no sé borrar o cambiar esas 2 líneas.
El caso es que funciona incluso con esa palabra extra.

Gracias de nuevo a todos por vuestra valiosa ayuda en todas mis preguntas: Andres, Alfredo, Antoni, ...

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar