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

• #28583 Delila_1 veterán karlkani #28582

  Új Válasz 2015-09-12 14:17:56 #28583

  Ú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

  

  Delila_1

  veterán

  válasz karlkani #28582 üzenetére

  Elrejti a megjegyzést a

  Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"

  sor után beszúrt

  Range("I" & Target.Row).Comment.Visible = False

  sor.
  Tudtommal nincs olyan beállítás, ami eleve automatikus mérettel szúrja be a megjegyzést.

  Automatikus méretre állítás a D és I oszlopban:

  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
  Range(CV.Address).Comment.Shape.Select
  Selection.AutoSize = True
  End If
  Next
  End Sub

  Ezt a makrót mudulba kell másolni.

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