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

• #28630 m.zmrzlina senior tag tam@s #28628

  Új Válasz 2015-09-16 11:39:08 #28630

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

  Le kell tiltani az eseménykezelést:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Row >= 4 And Target.Row <= 11 Then
  Application.EnableEvents = False
  
  If Target.Column = 2 Then
  Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)
  
  ElseIf Target.Column = 4 Then
  Cells(Target.Row, 2).Value = Cells(Target.Row, 4).Value * 1.044
  Cells(Target.Row, 6).Value = Cells(Target.Row, 2).Value / Cells(Target.Row, 5)
  
  ElseIf Target.Column = 6 Then
  Cells(Target.Row, 2).Value = Cells(Target.Row, 6).Value * Cells(Target.Row, 5)
  Cells(Target.Row, 4).Value = Cells(Target.Row, 2).Value / 1.044
  End If
  
  Application.EnableEvents = True
  End If
  
  End Sub

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