Jump to content

NoWi

Members
  • Content Count

    2
  • Joined

  • Last visited

  1. Buenas @rolano gracias por el tiempo dedicado. Antes de responder quiero comentar que me he fijado que no todos los formatos son aplicables al formato condicional, de ahí que no se puedan añadir de la forma que yo quiero. Como ejemplo, no se puede poner un borde "grueso": Sub FormatoCondicional() With Range("$A$1:$A$5").FormatConditions .Delete .Add(xlExpression, , "Formula1") .Border.Weight = xlThick End With End Sub Te respondo sobre tus códigos: Sub FC() Range("C3").Copy Range(A2:A6).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=Fa
  2. Buenas a todos. Estoy intentando aplicar formato condicional a un rango de celdas que cumplan con una fórmula. El formato que quiero aplicar quiero copiarlo de otra celda, pero el objeto no me deja pegar de esa forma. Alguna idea? With Range(A2:A6).FormatConditions.Add(xlExpression, , "Formula1") Range("C3").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End With Modificar cada parámetro a mano si que me deja, pero querría que pillara el formato completo de la celda, para no tener que meter
×
×
  • Create New...

Important Information

Privacy Policy