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
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
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
0
