Depurar macro vba para insertar notas

[Benito Bartolomé]

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

[Antoni]

No se entiende que es lo que pretendes hacer¿?

[Benito Bartolomé]

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.

[Antoni]

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

[Benito Bartolomé]

Gracias Antoni por la aclaración.

Por lo visto entonces no lo hice mal del todo.

Un saludo.

[Enigma25]

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.

[Benito Bartolomé]

Hola Enigma;

Muchas gracias por respuesta.

Perfecto, discúlpame no haber respondido antes. 

Un saludo y muy agradecido  👍 

[Enigma25]

Que bueno.

 

Saludos.