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

• #29100 Delila_1 veterán karlkani #29097

  Új Válasz 2015-10-18 14:12:59 #29100

  Ú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 #29097 üzenetére

  Szerintem akkor is kell törölni az I értékét és a megjegyzést, ha a D és H közül csak az egyiket törlöd. Másképp minek az eredménye van az I-ben?

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long, szoveg As String, osszeg As Double
  sor = Target.Row
  If Target.Column = 4 Or Target.Column = 8 And Target.Row > 1 Then
  Application.EnableEvents = False
  If IsNumeric(Cells(sor, "D")) And IsNumeric(Cells(sor, "H")) _
  And Cells(sor, 4) <> "" And Cells(sor, 8) <> "" Then
  osszeg = Round(Cells(sor, "H") - Cells(sor, "D") * 8, 1)
  With Range("I" & sor)
  On Error Resume Next
  .AddComment
  .Comment.Visible = True
  .Comment.Shape.Select True
  szoveg = "I/D=" & osszeg & "/10=" & Format(osszeg / 10, "# ##0.0") & " Ft/liter"
  .Comment.Text Text:=szoveg
  Selection.AutoSize = True
  Selection.Visible = False
  End With
  Cells(sor, "I") = Format(osszeg, "# ##0.0 Ft/liter")
  Else
  Cells(sor, "I") = ""
  Cells(sor, "I").Comment.Delete
  End If
  Range(Target.Address).Select
  Application.EnableEvents = True
  End If
  End Sub

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