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

• #10242 Delila_1 veterán ql0qxo #10237

  Új Válasz 2011-05-03 14:57:36 #10242

  Ú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 ql0qxo #10237 üzenetére

  Az időt nem, az az E oszlopban van. Az egyszerre belépés azért lehetséges, mert a másodperceket nem mutatja a táblázat. Egy perc alatt többen beléphetnek.

• #10241 Delila_1 veterán ql0qxo #10240

  Új Válasz 2011-05-03 14:30:47 #10241

  Ú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 ql0qxo #10240 üzenetére

  Küldd el a 4000 soros fájlt, mert valami nem stimmel, ha csak 10 maradt.
  Nálam jól működött.

  Lehet, hogy nem a C oszlopban voltak a kigyomlálandó adatok, mint a képen.

• #10238 Delila_1 veterán ql0qxo #10237

  Új Válasz 2011-05-03 14:19:17 #10238

  Ú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 ql0qxo #10237 üzenetére

  Igen, felhasználhatod. A makró után hiányos lesz a sorszám, majd pótold.
  Igen, köszönöd.

• #10233 Delila_1 veterán ql0qxo #10232

  Új Válasz 2011-05-03 12:12:33 #10233

  Ú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 ql0qxo #10232 üzenetére

  Ahhoz, hogy a C oszlopban össze tudja hasonlítani a makró az adatokat, a C oszlop szerint kell rendezni a táblázatot. Ha ez nem felel meg, az első üres oszlopba tegyél sorszámot a makró futtatása előtt: az első adat mellé beírsz egy 1-est, és a Ctrl bill. lenyomása mellett lehúzod.
  A makró után a sorszámos oszlop szerint visszaállíthatod az eredeti sorrendet.

  Sub NukuEgyforma()
  Dim sor%, usor%
  
  Cells(1).Select 'Rendezés C oszlop szerint
  Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortTextAsNumbers
  
  usor% = Range("A10000").End(xlUp).Row
  For sor% = usor% To 2 Step -1
  If Cells(sor%, 3) = Cells(sor% - 1, 3) Then Rows(sor%).Delete Shift:=xlUp
  Next
  End Sub

• #10231 Delila_1 veterán ql0qxo #10230

  Új Válasz 2011-05-03 10:47:36 #10231

  Ú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 ql0qxo #10230 üzenetére

  Ehhez egy kicsit többet kellene tudni a táblázatodról. Pl. hogy hol van a táblázat, melyik oszlopban, vagy sorban fordulhatnak elő duplán az adatok, és hogy a többször szereplő adatok celláját is törölni kell-e (mint a 10228-as kérdésben), vagy csak üresre kell állítani a cellát.

  Legegyszerűbb, ha beteszel egy képet.

• #10194 Delila_1 veterán ql0qxo #10193

  Új Válasz 2011-04-29 11:52:19 #10194

  Ú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 ql0qxo #10193 üzenetére

  Akkor átírjuk a képleteket.

  F2:
  =HA(INT(DARABTELI($E$2:$E2;$E2)/2)<>DARABTELI($E$2:$E2;$E2)/2;DÁTUM("20"& BAL($C2;2);KÖZÉP($C2;3;2);JOBB($C2;2));"")
  
  G2:
  =HA(INT(DARABTELI($E$2:$E2;$E2)/2)=DARABTELI($E$2:$E2;$E2)/2;DÁTUM("20"& BAL($C2;2);KÖZÉP($C2;3;2);JOBB($C2;2));"")
  
  H2:
  =HA(INT(DARABTELI($E$2:$E2;$E2)/2)<>DARABTELI($E$2:$E2;$E2)/2;IDŐ(BAL($D2;2);JOBB($D2;2);0);"")
  
  I2:
  =HA(INT(DARABTELI($E$2:$E2;$E2)/2)=DARABTELI($E$2:$E2;$E2)/2;IDŐ(BAL($D2;2);JOBB($D2;2);0);"")

  A J2 marad, ahogy volt, és a J3 üres, szintén, ahogy volt.

• #10192 Delila_1 veterán ql0qxo #10191

  Új Válasz 2011-04-29 11:05:09 #10192

  Ú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 ql0qxo #10191 üzenetére

  Meg lehet adni cellaformázással, hogy csak az órákat mutassa, de az megrövidíti a dolgozót, az 59 percet is elsumákolja. Nem javaslom, így is kiszolgáltatott az, aki melózik.

  Csúsztatás: van, ahol 10 órát dolgozik, ezt egyenlíti ki egy másik napon 6 órai melóval. A havi összes óraszám mutatja a valós bent töltött időt.

  Egyébként a csúsztatással is veszít, mert a túlórára plusz pénz járna, és nem valószínű, hogy több órát csúsztathat, mint amennyit ledolgozott, 1 óra pluszért nem szoktak 1:15 időt, vagy 1,5 órát adni.

  A havi összesítéshez ilyen formátumot javaslok: [ó]:pp.

• #10190 Delila_1 veterán ql0qxo #10189

  Új Válasz 2011-04-29 08:45:11 #10190

  Ú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 ql0qxo #10189 üzenetére

  Az A:E tartomány szöveg formátumú, ezt feltételeztem a vezető nullák miatt.
  Persze egyéniben elő lehet állítani ilyent másképp is.

• #10187 Delila_1 veterán ql0qxo #10185

  Új Válasz 2011-04-28 15:53:13 #10187

  Ú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 ql0qxo #10185 üzenetére

  Fel kell venned néhány oszlopot a csatolt kép szerint.

  

  Az F2 képlete látszik a szerkesztősorban.
  G2:
  =HA(DARABTELI($E$2:$E2;$E2)=2;DÁTUM("20"& BAL($C2;2);KÖZÉP($C2;3;2);JOBB($C2;2));"")
  
  H2:
  =HA(DARABTELI($E$2:$E2;$E2)=1;IDŐ(BAL($D2;2);JOBB($D2;2);0);"")
  
  I2:
  =HA(DARABTELI($E$2:$E2;$E2)=2;IDŐ(BAL($D2;2);JOBB($D2;2);0);"")
  
  J2:
  =HA(G3=F2;I3-H2;24-H2+I3)
  
  Az F:J oszlopok formátuma idő, óó:pp. A J oszlopnál csak a 2. sorba írd be a képletet, és az J3 (üres) cellával együtt kijelölve húzd (másold) az adataid mellé, mert itt csak minden második sorba kell képlet. A többinél minden sorba kell.
  Az utolsó ember adatát átírtam, hogy kipróbáljam az éjszakás műszakot.

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