Hola y buenos días a todos;

-¿Se puede depurar mejor la macro que adjunto?

Sí es posible agradecería vuestros consejos.

Código:

Sub notas()
With Worksheets("Notas")
    .Cells(1, 1).AddComment
    .Cells(1, 1).Comment.Text Text:="Titulo1"
    .Cells(1, 2).AddComment
    .Cells(1, 2).Comment.Text Text:="Titulo2"
    .Cells(1, 3).AddComment
    .Cells(1, 3).Comment.Text Text:="Titulo3"
    .Cells(1, 5).AddComment
    .Cells(1, 5).Comment.Text Text:="Titulo4"
    
    .Cells(1, 1).Comment.Visible = False
    .Cells(1, 2).Comment.Visible = False
    .Cells(1, 3).Comment.Visible = False
    .Cells(1, 5).Comment.Visible = False
    
End With
End Sub

 

Adjunto macro

Saludos

MNotas.xlsm

No se entiende que es lo que pretendes hacer¿?

Hace 2 horas, Antoni dijo:

No se entiende que es lo que pretendes hacer¿?

Hola Antoni;

Lo que quiero hacer es dejar un o unos comentarios en los encabezados de la hoja "notas" en la fila 1.

La macro lo hace bien y mi consulta es si así está bien o por el contrario se puede depurar mejor el código.

El que te he puesto lo he generado yo e igual no es muy ortodoxo que digamos.

Saludos a ti y a la capital Antoni.

Yo no me preocuparía demasiado, es que además, para media docena de notas.....

Gracias Antoni por la aclaración.

Por lo visto entonces no lo hice mal del todo.

Un saludo.

Recomendaría trabajar con el nombre del Objeto WorkSheets y emplear un bucle For Next como verás a continuación y con ello tendrías "Menos lineas de código" que es mas o menos lo que creo que esperas hacer.

Dim I As Integer

With Hoja1

    For I = 1 To 5
    
        .Cells(1, I).AddComment
        .Cells(1, I).Comment.Text Text:="Titulo " & I
        .Cells(1, I).Comment.Visible = False
        
        If I = 3 Then I = I + 1
        
    Next I
    

End With

Espero que sea mas o menos lo que esperas.

Mis respetos.

Hola Enigma;

Muchas gracias por respuesta.

Perfecto, discúlpame no haber respondido antes. 

Un saludo y muy agradecido  ? 

Que bueno.

 

Saludos.