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

• #28623 m.zmrzlina senior tag tam@s #28622

  Új Válasz 2015-09-15 21:06:42 #28623

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tam@s #28622 üzenetére

  Próbáld ki ezt:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= 3 And Target.Row <= 12 Then
  If Target.Column = 7 Or Target.Column = 8 Then
  On Error Resume Next
  Cells(Target.Row, 9).Value = Cells(Target.Row, 7).Value * Cells(Target.Row, 8).Value
  Exit Sub
  ElseIf Target.Column = 9 Then
  On Error Resume Next
  Cells(Target.Row, 8).Value = Cells(Target.Row, 9).Value / Cells(Target.Row, 7).Value
  Exit Sub
  End If
  End If
  
  End Sub

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