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 todas las opciones. (Pongo sólo 3 en el ejemplo)

With Range("A1:A5").FormatConditions.Add(xlExpression, , "Formula1")
        .Interior.Color = Range("C3").Interior.Color
       	.Font.Bold = True
        .Font.ColorIndex = 2
End With

Muchas gracias de antemano.

 

	Sub FC()
	Range("C3").Copy
	
	Range(A2:A6).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   	Application.CutCopyMode = False
	'copia el formato condicional de la celda C3 a las celdas A2:A6
	End Sub

Sub FormatoCondicional()
  With Range("$A$1:$A$5").FormatConditions
          .Delete
          .Add(xlExpression, , "Formula1")
          .Item(1).Interior.Color = Range("C3").Interior.Color
          .Item(1).Font.Bold = True
          .Item(1).Font.ColorIndex = 2
  End With
End Sub

Hola, prueba con estas modificaciones.

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:=False, Transpose:=False
   	Application.CutCopyMode = False
	'copia el formato condicional de la celda C3 a las celdas A2:A6
	End Sub

Este copia un formato condicional de una celda y lo pega en otro rango. Yo lo que busco es copiar un formato y crearlo como condicional. Sería una plantilla en la que, por ejemplo, al modificar el color de una celda específica, se creara un formato condicional usando ese color.

Sub FormatoCondicional()
  With Range("$A$1:$A$5").FormatConditions
          .Delete
          .Add(xlExpression, , "Formula1")
          .Item(1).Interior.Color = Range("C3").Interior.Color
          .Item(1).Font.Bold = True
          .Item(1).Font.ColorIndex = 2
  End With
End Sub

Esto si me sirve, como había comentado, pero como ves son más líneas de código. Si además le añades bordes, etc.... y lo aplicas a muchas reglas, pues te queda un código bastante extenso, de ahí que buscara la forma de usar el "PasteSpecial". Cierto es que no había puesto el .Delete, pero si que lo tengo en líneas anteriores. La próxima vez pondré un código más completo, sobre todo para los posibles foreros que puedan tener alguna duda similar.