Új hozzászólás Aktív témák

• #28586 poffsoft veterán karlkani #28584

  Új Válasz 2015-09-12 22:47:47 #28586

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz karlkani #28584 üzenetére

  Sub Auto_Meret()
  Dim CV, kom, ter As Range
  Set ter = Range("D:D, I:I")
  
  For Each CV In ter
  Set kom = Range(CV.Address).Comment
  If Not kom Is Nothing Then 'ha van megjegyzés
  kom.Visible = True
  kom.Shape.Select
  Selection.AutoSize = True
  kom.Visible = False
  End If
  Next
  End Sub

Új hozzászólás Aktív témák