Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL

Excel - IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL
CARLINHOS (04/06/2018 02:06:05)498 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)(+1)IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL
Antoni Masana (05/06/2018 07:17:45)
sin imagen de perfil
Val: 11
Ha aumentado su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL

Publicado por CARLINHOS (9 intervenciones) el 04/06/2018 02:06:05
Hola, TENGO UN PROBLEMA CON ESTA MACRO

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Buena()
' SI ESTA VACIA LA CELDA

If IsEmpty(Cells(3, 2)) Then
   Sheets("Hoja1").Select
 
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = "En Blanco"
Else
' SI ESTA LLENA LA CELDA

Sheets("Hoja1").Select
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = Sheets("Hoja2").Range("B3")
End If
 
End Sub

LO QUE INTENTO HACER ES QUE EN LA HOJA 2 HAY UNA TABLA CON LOS CONTENIDOS DE PLATOS DE MENU, DE ACUERDO AL CONTENIDO DE LA CELDA CAMBIA EL CAPTION DEL BOTON 1,2,3, SI ESTA VACIA LA CELDA COLOCA EN EL CAPTION " EN BLANCO". ESTE CODIGO ME FUNCIONA CON EL PRIMER IF, PERO SI LE AGREGO OTRO IF Y PREGUNTO YA NO DE LA FILA 3 SINO DE LA FILA 4 Y BOTON 2 NO CAMBIA.....AYUDA
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 Antoni Masana
Val: 4.412
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

IGUALAR CAPTION DE BOTON 1 A CONTENIDO DE CELDA EXCEL

Publicado por Antoni Masana (1606 intervenciones) el 05/06/2018 07:17:45
Como no pones el resto de código es difícil saber porque no funciona.

1
2
3
4
5
6
7
8
9
10
11
Sub Buena()
    If IsEmpty(Cells(3, 2)) Then
        Sheets("Hoja1").Select                     ' --- SI ESTA VACIA LA CELDA

        ActiveSheet.Shapes("Botón 1").Select
        Selection.Characters.Text = "En Blanco"
    Else
        Sheets("Hoja1").Select                     ' --- SI ESTA LLENA LA CELDA

        ActiveSheet.Shapes("Botón 1").Select
        Selection.Characters.Text = Sheets("Hoja2").Range("B3")
    End If
End Sub

En este código no veo la referencia ni a la fila 4 ni al botón 2, quizás sea por eso que no funciona.
Creo suponer cual es el problema, ¿La celda B3 a que hoja hace referencia en el IF?

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