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

• #30472 Delila_1 veterán Kal-El #30471

  Új Válasz 2016-02-08 10:51:25 #30472

  Ú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 Kal-El #30471 üzenetére

  Egy laphoz rendelt makróval átíratjuk a bevitt értéket annak a 0,95-szörösére. A lenti makró a C oszlopba bevitt értékeket alakítja át (If Target.Column = 3).

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Application.EnableEvents = False
  Target = Target * 0.95
  Application.EnableEvents = True
  End If
  End Sub

  Mivel 10 helyett 9,5; 150 helyett 142,5 lesz a cellában, a lap többi képletében az =C5 helyett =C5/0,95 módon hivatkozz rá.

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