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

• #28142 Delila_1 veterán marcyman #28141

  Új Válasz 2015-08-20 06:25:32 #28142

  Ú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 marcyman #28141 üzenetére

  Szívesen. Nézd meg Fferi válaszát is, ő képletekkel, makró nélkül oldotta meg.

• #28123 Fferi50 Topikgazda marcyman #28121

  Új Válasz 2015-08-17 15:26:18 #28123

  Ú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

  

  Fferi50

  Topikgazda

  válasz marcyman #28121 üzenetére

  Szia!

  Próbáld ki a következő képleteket:
  D3 cella:
  =HA(SZUM(B$3:B3)+D$2<500000*DARAB(D$2:D2);"NT";SZUM(B$3:B3)+D$2-500000*DARAB(D$2:D2))
  C3 cella:
  =HA(D3="NT";"";B3-D3)

  Ezeket a képleteket húzhatod végig az adott oszlopokon.

  Üdv.

• #28122 Delila_1 veterán marcyman #28121

  Új Válasz 2015-08-17 10:50:15 #28122

  Ú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 marcyman #28121 üzenetére

  Másold a lenti makrót a lapod kódlapjára (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres részbe másold). Lépj vissza a füzetbe, és a G1 cellába írd be az utolsó sor számát, ahol a D oszlopban szám szerepel. A példád szerint ez 23.

  Innen kezdve mikor a B oszlopba új adatot viszel be, a makró kiszámolja, hogy a jelzett cellák összege meghaladja-e a félmilliót. Ha nem, akkor a D oszlopba beírja az NT szöveget. Ellenkező esetben a maradékot, ahogy írtad, a G1-be beviszi az új sorszámot, az E oszlopban elvégzi a cellák összevonását, és beírja oda a következő sorszámot, a példa szerinti 209-et. beírja a C-be a B-D értéket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim osszeg, sor As Long, tartomany As Range
  If Target.Column = 2 And Target.Row > 2 And Target.Count = 1 And Target > "" Then
  Application.EnableEvents = False
  sor = Range("G1")
  Set tartomany = Range("B" & sor + 1 & ":B" & Target.Row)
  osszeg = Cells(sor, "D") + Application.WorksheetFunction.Sum(tartomany)
  If osszeg >= 500000 Then
  Range("D" & Target.Row) = osszeg - 500000
  Range("G1") = Target.Row
  Range("E" & sor + 1) = Application.WorksheetFunction.Max(Columns(5)) + 1
  Range("E" & sor + 1 & ":E" & Target.Row).MergeCells = True
  Range("E" & sor + 1 & ":E" & Target.Row).VerticalAlignment = xlCenter
  Cells(Target.Row, "C") = Cells(Target.Row, "B") - Cells(Target.Row, "D")
  Range("G1") = Target.Row
  Else
  Cells(Target.Row, "D") = "NT"
  End If
  Application.EnableEvents = True
  End If
  End Sub

• #27205 Delila_1 veterán marcyman #27204

  Új Válasz 2015-06-02 15:31:42 #27205

  Ú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 marcyman #27204 üzenetére

  2007-es verziótól lehet színre szűrni, a RÉSZÖSSZEG függvénnyel összegezheted a szűrt állományt.

• #25227 Delila_1 veterán marcyman #25226

  Új Válasz 2015-01-29 13:48:00 #25227

  Ú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 marcyman #25226 üzenetére

  TE készíted el a kimutatást, a főnök csak kattint kettőt.

  A sok, előre bevitt képlet terheli a fájlt úgy méretben, mint sebességben.

• #25224 Delila_1 veterán marcyman #25222

  Új Válasz 2015-01-29 10:35:00 #25224

  Ú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 marcyman #25222 üzenetére

  A táblázattá alakítást, és a kimutatást 1× kell létrehoznod pár kattintással, és akkor egész életedben csak ki kell választanod a napot és a céget a kimutatás legördülőjéből.

• #25223 Fferi50 Topikgazda marcyman #25222

  Új Válasz 2015-01-29 10:30:41 #25223

  Ú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

  

  Fferi50

  Topikgazda

  válasz marcyman #25222 üzenetére

  Szia!

  Most komolyan, kipróbáltad már az átlaghatöbb függvényt:
  D2 képlete: =átlaghatöbb(C:C;B:B;B2;A:A;A2)

  Ezt pedig végighúzod a D oszlopon. Már csak az a fontos, hogy az A oszlopban a dátumok egyforma módon legyenek beírva (nem a cellaformázásra gondoltam, hanem dátumként, illetve esetleg végig szövegként).

  Üdv.

• #25190 Delila_1 veterán marcyman #25187

  Új Válasz 2015-01-27 15:51:18 #25190

  Ú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 marcyman #25187 üzenetére

  Készíts kimutatást a kép szerint. Az összegző mezőkben látszólag napi összeget ír, de az valójában napi átlag, mint a jobb oldali mezőlista tábla jobb alsó sorában látszik.

  Érdemes előtte táblázattá alakítani az adataidat, akkor a kimutatás mindig a friss adatokkal számol.
  A dátum legördülőben kiválaszthatod az aktuális dátumot.

  

• #25188 Fferi50 Topikgazda marcyman #25187

  Új Válasz 2015-01-27 13:43:12 #25188

  Ú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

  

  Fferi50

  Topikgazda

  válasz marcyman #25187 üzenetére

  Szia!

  Nem tudom, milyen exceled van, 2010-ben már biztosan megy az ÁTLAGHATÖBB függvény.
  Próbáld meg azt.

  Üdv.

• #24923 Mutt senior tag marcyman #24909

  Új Válasz 2015-01-07 22:41:35 #24923

  Ú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 marcyman #24909 üzenetére

  Szia!

  Adott egy táblázat ahova az ADOTT napi adatoknak át kellene frissülniük egy másik táblázatból, ahol minden nap új sorba írom az adatokat.

  Makróval támogatva megy.
  Lépések:
  1. A minden nap bővülő táblázatba kell egy függvény egy fix helyen amely megadja az utolsó sort.
  pl. legyen a B1 cella
  2. Az utolsó sor számát meg lehet tudni DARAB vagy DARAB2, esetleg a HOL.VAN függvénnyel.
  pl. legyen a B1 képlete =DARAB2(A:A)
  3. Ezt a cellát linkeldbe a másik fájlba.
  4. A másik fájl egyik eseményére (ez lehet a fájl megnyitása, vagy az egyik lap módosítása) be lehet tenni az alábbi egy sort (a példában A1-ben van a linkelt mező és alá A2-be írjuk az utolsó sor hivatkozását):
  Range("A2").Formula = "=[másik fájl neve,xlsx]Munka1!$A" & Range("A1")
  5. Csak ezt a fájl kell makróbarát füzetként menteni, a másikat nem kell.

  A 4-es lépésben említett sor helyett, itt egy kicsituniverzálisabb megoldás. Ez 3-as lépésben linkelt mezőből kiveszi a másik fájl elérését, így azzal már nem kell foglalkoznod,

  Private Sub Worksheet_Activate()
  Dim link As Variant
  Const oszlop As String = "A" 'A-oszlopban vannak a napi adatok a másikban
  
  link = Split(Range("A1").Formula, "!")
  
  Range("A2").Formula = link(0) & "!" & oszlop & Range("A1").Value
  End Sub

  üdv

• #19481 Mutt senior tag marcyman #19479

  Új Válasz 2013-11-09 14:54:51 #19481

  Ú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 marcyman #19479 üzenetére

  Hello,

  ...hogyan tudnék kerekíteni bármilyen számot 8-as végződésre?
  =KEREKÍTÉS(A1;-1)-2

  Kerekítés függvénnyel nem csak egészszámra, de helyiértékre is lehet kerekíteni. -1-et megadva tízes helyiértékre kerekít, innen már csak ki kell vonni 2-t.

  üdv

• #19480 Delila_1 veterán marcyman #19479

  Új Válasz 2013-11-09 08:24:32 #19480

  Ú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 marcyman #19479 üzenetére

  =HA(JOBB(A4;1)>="5";((BAL(A4;HOSSZ(A4)-1)&8)*1);((BAL(A4;HOSSZ(A4)-1))-1&8)*1)

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