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

• #4668 Delila_1 veterán balage02 #4659

  Új Válasz 2009-03-15 10:58:11 #4668

  Ú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 balage02 #4659 üzenetére

  Nálam sokkal okosabbakat kérdeztem erről. Végül nem sikerült függvénnyel bombabiztosan megoldani, de írtam egy kis makrót, ami (ha egy gombhoz rendeled) gombnyomásra beírja az aktuális értékeket.

  A makró a J (10.) oszlopba írja az eredményt, amit a kiir=10 sorban írhatsz át.
  A függvénnyel szemben az az előnye, hogy nem terheli állandó számolással az Excelt. A hátránya, hogy időnként el kell indítani az adatok frissítéséhez.

  Sub Frissit()
  usor = ActiveSheet.UsedRange.Rows.Count
  kiir = 10
  For sor = 1 To usor
  oszlop = Cells(sor, kiir).Select
  oszlop = Selection.End(xlToLeft).Column
  Cells(sor, kiir) = Cells(sor, oszlop)
  Next
  End Sub

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