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

• #24716 Delila_1 veterán zoli1962 #24715

  Új Válasz 2014-12-26 07:38:13 #24716

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

  Köszönöm a "rangot".

  Két makró kell hozzá. Az elsőt a Munka2 laphoz kell rendelned.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then Beiras Target, Target.Row
  End Sub

  A második egy modulban legyen.

  Sub Beiras(ertek, sor)
  Sheets("Munka1").Range("A1") = ertek
  If IsNumeric(Sheets("Munka2").Range("C" & sor - 1)) Then _
  Sheets("Munka1").Range("A2") = ertek - Sheets("Munka2").Range("C" & sor - 1)
  End Sub

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