Buenas días

Primero me gustaría agradecer a la gente de este foro por toda la ayuda que proporcionan a la gente como yo que no se manejan muy bien con Excel pero que tienen ganas de mejorar.

Aquí está mi problema y no sé como corregirlo:

Me sale este mensaje:

Se ha producido el error '1004' en tiempo de ejecucción

No se puede asignar la propiedad Name de la calseFont

Y cuando depura sale lo siguiente:

Range("J301:P301").Select

Selection.Copy

Sheets("Mis recetas").Select

Range("H2:N2").Select

Range("H2").Activate

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Select

Loop

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

With Selection.Font

.Name = "Arial"

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

With Selection.Font

.Name = "Arial"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Muchas gracias

Adjunta un archivo ejemplo..........normas del foro

Un saludo,

Tese

Lo siento Tese, por no sé que regla no he cumplido.

Si es la de buscar en el foro para encontrar una solución a mi problema, lo hice pero no he encontrado, a lo mejor no supo cómo hacer la búsqueda.

¿Podrías echar me una mano y decirme dónde he fallado?

Muchas gracias.

Buenas, Kane51

La norma que no has seguido es la de adjuntar un archivo ejemplo con datos ficticios para poder seguir in situ tu código y ver dónde está el problema.

Esta norma tiene como base el no dificultar a aquellos usuarios que prestan ó prestamos ayuda la posibilidad de ofrecer una respuesta adecuada a la consulta....

Un saludo,

Tese

Gracias

Voy a desproteger el archivo y lo subo.

Recuerda, datos ficticios.......nadie necesita saber a qué te dedicas o cuáles son tus datos reales en las celdas para poder estructurar el código...

Un saludo,

Tese

Hola, Kane51. Aunque no me he puesto a mirar en detalle qué es lo que realiza tu código, te daré algunas sugerencias que eliminan el error, aunque no estoy muy seguro si dichas sugerencias rompen con el objetivo que persigues, de ser así, no tendrás más que afinar donde haya que corregir.

Fíjate, donde tu colocas el código

Sheets("Mis recetas").Select

yo lo he sustituido por:

Sheets("Mis recetas").Activate

para activar verdaderamente a esa hoja.

Y donde tienes este código:

Range("H2:N2").Select

Range("H2").Activate

lo he cambiado por:

Worksheets("Mis recetas").Range("H2:N2").Select

Worksheets("Mis recetas").Range("H2").Activate

De esta forma me aseguro de estar dándole las ordenes que quiero a una hoja concreta. A continuación te muestro todo esto en el segmento de código:

Private Sub CommandButton1_Click()

Range("J301:P301").Select

Selection.Copy

Sheets("Mis recetas").Activate

Worksheets("Mis recetas").Range("H2:N2").Select

Worksheets("Mis recetas").Range("H2").Activate

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Select

Loop

.

.

.

.

Introduciendo los cambios anteriores ya no te indicará más el error. Me llama la atención que tienes dos bloques de código donde consecutivamente ordenas un tamaño de letra 14 y luego a 10. Espero haber sido de ayuda.