Comparar valor de celda con una variable
Publicado por Emi (1 intervención) el 26/09/2022 19:58:47
Buenas!, básicamente lo que quiero hacer es mediante un If comparar el valor de una celda con el de una variable que guarde mediante la funcion Input.Box, muestro el cuerpo del codigo que hice:
Dim Message, Title, Default, PrimerDomingo
Message = "Cual es el numero del primer DOMINGO del mes?"
Title = "Domingos"
Default = "1"
PrimerDomingo = InputBox(Message, Title, Default)
For Each c In Range("D5:CP5")
If c = PrimerDomingo Then c.Interior.ColorIndex = 16
Next
La idea es que si las celdas comprendidas en el for son iguales a esa variable PrimerDomingo, entonces se pinte la celda de determinado color. Al momento de correr el código no hace nada pero tampoco tira error, soy nuevo en la sintaxis de este lenguaje entonces a lo mejor mi error es un poco tonto. Muchas gracias !
Dim Message, Title, Default, PrimerDomingo
Message = "Cual es el numero del primer DOMINGO del mes?"
Title = "Domingos"
Default = "1"
PrimerDomingo = InputBox(Message, Title, Default)
For Each c In Range("D5:CP5")
If c = PrimerDomingo Then c.Interior.ColorIndex = 16
Next
La idea es que si las celdas comprendidas en el for son iguales a esa variable PrimerDomingo, entonces se pinte la celda de determinado color. Al momento de correr el código no hace nada pero tampoco tira error, soy nuevo en la sintaxis de este lenguaje entonces a lo mejor mi error es un poco tonto. Muchas gracias !
Valora esta pregunta
0