Jump to content

Depurar macro vba para insertar notas


Recommended Posts

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 3 weeks later...

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.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy