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

• #54728 Lasersailing senior tag

  Új Válasz 2025-11-12 13:26:46 #54728

  Ú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

  

  Lasersailing

  senior tag

  Sziasztok,

  excel VBA-ban szeretnék comment mezőbe írni adatot, az alábbi sorok segítségével:
      If Sheets(sob).Cells(3, sob_om) = Sheets(amopo).Cells(amopo_sm, 4) Then
      Sheets(sob).Cells(3, sob_om).Comment.Visible = True
      Sheets(sob).Cells(3, sob_om).ClearComments
     
      Sheets(sob).Cells(3, sob_om).AddComment
    Sheets(sob).Cells(3, sob_om).Comment.Text = "Due date: "  & Sheets(amopo).Cells(amopo_sm, 7).Value & Chr(10) & "Open item: " & Sheets(amopo).Cells(amopo_sm, 10).Value
    End If

  Magyarán ha az SOB sheet megfelelő cellája megegyezik az AMOPO sheet megfelelő cellájával írja be commentbe a második sheet két cellájának értékét.

  A commentet hozzáadja üresen, de amikor a comment értékét szeretném feltölteni hibaüzenetet ad:
  "run time error 438, object doesnot support this property or method"
  Mit rontok el?

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