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

• #15901 Mutt senior tag D5 #15898

  Új Válasz 2012-12-29 18:10:52 #15901

  Ú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 D5 #15898 üzenetére

  Hali,

  Ez esetben a következő makró tud neked segíteni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vLastRow As Integer
  Dim wSheet As Integer
  
  If Target.Address = Range("Input").Address Then
  'ha az utolsó lapon vagyunk akkor létrehozunk egyet
  If ActiveSheet.Name = ThisWorkbook.Sheets(Sheets.Count).Name Then
  wSheet = ActiveSheet.Index
  Sheets.Add After:=Sheets(Sheets.Count)
  Sheets(wSheet).Activate
  End If
  
  'megnézzük az utolsó munkalapon az utolsó használt sort
  vLastRow = Application.WorksheetFunction.CountA(ThisWorkbook.Sheets(Sheets.Count).Range("A:A")) + 1
  
  'az utolsó sor alá A és B oszlopba beszúrjuk a kezdő és végértéket
  ThisWorkbook.Sheets(Sheets.Count).Range("A" & vLastRow) = [input]
  ThisWorkbook.Sheets(Sheets.Count).Range("B" & vLastRow) = [output]
  
  End If
  End Sub

  A kódot a munkafüzetbe kell tenned, ahol van az adatsorod. A bemeneti (változó) cellád nevezd el "input"-nak, az eredményt pedig "output"-nak. Ezek után ha a bemeneti cellád módosítod, akkor a kód az utolsó munkafüzeten (és annak is az A-oszlop utolsó sorában) elkezdi gyűjteni a bemeneti és kimeneti adatokat.

  A fájlt feltettem ide: http://www.filedropper.com/fuggvenytabla
  Az Adatmentés fülön van ami neked kell.

  Az első fülön egy másik megoldás van, amellyel egy már létező táblázatból tudod kikeresni az értékeket.
  Ez most nálad ne biztos, hogy műkődne, de hátha ebből is tudsz vmit hasznosítani.

  

  üdv.

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