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

• #37249 Delila_1 veterán allein #37248

  Új Válasz 2018-02-05 17:06:05 #37249

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

  Lapfülön (amelyikre beírod az adatokat) jobb klikk, Kód megjelenítése. Beléptél a makró szerkesztőbe, ott is az aktív lapod moduljába. A jobb oldalon kapott nagy üres területre másold be az alábbi pár sort:

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Sheets("Munka2").Cells(Target.Row, Target.Column) = _
Sheets("Munka2").Cells(Target.Row, Target.Column) + Target
End If
End Sub

  Két helyen szerepel a "Munka2", ezek helyett írd be a saját lapod nevét.
  Negatív szám bevitelének hatására csökken a 2. lap azonos cellájának az értéke.

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