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

• #29097 karlkani aktív tag Delila_1 #29088

  Új Válasz 2015-10-18 08:18:48 #29097

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

  "Összemixeltem" a két makrót, ez lett belőle.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long
  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
  Cells(sor, "I") = (Cells(sor, "H") - Cells(sor, "D") * 8)
  Range(Target.Address).Select
  End If
  Application.EnableEvents = True
  End If
  Dim ertek As Double
  If Target.Column = 4 Or Target.Column = 8 Then 'D vagy H oszlop
  Range("I" & Target.Row).Select
  With Range("I" & Target.Row)
  On Error Resume Next
  .AddComment
  .Comment.Visible = True
  .Comment.Shape.Select True
  .Comment.Text Text:=ertek & " Ft/liter"
  .Comment.Shape.Select
  Selection.AutoSize = True
  End With
  If IsNumeric(Range("H" & Target.Row)) And _
  IsNumeric(Range("I" & Target.Row)) Then
  On Error Resume Next
  ertek = Round(Range("I" & Target.Row) / Range("D" & Target.Row), 1)
  Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"
  Range("I" & Target.Row).Comment.Visible = False
  End If
  Else: Range("I5").Comment.Text Text:=" Ft/liter"
  End If
  Range(Target.Address).Select
  End Sub

  Kivettem a 0-t ("0 Ft/liter"), amúgy is egy tizedesjegyre kell kerekítenie, viszont mögé kellene még egy 0 (ha egész szám jön ki, akkor nem). De ha nem megoldható, akkor elég így is. Ezen kívül már csak azt kellene megoldani, ha a D és a H cella értékeket törlöm (mindkettőt), törölje az I értéket, valamint az oda mutató megjegyzést is. Meg gondolom szebben is meg lehet oldani, de én a makróhoz nagyon ***** vagyok...

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