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

• #37080 Delila_1 veterán Bazs- #37076

  Új Válasz 2018-01-20 15:26:16 #37080

  Ú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 Bazs- #37076 üzenetére

  Akkor jön a makró, amit modulba kell bemásolnod.

  Sub Atrendez()
Dim Innen As Long, Ide As Long, osszeg As Single

Innen = 2: Ide = 2: osszeg = 0
Cells(1, 10) = Cells(2, 1) & " " & Cells(2, 2)

Do While Cells(Innen, 1) <> ""
If Cells(Innen, 1) & " " & Cells(Innen, 2) = Cells(1, 10) Then

Cells(Ide, 6) = Cells(Innen, 1)
Cells(Ide, 7) = "T"
Cells(Ide, 8) = Cells(Innen, 3)
osszeg = osszeg + Cells(Innen, 3)
Else
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
Innen = Innen - 1
osszeg = 0
End If
Innen = Innen + 1: Ide = Ide + 1
Loop
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
End Sub

• #37074 Delila_1 veterán Bazs- #37073

  Új Válasz 2018-01-20 12:32:57 #37074

  Ú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 Bazs- #37073 üzenetére

  Nem úgy, ahogy kérted, de az eredmény hasonló, és duplikáció mentes.

  

  Az A2:D13 feltételes formázása =$B2<>$B1, felső szegély
  A D2:D13 formája =$B2=$B1, itt a karakter színe fehér.

  Szerk.: a tartomány a B oszlop szerint legyen rendezett.

• #37072 föccer nagyúr Bazs- #37070

  Új Válasz 2018-01-20 11:32:29 #37072

  Ú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

  

  föccer

  nagyúr

  válasz Bazs- #37070 üzenetére

  SZUMHATÖBB függvény kell neked. Nézz utána a használatának, pont az ilyesmire találták ki.

  üdv, föccer

• #34638 0P1 aktív tag Bazs- #34597

  Új Válasz 2017-03-25 10:08:59 #34638

  Ú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

  

  0P1

  aktív tag

  válasz Bazs- #34597 üzenetére

  Igen, ez inkább matek, mint excel

  Információhiányod van, mivel 6 ismeretlened van és 4 független egyenleted.
  Az utolsó (2016 egész vére vonatkozó) ugyanis felesleges, az kiszámolható a rendelkezésre álló információkból.
  Még legalább két független információ hiányzik, hogy egyértelműen megoldható legyen (pl 2 negyedév adata)

• #34608 lappy őstag Bazs- #34597

  Új Válasz 2017-03-23 05:14:46 #34608

  Ú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

  

  lappy

  őstag

  válasz Bazs- #34597 üzenetére

  Matematikalig meghatarozhato, de honnan tudjuk azt hogy az adott negyedevben mekkora bevetel volt. Aranyosan osszuk el, random szam szerint. Ezert igy viszont nem megoldhato ebben a formaban

• #32603 lappy őstag Bazs- #32602

  Új Válasz 2016-09-07 17:04:39 #32603

  Ú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

  

  lappy

  őstag

  válasz Bazs- #32602 üzenetére

  Sub All_Cells_In_All_WorkSheets_1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Select
With sh.UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
Next sh
End Sub

• #32152 Delila_1 veterán Bazs- #32150

  Új Válasz 2016-07-22 12:23:04 #32152

  Ú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 Bazs- #32150 üzenetére

  Ehhez rögzítesz egy makrót a másolásokkal, majd makróbarátként mented a füzetedet.

• #31245 Bazs- tag Bazs- #31244

  Új Válasz 2016-04-06 23:26:21 #31245

  Ú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

  

  Bazs-

  tag

  válasz Bazs- #31244 üzenetére

  Közben rájöttem.

• #31238 Delila_1 veterán Bazs- #31237

  Új Válasz 2016-04-06 07:42:15 #31238

  Ú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 Bazs- #31237 üzenetére

  Ha nem jön össze, add meg, hogy az egyes füzetekből melyik állományokat kell összemásolni.

  A

  Range("A1").CurrentRegion.Offset(1, 0).Copy WSGy.Range("A" & usor)

  sor kijelöli és másolja (címsor nélkül) a megnyitott füzetnek azt a részét, ami az A1 cellától kezdve egybefüggőnek tekinthető. Ezt írhatod be a

  Range("A1:A25").Copy WSGy.Range("A" & usor)

  sor helyére – ha A1-ben kezdődnek a másolandó tartományaid.

• #31208 Delila_1 veterán Bazs- #31204

  Új Válasz 2016-04-04 14:59:33 #31208

  Ú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 Bazs- #31204 üzenetére

  Nézz el ide.

  Keveset kell módosítani benne.
  A Range("A1:A25").Copy WSGy.Range("A" & usor) 'másolás sorban az A1:A25 helyett írd be a jelenléti tartomány területét. Mivel ez változik, bőven add meg a sorok számát, hiszen ha többet másol 1-1 füzetből, mint a kitöltött terület, úgyis csak üres cellák kerülnek a gyűjtő füzetedbe, amik a következő jelenléti behívásakor felülíródnak.

• #31206 hallgat csendes tag Bazs- #31204

  Új Válasz 2016-04-04 10:45:52 #31206

  Ú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

  

  hallgat

  csendes tag

  válasz Bazs- #31204 üzenetére

  A változó fájlnevek nem akkora gond, ha tartasz egy külön munkalapot a fájlnevek megadására.
  Itt mondjuk az "A" oszlopban a fájlok elérési útját megadod szövegesen, egyenként.
  Ha van új, azt hozzáteszed.
  Így a makró tudja majd, hogy melyik fájlokkal kell foglalkoznia és azoknak mi a pontos elérési útja.

  Ez persze nem megoldás a makróra, de a fájlnevekre igen.

• #31023 föccer nagyúr Bazs- #31022

  Új Válasz 2016-03-15 14:57:42 #31023

  Ú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

  

  föccer

  nagyúr

  válasz Bazs- #31022 üzenetére

  Részösszeg pontosan erre való. Be lehet állítani, hogy több melyik oszloppal, milyen műveletet hajtson végre.

  üdv, föccer

• #31012 Delila_1 veterán Bazs- #31006

  Új Válasz 2016-03-15 07:30:04 #31012

  Ú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 Bazs- #31006 üzenetére

  A csatolt képen látod az I2 cella képletét. Ezt másolhatod jobbra, és le.

  

• #31007 föccer nagyúr Bazs- #31006

  Új Válasz 2016-03-14 23:07:26 #31007

  Ú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

  

  föccer

  nagyúr

  válasz Bazs- #31006 üzenetére

  Jelöld ki az E oszlopot, majd simán nyomj egy sorba rendezést, bővítsd az adattartományt. Másik variáció, hogy a legfelső sort kijelölöd és beállítasz egy szűrőt, majd E oszlop szűrőjében rendezed sorba.

  Ez után E oszlopot kijelölve használd a részösszeg funkciót. A felugró ablakban beállítod, hogy költséghely szerint rendezzen és melyik oszlopot adja össze. Bal oldalt megjeleni 3 "+" jelecske egészen kint a munkalap széplen, fent a felső sarokban. Ott tudod kibontani/bezárni az adott szinteket.

  üdv, föccer

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