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

• #52701 karlkani aktív tag Fferi50 #52684

  Új Válasz 2024-05-25 10:00:59 #52701

  Ú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

  

  karlkani

  aktív tag

  válasz Fferi50 #52684 üzenetére

  Szia!

  Megcsináltam a megjegyzést makróval, működik.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C2")) Is Nothing Then
Call Megjegyzes
End If
End Sub

  Sub Megjegyzes()
With Range("A1")
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text "megjegyzes"
.Comment.Shape.TextFrame.Characters.Font.Bold = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

  Kéne egy kis segítség. A gondom az, hogy a megjegyzést TÖBB cellába kéne betenni. Néztem pár útmutatót, de nem sikerül a For Each Cell-t beépíteni, hogy működjön...

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