Macro Formato cond. Columna, depende de otra.
Hola miren mi necesidad es esta
Macro para Aplicar formato Condicional a un rango de celdas que dependen de que la celda lateral contenga parte de un texto
Ejemplo en la celda F7 quiero aplicar el color de relleno verde determinado por .Color = 65280 pero solo quiero que se aplique si y solo si la celda G7 Contiene dentro de todo su texto la frase Completamente Funcional, hasta ahí todo va bien, pero quiero manejarlo con un ciclo porque tengo que aplicarlo a toda una columna, osea
La celda F7 como ven depende de la G7
Pero la F8 depende de la G8, y así sucesivamente
Miren tengo esta macro
Dim Serie As Integer
Serie = 7
For Serie = 7 To 962
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$G$7=""Completamente Funcional"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65280
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
ActiveCell.Offset(1, 0).Range("A1").Select
Next Serie
mi nececidad es q si hay alguna manera de hacer que en la linea de -- Formula1:="=$G$7=""Completamente"""
El numero de la celda se vaya incrementando tomando el valor de mi variable de tipo entero "Serie" para que en la siguiente en lugar de 7 valga 8
No se si exista un método más fácil, pero en la manera posible si se puede hacer así como lo explico creo que entendería más fácil, gracias de antemano, buen día
Macro para Aplicar formato Condicional a un rango de celdas que dependen de que la celda lateral contenga parte de un texto
Ejemplo en la celda F7 quiero aplicar el color de relleno verde determinado por .Color = 65280 pero solo quiero que se aplique si y solo si la celda G7 Contiene dentro de todo su texto la frase Completamente Funcional, hasta ahí todo va bien, pero quiero manejarlo con un ciclo porque tengo que aplicarlo a toda una columna, osea
La celda F7 como ven depende de la G7
Pero la F8 depende de la G8, y así sucesivamente
Miren tengo esta macro
Dim Serie As Integer
Serie = 7
For Serie = 7 To 962
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$G$7=""Completamente Funcional"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65280
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
ActiveCell.Offset(1, 0).Range("A1").Select
Next Serie
mi nececidad es q si hay alguna manera de hacer que en la linea de -- Formula1:="=$G$7=""Completamente"""
El numero de la celda se vaya incrementando tomando el valor de mi variable de tipo entero "Serie" para que en la siguiente en lugar de 7 valga 8
No se si exista un método más fácil, pero en la manera posible si se puede hacer así como lo explico creo que entendería más fácil, gracias de antemano, buen día
{"Lat":19.6485692877719,"Lng":-99.2129802703857}
1 Respuesta
Respuesta de Eduard Caballero
1