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

• #29088 Delila_1 veterán karlkani #29083

  Új Válasz 2015-10-17 17:23:32 #29088

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

  Mivel az I oszlopban a D és H cellákkal kell számolni, az eseményvezérelt makróban ennek a két oszlopnak a változását kell figyeltetni.

  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") = Format((Cells(sor, "H") - Cells(sor, "D") * 8), "# ##0.00 Ft/liter")
  Range(Target.Address).Select
  End If
  Application.EnableEvents = True
  End If
  End Sub

  A Cells(sor, "I") =... értékadásnál az általad megadott képletet [=HA(D="";"";H-D*8)] alkalmaztam.
  A sor változót csak azért iktattam be, mert többször szerepel a makróban, és egyszerűbb leírni, mint a Target.Row-t. Na meg rövidebbek is az utasítások.

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