macro in excel 2010

[Cobbe]

Je wil bewerkingen uitvoeren in of met opmerkingen in bereik E6:E19 en er zit in geen enkele cel in dat bereik een opmerking.

Nog vragen??????

 

[HSV]

Bv. voor het gehele blad.

Sub hsv()
Dim cl As Range, sh As Shape
application.screenupdating = false
For Each cl In Sheets(1).cells.SpecialCells(-4144)
 With cl.Comment
    .Visible = True
    .Shape.CopyPicture 1, 2
    .Visible = False
    .Parent.Offset(, 1).PasteSpecial
  End With
 Next cl
 For Each sh In Sheets(1).Shapes
  If sh.Type = msoPicture Then
     sh.Top = sh.TopLeftCell.Top
     sh.Left = sh.TopLeftCell.Left
     sh.Height = sh.TopLeftCell.Height
  End If
 Next sh
Application.Goto [a1]
End Sub

 

[meijerg56]

Nu werkt het allemaal perfect

iederereen bedankt



Gert