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

• sztanozs veterán

  2015-12-10 14:06:39 #29800

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz Louro üzenetére #29799

  A hivatalos Excel (XML) szabványban benne van a rendes sor/oszlop alapú formázás, de plusz számítási igény miatt sajna ezt nem használja az excel (illeve, ha van valami módosítás, akkor a cella alapú formázás a fallback)... Azért hasznos is tud lenni a feltételes formázás.
  Most is épp egy többszörös szűrés alapú kiválasztásos workseet-et kellett összedobnom, ahol named range alapú (erősen számolós) feltételes formázás van. Enélkül egyszerűen nem lehet rendesen kitölteni a munkalapot.

• Louro őstag

  2015-12-10 13:45:31 #29799

  Új Válasz

  Ú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

  

  Louro

  őstag

  válasz sztanozs üzenetére #29798

  Sokan sorokat és oszlopokat formáznak. Duuuurva.
  Feltételes formázás esetén is általában sort vagy oszlopot jelölnek meg.

  Ezek olyan durván hazavágják, hogy rossz nézni. 20-30 megás fájlt megnyitva majd értékként átmásolva az adatokat és lementve sokszor nem felére, fél megákra le tudom csökkenteni a fájlméreteket. Színezésnek van előnye, de sajnos hátránya is és elég sokan úgy használnak Excel-t, hogy igazából szájhagyomány útján tanulták. Egy-egy gyorstalpalós tanfolyam sokat segítene az irodistákon. Néha hányni is tudnék a színkavalkádokon.

• sztanozs veterán

  2015-12-10 12:39:00 #29798

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz baderoli üzenetére #29795

  Ezek mind okozhatnak jelentős fájlméret növekedést:
  - formázás (főleg az új excelben, nagyon sok sor és oszlop van)
  - sok pivot tábla (minden pivot tábla számára az excelben van egy kis "mini adatbázis")
  - named range (gyakorlatilag a range értékeinak másolata még egyszer a táblűban)
  - rejtett mezők/munkalapok (bármi lehet bennük/rajtuk)
  - beillesztett képek vagy objektumok (ezek lehetnek akármekkorák)

• Louro őstag

  2015-12-10 12:34:32 #29797

  Új Válasz

  Ú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

  

  Louro

  őstag

  válasz zulu_mester üzenetére #29796

  Az igazat megvallva én nem értem. Ha az kell, hogy miképp lehet azt megmondani, hogy melyik szám mennyiszer került kihúzásra, akkor COUNTIF/DARABTELI függvénnyel könnyen előállítható.

  Csinálsz egy 1-90-ig egy listát az M oszlopba. N oszlopba pedig, az 1-es mellé: =DARABTELI(itt jelöld ki az 5 oszlopot, amiben a húzott számok vannak;kattints az 1-es értéket tartalmazó cellára) Majd másold lefelé a függvényt és meglesz.

• zulu_mester tag

  2015-12-10 12:14:03 #29796

  Új Válasz

  Ú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

  

  zulu_mester

  tag

  Sziasztok!

  Abban szeretném a segítségeteket kérni, hogy egy adott adathalmazból (1957-2012 közti heti lottószámok) hogyan lehet tól-ig intervallumokat meghatározni? Milyen függvény/képlet van rá excellben?
  Előre is köszönöm!

• baderoli tag

  2015-12-09 23:19:15 #29795

  Új Válasz

  Ú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

  

  baderoli

  tag

  Sziasztok! Sajnos nem találtam megoldást a fileméret duplázódására a neten. Esetleg valakinek ötlete?

• Delila_1 veterán

  2015-12-09 19:48:57 #29794

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz tzetko üzenetére #29793

  Szívesen.

• tzetko csendes tag

  2015-12-09 18:42:00 #29793

  Új Válasz

  Ú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

  

  tzetko

  csendes tag

  válasz Delila_1 üzenetére #29765

  Köszönöm

• Sátán44 addikt

  2015-12-09 15:29:58 #29792

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz bsh üzenetére #29786

  Köszönöm, megpróbálom.

• Delila_1 veterán

  2015-12-09 15:16:35 #29791

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bsh üzenetére #29790

  Szívesen.

• bsh addikt

  2015-12-09 15:13:28 #29790

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz Delila_1 üzenetére #29788

  köszi, az csúnya megoldás volt de annyira nem ismerem az excelt, hogy ilyen lehetőségek vannak, legalább most már ezt is tudom

• Chase tag

  2015-12-09 13:37:35 #29789

  Új Válasz

  Ú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

  

  Chase

  tag

  válasz m.zmrzlina üzenetére #29782

  THX

• Delila_1 veterán

  2015-12-09 13:24:07 #29788

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bsh üzenetére #29786

  Az első feltétel egyszerűbben

  If Not Intersect(Target, Range("C3:X24")) Is Nothing Then

  vagy még egyszerűbben

  If Not Intersect(Target, [C3:X24]) Is Nothing Then

  Nálam valami balhé miatt nem fogadja el a call-ost.

• bsh addikt

  2015-12-09 13:11:34 #29787

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz Delila_1 üzenetére #29784

  nem próbáltam ki* csak úgy beírtam, de ez így működik nálam ezer éve.

  *most kipróbáltam, és működik most is.

• bsh addikt

  2015-12-09 13:07:58 #29786

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz Sátán44 üzenetére #29781

  valami ilyesmi?
  Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column > 2) And (Target.Column < 25) And (Target.Row > 2) And (Target.Row < 28) Then
  If (XCount(Me.Range(Cells(Target.Row, 3), Cells(Target.Row, 25))) > 2) Or (XCount(Me.Range(Cells(2, Target.Column), Cells(28, Target.Column))) > 2) Then
  Target.Value = ""
  MsgBox ("Már van két X az adott sorban vagy oszlopban!")
  End If
  End If
  End Sub
  Private Function XCount(XRange As Range) As Long
  XCount = 0
  For Each Cell In XRange
  If Cell.Value <> "" Then XCount = XCount + 1
  Next
  End Function

• batmanéhes tag

  2015-12-09 13:01:27 #29785

  Új Válasz

  Ú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

  

  batmanéhes

  tag

  válasz bsh üzenetére #29783

  elég simán a sub neve zárójelek nélkül. ha más modulban van, akkor Module2.Button_Click vagy ilyesmi.

  Sub vmi()
  Sheet1.Button1_Click
  End Sub

• Delila_1 veterán

  2015-12-09 12:42:00 #29784

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bsh üzenetére #29783

  Kipróbáltad? Nálam méla undorral hibát ad.

• bsh addikt

  2015-12-09 12:40:09 #29783

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz Szicskeee üzenetére #29778

  pl. call Munka2.CommandButton_Click()

• m.zmrzlina senior tag

  2015-12-09 12:30:37 #29782

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Chase üzenetére #29767

  Rossz hírem van, a 2013-as Office-ból kivették ezt az opciót.

  További infó itt.

• Sátán44 addikt

  2015-12-09 12:25:49 #29781

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz sztanozs üzenetére #29759

  Már elfogadja a képletet, viszont még mindig enged 2-nél több X-et rakni egy napra.
  Így néz ki most: [link]

• Delila_1 veterán

  2015-12-09 11:56:17 #29780

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Szicskeee üzenetére #29778

  A másik lapon (Munka2) lévő gomb click eseményébe írd be azt, amit az elsőn lévő gomb eseményébe írnál.

  Private Sub CommandButton2_Click()
  Sheets("Munka1").Range("A1") = "asdf"
  End Sub

  Az első lap gombjának az eseménye is tartalmazhatja ugyanezt, csak ott a lapra történő hivatkozást felesleges megadni.

• Sátán44 addikt

  2015-12-09 11:54:37 #29779

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz Delila_1 üzenetére #29777

  Nekem nem igaz, vagy hamis állítás kell. Ha elérte a hétfői...pénteki nap a 2 db X-et, akkor többet ne engedjen betenni.

  Kérlek néz már rá a (#29772)-ben lévő linkre. Vajon miért nem fogadja el a képletet?

• Szicskeee tag

  2015-12-09 11:38:20 #29778

  Új Válasz

  Ú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

  

  Szicskeee

  tag

  válasz Delila_1 üzenetére #29776

  Es ahoz, hogy egy masik sheetrol hivjak meg 1 command button mit kell ele irni? csak kivancsisag, hogy ott nem csinaltam jol. :/

• Delila_1 veterán

  2015-12-09 11:33:41 #29777

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Sátán44 üzenetére #29772

  Ha nem akar összejönni, a C2:S10 tartományra adj feltételes formázást. A képlet

  =DARABTELI(C$2:C$10;"x")>2

  A következő tartomány a C11:S19. Annak a képlete

  =DARABTELI(C$11:C$19;"x")>2

  Nincs 2013-as verzióm.

• Delila_1 veterán

  2015-12-09 11:27:14 #29776

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Szicskeee üzenetére #29773

  Private Sub CommandButton14_Click()
  Dim iRet As Integer
  Dim strPrompt As String
  Dim strTitle As String
  strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
  
  strTitle = "Prémium"
  
  iRet = MsgBox(strPrompt, vbYesNo, strTitle)
  
  If iRet = vbNo Then
  MsgBox "Vége!"
  Else
  Worksheets("Prem1").Range("$A$1:$O$39").PrintOut Copies:=1, Collate:=True
  End If
  End Sub

  Szerk: elkéstem.

• Szicskeee tag

  2015-12-09 11:25:54 #29775

  Új Válasz

  Ú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

  

  Szicskeee

  tag

  válasz bsh üzenetére #29774

  Es muuukodik

  1000millio koszonet erte.

• bsh addikt

  2015-12-09 11:23:09 #29774

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz Szicskeee üzenetére #29773

  gondolom azért, mert a range nem egyértelmű, az lehet bármely lapon vagy akár másik munkafüzetben is.
  meg kell neki mondani, hogy worksheets("Prem1").Range("A1:O39").Select, vagy ha már úgyis aktívvá tetted azt a lapot, akkor Activesheet.Range("A1:O39").Select

• Szicskeee tag

  2015-12-09 11:07:18 #29773

  Új Válasz

  Ú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

  

  Szicskeee

  tag

  Private Sub CommandButton14_Click()
  Dim iRet As Integer
  Dim strPrompt As String
  Dim strTitle As String
  strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
  
  strTitle = "Prémium"
  
  iRet = MsgBox(strPrompt, vbYesNo, strTitle)
  
  If iRet = vbNo Then
  MsgBox "Vége!"
  Else
  Worksheets("Prem1").Activate
  Range("A1:O39").Select
  Selection.PrintOut Copies:=1, Collate:=True
  
  End If
  End Sub

  Valai meg tudja mondani miert kapok hibat Range("A1: O39").Select -nel?

  Annyi a lenyeg, hogy 1 masik sheet-rol akarom kinyomtatni A1: O39 ig a cellakat.
  Probalkoztam mar azzal is, hogy a masik sheeten (Prem1) csinaltam egy nyomtati gombot. es itt az else be ezzel a parancsal : Call Prem1.CommandButton1_Click meghivtam de az is hibat adott.

• Sátán44 addikt

  2015-12-09 10:59:39 #29772

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz sztanozs üzenetére #29768

  Úgy csinálom, ahogy mondod és ezt kapom: [link]
  A táblázatom C2 : C46...S2:S46-ig tart. C48-ba tettem az X-et és a D48 üres. Az átalakított képletet, meg a képen látod.

• sztanozs veterán

  2015-12-09 10:51:21 #29771

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz bteebi üzenetére #29770

  Nem a range-et kell elnevezni, hanem egy custom range-et kell létrehozni, aminek ez a tartalma:
  =IF(COUNTIFS(Sheet1!C$2:C$28,"x",Sheet1!$A$2:$A$28,Sheet1!$A31)<2,Sheet1!$C$31,Sheet1!$D$31)

• bteebi veterán

  2015-12-09 10:45:54 #29770

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz sztanozs üzenetére #29768

  Vagy csak simán Ctrl+F3-at nyom. Vagy kijelöli a tartományt, és a név mezőbe (bal oldalon, ahol a te screenshotodon az "A1" kiírás látszik) beírja a kívánt nevet, és entert nyom. Ha ugyanitt később rákattint a nyílra, akkor megnézheti az összes elnevezett tartományt.

• bteebi veterán

  2015-12-09 10:31:45 #29769

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz Delila_1 üzenetére #29754

  Nem kell azonosnak lennie. Nyilván időt veszít azzal, hogy minden sorban a UsedRange széléig megy, de még mindig sokkal jobb, mintha a teljes sort (256 vagy 16384 cella) végignézné. De akár azt is megtehetné, hogy minden sornak megnézi a jobb szélét, és csak addig menne a makró:

  oszlopig = Cells(sor, Columns.Count).End(xlToLeft).Column

  Persze ha teljesen fix a táblázat, akkor jó (gyorsabb), ha csak a fix tartományok vannak megadva.

• sztanozs veterán

  2015-12-09 10:14:34 #29768

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz Sátán44 üzenetére #29766

  Szia!

  Sajnos magyar office-om nincs, de a menüsoron (ribbon) kell Formula > Named range-et megnyitni, és ott hozzáadni (úgy hogy közben a kurzor a C2-n áll):
  

• Chase tag

  2015-12-09 08:53:27 #29767

  Új Válasz

  Ú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

  

  Chase

  tag

  válasz m.zmrzlina üzenetére #29763

  Köszi a gyors választ!
  Sajnos ebben a verzióban – Microsoft® Excel® 2013 (15.0.4763.1000) – nincs ilyen opció, sem a Speciális, sem egyéb beállításoknál.
  A kérdés továbbra is fennáll.

  

• Sátán44 addikt

  2015-12-09 08:27:11 #29766

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz sztanozs üzenetére #29759

  Magyar MO2013-am van. Ennek megfelelően átírtam a képletet, de nem akar működni. Átküldhetném a táblázatomat?

  Delila_1
  Ha tudnál segíteni, megköszönném.

• Delila_1 veterán

  2015-12-09 07:56:51 #29765

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz tzetko üzenetére #29761

  Látogass el ide.

• Szicskeee tag

  2015-12-09 07:39:11 #29764

  Új Válasz

  Ú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

  

  Szicskeee

  tag

  Sziasztok !

  Van 1 gombom ami 1 case-bol all. ennek a vegere szeretnek egy olyat hogy felugordjon 1 ablak es megkerdezze,hogy ki szeretnem nyomtatni a KIJELOLT cellakat vagy nem. Ha pedig igent nyomok akkor nyomtassa ki.

  Segitsegetek elore is koszonom.

• m.zmrzlina senior tag

  2015-12-09 07:32:00 #29763

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Chase üzenetére #29762

  Fájl>Beállítások>Speciális>Megjelenítés>Az összes ablak megjelenítése a tálcán elől vedd ki a pipát.

  

• Chase tag

  2015-12-08 23:22:00 #29762

  Új Válasz

  Ú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

  

  Chase

  tag

  Újabb fajta Excel-ben (2013) meg lehet azt oldani valahogyan, hogy több file-t egy Excel-ben nyisson meg, mint ahogy a régebbi verziókban (pl: 2007)?

  Egylőre ott tartok, hogy ha Open-nel megnyitok egy második file-t, akkor nyit neki teljesen új Excel-t, ahány file kinyitva, mindhez külön menü-sor, külön menü-szalag, stb...
  A régi verziókban meg a már futó Excel-en belül nyitott minden file-nak egy új ablakot, és maradt egy menü-sor, egy menü-szalag, stb...

  

  

• tzetko csendes tag

  2015-12-08 21:48:04 #29761

  Új Válasz

  Ú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

  

  tzetko

  csendes tag

  Szia delila
  Segítséget szeretnék tőled kérni.
  A fügvényvarázslóban hogyan kell leíró szöveget készíteni

• Sátán44 addikt

  2015-12-08 21:39:27 #29760

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz sztanozs üzenetére #29759

  =IF(COUNTIFS(Sheet1!C$2:C$28,"x",Sheet1!$A$2:$A$28,Sheet1!$A31)<2,Sheet1!$C$31,Sheet1!$D$31)
  Ezt a képletet melyik cellába írjam? Hiába teszem bármelyikbe nem történik semmi.

• sztanozs veterán

  2015-12-08 17:33:47 #29759

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz Sátán44 üzenetére #29757

  Tök jó hogy megkaptad a makróst is ja az nem neked ment

  Data validation nekem most egyszerűbb lett - némi megkötéssel:
  - Minden óra elé kell a nap
  - Kell egy mező amiben az 'x' van és mellette egy ami üres (sárgával alul, a sor eltüntethető)

  Tábla:
  

  C2-t ki kell jelölni és a következő Named Range-et kézzel létre hozni:
  SelectX =IF(COUNTIFS(Sheet1!C$2:C$28,"x",Sheet1!$A$2:$A$28,Sheet1!$A31)<2,Sheet1!$C$31,Sheet1!$D$31)

  Utána kijelölni az adatmezőket -> Data Validation -> List
  =SelectX

  Ignore blank pipa kivevendő:
  

• Delila_1 veterán

  2015-12-08 17:29:39 #29758

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Zimmy88 üzenetére #29753

  Most gyorsabb lesz. Folytatnod kell az elso = 8: ucso = 9: GoSub Atir típusú sorokat.
  Az oszlopok törlése részbe a saját törlendő oszlopaidat írd be.

  Sub mm()
  Dim lap As Integer, nev As String, utvonal As String
  Dim elso As Long, ucso As Long
  utvonal = "D:\kiment\"
  
  For lap = 1 To Worksheets.Count
  If Sheets(lap).Range("B1") = "ez kell" Then
  Sheets(lap).Select
  
  elso = 8: ucso = 9: GoSub Atir
  elso = 12: ucso = 14: GoSub Atir
  elso = 16: ucso = 17: GoSub Atir
  elso = 20: ucso = 22: GoSub Atir
  '*** stb ***
  
  'oszlopok törlése
  Range("B:D,F:F").Delete Shift:=xlToLeft
  
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  End If
  Next
  Exit Sub
  
  Atir:
  Range("E" & elso & ":W" & ucso).Copy
  Range("E" & elso).PasteSpecial xlPasteValues
  Return
  
  End Sub

• Sátán44 addikt

  2015-12-08 17:03:05 #29757

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  válasz sztanozs üzenetére #29756

  Ha lehetne mindkettőt kipróbálnám

• sztanozs veterán

  2015-12-08 16:48:35 #29756

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz Sátán44 üzenetére #29755

  Makróval viszonylag egyszerű, de meg lehet csinálni data validation-nel is - melyiket preferálod?

• Sátán44 addikt

  2015-12-08 16:20:03 #29755

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  Sziasztok

  Ebben a táblázatban C2...S2 oszlopokban, olyan feltételt kellene megadnom, ami oszloponként és naponként csak 2 db X-et lehessen tenni, többet nem.

  Példa: tablazat

• Delila_1 veterán

  2015-12-08 16:02:56 #29754

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz bteebi üzenetére #29752

  Igen, ha minden sorban azonos az oszloptól-oszlopig tartomány.

• Zimmy88 tag

  2015-12-08 15:57:24 #29753

  Új Válasz

  Ú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

  

  Zimmy88

  tag

  válasz Delila_1 üzenetére #29751

  Szia!

  Köszi a tippet! Kipróbáltam, és lefuttattam a következő makrót. Viszont két dolog kellene még bele:
  az egyik, hogy először kijelölje azokat a munkalapokat, amin végre kell hajtani a műveletet (B1 cella ha adott szöveget (pl "ezkell") tartalmaz, csak akkor kell rögzíteni az értékeket és különmenteni a fájlt),
  a másik, pedig hogy értékrögzítés után, kimentés előtt ki kellene törölni pár felesleges oszlopot az E és a W közül (oszlop sorszámát tudom megadni).
  Más: elég lassan futott a makró, 18-20 másodpercig tartott, mire "kidobott" egy kész munkalapot külön fájlba. Mivel lehetne gyorsítani esetleg? 30-40 munkalapnál ez elég hosszú idő...

  Sub mm()
  Dim lap As Integer, r As Range, nev As String, utvonal As String
  Dim terulet As Range
  
  utvonal = "D:\kiment\"
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Set terulet = Range("E8:W9,E12:W14,E16:W17,E20:W22,E25:W30,E33:W35,E37:W39,E41:W43,E45:W46,E49:W50,E52:W59,E62:W67,E69:W72,E75:W76,E81:W82,E85:W90,E93:W95,E98:W100,E102:W103,E105:W105,E107:W109,E112:W117,E120:W120,E123:W124,E129:W130,E132:W132")
  For Each r In terulet
  Range(r.Address) = r.Value
  Next
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  Next
  End Sub

• bteebi veterán

  2015-12-08 15:53:45 #29752

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz Delila_1 üzenetére #29751

  Csinálhatná a UsedRange alapján is. A tartomány széle lehetne a UsedRange Columns.Count.

• Delila_1 veterán

  2015-12-08 13:51:28 #29751

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Zimmy88 üzenetére #29749

  Nem érdemes a teljes sorokat megadni, mert egy halom üres cellán is végig kellene mennie a ciklusnak. Ehelyett területet adj meg.

  Sub mm()
  Dim lap As Integer, r As Range, nev As String, utvonal As String
  Dim terulet As Range
  
  utvonal = "C:\Temp\"
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Set terulet = Range("A4:J4,A9:J11,A16:J16")
  For Each r In terulet
  Range(r.Address) = r.Value
  Next
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  Next
  End Sub

• Delila_1 veterán

  2015-12-08 13:02:50 #29750

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz MCGaiwer üzenetére #29748

  Az AK3 képlete legyen

  =HA(DARABTELI(F3:AJ3;"x")>0;DARABTELI(F3:AJ3;"x");"")

  az AL3-é pedig

  =HA(DARABTELI(F3:AJ3;"<>x")-DARABTELI(F3:AJ3;"")>0;DARABTELI(F3:AJ3;"<>x")-DARABTELI(F3:AJ3;"");"")

  Az AK3-ban próbáltam az egyszerűbbnek tetsző HAHIBA függvénnyel megoldani, de ledolgozott napok esetén az üres string helyett 0 értéket ad.

  Figyelj, hogy a többi hónapban a megfelelő területet add meg a képletekben.

• Zimmy88 tag

  2015-12-08 12:32:47 #29749

  Új Válasz

  Ú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

  

  Zimmy88

  tag

  Sziasztok!

  Egy két lépésből álló feladat gyorsítására szeretnék makrót, de még nem volt időm jobban elmélyedni a témában.
  A feladat a következő:
  Adott egy excel fájl, sok (30+) munkalappal. Első körben ezek egy részének (a B1 cellában található szöveg alapján szűrhető) megadott sorszámú soraiban a képletet értékre kellene cserélni (tehát nem az egész munkalapon).
  A második lépés pedig ezeknek a (részben rögzített értékes) munkalapoknak a kimentése külön excel fájlba, az adott munkalap nevén.

  Eddigi ismereteim szerint az alábbi részletet raktam össze (nem biztos hogy jó):

  Sub SumIfFormulaToValue()

  Rows("8:9,12:14,16:17,20:22,25:30,33:35,37:39,41:43,45:46,49:50,52:59,62:67,69:72,75:76,81:82,85:90,93:95,98:100,102:103,105:105,107:109,112:117,120:120,123:124,129:130,132:132").Select

  For Each r In Selection.Areas
  r.Select
  Selection.Formula = Selection.Value
  Next

  End Sub

  Előre is köszi a segítséget!

• MCGaiwer addikt

  2015-12-08 12:29:29 #29748

  Új Válasz

  Ú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

  

  MCGaiwer

  addikt

  válasz Delila_1 üzenetére #29742

  köszönöm szuperül működik!

  Olyat hogy lenne érdemes csinálni benne, hogy ha egy munkavállaló év közben lép be, akkor a belépést megelőző időszakban ne jelenjen meg ledolgozott / távolléti időként?

• Delila_1 veterán

  2015-12-08 08:15:36 #29747

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz m.zmrzlina üzenetére #29746

  Jogos! Én is emlékeztem rá, de lusta voltam kikeresni.

• m.zmrzlina senior tag

  2015-12-07 19:28:47 #29746

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz coldfirexx üzenetére #29740

  Bocs, de te olvsod is ezt a fórumot, vagy csak írod?

  Erre a kérdésedre itt már egyszer megkaptad ugyanezt a választ.

• poffsoft veterán

  2015-12-07 18:28:11 #29745

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  válasz bsh üzenetére #29744

  Hanem mondjuk Module1

• bsh addikt

  2015-12-07 17:24:33 #29744

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz bteebi üzenetére #29743

  sehol nem írta, hogy "időnként működik". ha névütközések vannak, akkor ez sosem fog működni, mivel le sem fordul úgy a program. ha nincs ütközés, akkor lefordítja és akkor mindig működni is fog.
  ebből következően ha más fájlban működik ugyanez a kód, akkor ott abban a fájlban a modul neve nem "valasz".

• bteebi veterán

  2015-12-07 17:10:18 #29743

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz bsh üzenetére #29738

  Akkor miért van az, hogy időnként működik, máskor (más file-ban) meg nem? Nekem többszöri futás után se dobott hibát.

• Delila_1 veterán

  2015-12-07 15:54:20 #29742

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz MCGaiwer üzenetére #29739

  Bevihetsz az F3:OB70 tartományra egy újabb formázást, ahol a nem ledolgozott napok karaktereit pirosra állítod, hogy jobban kiemelkedjenek a sok x közül. A képlet

  =ÉS(SZÖVEG.E(F3);F3<>"x")

• Delila_1 veterán

  2015-12-07 15:30:22 #29741

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz MCGaiwer üzenetére #29739

  Közben összeállítottam egy egyszerűbbet, egész évre.

  Vigyázz, a 2. sorban 2013-as dátumok szerepeltek. Fontos, hogy az aktuálisak legyenek ott a feltételes formázás miatt, ami a hétvégék, ünnepnapok, és áthelyezett munkanapok hátterét adja.

  Jövőre a Munka1 lapon át kell írnod a dátumokat, vagy csak folytatnod a listákat a 2016-osakkal.

• coldfirexx tag

  2015-12-07 15:07:59 #29740

  Új Válasz

  Ú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

  

  coldfirexx

  tag

  válasz bsh üzenetére #29738

  Úristen!!!

  És igen ez volt a baja. Egy életre megjegyeztem!

• MCGaiwer addikt

  2015-12-07 15:04:16 #29739

  Új Válasz

  Ú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

  

  MCGaiwer

  addikt

  válasz Delila_1 üzenetére #29735

  Szia, köszönöm szépen

  A különböző jogcímen való távollétek szétszedésével próbálkozok még, remélem az már menni fog magamtól is

• bsh addikt

  2015-12-07 15:02:50 #29738

  Új Válasz

  Ú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

  

  bsh

  addikt

  válasz coldfirexx üzenetére #29736

  a modul neve ugyanaz (valasz) mint a változóé.

• bteebi veterán

  2015-12-07 15:01:30 #29737

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz coldfirexx üzenetére #29736

  Érdekes. Szemre jónak tűnt, ki is próbáltam, és nekem működött. Mondjuk neked is volt, ahol jó volt...

• coldfirexx tag

  2015-12-07 14:55:33 #29736

  Új Válasz

  Ú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

  

  coldfirexx

  tag

  Sziasztok!

  Egy VBA kérdésem lenne.

  Van egy kódom ami message box segítségével eldönti hogy automatikus vagy manuális lesz a folyamat:

  Sub AUTOMANUAL()

  valasz = MsgBox("Automatikusan futtatja a riportot?", vbYesNo)
  If valasz = vbNo Then
  Sheets("ZUTERT").Visible = True

  Else
  Sheets("ZUTERT").Visible = False
  End If
  End Sub

  A probléma hogy a msg boxnal kiakad és a következő hibát dobja:
  

  Másik fájlban ugyanez működik!

  Mi lehet a baj?

• Delila_1 veterán

  2015-12-07 13:43:42 #29735

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz MCGaiwer üzenetére #29727

  Feltöltöttem ide a fájlt, ahol a januári képleteket beírtam. Ennek alapján összeállíthatod a többi hónapot.

  A Munka1 lap tartalmazza az idei ünnepeket (Ünnepek tartomány), és ledolgozandó szombati napokat (Mn tartomány).

• bteebi veterán

  2015-12-07 13:25:30 #29734

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz m.zmrzlina üzenetére #29731

  Megvan a hiba, bocs. Természetesen user error, méghozzá a hülyébb fajtából B. A 3. sortól kellett volna kezdeni . A 2. sor üres volt, nem csoda, hogy nem működött. Most már viszont jó . Ahogy keresgéltem közben a megoldást, legalább annyi kiderült, hogy egy On Error Resume Next nem árt a makróba .

• poffsoft veterán

  2015-12-07 13:24:43 #29733

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  válasz bteebi üzenetére #29730

  Option Explicit
  Sub kivalaszt()
  Dim ar As String, lastrow As Double, lr As Double, sor As Double
  
  lastrow = Sheets("forras").UsedRange.Rows.Count
  lr = Sheets("adat").UsedRange.Rows.Count
  On Error Resume Next
  For sor = 2 To lr
  ar = Application.WorksheetFunction.VLookup(Sheets("adat").Cells(sor, 1), Sheets("forras").Range("A1:B" & lastrow), 2, False)
  If Err.Number <> 0 Then ar = "'#HIÁNYZIK"
  Sheets("adat").Cells(sor, 2) = ar
  Next
  End Sub

  valójában nem találja a keresett adatot a vlookup...

• bteebi veterán

  2015-12-07 12:56:55 #29732

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz m.zmrzlina üzenetére #29731

  Úgy működik. Lehet, hogy megpróbálom kerülőúton úgy megcsinálni, hogy a képletet írja a cellába (és az majd visszaadja a helyes értéket), de jobb lenne, ha eleve csak az érték kerülne bele.

• m.zmrzlina senior tag

  2015-12-07 12:52:08 #29731

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz bteebi üzenetére #29730

  Mi történik, ha nem makróval, hanem egyszerű munkalapfüggvénnyel próbálod megoldani a problémát?

  Írj fel próbára az adat munkalapodon egy egyszerű =FKERES()-t ezekre a tartományokra és nézzük meg mit ad vissza!

• bteebi veterán

  2015-12-07 12:43:12 #29730

  Új Válasz

  Ú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

  

  bteebi

  veterán

  válasz m.zmrzlina üzenetére #29729

  Sajnos így is ugyanaz a hiba. Mindenesetre akkor - látszólag - szintaktikailag rendben van, amit írtam. Végiggondolom még egyszer, hogy mi lehet a hiba oka, de egyelőre elég tanácstalan vagyok, mert látszólag szerintem rendben van a kód.

• m.zmrzlina senior tag

  2015-12-07 12:23:47 #29729

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz bteebi üzenetére #29728

  Lehet, hogy az adat lapodon lévő néhány cellában van egy-két nem kinyomtatható karakter (pl:szóköz vagy aposztróf). Próbáld ki, hogy lefut-e így:

  Sub kivalaszt()
  Dim ar As String, lastrow As Double, lr As Double, sor As Double
  Dim tiszta As String
  lastrow = Sheets("forras").UsedRange.Rows.Count
  lr = Sheets("adat").UsedRange.Rows.Count
  For sor = 2 To lr
  tiszta = Application.WorksheetFunction.Trim(Sheets("adat").Cells(sor, 1))
  ar = WorksheetFunction.VLookup(tiszta, Sheets("forras").Range("A1:B" & lastrow), 2, False)
  Sheets("adat").Cells(sor, 2) = ar
  Next
  End Sub

• bteebi veterán

  2015-12-07 11:13:50 #29728

  Új Válasz

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Van egy Excel file két munkalappal ("adat" és "forras"), az "adat" munkalapra szeretnék másolni a "forras" lapról úgy, hogy az "adat" 1. oszlopában lévő érték alapján bemásolok a 2. oszlopba egy értéket a "forras" lap 2. oszlopából, amihez az FKERES-t használnám. Mindkét munkalapon változó nagyságú tartomány van, viszont az "adat" 1. oszlopában szereplő érték a "forras" 1. oszlopában biztos, hogy megtalálható (és csak egyszer).

  Sub kivalaszt()
  Dim ar As String, lastrow As Integer, lr As Integer, sor As Integer
  lastrow = Sheets("forras").UsedRange.Rows.Count
  lr = Sheets("adat").UsedRange.Rows.Count
  For sor = 2 To lr
  ar = WorksheetFunction.VLookup(Sheets("adat").Cells(sor, 1), Sheets("forras").Range("A1:B" & lastrow), 2, False)
  Sheets("adat").Cells(sor, 2) = ar

  Erre run-time errort kapok (1004): "WorksheetFunction osztály VLookup tulajdonsága nem érhető el." Vajon mi lehet a hiba? Előre is köszönöm a segítségeteket!

• MCGaiwer addikt

  2015-12-07 11:12:56 #29727

  Új Válasz

  Ú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

  

  MCGaiwer

  addikt

  válasz Fferi50 üzenetére #29726

  Szia, anonimizáltam.

  Onedrive_share

  (nekem vmiért nem sikerül normálisan, de valószínűleg csak én vagyok a béna)

• Fferi50 Topikgazda

  2015-12-05 22:37:39 #29726

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz MCGaiwer üzenetére #29725

  Szia!

  Azért megmutatnád fals adatokkal, hátha mégis tudunk vele kezdeni valamit. Mert látatlanban biztosan nem fog menni...

  Üdv.

• MCGaiwer addikt

  2015-12-05 20:46:19 #29725

  Új Válasz

  Ú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

  

  MCGaiwer

  addikt

  válasz Fferi50 üzenetére #29724

  úgy van felépítve a táblázat, hogy nem igazán tudom normálisan összerakni a kimutatást.

• Fferi50 Topikgazda

  2015-12-05 19:41:38 #29724

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  válasz MCGaiwer üzenetére #29723

  Szia!

  "Egy olyan kimutatást kellene csinálnom, ami gombnyomásra összesíti az adott ember egész éves munkanapjait, és mutatja, hogy bizonyos hónapokban mennyit volt távol."

  Próbálkoztál már a kimutatással? Nagyon sokféle lehetőséget rejt magában. Excel verzió függő a varázsló, de mindegyikben van (legalábbis 2010-ig).
  Oldal mezőnek (vagy szűrőnek) felvenném a dolgozók nevét tartalmazó oszlopot.
  Oszlopcimke az év, a hónap és a nap.
  Lehet, hogy előtte a "fejléc" sorokat 3 szintűvé kellene tenni az előzőek szerint.

  De ha felteszel valahova egy pár soros kitalált neveket tartalmazó táblát, biztosan lesz, aki gyakorlati példát is csinál számodra.

  Üdv.

• MCGaiwer addikt

  2015-12-05 18:37:32 #29723

  Új Válasz

  Ú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

  

  MCGaiwer

  addikt

  válasz MCGaiwer üzenetére #29581

  [link]

  hát végül nem sikerült boldogulnom a dologgal. Esetleg van bárki, aki bevállalná egy anonimizált táblával (vagy ha nem is megcsinálni, legalább ránézni, hogy értse mire lenne szükség)

• karlkani aktív tag

  2015-12-05 14:39:41 #29722

  Új Válasz

  Ú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

  

  karlkani

  aktív tag

  válasz Maximusz üzenetére #29721

  Pedig Delila_1 jól írja. A "végeredmény" formázását [m],000 vagy [S],000 adnám meg, program nyelvétől függően (előbbi magyar, utóbbi angol nyelvű excel esetén). Hülyén néz ki a 00,965 másodperc eredményként...

• Maximusz aktív tag

  2015-12-05 12:39:27 #29721

  Új Válasz

  Ú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

  

  Maximusz

  aktív tag

  válasz Delila_1 üzenetére #29720

  köszönöm! - a szoszás -szerintem- mégis kell, mert másodpercben szeretném visszakapni a különbségeket, egy törtszámként.

• Delila_1 veterán

  2015-12-05 11:23:36 #29720

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Maximusz üzenetére #29719

  Nem kell szorozgatni. A képletet tartalmazó cella legyen A2-A1, a formátuma pedig [mm],000

  Angol verziónál a vessző helyett pontot írj.

• Maximusz aktív tag

  2015-12-05 11:19:03 #29719

  Új Válasz

  Ú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

  

  Maximusz

  aktív tag

  válasz Maximusz üzenetére #29718

  persze zárójelben van a képlet

  =(A2-A1)*86400

  ami a hibát okozhatja a tized másodperc - de se vesszővel, se ponttal nem működik

• Maximusz aktív tag

  2015-12-05 10:57:18 #29718

  Új Válasz

  Ú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

  

  Maximusz

  aktív tag

  Sziasztok!

  egy elég alap dolog okoz fennakadást számomra, és az a dühítő, hogy nem tudom mi lehet a gond.

  A feladat:

  A1-es cellában egy időpont: 09:33:33.912
  A2-es cellában egy másik időpont: 09:33:34.877

  a kettő közötti különbségre lenne szükségem másodpercben, de a "=A2-A1*86400" nem működik - szerintetek mivel tudnám ezt megoldani?

  köszi

• sztanozs veterán

  2015-12-04 16:14:20 #29717

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz cs_dy üzenetére #29716

  Mi ez a kígyó kód? Hibák:
  1) használj kód beillesztést
  2) miért nem FOR cilkust használsz
  3) miért kell hátul tesztelni (igazából nem is hátul, hanem ciklusban, ha elöl is tesztelsz
  4) mindent letesztelsz mindennel. Vsz az a probléma, hogy az utolsó tesztelés nem ad vissza semmit, mivel a j. (jé-edik) mezőbe rakod a megjegyzést, nem az i.(í-edik) mezőbe.
  5) Dim i, j As Integer - ez csak a j változót deklarálja Integerre, i az Variant lesz.

  Sub Makró_hasonlító()
  Dim i, j
  For i = 2 To 833
  Do
  For j = 2 To 833
  If (Cells(i, 1).Value = Cells(j, 6).Value) And (Cells(i, 2).Value = Cells(j, 7).Value) Then
  Range("I" & i).Value = "Van egyezés"
  Exit Do
  End If
  Next
  Loop While False
  Range("I" & i).Value = "Nincs egyezés"
  Next
  End Sub

• cs_dy tag

  2015-12-04 14:03:29 #29716

  Új Válasz

  Ú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

  

  cs_dy

  tag

  Sziasztok!

  Adott egy makró és adatbázis. Az adatbázis:
  1. és a 3. oszlopban: pl nevek szerepelnek: De eltérnek.
  a 2 és a 4-es oszlopban számok szerepelnek: pl. a nevekhez tartozó nyeremény

  A különbséget akarom megtalálni. Ez a kód lefut de egyenlőre nem csinál semmit. A Cells-ek helyett a Range-el mindenhova "Nincs egyezést" tett.

  Mi lehet a megoldása?

  Köszönöm előre is a segítséget.

  Sub Makró_hasonlító()
  Dim i, j As Integer
  i = 2
  j = 2
  Do Until j >= 883
  Do Until i >= 883
  If (Cells(i, 1).Value = Cells(j, 6).Value) And (Cells(i, 2).Value = Cells(j, 7).Value) Then
  Range("I" & j).Value = "Van egyezés"
  Else: Range("I" & j).Value = "Nincs egyezés"
  End If
  j = j + 1
  If j >= 883 Then
  Exit Do
  End If
  Loop
  j = 2
  i = i + 1
  If i = 883 Then
  Exit Do
  End If
  Loop
  End Sub

• Delila_1 veterán

  2015-12-04 13:31:30 #29715

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz lizakattila üzenetére #29714

  Az

  If Target.Column <> 2 Then Exit Sub

  sorban a 2 helyett írj 15-öt, és a

  Target.Offset(0, -1).Value = Now()

  sorban a -1 helyett -14-et.

• lizakattila senior tag

  2015-12-04 12:48:05 #29714

  Új Válasz

  Ú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

  

  lizakattila

  senior tag

  Sziasztok!

  Kicsit visszakeresve megtaláltam a számomra megfelelő megoldást (egy makró formájában, aminek a lényee, hogy, ha egy adott oszlop adott sorában lévő cellát kitöltök, akkor az A oszlop ugyanazon sorába írja be a most függvényt, és azt ne frissítse):

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 2 Then Exit Sub
  If Target.Value <> "" Then
  Application.EnableEvents = False
  Target.Offset(0, -1).Value = Now()
  Application.EnableEvents = True
  End If
  End Sub

  A kérdésem az lenne, hogy ebben mit kell módosítanom, ha azt akarom, hogy az "A" oszlopba akkor írja be a most függvényt, ha az "O" oszlopban lévő cellába írok be értéket?

• Miv tag

  2015-12-04 11:57:10 #29713

  Új Válasz

  Ú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

  

  Miv

  tag

  válasz sztanozs üzenetére #29712

  Nagyon szépen köszönöm! Tökéletes!

• sztanozs veterán

  2015-12-04 11:34:16 #29712

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz Miv üzenetére #29711

  Makróval a legegyszerűbb:
  Sub Feltolt()
  Dim s As Worksheet
  Dim r(), ix
  ReDim r(1 To ActiveWorkbook.Worksheets.Count, 1 To 2)
  ix = 1
  For Each s In ActiveWorkbook.Worksheets
  If s.Type = xlWorksheet Then
  r(ix, 1) = s.Name
  r(ix, 2) = s.Cells(1, 1).Value2
  ix = ix + 1
  End If
  Next
  Set s = ActiveWorkbook.Worksheets.Add(Before:=ActiveWorkbook.Worksheets(1))
  s.Range(s.Cells(1, 1), s.Cells(ActiveWorkbook.Worksheets.Count - 1, 2)).Value2 = r
  End Sub

• Miv tag

  2015-12-04 11:22:12 #29711

  Új Válasz

  Ú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

  

  Miv

  tag

  Sziasztok!

  Adott egy kb. 100 munkalapot tartalmazó fájl. A feladatom az lenne, hogy egy új munkalapra kilistázzam a munkalapok nevét, és mindegyik mellé odaírjam pl. az adott munkalap A1-es cellájának az értékét.
  Ez így elég ködös, de magyarázom: a munkalapok a dolgozók nevei, rajtuk a jelenléti ívük. Szeretnék egy listát, amin rajta lenne a dolgozók neve (=a munkalap neve), mellette pedig a jelenléti ívén lévő óraszám szumma cellájának (pl. A1 cella) értéke.
  Megoldható valahogy? Nem igazán tudom, merre induljak el, amikor nem csak egy konkrét munkalappal akarok dolgozni, hanem sorba kellene venni az összeset, aminek nem tudom a nevét...

  Minden segítséget köszönök!
  miv

• m.zmrzlina senior tag

  2015-12-04 11:03:22 #29710

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz sztanozs üzenetére #29708

  Köszi. Ezt a módszert eddig nem ismertem.
  

• csongi veterán

  2015-12-04 11:00:08 #29709

  Új Válasz

  Ú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

  

  csongi

  veterán

  válasz m.zmrzlina üzenetére #29705

  
  sztanozs

• sztanozs veterán

  2015-12-04 10:39:40 #29708

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz m.zmrzlina üzenetére #29706

  Adj hozzá egy E oszlopot (E1):
  =(C1>"")*4+(D1>"")*2
  és rakd az alábbi sorrendbe
  E - csökkenő számsorrend
  C - A -> Z
  D - A -> Z

• sztanozs veterán

  2015-12-04 10:33:21 #29707

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  válasz csongi üzenetére #29704

  Ennyi csoportnál szerintem már inkább choose:
  =G18*CHOOSE(INT(LEFT(H22,2))/2,F7,F8,F9)

  vagy Offset:
  =G18*OFFSET(F7,(INT(LEFT(H22,2))/2)-1,0,1,1)

• m.zmrzlina senior tag

  2015-12-04 10:25:44 #29706

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  Az alábbi tartományt szeretném rendezni a következőképpen. Legfelülre azok a sorok melyeknél C és D oszlopban is van adat, alá ahol csak a C oszlopban van adat, legalulra ahol csak a D oszlopban van adat.

  Hogy lehet ezt legegyszerűbben megoldani?

  

• m.zmrzlina senior tag

  2015-12-04 10:21:40 #29705

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz csongi üzenetére #29704

  =HA(H22="2.csoport";G18*F7;HA(H22="4.csoport";G18*F8;HA(H22="6.csoport";G18*F9;"")))

• csongi veterán

  2015-12-04 10:05:38 #29704

  Új Válasz

  Ú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

  

  csongi

  veterán

  Sziasztok!
  Az alábbit szeretném megoldani.

  B1 cellába számoltatni
  Ha h22= 2.csoport akkor g18*f7, ha h22= 4.csoport akkor g18*f8, ha h22= 6.csoport akkor g18*f9

  Köszönöm!

• Delila_1 veterán

  2015-12-04 07:57:50 #29703

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Batistuta7 üzenetére #29702

  Ha jól értem, az első lapra írod be az AC oszlopba a napi állásidőt az egyes gépekhez. Ezeket kell összesíteni a második lapon, ahol az A oszlop tartalmazza a gépek nevét, az első sor pedig a hét napját.

  Fontos, hogy a 2 lapon megegyezzen a gépek neve, tehát ha az első lapon P1 a név, a másodikon is az legyen, nem 1.

  Az első laphoz rendeltem egy eseményvezérelt makrót. Mikor beírod egy géphez az állásidőt, a második lapon a megfelelő géphez, és az aktuális naphoz beírja az értéket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim WSO As Worksheet, sor, oszlop As Integer
  
  Set WSO = Sheets("Összesítés")
  If Target.Column = 29 And Target > "" Then
  sor = Application.Match(Cells(Target.Row, 1), WSO.Columns(1), 0)
  If VarType(sor) = vbError Then
  sor = Application.Match(Cells(Target.Row - 1, 1), WSO.Columns(1), 0)
  End If
  oszlop = Application.Weekday(Date, 2) + 1
  WSO.Cells(sor, oszlop) = WSO.Cells(sor, oszlop) + Target
  End If
  End Sub

  A második lap J oszlopába betettem egy összesítést.
  Nézd meg a csatolt füzetben a cellaformázást az első lap AC; valamint a második lap B:H és J oszlopában.

• Batistuta7 tag

  2015-12-03 18:41:59 #29702

  Új Válasz

  Ú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

  

  Batistuta7

  tag

  Sziasztok

  Kis segítséget szeretnék kérni.
  Egy üzembe csináltam egy folyamatnaplót. Az utolsó oszlopban szeretném felvinni mindig az aktuális műszakban a gépek állásidejét. Olyan megoldásra gondoltam hogy ha az állásidő celléjára rákattintok és amit oda beírok az megjelenik ott plusz a kettes munkalapon megjelenik nap szerint egy másik táblázatban is, amiből rögtön egy diagramot is tudnék csinálni.Minden meg tudok csinálni , csak azt nem hogy hogy kell egy olyat cellát létrehoznom amibe ha beírok egy értéket akkor azt a másik munkalapra átírja a megfelelő nap megfelelő sorába.
  linkelem a képeket ,úgy érthetőbb mit szeretnék.
  előre is köszönöm a segítséget.
  1
  2

• m.zmrzlina senior tag

  2015-12-03 16:27:25 #29701

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  válasz coldfirexx üzenetére #29700

  Szerintem a modulodnak amiben a kódod van az a neve, hogy "valasz". A kódban pedig van egy változó ugyanilyen néven.

  Valamelyiket nevezd át!

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