tag:blogger.com,1999:blog-4623278671508370136.post9012001743253428854..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Cambio color de etiqueta.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger12125tag:blogger.com,1999:blog-4623278671508370136.post-62304254652785194062019-04-16T09:30:13.791+02:002019-04-16T09:30:13.791+02:00Hola Andrés
podrías lanzar algo parecido a lo que ...Hola Andrés<br />podrías lanzar algo parecido a lo que sigue:<br /><b>Sub colores()<br /><br />For Each sh In Sheets<br /> Set etiqueta = sh.Tab<br /> If etiqueta.Color = 192 Then x = x + 1<br />Next sh<br /><br />MsgBox x<br />End Sub</b><br />el valor 192 corresponde al color a buscar...<br />Puedes cambiar la condición para incorporar otros colores, o emplear un OR para añadir los tres a la vez<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-52172383975546243882019-04-15T20:04:24.434+02:002019-04-15T20:04:24.434+02:00Hola Ismael, mi pregunta es, tengo un excel con mu...Hola Ismael, mi pregunta es, tengo un excel con muchas hojas de tres colores posibles, como hago para contar el total de los tres diferentes colores?<br />Gracias y saludosAndrés Guerrahttps://www.blogger.com/profile/07424029722325792713noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-84358369240768725522016-12-29T10:09:53.602+01:002016-12-29T10:09:53.602+01:00Hola!
entiendo te refieres al evento del post, si ...Hola!<br />entiendo te refieres al evento del post, si quieres que se ejecute en la hoja donde añades la macro sería:<br /><br />...<br />Set etiqueta = ActiveWorkbook.ActiveSheet.Tab<br />If Range("a1") <> "" Then etiqueta.ColorIndex = 3 Else etiqueta.ColorIndex = -4142<br />...<br /><br />Saludos!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-27704670964081379632016-12-28T01:13:53.124+01:002016-12-28T01:13:53.124+01:00hola Ismael.
Copie el primer código para los cambi...hola Ismael.<br />Copie el primer código para los cambios en la celda A1, lo copie en la 3 pero se modifica el color de la hoja 1, que cambio have falta para que se modifique la hoja en la que grabo asigno la macro?.<br />Muchas graciasAnonymoushttps://www.blogger.com/profile/17651059741720206499noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-62075767947123528672016-02-13T10:00:26.805+01:002016-02-13T10:00:26.805+01:00Hola Marlon,
el problema es que el evento Change s...Hola Marlon,<br />el problema es que el evento Change se ejecuta cuando se modifica o se introduce algún valor en una celda y luego se valida (esto es, cuando lo cambiamos 'manualmente').<br />Para lo que quieres tendríamos que emplear el evento <b>_Calculate</b>.<br />Subiré un post al blog una explicación para el caso.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-84921519128891483782016-02-13T07:03:13.757+01:002016-02-13T07:03:13.757+01:00Hola Ismael, buenas noches.
Me tome el atrevimien...Hola Ismael, buenas noches.<br /><br />Me tome el atrevimiento de usar el código que amablemente nos compartes con unos pequeños ajustes:<br /><br />Tengo 4 hojas, las tres primeras hojas en su celda A1 toman los valores de la cuarta hoja, de A1, A2 y A3, respectivamente, con la siguiente expresión:<br /><br />=SI(Hoja4!A1="","",Hoja4!A1)<br />=SI(Hoja4!A2="","",Hoja4!A2)<br />=SI(Hoja4!A3="","",Hoja4!A3)<br /><br /><br />El inconveniente que tengo es que no cambia el color de la etiqueta a menos que lo haga de forma manual, sin estar formulado.<br /><br />El código en la hoja1 es:<br /><br />'macro que cambia el color la etiqueta de una hoja en función de una celda completada.<br />Private Sub worksheet_change(ByVal target As Range)<br />Set etiqueta = ActiveWorkbook.Sheets(1).Tab<br />If Range("a1") <> "" Then etiqueta.ColorIndex = 3 Else etiqueta.ColorIndex = -4142<br />End Sub <br /><br />El código en la hoja2 es:<br /><br />'macro que cambia el color la etiqueta de una hoja en función de una celda completada.<br />Private Sub worksheet_change(ByVal target As Range)<br />Set etiqueta = ActiveWorkbook.Sheets(2).Tab<br />If Range("a1") <> "" Then etiqueta.ColorIndex = 3 Else etiqueta.ColorIndex = -4142<br />End Sub<br /><br />Y el de la hoja3:<br /><br />'macro que cambia el color la etiqueta de una hoja en función de una celda completada.<br />Private Sub worksheet_change(ByVal target As Range)<br />Set etiqueta = ActiveWorkbook.Sheets("prueba").Tab<br />If Range("a1").Value <> 0 Then etiqueta.ColorIndex = 3 Else etiqueta.ColorIndex = -4142<br />End Sub<br /><br />Me podría ayudar a entender que sucede, que estoy haciedo mal.Anonymoushttps://www.blogger.com/profile/00471450463764497948noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-31784185062320134812015-10-31T12:38:43.882+01:002015-10-31T12:38:43.882+01:00Hola Jorge,
la idea podría ser la misma.. lanzar e...Hola Jorge,<br />la idea podría ser la misma.. lanzar el proceso cuando algo cambie en la hoja..<br />Podría ser entonces:<br />Private sub worksheet_change(ByVal target As Range)<br />Set etiqueta = ActiveWorkbook.Sheets(1).Tab<br />If Range("a1") .value=0 Then etiqueta.ColorIndex = 3 Else etiqueta.ColorIndex = -4142<br />End sub<br /><br />Así se realizará la comprobación cada vez que algo cambie en la hoja y se verificará el valor de la celda A1<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-80720357917725979572015-10-31T04:16:11.100+01:002015-10-31T04:16:11.100+01:00Buenas noches Ismael
Necesito adaptar una hoja co...Buenas noches Ismael<br /><br />Necesito adaptar una hoja con esas caracteristicas, cómo podría cambiar el color en esa pestaña si es que en la celda A1 aparece el valor 0?<br /><br />Gracias por la respuesta.jorgevt571https://www.blogger.com/profile/11753286306152955685noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-58792679955797634392013-04-12T14:07:42.098+02:002013-04-12T14:07:42.098+02:00Hola, supongo hablas de un OptionButton en la hoja...Hola, supongo hablas de un OptionButton en la hoja de cálculo...<br />prueba con este código (son tres porcedimientos):<br />Option Explicit<br />Dim valorOpcionButton1 As Boolean<br /><br />Private Sub OptionButton1_Click()<br />If OptionButton1.Value = True Then ActiveSheet.Tab.ColorIndex = 3 Else ActiveSheet.Tab.ColorIndex = -4142<br />End Sub<br /><br />Private Sub OptionButton1_Change()<br />Me.OptionButton1.Value = valorOpcionButton1<br />End Sub<br /><br />Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)<br />valorOpcionButton1 = Not valorOpcionButton1<br />Me.OptionButton1.Value = valorOpcionButton1<br />End Sub<br /><br />Según esté marcado o no el OptionButton la pestaña de la hoja sepondrá roja o no...<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-6672229822281308322013-04-12T12:04:52.103+02:002013-04-12T12:04:52.103+02:00Hola, como deberia adaptar el codigo, si en vez &q...Hola, como deberia adaptar el codigo, si en vez "algun valor en la celda A1" tengo un "Boton de Opcion". <br />Es un excel tipo encuesta con un formulario de opciones.<br />Muchas GraciasGreenBattlehttps://www.blogger.com/profile/15860450554701633215noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-6479627339045092742013-04-12T12:02:33.400+02:002013-04-12T12:02:33.400+02:00Este comentario ha sido eliminado por el autor.GreenBattlehttps://www.blogger.com/profile/15860450554701633215noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-30049664172857337072012-07-03T17:41:02.079+02:002012-07-03T17:41:02.079+02:00Sencillo y funcional.Sencillo y funcional.Anonymousnoreply@blogger.com