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

• #24717 Mutt senior tag zoli1962 #24715

  Új Válasz 2014-12-26 11:38:05 #24717

  Ú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

  

  Mutt

  senior tag

  válasz zoli1962 #24715 üzenetére

  Hello,

  Makrómentes megoldás pedig ez:
  1. Hozz létre egy dinamikus tomböt a névkezelőben (pl. Lista).
  2. A hivatkozása legyen ez: =ELTOLÁS(Munka2!$C$3;0;0;DARAB(Munka2!$C:$C))
  3. Munka1 lapon az utolsó értéket a =INDEX(Lista;DARAB(Lista)) képlet adja meg, ez megy A1-be.
  4. A2-be pedig =A1-INDEX(Lista;DARAB(Lista)-1) adja meg az utolsó két elem különbségét.

  üdv.

• #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