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

• #48439 csferke senior tag

  Új Válasz 2022-02-07 09:27:32 #48439

  Ú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

  

  csferke

  senior tag

  Sziasztok!
  Ezen a kódon szeretnék változtatni
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [D:D]) Is Nothing Then
        Sheets("Bilans").[A8] = Target + 5
    End If
End Sub


  Ha változás történik a D oszlopban akkor kérdezze meg, hogy mennyivel szeretném növelni a Target-et
  Kérje be a NÖVELÉS-t és Sheets("Bilans").[A8] = Target + NÖVELÉS

  Remélem, hogy ki lehet hámozni, hogy mit is szeretnék.

  köszi
  Angol Excel 2007

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