Keresés

Csak ehhez buta az Excel. Ő csak 1 egész és 14 tizedesjegy pontossággal tud számokat tárolni. Így ha beírsz egy 24 számjegyű számot, akkor ő azt átformázza tudományossá és úgy tárolja el. A végét pedig egész egyszerűen lecsapja.

Vagy azt csinálod meg, amit a makród is félig meddig csinál már, hogy szövegként tárolod el és átformázod (ez lehet teljesen automatikusan is, csak kell bele tenni hibakezelést. Van olyan makró, ami a munkalap változásakor lefut automatikusan. Azt kell jól felparaméterezni, hogy csak akkor fusson le, ha azok a cellák változtak, ahol bankszámlaszám bevitel történik. Valamint, hogy ha mondjuk rossz a formátum, akkor se fusson le.). Vagy mondjuk 3 cellában viteted be az adatokat és a megfelelő helyre szövegként összefűzve kerül már be.

Itt jegyezném meg, hogy a 12345678-654-127 is érvényes bankszámlaszám formátum. Ugyanis a 8-as csoportoknál a kezdő nullákat nem kötelező kiírni. Ezt legjobban az OTP-s bankszámlaszámoknál figyelhető meg, ahol az esetek nagy részében az utolsó 8-as csoport csak nullákból áll, így egyáltalán nem szokták kiírni. Ezzel kapcsolatban volt egyszer vitám is volt kolléganőmmel. Kaptunk egy szerződést PDF formátummal, ahol különböző formázások be voltak állítva a beviteli mezőkbe. Nem lehetett neki megmagyarázni, hogy a bankszámlaszámunknak nincs semmi baja attól, hogy a középső blokkban a kezdő nullákat eltüntette a dokumentum. Így inkább kinyomtatta, ráírta pluszban tollal, majd visszascannelte...

ÓÓÓ basszus és tényleg működik ha bepipálom a formázást, erről a lehetőségről teljesen megfeledkeztem. Köszi a tippet :)

Szia!
Nyilván a jelszó nem kötelező, akkor a Password paramétert egyszerűen elhagyod.

Ami a másik makró működését illeti: Ha zároláskor nem tiltod azt, amit az a makró végez - vagyis a felhasználó is megtehetné - akkor a makró is meg tudja tenni. 

Zároláskor alapból a cellák formázása nincs megengedve a felhasználónak:

Ha megengeded a formázást, akkor a formázó makród is működni fog zárolás esetén is.

Üdv.

Azt elfelejtettem mondani, hogy nem kellene jelszót kezelni a lapvédelemhez, csak jelszó nélkül lenne "levédve" a véletlen törlések ellen.

Megnyitási jelszó lenne rajta csak, de az nem hiszem, hogy befolyásolja a futást feloldás után.

Amúgy érdekes, mert egy másik makro is van a lapon és az tökéletesen működik lapvédelemmel is. (annyira nem értek a makróhoz, hogy tudjam, miért működik az egyik és a másik miért nem) :)

Szövegként tárolni azért nem jó megoldás, mert nem lehet közé tenni automatikusan a kötőjelet. Konkrétan ez lenne a feladat, hogy ha 24 szám van egy mezőben akkor tegyen 8 karakterenként egy kötőjelet. Szöveg formátumnál ez felejtős.

Szia!

A lapvédelmet makróval kapcsold be és használd a UserInterfaceOnly paramétert.

A Thisworkbook kódlapjára a megnyitás eseménybe kell beírnod, pl.

Private Sub Workbook_Open()
Sheets("Munka1").Unprotect Password:="Jelszó"
Sheets("Munka1").Protect Password:="Jelszó", Userinterfaceonly:=True
End Sub

Azért kell először feloldani, hogy a Userinterfaceonly paramétert meg tudd adni a zároláshoz. 

Ez a paraméter True módban teszi lehetővé, hogy a makrók futhassanak a zárolt munkalapon is.

Mindaddig érvényben marad, amíg valamilyen módon fel nem oldod a zárolást, illetve bezárás utáni újranyitáskor "elfelejti" az alkalmazás, ezért kell a nyitáskor lefuttatni.

Érdemes átnézni a Worksheet.Protect utasításhoz kapcsolódó Helpet, mert abban részletesen le van írva, milyen paraméterekkel mit tudsz tiltani. Lehetséges, hogy a zárolási utasításban más paramétereket is meg kell adnod ahhoz, hogy az általad kívánt korlátozások érvényesüljenek.

Remélem, ez segít.

Üdv.

Miért nem állítod be előre azt a néhány cella formátumát szövegre és akkor nem kellene a makrónak?

Illetve makróval fel lehet oldani a lapvédelmet és ismét vissza lehet kapcsolni. Ebben mondjuk az a veszély, hogy ha a feloldás után, de a vissza kapcsolás előtt valamiért leáll a makró, akkor kikapcsolva marad a lapvédelem.

Telefonon én 15 számos korlátba futottam bele. Egyszerűen nem kezel 15 számjegynél nagyobb számokat... Így szerintem marad a szövegként való tárolás.

Szeretném azt megoldani, hogy ha egy cellába beírok egy számsorozatot, ami 24 szám, azt formázza úgy meg, mintha egy bankszámlaszám lenne tehát 8 karakterenként tegyen egy kötőjelet.

De ugye 15 karakter után átvált az excel "tudományos" szám formátumra és nem jeleníti meg megfelelően a számokat. Aposztrófos megoldás sem jó.

Nem találtam semmilyen megoldás erre, ha esetleg tudtok valami megoldást az jó lenne (anélkül, hogy bármi mást kellene tenni azon kívül, hogy beírjuk a 24 számot, mert "nem excel használók" fogják kezelni)

Maradt a makrós megoldás, ez működik, de ha bekapcsolom a lapvédelmet, (ami szükséges) akkor hibaüzivel leáll ( range osztály NumberFormat tulajdonsága nem állítható be) még akkor sem ha amúgy nincs zárolva az adott mező.

Tudtok segíteni valahogy megoldani a problémát, akár makrós, akár nem makrós módon ? 

Ez a makró:

validCells = Array("E60", "E65", "E70", "E75", "E80", "E85")

For Each cell In Target
 For i = LBound(validCells) To UBound(validCells)
  If cell.Address(False, False) = validCells(i) Then
   raw = Replace(cell.Value, "-", "")
   If Len(raw) = 24 And IsNumeric(raw) Then
      Application.EnableEvents = False
      cell.NumberFormat = "@" ' Szöveg formázás
      cell.Value = Left(raw, 8) & "-" & Mid(raw, 9, 8) & "-" & Right(raw, 8)
      Application.EnableEvents = True
    End If
    Exit For
  End If
 Next i
Next cell

Köszi

Szerintem nem szükséges törölni.

Az emberi problémamegoldás ilyen:

Amint megfogalmazod a problémát másnak, felteszel egy kérdést kicsit másképp, máris kicsit máshogy gondolod végig és közelebb kerülsz a megoldáshoz.

Ez így teljesen rendben van.

Itt kérd: https://forum.index.hu/Article/showArticle?t=9111587

Nem tudom, hogy miként lehet törölni az előző hozzászólásomat.

Végül is megoldottam a feladatot, két nap vergődés után. Én hibáztam.

M.

Sziasztok!

Microsoft 365-öt használok, sokat dolgozok Excel-ben.
Van egy most úgy 380.000 soros adatbázisom, amihez évek óta havonta úgy 12.000 sor jött hozzá. Az oszlopok száma úgy 20 db.
A legutóbbi frissítéskor az egyik oszlopban olyan értékek bukkantak fel, amelyeknek nem kellene ott lenniük.
Nyitottam új munkafüzetet, bemásoltam a nagyobb adatbázis kritikus oszlop eredeti értékeit érték másolással, majd egy másik munkalapra a frissítés oszlopát ugyanígy.
Szűrővel megvizsgáltam mindkét állományt, és az értékek rendben voltak. Utána mindkettőben szortoltam, és kiszűrtem az ismétlődő értékeket, és így is rendben volt minden.
Egy harmadik munkalapra újra bemásoltam az eredeti oszlopot, megint értékkel, és alul hozzá toldottam a frissítést ugyanúgy.
Szűrővel megvizsgáltam a megnövekedett állományt, és találtam benne egy olyan értéket, amely egyik korábbiban sem szerepel, viszont az eredeti nagy táblában megtalálható, egy másik oszlopban. A vizsgált, teljesen új munkafüzetbe azonban csak a kritikus oszlopokat másoltam be.
Az oszlopok másolgatásakor nagyon körültekintő voltam. Minden alkalommal csak max két fájl volt nyitva, és a gépet is többször újraindítottam, mert tapasztalatom szerint itt-ott szokott maradni szemét.
Módszert változtattam. A két oszlopot lementettem külön csv fájlba, majd egy közös fájlban megvizsgáltam. Külön-külön egyikben sem volt semmi más, csak aminek ott kellett lennie. Amint összeraktam a kettőt, megint felbukkant a felesleges érték.
Itt kapok fejlövést, mert ez lehetetlen. Normális körülmények között. Na de most vajon mi a helyzet? Tud valaki segíteni?

Köszi!

Szia!

Nem ártana, ha egy mintán megmutatnád, mi a kiindulási állapot és mit szeretnél elérni.

 "a sorokban lévő számsorok utolsó értékeit összeadni pl. 1,12 és abban a sorban a következő sámsor utolsó értékét a 1,07-et."

Ez mit akar jelenteni, ugyanabban a sorban van több számsor, üres cellákkal elválasztva? vagy hogy?

Üdv.

Szia!

Szóval van egy csomó sorod egy adott oszlopban és azt akarod összeadni? Vagy van egy csomó sorod és véletlenszerű, hogy mely oszlopokban van vége a számoknak?

Ha esetleg egy képernyőképet közzé teszel, az sokat segítene.

Sziasztok

gondban vagyok, nem találok rá megoldást. 

szeretném a sorokban lévő számsorok utolsó értékeit összeadni pl. 1,12 és abban a sorban a következő sámsor utolsó értékét a 1,07-et.

VAgy pl. az alatta lévőt 1,18-at és a 1,17-et. 

Tudna valaki egy egyszerűbb megoldást erre?

Előre is köszi

Köszönöm!

Tökéletesen működik, nagyon köszönöm !!

Az is igaz, hogy longlong csak 64 bites környezetben létezik a 2010-es officetól.

long max: 2,147,483,648 (azaz long esetén 2 milliárd felett picivel túlcsordulás van és akkor nem fut végig a számol 999.999.999.999-ig)

longlong max: 9,223,372,036,854,775,807

Ha valaki szereti a kihívásokat, akkor meg lehetne írni, hogy működjön tört számokkal is :D 

Gyors ötletelés fejben:

Ketté kellene szedni az alap számot. A fix() függvény megadja az egész részt. A "tort=szam-fix(szam)" pedig megadja a tört részt.

Ha tort > 0, akkor ki kellene írni az egész rész után, hogy "egész" és utána a "tort" részt meg kellene szorozni annyival, hogy egészt kapjunk.

Ezt én úgy csinálnám, hogy az alap számot ("szam") én decimal-lá konvertálnám. Így nem lebegőpontosan van tárolva. Ezután képezném belőle a "tort" számot.

for i = 1 to 12

if fix(tort*10^i)/10^i = tort then

exit for

end if

next i

tort = fix(tort*10^i)

És így, ha nem rontottam el semmit, akkor a "tort" számunk már egy olyan szám, ami a tizedes jegyeket tartalmazza már csak úgy, hogy megszoroztuk tíz legkisebb hatványával, hogy egészet kapjunk.

Ezután már csak végig kellene rajta futtatni ugyan azt mint az egész részén annyi különbséggel, hogy a legnagyobb helyiértéknek megfelelően ki kellene írni a legvégére pluszban, hogy tized, század, ezred, tízezred, stb... közül a megfelelőt.

2007-es Excelben elég egy "Long" --> Function szambetuvel(szam As Long)

Zseniális, törlöm is a másikat!

Amíg én megírtam a szerző fájlja által a makrót, addig te közzé is tetted azt. Mindegy, ha már dolgoztam vele, akkor itt az én verzióm:

Option Explicit

Function szambetuvel(szam As LongLong)
If (szam > 999999999999#) Or (szam < -999999999999#) Then
szambetuvel = "hiba"
Exit Function
End If
If szam = 0 Then
szambetuvel = "nulla"
Exit Function
End If
If szam < 0 Then
szambetuvel = "mínusz "
Else
szambetuvel = ""
End If
Dim szamformazva, szam1, szam10, szam100 As String
szamformazva = WorksheetFunction.Text(Abs(szam), "000000000000")
szam1 = Mid(szamformazva, 3, 1)
szam10 = Mid(szamformazva, 2, 1)
szam100 = Mid(szamformazva, 1, 1)
If szam1 > 0 Or szam10 > 0 Or szam100 > 0 Then
szam100 = szam_szaz(CStr(szam100))
szam10 = szam_tiz(CStr(szam10), CStr(szam1))
szam1 = szam_egy(CStr(szam1))
szambetuvel = szambetuvel & szam100 & szam10 & szam1 & "milliárd"
If Mid(szamformazva, 4, 1) > 0 Or Mid(szamformazva, 5, 1) > 0 Or Mid(szamformazva, 6, 1) > 0 Or _
Mid(szamformazva, 7, 1) > 0 Or Mid(szamformazva, 8, 1) > 0 Or Mid(szamformazva, 9, 1) > 0 Or _
Mid(szamformazva, 10, 1) > 0 Or Mid(szamformazva, 11, 1) > 0 Or Mid(szamformazva, 12, 1) > 0 Then
szambetuvel = szambetuvel & " - "
End If
End If
szam1 = Mid(szamformazva, 6, 1)
szam10 = Mid(szamformazva, 5, 1)
szam100 = Mid(szamformazva, 4, 1)
If szam1 > 0 Or szam10 > 0 Or szam100 > 0 Then
szam100 = szam_szaz(CStr(szam100))
szam10 = szam_tiz(CStr(szam10), CStr(szam1))
szam1 = szam_egy(CStr(szam1))
szambetuvel = szambetuvel & szam100 & szam10 & szam1 & "millió"
If Mid(szamformazva, 7, 1) > 0 Or Mid(szamformazva, 8, 1) > 0 Or Mid(szamformazva, 9, 1) > 0 Or _
Mid(szamformazva, 10, 1) > 0 Or Mid(szamformazva, 11, 1) > 0 Or Mid(szamformazva, 12, 1) > 0 Then
szambetuvel = szambetuvel & " - "
End If
End If
szam1 = Mid(szamformazva, 9, 1)
szam10 = Mid(szamformazva, 8, 1)
szam100 = Mid(szamformazva, 7, 1)
If szam1 > 0 Or szam10 > 0 Or szam100 > 0 Then
szam100 = szam_szaz(CStr(szam100))
szam10 = szam_tiz(CStr(szam10), CStr(szam1))
szam1 = szam_egy(CStr(szam1))
szambetuvel = szambetuvel & szam100 & szam10 & szam1 & "ezer"
If Abs(szam) > 2000 And (Mid(szamformazva, 10, 1) > 0 Or Mid(szamformazva, 11, 1) > 0 Or Mid(szamformazva, 12, 1) > 0) Then
szambetuvel = szambetuvel & " - "
End If
End If
szam1 = Mid(szamformazva, 12, 1)
szam10 = Mid(szamformazva, 11, 1)
szam100 = Mid(szamformazva, 10, 1)
If szam1 > 0 Or szam10 > 0 Or szam100 > 0 Then
szam100 = szam_szaz(CStr(szam100))
szam10 = szam_tiz(CStr(szam10), CStr(szam1))
szam1 = szam_egy(CStr(szam1))
szambetuvel = szambetuvel & szam100 & szam10 & szam1
End If

End Function

Private Function szam_egy(szam As String)
Select Case szam
Case "0"
szam_egy = ""
Case "1"
szam_egy = "egy"
Case "2"
szam_egy = "kettő"
Case "3"
szam_egy = "három"
Case "4"
szam_egy = "négy"
Case "5"
szam_egy = "öt"
Case "6"
szam_egy = "hat"
Case "7"
szam_egy = "hét"
Case "8"
szam_egy = "nyolc"
Case "9"
szam_egy = "kilenc"
End Select
End Function

Private Function szam_tiz(szam As String, szam2 As String)
If szam2 > 0 Then
Select Case szam
Case "0"
szam_tiz = ""
Case "1"
szam_tiz = "tizen"
Case "2"
szam_tiz = "huszon"
Case "3"
szam_tiz = "harminc"
Case "4"
szam_tiz = "negyven"
Case "5"
szam_tiz = "ötven"
Case "6"
szam_tiz = "hatvan"
Case "7"
szam_tiz = "hetven"
Case "8"
szam_tiz = "nyolcvan"
Case "9"
szam_tiz = "kilencven"
End Select
Else
Select Case szam
Case "0"
szam_tiz = ""
Case "1"
szam_tiz = "tíz"
Case "2"
szam_tiz = "húsz"
Case "3"
szam_tiz = "harminc"
Case "4"
szam_tiz = "negyven"
Case "5"
szam_tiz = "ötven"
Case "6"
szam_tiz = "hatvan"
Case "7"
szam_tiz = "hetven"
Case "8"
szam_tiz = "nyolcvan"
Case "9"
szam_tiz = "kilencven"
End Select
End If
End Function

Private Function szam_szaz(szam As String)
Select Case szam
Case "0"
szam_szaz = ""
Case "1"
szam_szaz = "száz"
Case "2"
szam_szaz = "kétszáz"
Case "3"
szam_szaz = "háromszáz"
Case "4"
szam_szaz = "négyszáz"
Case "5"
szam_szaz = "ötszáz"
Case "6"
szam_szaz = "hatszáz"
Case "7"
szam_szaz = "hétszáz"
Case "8"
szam_szaz = "nyolcszáz"
Case "9"
szam_szaz = "kilencszáz"
End Select
End Function

Ezt modulba kell menteni és akkor munkafüzetből meghívható a "szambetuvel" függvény.

1.) Nem az enyém, én csak találtam!

2.) Miként a 38512-ben írtam képletekkel dolgozik. A makró arra kell majd, hogy az ábra szerinti bemenetre rakja a számokat, és az eredményt kimenetből átrakja a neked megfelelő helyre.

3.) A régi verzióban a szerző erre tökéletes példákat is adott. Gondolom azzal, hogy közzéteszem a régit, semmi tilalmast nem teszek.

Próbáltam a makrót elkészíteni de rengeteg hibával küzdök (az AI sem tud segíteni, legalább is a problémát nem tudja megoldani) :) De a tiédben működik minden ahogy nézem. 

Ha van rá lehetőség akkor kód szinten megkaphatom a makrót, mert be kellene illesztenem egy másik fájlba.

Köszönöm!

Köszönöm, megkaptam. Ezek már valóban többet árulnak el. Majd holnap alaposabban tanulmányozom.

Mail ment

Közben rájöttem, hogy nekem egy régi verzióm van, 3 munkalapos. A webes címet Google alapján adtam meg, de nem néztem meg a mostani fájlt.

Ezért beszéltünk el egymás mellett.

A működése azonos a kettőnek, nem makró, képletek adják az eredményt.

(A munkalapon elrejtve található a táblázat.)

Ez a régi verzióban külön munkalap volt. A mostani minden "beavatkozás" nélkül tényleg nem használható.

Jelszó nélkül már jó.

Nem ígérem, hogy még ma éjjel, de valamelyik nap ránézek az egész fájlra.

xls fájl helyesen xml

Én lassan kezdem feladni. A lapvédelmet sikerült feloldanom, de ez nem változtatott semmit a megjelenésen. Ugyanúgy nem látszik semmi a megoldás részleteiről.

Még egy dolgot találtam, ami érdekes lehet, de azzal végképp nem tudok mit kezdeni. Amikor kibontottam a fájlt és töröltem a lapvédelmet, akkor rákantintottam az xls fájlra (https://drive.google.com/file/d/14RBH4QPLWnoR8Em8-bz3GvRRsfDoi094/view?usp=sharing), akkor megjelent egy kód, ami lehet, hogy a kulcsa a fájl használatának, csak ezt én már nem ismerem.

https://stackoverflow.com/questions/1026483/is-there-a-way-to-crack-the-password-on-an-excel-vba-project

(Új Excelben nem tudom milyen, 2007-ben működik.)

(Enyim 2007-es Office)

Jelszót nem kell megadni, csak ütsz egy entert.

azt a táblázatot, simán átmásolod egy üres Excel-be, és a másik munkalapon van a

a hivatkozás (a "14" és a "=Munka2!D21) a másik munkalapon. (értelemszerűen, én a D! cellán állva illesztettem be)

Egy lapvédelmet kb. fél perc törölni. Makró védelmet még sohasem próbáltam törölni, de gondolom az sem lehet bonyolultabb.

Nem árulok el azzal nagy titkot, ha azt mondom, hogy az xlsx formátum egy tömörített formátum. Így átnevezés után kicsomagolható. A kicsomagolt fájlok közül meg kell keresni a problémásat (talán sheet1, sheet2, ... elnevezéssel szerepelnek) és sima egyszerű jegyzettömbbel kell megnyitni. Majd meg kell keresni benne a jelszavas védelem hash kulcsát és nemes egyszerűséggel ki kell belőle törölni. Ha Notepad++-al nyitod meg, akkor jelzi is kulcsot tartalmazó elem végét is, ha pont az elejére állsz, mert sima xml (ha jól emlékszem) a kiterjesztés és azt tudja alapból.

Nem vagyok gép előtt, ezért nem tudom most fejből, pontosan melyik xml részt is kell törölni.

Anno volt egy-két partnerünk, aki az aktuális árjegyzékét mindig jelszavas védelemmel látta el és nem lehetett benne semmit sem kijelölni. Így viszont elég macerás volt átvenni az árakat képlettel. Így elég hamar tökélyre fejlesztettem a jelszó törlő képességemet. Ha tudja az ember, hogy mit keres, akkor nagyon hamar megtalálja az xml-ben és tényleg nem több fél percnél a kicsomagolástól számítva az ismét excellel megnyitható jelszó mentes fájlig.

Arra már nem emlékszem, hogy erre valamikor magamtól jöttem-e rá vagy úgy olvastam valahol.

Tavaly jártam egy szakmai továbbképzésre, aminek nagy része e-learning volt. A tananyagokat pdf formátumban osztották meg velünk One driveon keresztül. 7 fájlból 4-nél le volt tiltva a megnyitáson kívül minden (mentés, nyomtatás, kijelölés, stb...). Ekkor viszont eszembe jutott, hogy még a WIN98-as vagy korai XP-s időszakban, amikor marha lassú volt otthon a netünk, hogyan töltöttem le youtube-hoz hasonló videó megosztókról filmeket. Ugyan azzal a módszerrel simán le lehetett menteni one driveról is a pdf tananyagot. Ha érdekel, akkor e-mailben megírom. Ez egy olyan módszer, ami nem visszakövethető és több mint negyed évszázada működik nekem.

Köszönöm, ezt ismerem, eddig eljutottam, nekem is működik. Csak a feloldás módja érdekelt volna. Sőt azon a honlapon egy sor érdekes megoldás van, amik kipróbálhatók, de nem elérhetők a megoldások. 
Ezért remélem, hogy m54-b barátunknak van korábbi - nem védett - verziója.

Köszönöm!

Rendben, köszönöm!

Szia!

Nekem 0365 van, a letöltés után a fájlon állva jobb egérgomb - tulajdonságok - alul a tiltás feloldása kocka bepipálva. Utána megnyitva és működik: Csak a sárga cellába (G5) tudsz írni számot és lent kiírja szöveggel.

Nincs cursor, minden más le van tiltva.

Így valóban nem sok hasznát lehet venni. :(

Üdv.

Szia!

1. Ha nincs a köztes cellákban olyan információ, ami bezavarhatna az eredménybe, akkor egyben megadod a teljes tartományt.

2. Ha az 1. pont nem járható, akkor minden tartományra külön felírod a függvényt és összeadod az eredményt  =Darabha(vmi,1.tartomány9+Darabha(vmi,2.tartomány)..stb.

Üdv.

Ja, és lapvédelem van. Jelszót kérne. 

Néztem a füzetvédelmet is, de ott nincs ilyen.

Hát én nem értem. Letöltöttem a fájlt onnan, amit te írtál, de nekem ez jelenik meg:

Nem látok munkalapokat, és az általad beírt Munka1!B3, Munka2!D21 jellegű hivatkozások hibaüzenetet generálnak. Biztos, hogy ugyanazt a fájlt látjuk? Vagy neked van valami más (régebbi) verziód?

Azt látom, hogy a szerző még Excel 2002 verzióval készítette, és 2019-ben frissítette utoljára. A freemail-es email címére nem is merek megpróbálni írni. Mitől lenne még most is elérhető?

Eddig nem foglalkoztam vele...

Jelszó nincs, csak ráklikk a feloldásra.

A makró nem csinál semmit, csak ami látható, átmásol.

A "Hogyan működik" lapon levő táblázat tartalmaz egy csomó képletet, azok hozzák létre a szöveget, amit a makró átmásol.

A Táblázatot átmásolod egy új fájlba, majd

Sziasztok!
Darabha (darabteli) függvényt akartam használni, de úgy látom csak összefüggő tartományt kezel.

Mi a teendő, ha NEM egymás mellett vannak a vizsgálandó cellák?
Köszönöm,

Persze jelszavas lapvédelemmel, csak éppen így teljesen öncélú.

Azt hogy sikerült megoldania a szerzőnek, hogy se a munkalapok, se a makró nem érhető el? Ügyes, de így sajnos nem használhatók a demói, mivel csak a végeredmény látszik.

Kész makró: https://nimbus.elte.hu/excel/demok/Szam_szoveg_konverter.xlsx

Szia!

Az a valami más megoldás egy makró. Beépített függvény nincs rá.

Üdv.

Sziasztok, lehet, hogy a fórum életében már felmerült ez a kérdés, pár oldalt át is néztem de nem találtam.

Szóval az lenne a kérdés, hogy makró nélkül megoldható-e az, hogy ha beírok egy cellába egy számot (számokkal), akkor mondjuk alá/mellé kiírja, betűvel is ?

Létezik erre beépített függvény, vagy valami más megoldás ?

Köszi

Miért jobb a fapados?

Amit a körlevél funkció csinál, az a következő:

A munkalapot meg kell megtervezned (nem úgy mint én, hanem formázva)

Mindenkinek köszönöm a segítséget a wordös verziónál maradtam. Mert azt meg tudom oldani, no nem úgy ahogy pimre írta, csak ilyen fapados verzióban.

Még egy szer köszi. az exceles verziót elrakom mert ki tudja.......

A Word körlevélre én is gondoltam, csak nem akartam belemenni a részletekbe. Ez a technika akkor lehet érdekes, ha rendszeresen és tömegesen kell ilyen munkalapokat kiállítani. Ebben az esetben nem közvetlenül írod a munkalapba az adatokat (a fejlécbe a szerelést végző és egyéb 8 adatot, valamint a listában lévő 30-40 adatot), hanem egy egyszerű Excel táblába (itt majd minden sor egy munkalap adatait tartalmazza). Munkalapként pedig készítesz egyetlen Word dokumentumot (munkalap sablon) ebben jelölöd ki, hogy az Excel tábla melyik oszlopának adata kerüljön a munkalap megfelelő rubrikájába. 

Innentől pedig a Word levelező egyetlen paranccsal készíti el a több száz/ezer munkalapot. Akár közvetlenül nyomtatóra, akár fájlba (ez biztonságosabb), amiben kinyomtatás előtt még egyszer tudod ellenőrizni, hogy jó lett-e a kitöltés.

Ebben tudnék segíteni, ilyenekkel rendszeresen dolgozom.   

Ilyen jutott az eszembe

(felvett makró, módosítással)

Sub Makró1()

For i = 1 To 1000
    Range("C2").Select
    ActiveCell.FormulaR1C1 = i

    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i

End Sub

Makróval meg lehet oldani viszonylag egyszerűen. A "gyors" megoldással lassú a nyomtatás szerintem. Van bonyolultabb makrós megoldás is, azzal gyors is a nyomtatás.

Az egyszerű makróval csak a sorszámokat módosítod egyesével és egyesével küldi rá a nyomtatóra. Szerintem ilyenkor lassú lesz a nyomtatás.

A bonyolultabb megoldás, hogy megszerkeszted, ahogy szeretnéd majd a makró csinál belőle egy másik munkalapra mondjuk 200 másolatot és megkérdezi (valamint felajánlja a következő) sorszámot. Ilyenkor a formázási beállítások is másolhatóak.

Persze azt is meg lehet oldani, hogy ne 200 darabot nyomtasson, hanem csak 1 db-ot, ami mondjuk elázott a kávétól.

De ez, hogy csináljam meg wordben nem annyira vonz :(

Az ötlet nem rossz de küzdök a beillesztéssel mert nem akar ráférni egy A4-es lapra. B terv, hogy megcsinálom wordben és úgy 

Esetleg wordbe átmásolni, a sorszámok meg egy külön excelben legyenek,

ezekből a wordben már lehet körlevelet csinálni/nyomtatni

Köszönöm igen pontosan ezt szeretném.

A többit javítottam. :) 

Én már tudom mit szeretnél, egy "szigorú számadású" szervíz jegyzőkönyvet nyomtatni, ahol a jegyzőkönyv sorszáma változik csak, a többi nem.

Viszont nem vagyok gép közelben, és fejből nem tudok rá megoldást... Ha estig nem jön megoldás, akkor foglalkozok vele.

De ha már így megosztottad ezt a dokumentumot, akkor "belekötök" két dologba.

A kondenzátor mértékegysége előtt a prefixum nem M (mega), hanem m (milli).

A gumivezetékeknél pedig, ha tartalmaz zöld/sárga eret, akkor 3G1,5 a jelölés, nem pedig 3X1,5. (És nem kábel, hanem vezeték, mert a szabvány szerint a kábel az, ami közvetlenül mehet földbe. Ezt tömlőszerű vezetéknek hívja a szakirodalom)

Sajnos erre Excellel nincs ötletem. Remélem, valaki tud segíteni.

Szóval megpróbálom megfogalmazni. Van egy A4 lap méretű munkalap(ezt adnám a szerelő fiúk kezébe) erre kellene egy emelkedő sorszám. Nem tudom, hogyan kellene rárakni, úgy hogy legyen belőle legalább

1000 db eltérő sorszámú.

Számomra nem derül ki a kérdésedből, hogy a sorrendezéssel van-e a problémád, vagy a nyomtatással. Na meg mit is jelent, hogy A4 méretű a munkalapod? Ha azt, hogy A4-es lapra szeretnéd nyomtatni, az beállítható. Ha azt szeretnéd, hogy a fejlécet (első sor) minden lapon nyomtassa ki, az is beállítható.

Sziasztok !

Olyan kérdésem lenne, hogy van egy A4 méretű "Munkalapom".

Ezt kellene valahogy úgy kinyomtatnom, hogy legyen rajta egy emelkedő sorszám raktárszám/év/emelkedő sorszám 00001-től legalább 2000-ig. 

Őszinte leszek lövésem sincs, hogyan fogjak hozzá.  Kb ott tartok, hogy 100X egymás alá másolom a munkalapot és úgy számozom be, de ez így egy kicsit sziszifuszinak tűnik.

Köszönöm

Szia,

Javítottam és rendben működik.

Köszönöm szépen! 

Szia!

Ezzel az utasítással:

".SetRange Range("B2:B" & LastRow)"

a B oszlop rendezésére utasítod.

Itt meg kell adnod a teljes sorbarendezni kívánt tartomány címét. Pl. Range("A2:X" & LastRow)

Üdv.

Sziasztok,

Van egy változó sorszámú táblázatom.

VBA-val próbálom dátum szerint csökkenő sorrendbe rendezni. 
A dátum oszlop a "B" oszlop.

Ezt úgy csinálom, hogy mindig megszámoltatom a "B" oszlop sorait és aztán rendezem csökkenőbe.
De valamiért nem "bővíti a kijelölést" és a táblázaton belül csak a "B" oszlop adatait rendezi sorba.

(a táblázat nincs táblázatos formában)

Dim LastRow As Long

LastRow = Worksheets("ADAT").Cells(Rows.Count, "B").End(xlUp).Row
Worksheets("ADAT").Range("B2:B" & LastRow).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("ADAT").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ADAT").Sort.SortFields.Add2 Key:=Range("B2:B" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("ADAT").Sort
.SetRange Range("B2:B" & LastRow)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Mi a gond? 

Köszi! 

Köszönöm!

Szia!

2019-es verzió óta van MINHA függvény.

Ha ettől régebbi, próbáld az alábbi tömbfüggvényt:

=MIN(HA(D2:J2<>0;D2:J2;""))

a minimum érték meghatározására.

A tömbfüggvényt Ctrl + Shift + Enter kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.

Üdv.

Sziasztok!

Több cella közül szeretném feltételes formázással kiemelni a legkisebb értéket. Erre használom a 

=D2=MIN($D$2:$J$2)

képtetet. Viszont vannak olyan cellák, ahol az érték 0 (nulla) ezeket figyelmnen kívűl kellen hagynom és az összhasonlítást csak >0 kellene megtenni. 

Kiegészíthető ez a képlet erre? 

Üdv, Pivotban kellene egy nagyon alap segítség (30+ év Excel, 30 perc Pivot tudás :).

Forgalmi adatokból létrehoztam az első pivotomat. Az egyik soromban dátumok vannak. Az Excel a csoportosításnak (hónapok) automatikusan mmm, a bontásnak (napok) nn-hhh (pl. 02-jan) formátumot adott, nekem viszont hhhh (pl. január) és hhhh nn, nnn (pl. január 25, kedd) kellene.

Rámegyek a sorra, ott Mezőbeállítások -> Számformátum, kiválasztom a megfelelőt, OK -> OK és nem történik semmi, továbbra is nn-mmm formátumban jelennek meg az adatok.

Az adatforrásban Excel dátumok vannak (pl. 45741) éééé-hh-nn formázással, az Excel magyar és a területi beállítások is magyarországiak (ezért sem értem, hogy miért jön a 02-jan formátummal). Mit csinálok rosszul?

Projekt védelem (Project protection)

Több fórumon is olvastam, hogy ez a probléma másnál is felmerült több Excel verziónál. Én egy 2016-os verziót tudtam kipróbálni, de volt aki 2007-esen tapasztalta. Nem tudom, hogy az eredeti fájlok melyik Excelben készültek, mert később változtattam a fájltípust, de  klónoztam is őket.

Talán a Windows-ban kell keresni a hibát, de ez magas nekem, mint libának a kerítés.

Amit most kipróbáltam: Egy fájlt, amin volt projektvédelem, átneveztem, a régi lapokat kitöröltem, új lapkat, új funkciót adtam a fájlnak, megváltoztattam a projekt védelem jelszavát, és működik. Ugyanakkor mellette kreáltam egy új munkafüzetet, ugyanúgy berendeztem, mint a másikat, és nem tudom rá kiadni a projekt védelmet. Néztem az Excel beállításait is, de látszólag minden ugyanaz.

Szia!

Nem tudom, kaptál-e esetleg privátban választ. Az AdvancedFilter CriteriaRange tartalma alapvetően a következőképpen nézhet ki:

ÉS feltétel esetén egymás mellé ugyanabba a sorba kell írni a feltételeket.

VAGY feltétel esetén viszont külön sorokat kell használni.

Ha pedig egy oszlopban nem szeretnél szűrni, akkor nem az X a megoldás, hanem üresen kell hagyni az adott oszlop feltétel sorait.

Ha csak a B típusra vagy kíváncsi és az Oszlop7 15 értékére, akkor 2 sor a feltétel range:

1. sor a fejlécek

2. sor a Típus alatt B, Osztály7 alatt 15, a többi fejléc alatt NINCS semmilyen érték (a képleted eredménye legyen "" és nem X)

Üdv.

Időközben megtaláltam a Képlet függvényt. Ez megoldja a gondomat.

Van egy munkafüzetem, ahol egy fő munkalapra kerülnek számok, majd ezeket a további munalapokra függvény olvassa be onnan, hogy véletlenül se kerüljön a helyestől eltérő szám oda, ahol a fő munkalapról kell a helyes értéket bemásolni. 

Sajnos előfordul, hogy a felhasználók elfelejtkeznek erről, és a függvényt átírják számra, ami tévedésekhez vezethet.

Sajnos nem tudok olyan ellenőrzést, hogy egy adott cella még függvényt tartalmaz-e, vagy már tévedésből át lett-e javítva számmá.

Van erre valamilyen megoldás?

Én nem teljesen értem, hogy mit is szeretnél.

Tölts fel egy anonimizált példát és akkor valószínűleg fogunk tudni segíteni.

Sziasztok,

Advanced filter makróval.

A CriteriaRange "táblázatot" függvényekkel töltöm fel, különböző szabályok szerint, többnyire egybeágyazott HA + ÉS/VAGY függvényekkel.

Ha beadok minden adatot, akkor mondjuk kijön az alábbi táblázat, mint CriteriaRange = A1:H6

Ahol "X"-ek vannak, ott a függvény eredménye X, mivel nincs feltétele a szűrésnek.
Jelen példa szerint az összes adatot, ami Típus = B és oszlop7=15 kellene, h kilistázza eredményül.
De vmiért semmit nem hoz eredményül.

Nem tudom miért nem :-(

(az X nem szerepel az adathalmazban, mint érték, azért rakatom be a függvényekkel, hogy azokra a sorokra ne keressen rá)

Szerintetek?

Évek óta használom az excelt a parancssor meghívására. Viszont most beleütköztem abba a problémába, hogy olyan parancsot szerettem volna futtatni amihez rendszergadaként kell futtatni a parancssort.

Kis kutatómunkával találtam rá megoldást. Ha esetleg másnak is szüksége lenne rá, akkor itt van a kód.

Private Sub RunAsAdmin(ByVal parancs As String)
Dim oShell As Object
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cmd.exe", "/k " & parancs, , "runas", 1
End Sub

A munkám folyamán sokszor kell IP címet módosítanom, amit eddig kézzel oldottam meg, de meguntam, így írtam rá excelben makrót :) Egy listából kiválasztom a megfelelő paramétert és a makró teszi is a dolgát.

A references részen nálam 4 dolog van bekapcsolva:

-visual basic for applications

-Microsoft Excel 16.0 object library

-OLE Automation

-Microsoft Office 16.0 object library

Ha jól emlékszem, akkor az object library-ket most kapcsoltam be hozzá, de nem vennék már rá mérget.

Köszi! A legegyszerűbb megoldásra nem is gondoltam. :(

Az érvényesítés beállításakor a hibajelzés lapon kiveszed a pipát. Ekkor kiválasztod a listából a neked megfelelő sablont, majd utána módosítod, ahogy akarod.

Sziasztok! Lassan időpontot foglalhatok a hülye kérdések minisztériumába (Monty Python után szabadon). A mostani agymenésem az, hogyan lehetne valami prediktív szövegbevitel szerűséget létrehozni az excelben. Arra gondolok, hogy adatérvényesítés jelleggel egy legördülő listából ki tudnám választani egy cella szövegének általános tartalmát, de utána hibaüzenet nélkül módosítani tudjam a szöveget. Nyilván ilyenkor az adatérvényesítés hibát jelez. 

Nagyon meredek a kérdésem? 

Ezt csak úgy itt hagyom, a köz okulására. Az Excel 2021 fantasztikus, többszálú feldolgozása (igen, be van kapcsolva az összes mag). Ez egy 10 magos, 20 szálon dolgozó 10900KF és 64GB RAM. Az Excel képes 2 magon és 4 szálon futni, azon is csak hézagosan. Ha én lennék a Microsoft, az Excel rég a grafikus procin (3080Ti) futna, meg az összes CPU magon.

Találtam egy 2019-es beszélgetést erről a problémáról. Ők nem találtak rá megoldást.

https://answers.microsoft.com/en-us/msoffice/forum/all/unable-to-lock-vba-window/9f1352af-7139-400f-afc3-c6d2bc3b73a6

https://answers.microsoft.com/en-us/profile/7174c62f-a522-48b9-b8d3-7bcd4c7a258f

(Valamikor lehetett ide normálisan is linkelni.)

Sajnos nem segít. Valóban üres volt még a projekt, de hiába írtam bele, nem tudom lezárni betekintés elől. Még annyit, hogy találtam egy régi fájlt, amiről azt írta az Excel hogy megbízhatatlan és csak akkor nyissam meg, ha..., mivel a fájlnévből egyértelmű, hogy az enyém volt, megnyitottam, de a projektbe nem tudok belenézni. Rá se kérdez a jelszóra, csak kiírja, hogy "project is unviewable".

Köszönöm. Üdv.

Jómagam WIN10-et és Excel2021-et használok. Nem bírtam reprodukálni a hibát.

Egy esetben nem állított be jelszót, ha teljesen üres volt a VBA project. De amint írtam bele valamit, akkor már be tudtam állítani rá jelszavas védelmet.

Üdvözlök Mindenkit,

Meg tudná mondani valaki, hogy a VBA projektvédelem miért nem működik: WIN10, Excel2019.

VBA-Tools-VBA Project Properties-Protection, Beállítom, beírom a jelszót, és hatástalan.

Régen is használtam, és azok a projektek védve is vannak. Mit rontok el?

Köszönöm szépen.

Nagyon szépen köszönöm! Sima Liba nagyon jól működik!

Köszönöm!

Most már nem kell. Megfejtettem a dolgot :-)

A színezés relációs jeleivel voltak gondok.

Sub FormatDate(cell As Range, diff As Long)
Debug.Print "Színezés - diff: " & diff
If diff = 0 Then
cell.Interior.Color = RGB(0, 0, 255) ' Kék - pontos egyezés
Debug.Print "Kék: " & cell.Address
ElseIf diff > 0 Then
cell.Interior.Color = RGB(255, 0, 0) ' Piros - már lejárt
Debug.Print "Piros: " & cell.Address
ElseIf diff >= -30 Then
cell.Interior.Color = RGB(255, 255, 0) ' Sárga - 30 napon belül
Debug.Print "Sárga: " & cell.Address
Else
cell.Interior.Color = RGB(0, 255, 0) ' Zöld - 30 napon túl a jövőben
Debug.Print "Zöld: " & cell.Address
End If
End Sub

Küldj róla egy minta fájlt e-mailben, ami anonimizálva van. Az e-mail címem publikus.

Lemaradt:

A kérdést sem tudom feltenni:( De nem működik a színezés:( A lényeg ogy évváltás szökőév stb figyelembevételével valami miatt nam az igazi.

A lejárt dátum piros

ami hamarosan lejár sárga (ez esetben 30 napos intervallum)

aznapi kék;

ami meg több mint 30 napig érvényes legyen zöld:)  Aktuális dátumhoz viszonyítva 

Köszönöm! 

Sub LejaroEllenorzes()
Dim wsTotal As Worksheet
Dim wsLejaro As Worksheet
Dim lastRowTotal As Long
Dim lastRowLejaro As Long
Dim i As Long
Dim currentDate As Date
Dim cellValue As String
Dim diffK As Long, diffL As Long, diffO As Long, diffR As Long
Dim találatCount As Long
Dim dateK As Date, dateL As Date, dateO As Date, dateR As Date

' Munkalapok beállítása
Set wsTotal = ThisWorkbook.Sheets("Total")
Set wsLejaro = ThisWorkbook.Sheets("Lejárat")

' Az aktuális dátum meghatározása
currentDate = Date

' Lejárat munkalap törlése a korábbi adatok eltávolításához
wsLejaro.Cells.Clear

' Az oszlopfejlécek másolása a Total munkalapról a Lejárat munkalapra
wsLejaro.Cells(1, 1).value = "Név"
wsLejaro.Cells(1, 2).value = "Szül. dátum"
wsLejaro.Cells(1, 3).value = "EBK alap"
wsLejaro.Cells(1, 4).value = "EBK MIR"
wsLejaro.Cells(1, 5).value = "Orvosi érvényes"
wsLejaro.Cells(1, 6).value = "Poliol spec. oktatás érv."

' A Total munkalapon az utolsó sor meghatározása
lastRowTotal = wsTotal.Cells(wsTotal.Rows.Count, "Y").End(xlUp).row
Debug.Print "Utolsó kitöltött sor az Y oszlopban: " & lastRowTotal

' Az Lejárat munkalapon az első üres sor meghatározása
lastRowLejaro = 2 ' Az adatok a második sortól kezdődnek

' Találatok számlálója
találatCount = 0

' A Total munkalapon végigiterálunk
For i = 2 To lastRowTotal
' Ellenőrizni, hogy az Y oszlop "aktív" vagy "inaktív"
cellValue = wsTotal.Cells(i, "Y").value
Debug.Print "Row " & i & ", Y oszlop értéke: " & cellValue

If cellValue = "Aktív" Then
' Ellenőrizni, hogy a dátumok valódi dátumok és nem üresek
If IsDate(wsTotal.Cells(i, "K").value) And wsTotal.Cells(i, "K").value <> "" Then
dateK = DateValue(wsTotal.Cells(i, "K").value)
diffK = DateDiff("d", dateK, currentDate)
Debug.Print "K oszlop dátuma: " & dateK & ", diffK: " & diffK
Else
diffK = -9999 ' Ha nincs érvényes dátum, beállítunk egy nem létező eltérést
Debug.Print "K oszlop érvénytelen dátum"
End If

If IsDate(wsTotal.Cells(i, "L").value) And wsTotal.Cells(i, "L").value <> "" Then
dateL = DateValue(wsTotal.Cells(i, "L").value)
diffL = DateDiff("d", dateL, currentDate)
Debug.Print "L oszlop dátuma: " & dateL & ", diffL: " & diffL
Else
diffL = -9999 ' Ha nincs érvényes dátum, beállítunk egy nem létező eltérést
Debug.Print "L oszlop érvénytelen dátum"
End If

If IsDate(wsTotal.Cells(i, "O").value) And wsTotal.Cells(i, "O").value <> "" Then
dateO = DateValue(wsTotal.Cells(i, "O").value)
diffO = DateDiff("d", dateO, currentDate)
Debug.Print "O oszlop dátuma: " & dateO & ", diffO: " & diffO
Else
diffO = -9999 ' Ha nincs érvényes dátum, beállítunk egy nem létező eltérést
Debug.Print "O oszlop érvénytelen dátum"
End If

If IsDate(wsTotal.Cells(i, "R").value) And wsTotal.Cells(i, "R").value <> "" Then
dateR = DateValue(wsTotal.Cells(i, "R").value)
diffR = DateDiff("d", dateR, currentDate)
Debug.Print "R oszlop dátuma: " & dateR & ", diffR: " & diffR
Else
diffR = -9999 ' Ha nincs érvényes dátum, beállítunk egy nem létező eltérést
Debug.Print "R oszlop érvénytelen dátum"
End If

' Ha bármelyik dátum 30 napon belül van, vagy már lejárt és 30 napon belül volt
If (diffK >= -30 And diffK <= 30) Or (diffL >= -30 And diffL <= 30) Or (diffO >= -30 And diffO <= 30) Or (diffR >= -30 And diffR <= 30) Then
' A találatokat átmásolni a Lejárat munkalapra
wsLejaro.Cells(lastRowLejaro, "A").value = wsTotal.Cells(i, "A").value ' Név
wsLejaro.Cells(lastRowLejaro, "B").value = wsTotal.Cells(i, "E").value ' Szül. dátum
wsLejaro.Cells(lastRowLejaro, "C").value = wsTotal.Cells(i, "K").value ' EBK alap
wsLejaro.Cells(lastRowLejaro, "D").value = wsTotal.Cells(i, "L").value ' EBK MIR
wsLejaro.Cells(lastRowLejaro, "E").value = wsTotal.Cells(i, "O").value ' Orvosi érvényes
wsLejaro.Cells(lastRowLejaro, "F").value = wsTotal.Cells(i, "R").value ' Poliol spec. oktatás érv.

' Dátumformátum beállítása
wsLejaro.Cells(lastRowLejaro, "C").NumberFormat = "yyyy.mm.dd"
wsLejaro.Cells(lastRowLejaro, "D").NumberFormat = "yyyy.mm.dd"
wsLejaro.Cells(lastRowLejaro, "E").NumberFormat = "yyyy.mm.dd"
wsLejaro.Cells(lastRowLejaro, "F").NumberFormat = "yyyy.mm.dd"

' Dátumok formázása színnel
Call FormatDate(wsLejaro.Cells(lastRowLejaro, 3), diffK) ' 3 = C oszlop
Call FormatDate(wsLejaro.Cells(lastRowLejaro, 4), diffL) ' 4 = D oszlop
Call FormatDate(wsLejaro.Cells(lastRowLejaro, 5), diffO) ' 5 = E oszlop
Call FormatDate(wsLejaro.Cells(lastRowLejaro, 6), diffR) ' 6 = F oszlop

' Sorok növelése a következő találatra
lastRowLejaro = lastRowLejaro + 1
találatCount = találatCount + 1
End If
End If
Next i

' Ellenőrizzük, hogy van-e találat
If találatCount = 0 Then
MsgBox "Nincs találat!"
Debug.Print "Nincs találat!"
Else
MsgBox találatCount & " találat van."
Debug.Print találatCount & " találat van."
End If

' Oszlopok szélességének beállítása a Lejárat munkalapon
wsLejaro.Columns("A:F").AutoFit
End Sub

Sub FormatDate(cell As Range, diff As Long)
Debug.Print "Színezés - diff: " & diff
If diff = 0 Then
cell.Interior.Color = RGB(0, 0, 255) ' Kék - pontos egyezés
Debug.Print "Kék: " & cell.address
ElseIf diff < 0 Then
cell.Interior.Color = RGB(255, 0, 0) ' Piros - már lejárt
Debug.Print "Piros: " & cell.address
ElseIf diff <= 30 Then
cell.Interior.Color = RGB(255, 255, 0) ' Sárga - 30 napon belül
Debug.Print "Sárga: " & cell.address
Else
cell.Interior.Color = RGB(0, 255, 0) ' Zöld - 30 napon túl a jövőben
Debug.Print "Zöld: " & cell.address
End If
End Sub

Szia!

Sajnos csak makróval megy a módosítás, mert csak úgy lehet összekötni a változásokat.

A munkalap kódlapjára másold be ezt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 11 And Target.Column = 1 Then
Target.Offset(0, 1).Value = Application.Names(Target.Value).RefersToRange.Cells(1)
End If
If Target.Row = 11 And Target.Column = 2 Then
Target.Offset(0, 1).Value = Application.Names(Target.Value).RefersToRange.Cells(1)
End If
End Sub

(Lapfülön jobb egérgomb - kód megjelenítése)

Ezután engedélyezned kell a makrók futtatását és makróbarátként kell mentened a fájlt.

Üdv.

Ha küldesz egy mailt privátba (az én címem publikus), el tudom küldeni az excel fájlt. 

Mindegyikben egyszerű "listás" adatérvényesítés A11-ben (A2;A3), a B11-ben "=INDIREKT(A11)", a C11-ben "=INDIREKT(B11)" 

A listák mezőnevekkel vannak ellátva ezért tudok névvel hivatkozni rájuk. 

Szia!
Milyen képletet használsz az A11 - B11 - C11 cellákban?

Légy szíves mutasd meg.

Üdv.

Sziasztok!

Többszintű lista adatérvényesítésével kapcsolatban van kérdésem. Megoldható-e, ha egy magasabb szintű listaelemet módosítok, hogy az alacsonyabb rendűek törlődjenek? Na ez még nekem sem érthető... Inkább egy példa. Csináltam egy példa táblázatot. Első nekifutásra kiválasztottam a "Gyümölcs"-"Körte"-"Vilmos" adatsort. Eddig OK. Ám ha a legfelső szinten a Gyümölcsöt Zöldségre változtatom, a kiválasztás többi eleme (Körte-Vilmos) változatlan marad ami nyilván nem jó. Mit lehet tenni ez ellen? 

Szia!

Nem szeretném most arra terelni az eszmecserét, hogy mi lesz akkor, ha elmész/elküldenek a cégtől. Nélkülözhetetlen/pótolhatatlan ember nincs. :(

A védelemről:

Az Excel védelme alapvetően a felhasználók "véletlen"  módosításainak megakadályozását szolgálja, elég szofisztikált módon, de nem megkerülhetetlenül/feltörhetetlenül.

A makrókat is lehet védeni a VBA nézet Tools - VBA project Properties - Protection fülön jelszóval is. De ez sem feltörhetetlen.

Ezért biztosabb az, ha magát a fájlt olyan környezetbe helyezzük, ahol a hozzáféréseket, láthatóságot vagyis a külső védelmet lehet erős eszközökkel megoldani, amire minden rendszerben, így MS-nél is megvannak a szabványos lehetőségek.

Nem küldözgetjük a fájlt, csak a végeredményt, pl. PDF formátumban mentve.

Lehet azt tenni, hogy az adatokat, amire szüksége van, külön fájlban tartjuk és csak a szükséges értékeket kérdezzük le a feldolgozáshoz. Sőt azt is lehet, hogy ez a feldolgozás is külön fájlban van. Az első fájl csak arra szolgál, hogy a hozzáférést ellenőrizzük és elindítsuk a másik /akár rejtett/, érdemi részt tartalmazó munkafüzetet.

De ezek is csak ötletek.

Üdv. 

Szia!

Ez egyrészt így van!
A fórum segítsége nélkül, olyan formában, ahogyan kérik tőlem, nem tudtam volna mindezt összerakni, hiszen hiányzó láncszemek voltak a folyamatban, amiket a fórumozók oldottak meg. Ezért baromi nagy köszönet Nekik!

Másrészt, ha nagyon le akarjuk sarkosítani a dolgot, akkor kellett hozzá az excel, ami a Microsoft szellemi terméke, szóval az érdem az övé, ha így nézzük.
Persze ahhoz meg kellett egy gép, amin futnak a Microsoft termékek és a gép sem úgy született, hogy valaki egyik este lefeküdt, majd másnap meg felébredt és összerakott egy komplett, használható számítógépet, hanem több száz ezer ember folyamatos ötletei, fejlesztése, „szellemi termékének” a végeredménye.
+  a rengeteg youtubos video és feltöltőjük, amiket átnéztem, mert ha kicsi is az excel tudásom, én sem úgy születtem meg, hogy ez már a rendelkezésemre állt és bizony ők is segítettek benne az évek alatt…

Persze kellett hozzá egy keresőmotor is az interneten, hogy te is és én is rátaláljak a fórumra, az is szellemi termék.
Meg persze az idex.hu is, ahol én is és te is együtt használva más szellemi termékét, tudunk most beszélgetni egymással.

Szia,

"Főnökeid mit szólnának ahhoz....."

Alapvetően a levédés nem az enyém, hanem az ő ötletük volt. Itt nyílván elsősorban ők féltik a céges adatokat.
Szóval, ha nekik ez a megoldás jó, akkor nekem mindegy igazából.

"(béremelés, egyszeri jogdíj...stb.)"
Ez sajnos nálunk nem kivitelezhető.
Nagyon le vagyunk még maradva vállalati kultúrában a németektől / USA-tól.
Ilyenért itt nem adnak nekem jogdíjat.... :(

egyelőre csak a cégen belüli pozíciómat tudom növelni vele, ami összefügg a fentiekkel is, hogy mi lesz akkor ha elmegyek.

Én örülök, hogy alapvetően olyan szituban vagyok most kicsit, hogy nekik van most rám szükségük elsősorban.

Ez egy kb 25-30 lépcsőből álló adathalmaz rendezés, átalakítás, műveletek elvégzése rajta,  szűrés stb, ahol a lépések értelem szerűen egymásra épülnek és a sorrend nem változtatható. - Ez az, amit én raktam össze. És igazából maga az ötlet is tőlem származott, mert annyira ismertem az excelt, hogy átlássam, ezt vele meg lehetne csinálni. Ez az, amit viszont én nem feltétlenül szeretnék, hogy mások átlássanak és rajtam kívül más is össze tudja rakni, itt megint visszacsatolva a cégen belüli értékemre.

Alapvetően én örülök neki, hogy tudok segíteni a cégnek, ahol dolgozom, ahonnan a megélhetésem jön.
Azzal, hogy ezt lehetőleg le kell védeni, nekem is azonosulnom kell, hiszen én ilyenkor mindig mint alkalmazott szerepelek, nem pedig mint egy külső szoftverfejlesztő mondjuk és követnem kell a vezetőség kérését.

"tudod létezik a szellemi termék tulajdon"

ez pedig a fórumé és nem az övé....

Szia!
Csak egy kérdésem van: Főnökeid mit szólnának ahhoz, ha bejelentenéd, hogy holnaptól nem dolgozol a cégnél, aminek következtében a szuperül kidolgozott, titokban tartott remek excel tábládat nem tudnák tovább használni? HIszen senki sem ismerheti, hogyan és milyen logikával működik.

Szerintem nem jó úton indultál el. Tárgyald meg a vezetőiddel, hogy az általad/általatok kifejlesztett rendszert milyen feltételekkel használhatja a cég - tudod létezik a szellemi termék tulajdon és annak védelme, ezért milyen juttatás (béremelés, egyszeri jogdíj...stb.) jár neked ezért.

Egyébként a munkafüzetbe építhetsz be jogosultságokat, ami alapján eldöntheti a makró, ki mire jogosult.

Az összes adatot tartalmazó munkalapot átteheted egy külön munkafüzetbe és a háttérben megnyitva számolhatsz vele.

Ha pedig igaz az, amit Garashannak írtál a munkatársak Excel ismeretéről, akkor semmi félnivalód nincs.

Üdv.

Ps. Azt gondolom tudod, hogy minden szoftverhez használati útmutatót illdomos adni írásban. Sőt a jövőbeni fejlesztések/esetleges javítások érdekében nem ártalmas egy pontos rendszer leírás készítése sem. 

Szia,

Igen, alapvetően hasonló dolgokban gondolkozom én is.

"bár azt nekem 10-15 mp eltüntetni"
Szerencsére vagy nem szerencsére, alapvető, nagyon kezdő excel tudás van mindenkinek, ezért automatizálok mindent, gombokra lesarkítva.
Nem tudják mi az, hogy makró stb. 
Kicsi az esélye, hogy bárki külsőst megkérnek, nem lehet-e feltörni a makrókat stb, mivel foglmuk sincs róla... így szerintem nem mennek tovább majd, hanem elfogadják, hogy oké, ezzel nem lehet mit kezdeni, csak "használni".
Legalábbis ebben bízunk, ebből indulunk ki.

Szia,

használni kell a file-t több mindenkinek.
többfajta lekérdezésekből rakunk össze adatokat/információkat, amit aztán szűréssel kinyerve, csak a lényegi információt - eredményt használunk tovább.
De ezt napi szinten változtatva.

Azt nem akarjuk, hogy össze tudják rakni, hogy hogyan jön ki a végeredmény + az alap adathalmazokat se lássák, hogy miből jön össze a végeredmény.
(mi a folyamata az alap adatokból összeállításnak)

+ ha vki elmegy a cégtől, akkor ezt tovább vigye és felhasználja

Viszont az eredményt meg a napi munkához tudják használni, hogy vki könnyebb, gyorsabb, hatékonyabb legyen, mint az, ahogyan most dolgoznak.

Így nehéz elmondani, konkrétumok nélkül.

Szia!

Nem egészen értem ezt a "titkolózási cunamit". Ha nem szeretnéd, hogy megnyissák a fájlt, ne küldjék el, akkor ne tedd közzé.

Ha pedig közzé akarod tenni, akkor konvertálhatod PDF -be, amit nem tudnak módosítani.

Üdv.

Sejtem hogy arra gondolsz, hogy a pl. gmail asztali gépen betölti az excel előnézetét, ha csatolmányban van. Szerintem ez ellen nem igazán lehet védekezni. Legalábbis makró szinten egész biztosan nem, mert legjobb tudomásom szerint makrókat nem futtat a gmail.

De ha már úgyis telepakoltad makróval és azok szükségesek a működéshez is, akkor csináld meg úgy, hogy csak 1 darab munkalap van megjelenítve a munkafüzetben, az összes többit rejtsd el és jelszavazd le őket (bár azt nekem 10-15 mp eltüntetni) és makrók segítségével másolj át minden adatot arra az egy darab munkalapra. Lehet futtatni makrót automatikusan mentés előtt is, azzal pedig ki lehet pucolni azt az 1 darab munkalapot.

Sziasztok,

Most már tudom, hogyan lehet megcsinálni, hogy ne lehessen "másként menteni", ne lehessen "lementeni" + tudom azt is, hogy csekkolja, hogy csak akkro nyíljon meg a  file, ha az elérési helye nincs megváltozva.

Most már csak arra kellene egy ötlet, hogy azt hogyan lehetne megcsinálni, ha e-mailben elküldi vki, akkor se működjön.

Lementeni nem lehet az e-mailből a gépre, de a levelező rendszerből, mit csatolmány,  megnyílik az excel és mindig azt megnyitva tudják használni.

Esetleg erre vmi ötlet / módszer?

Mondjuk vmit szintén csekkoljon, ami nélkül nem nyílik meg, mert az is le van mentve valahová és azt is kellene mondjuk ugyan úgy elküldeni az emailben, de ezt nyilván nem tudja senki és azt nem küldik el.
Esetleg vmi ilyesmi vagy hasonló? Szerintetek? 

Köszönöm!

Köszönöm!

Szia!

Igazad van, elnéztem (nem tudom miért, a szóközből indultam ki).

A keresésnél szerintem ilyen esetben célszerű a KARAKTER függvényt használni.

Üdv.

Illetve nem tudom, hogy a kérdezőnek mennyire tiszta a $ jel használata.

Ha az én vizualizált példámnál maradunk, akkor láthatod, hogy a szabály megadásánál nem használtam se az "A", se a "1" karakterek előtt dollár jelet. Ezáltal az érvényességben megadott első cellában, azaz a C1-ben a szabály az A1 tartalmát vizsgálja, míg a második cellában, a C2-ben pedig az A2 tartalmát vizsgálja.

Ha a képletem =A$1="igen" lett volna, akkor C1-ben, C2-ben, ... és C9-ben is az A1 cellát fogja vizsgálni. Azaz C1:C9 végig zöld lenne.

Vagyis a dollár jellel lefixáltuk az 1. sort.

Ha az A elé került volna dollár jel, akkor az az én példámat nem befolyásolta volna.

Viszont ha C1:D9 tartományt szerettem volna színezni az A oszlop értékeinek megfelelően, akkor kellett volna az "A" elé is dollár jel.

Másrészt, ha C1:D9 tartományt szerettem volna színezni a C oszlopot az A szerint, a D oszlopot pedig a B szerint, akkor nem kell elé dollár jel.

Szia!

Gondolom csak elírás volt a részedről, az új sor kódja a 10-es.

Hogy a kérdező is értse, hogy miről beszélünk mindkét változatot megcsináltam neki.

A1 cellában van a szétszedendő szöveg

C1-ben az alt+enteres keresés, míg D1-ben a karakter(10)-es. Alatta pedig a használt képletek. Úgy ahogy a szerkesztő lécben is látszódnak. Azaz C2-ben van egy új sor.

Illetve vizualizáltam az automatikus formázás lépéseit is a kérdezőnek.

Szia!

1. A képletet próbáld meg így írni: =bal(A1, Szöveg.keres(Karakter(160), A1)-1). Karakter(160) az Alt+Entert jelenti.

2. A feltételes formázást arra a cellára kell megadnod, amelyiknek változtatni szeretnéd a színezését. A formázás alapja viszont az a cella lesz, amelyikben a legördülő lista van!

Ha az A1 cellát formáznád és a legördülő a D1-ben van:

Kijelölöd az A1 cellát, utána Kezdőlap - feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel

Tehát a feltételes formázás képletébe a legördülő cella címe legyen: pl. =$D$1=Igaz() zöld kitöltés. OK

Ezután - még mindig ki van jelölva az A1 cella,  ismét új szabály  =$D$1=Hamis() piros kitöltés OK

Azaz az A1 cellára két szabály van érvényben.

A szabályok szerkesztésében megnézheted, melyik szabály melyik tartományra vonatkozik.

Üdv.

Az idézőjelek közé kell egy alt+enter és csak az. Késő délután beülök majd a gép elé, ha addig nem oldódna meg, akkor megírom részletesebben is.

Köszönöm, biztosan működnek, de én teljesen amatőr vagyok ezért bvbalami nem sikerül. :(

A képletedet gondolom egybe kell írni:  =bal(A1, Szöveg.keres("", A1)-1) itt a két idézőjel között akár van akár nincs egy szünet (de gondolom nem az az ALT+ENTER) akkor is hibát jelez kijelölve már az első A1-t. 

A szinezésnél az IGEN működik, csak nekem megjelenik a cellában az IGAZ felirat is, ami nem jó, mert az a cél, hohyha a NEM jelenik meg, akkor azért legyen pirossal szinezve a cella, hogy oda írjon be a kitöltő egy magyarázatot, hogy miért lett NEM a válasza. Azt nem értem, ha megcsinálom az IGEN-re, ugyanabban a cellában hogyan lehet megcsinálni a NEM-re is? 

u.i.: remélem nem írtam el semmit, mert nem gépről írtam, hogy teszteljem is közben.

Az előző témához, pedig köszönjük a kedves szavakat. Utólag nem bánom, hogy a vissza pert kiírtam szóval is, mert csak most vettem észre, hogy a fórum motor kitörölte az összeset a hozzászólásomból... Olyan ritkán kell leírni, hogy el is felejtettem már, hogy azok törlődnek.

Ha képlettel akarod átmásolni, akkor arra van egyszerű megoldás:

Legyen az A1-ben a másolandó cella, akkor a függvény a következő:

=bal(A1, Szöveg.keres("

", A1)-1)

Nem elírás tényleg ALT+enter karakterre keresünk rá. A "-1" pedig azért kell, hogy az új sor karaktert ne másolja át az új cellába.

igen/nem alapján színezés másik cellában: a feltételes formázás lesz a barátod. Azon belül is a képlettel megadott változat. Először is jelöld ki azokat a cellákat, amiket színezni akarsz.

A függvényhez írd be, hogy '=A1="igen" ' A formázásnál pedig állítsd be a neked megfelelő formázást. Majd ugyan ezt csináld meg a "nem"-es változatra is.

Nem emlékszem, hogy melyik verziója az excelnek, de valamelyik a leokézés után átírta a függvényt új automatikus formázás létrehozásánál. De ha szerkeszted és újra beírod, akkor már jó lesz. Nyilván az A1 cellában feltételeztem az igen/nem szavakat.

Sziasztok!

Két dologban szeretnék segítséget kérni:

Ha a cellában ALT+ENTER sortörés van, akkor hogyan tudom csak az első sort átmásolni egy másik cellába?

Ha egy cellánál választható legördülő lista van (pl. IGEN, NEM), hogyan tudom egy másik cella kitöltési színét megváltoztatni IGEN-nél Zöldre, NEM-nél Pirosra?

Előre is köszönöm. 

kipróbáltam és hiba nélkül lefutott
Szóval nem tudom Garashan kódjával miért nem ment az előbb

valamit nyilván én toltam el

AMÚGY!
Mindkettőtöknek köszönöm ismételten.

Nagyon nagy tudással rendelkeztek

+ segítően álltok mindenkihez

Ez a kettő egyben baromi ritka!

Nagyon hálás vagyok ( és szerintem a többiek nevében is szólhatok) az önzetlen és azonnali segítségért, amit itt ti ketten adtok (+ a többiek is, de ti ketten ahogyan követem egy ideje, viszitek a prímet)

Szóval nagy Respect!  

Szia!
Akkor mégsem megfelelően adtad meg az elérési utat.

A vizsgálathoz első lépés Excel beállításokban letiltod a makrókat.

Ezután megnyitod a fájlod.

If ThisWorkbook.Path <> "C:UsershalasDesktoptemp" Then
MsgBox "Hiba a fájlban, a fájl bezáródik!"
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
End If

részt így módosítod:

If ThisWorkbook.Path <> "C:UsershalasDesktoptemp" Then
MsgBox ThisWorkbook.Path & vblf & "C:UsershalasDesktoptemp"  ' ide a saját magad által használt elérési utat írd be.
'Application.DisplayAlerts = False
"ActiveWorkbook.Close SaveChanges:=False

Stop
End If

Ezután engedélyezed a makrók futtatását. Mented a fájlt. Lefuttatod az ellenorzes makrót.

Így látnif fogod, helyesen írtad-e be a feltételt. Ezt kijavítod a megfelelőre.

Ezután ismét lefuttatod.

Ha nem jelenik meg az üzenet, akkor jól csináltad.

Visszaírhatod az eredeti figyelmeztetést és kiveheted az aposztrofot a sorok elől ill. a Stop utasítást.

Mented. Kilépsz. 

Ismét elindítod. 

Üdv.

Szia,

Köszi!
sajnos vmiért nem megy, állandóan bezáródik :-(
Pedig úgy adtam meg mindent, ahogyan mondtad
nincs visszaper az utolsó mappa után
elérési utat az információ - elérési út másolásából vettem

A ThisWorkbook-ba írd bele ezt

Private Sub Workbook_Open()
ThisWorkbook.ellenorzes
End Sub

Sub ellenorzes()
If ThisWorkbook.Path <> "C:UsershalasDesktoptemp" Then
MsgBox "Hiba a fájlban, a fájl bezáródik!"
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

Nyilván a C:... részt cseréld ki a te elérési útvonaladra. az utolsó mappa után ne tegyél vissza pert, ahogy látod a mintámban.

Ha elírod és úgy mented el, akkor csak a makrók letiltása után fogod tudni ismét megnyitni.

Ha biztosra akarsz menni, akkor az összes worksheet fülre is illeszd be ezt:

Private Sub Worksheet_Activate()

ThisWorkbook.ellenorzes

End Sub

Így elvileg nem csak megnyitáskor ellenőrzi az elérési utat, hanem ha aktiválod a munkalapokat is.

Szia,

vannak benne makrók, szóval rendben lenne.
Csak nem tudom megcsinálni :( :-)

Szia,

hát ezt sehogy nem tudom összehozni... :-(
Nem tudnál kérlek egy minta VBA kódot leírni, ami alapján meg tudom csinálni?

Köszönettel,
András

Igazad van valószínűleg. Szerintem is létezik hozzá kész program. Csak sok volt még az első hozzászólásomkor a nyitott pont is. Pl. az áruház nyitva tartása nem befolyásol semmit sem, ha előtte és utána is bent kell lennie a dolgozóknak, mivel számukra az pont ugyan úgy a munkaidejük része, csak éppen az nem derült ki, hogy előtte 1 órával kell-e érkezniük vagy éppen mennyivel.

Másrészt, ha az ember beosztás készítő programra adja a fejét, akkor utána kell olvasnia az aktuális jogszabályoknak, hogy ne legyen benne semmilyen törvénybe ütköző. Bár én azt vallom, hogy az átlag munkavállalónak amúgy is tudnia kellene a jogait és a kötelezettségeit is. Nagy részükkel én is tisztában vagyok, de amióta egyszemélyes EV-ként tevékenykedek azóta nem frissítem a tudásomat. Előtte volt olyan munkahelyem, ahol dolgoztam munkaügyisként is (ami kimerült munkaszerződés írásában és EFO-ban többnyire).

Tegnap éjjel elkezdtem "kézzel" csinálni beosztásokat. Hogy mégis hogyan jönne ki a matek. Olyan 6-8 ember kellene hozzá, de mivel sok a nyitott kérdés, így nagyobb energiát nem öltem bele.

Bocs, de ha jól értelmezem, a kérdező nem azért az Excel fórumba jött, hogy megismerje a munkaügyi kérdések problémáit (Legalábbis az első 7 pont alapján ez a gyanúm, bár a 7. pont utáni sort olvasva ebben elbizonytalanodtam).

Szóval inkább azt sejtem, hogy egy Excel makrót szeretne, ami megoldja ezeket. Viszont munkaügyi szoftver kérdésében laikusként az a sejtésem, hogy erre léteznek kész programok a piacon, és most a semmiből írni erre programot, meglehetősen nehezen lenne megoldható. Én biztos nem mernék belevágni.

Igen, ez járható út lehet. De megkerülhető, ha letiltásra kerülnek a makrók.

Persze, ha a makrók aktívan kellenek a dokumentum használatához, akkor nem tilthatóak le. Viszont, ha nem, akkor minden további nélkül letilthatóak és utána megnyitható a dokumentum az áthelyezés ellenőrzése nélkül.

Szia!

Eltárolod az elérési utat pl. a VBA makróban egy szöveg állandóban.

A Workbooks_Open eseménykezelőben megnyitáskor összehasonlítod a Workbook.Fullname tulajdonságot az eltárolt értékkel.

Ha nem egyezik, akkor üzenet és bezárás.

Üdv.

Sziasztok,

abban tudnátok segíteni, hogy az excel file csak akkor legyen megnyitható, ha nem helyezték át?

Szóval ahová le van mentve, csak onnan.
Ha áthelyezik, akkor hibára fusson és ne nyíljon meg.

Az elérési út beállítására gondolok, hogy azt csekkolja vba-ban, vagy valahogy gondolom így kellene, de nem igazán tudom, hogyan...
Vagy ha más módszer?

Köszi

OFF:

Igen, én is így tudtam és a HR is elfogadta, amikor mondtam nekik, hogy a 6 órás műszakban nem szeretnék kivenni munkaközi szünetet, csak azért, hogy üldögéljek az öltözőben a kijelentkezésig még 20 percet.

Másik munkahelyemen pedig a munkaidő részét képezte. Azaz 8-tól 16-ig voltunk bent és 8 órát számoltak el ledolgozott időnek. (Papíron mondjuk 16:30-ig voltunk bent, nem is értem, hogy miért úgy írtuk a munkaszerződéseket...) Ott így mi sem éltünk vissza a helyzettel és akkor mentünk el kajálni, amikor úgymond nem volt sürgős dolog és ha kellett, akkor megszakítottuk az ebédet. Kicsi cég volt, összesen 3-an voltunk alkalmazottak és kialakult az a szokás, hogy reggelente munkaidő előtt együtt reggeliztünk és együtt is ebédeltünk. Addig úgymond megállt a munka. Nagyker volt a cég, így ha éppen nem esett be személyes vásárló vagy nem csörgött a telefon, akkor két feladat között meg tudtunk állni kajálni.

Bocs, látom, hogy te is ismerted a szabályt :) Végig kellett volna olvasnom :o)

OFF:

3: munkaidő-közi szünetet csak akkor kell tartani, ha több mint 6 órás a műszak. Legjobb tudásom szerint hat órásnál mondhatod a szünetre, hogy no, thanx.

:ON

Reagálva a pontjaidra:

1. Azt határozd meg, hogy egyszerre hány főnek kell bent tartózkodnia, akár sávosan is. Mert ennyi erővel mehetne reggel 2 ember, majd néhány óra múlva további 2 és le is van tudva a teljes nyitva tartás és a 4 fő.
2. OK
3. OK (Bár a franc se akar, csak azért +1 órát a munkahelyén dekkolni, mert annyi az ebéd szünet. Én biztosan kiharcolnám, hogy vigyék le a törvényi minimumra (20 percre). Egyszer dolgoztam egy helyen 6 órás műszakban, reggel 5:30-ra jártam. A HR mondta, hogy akkor 6 óra + 20 perc a bent töltendő idő. Én meg mondtam, hogy a 6 óra felett kötelező kiadni a munkaközi szünetet, így én azzal nem kívánok élni. Utána néztek a törvénynek, elfogadták, így otthon tudtam ebédelni)
4. Akkor határozd meg, hogy a dolgozó mennyivel menjen be hamarabb, mint a nyitva tartás és mennyivel maradjon tovább. Mivel az a rendes munkaidő része a számára.
5. Heti 2 pihenőnap kötelező, maximum 6 egymást követő nap után kötelező 1 nap pihenőidő.
6. Ezzel nehéz előre kalkulálni (értem mire gondolsz, de ha heti 40 órában foglalkoztatsz embereket, akkor ha napi 5-öt osztasz be, akkor jön ki a -20%-al a napi 4 ember. Nyilván lesz olyan, amikor 5 lesz bent egyszerre és olyan is, amikor csak 4.)
7. OK (törvényileg havi 1 vasárnap kötelező)

Üdv

Tudnátok eben segíteni,  csinálnom kell egy munkaerő  tervezésimodeltt exelben  a következő paraméterekkel. 

1. Legalább 4 fő szükséges egy nap.

2. Az áruház nyitvatartási ideje 10:00-20:00-ig.

3. 8+1 órás műszakokban dolgoznak a kollégák, amiből 1 óra szünet, az nem számít munkaidőnek.

4. Reggelente számolj előkészületi idővel, zárásnál pedig rendrakási idővel.

5. A pihenőnapokra figyelj, vedd figyelembe, hogy hétvégén is dolgoznak a kollégák.

6. Számolj távolléti aránnyal is (minden kollégának a szerződött munkaórájának átlagosan a 20%-a szabadság és táppénz egy hónapban)

7. Szeretnénk, ha minden kollégának minden 2. hétvégéje szabad lenne!

Lehetőség szerint tegyél javaslatot, hogy hány teljes munkaidős és hány részmunkaidős kolléga a legoptimálisabb az osztály működéséhez!

Köszönöm ha tud valaki segíteni. 

Köszönöm! 

Szia!

Az Excel korábbi változataiban ezeket tömbképletként kellett bevinni (Ctrl + Shift + Enter). Az új verziókban így az O365-ben is már saját maga felismeri, hogy tömbképletként kell megoldani, nem kell a külön billentyűkombó.

Üdv.

Már csak az volt a bajom, hogy ha beírtam a példaképletet, #ÉRTÉK! hibaüzenetet kaptam. Aztán rájöttem, hogy a magyar excel más elválasztó karaktereket használ mint az angol (tizedes pont helyett vesszőt, elválasztó vessző helyett pontos vesszőt stb.). Nagy sokára találtam egy példa táblázatot, ahol kiderült, hogy a hatványok együtthatóit (a kapcsos zárójelben levő számokat) a magyarban hanyatt törtvonallal "" (alt-Q) kell beírni. És szuper jól működik a függvény, nem kell tömb képletet használni, ha simán egy cellába beírja az ember a lin.ill függvényt és a képletben megadja hányadfokú trendvonalra kíváncsi, az együtthatókat automatikusan egymás melletti cellákba írja. 

Szia!

Ez szerintem szuper. Még nem találkoztam korábban a LIN.ILL függvénnyel, most ránéztem a helpre. Ott is van róla szó a legvégén, de ez a magyarázat kifejezetten tetszik. Dícsérjük meg a MS-t, ritkán adódik rá lehetőség. Ez sokkal egyszerűbb, mint makrókkal operálni.

Üdv.

Köszi, kipróbálom! Időközben írtam a Microsoft supportnak is, és csodák csodája 24 órán belül válaszoltak. Még nem próbáltam ki, de valami olyat írtak, hogy a lin.ill függvény csak nevében lináris (elsőfokú), valójában tetszőleges fokszámra paraméterezhető. Ez elég elegéns megoldás lenne. Részlet a levelükből:

1. Készítse elő az adatokat:

Tegyük fel, hogy az "x" értékek az "A" oszlopban, az "y" értékek a "B oszlopban" vannak, és az adatok a 2. sortól a 100. sorig terjednek (pl. "A2:A100" és "B2:B100").

2. Számítsa ki az állandókat a LIN.ILL függvénnyel:

Válasszon ki egy üres területet (pl. "D1:G1"), és írja be a következő képletet:

=LIN.ILL(B2:B100;A2:A100^{1;2;3};IGAZ;IGAZ)

Itt az 'A2:A100^{1,2,3}' azt jelenti, hogy illeszkedjen egy köbös polinomhoz ( 'y = c1 + c2x + c3x² + c4x³'). - Nyomja meg a 'Ctrl + Shift + Enter' billentyűkombinációt a tömbképlet megadásához. Az Excel egy tömböt ad vissza, amely a "c1, c2, c3, c4" állandókat tartalmazza.

3. Dinamikus állandók használata képletekben:

Feltételezve, hogy a "LIN.ill" által visszaadott állandók a "D1:G1" tartományban vannak tárolva, ezeket az állandókat más cellákban is használhatja. Például az "x=2" előrejelzett értékének kiszámításához:

= $D$1 + $E$1*2 + $F$1*2^2 + $G$1*2^3

Ily módon az adatok frissítésekor a "LIN.ILL" automatikusan újraszámítja az állandókat, és frissíti a képleteket.

Bocs, a nagy igyekezetben lemaradt a makró:

Sub TrendlineEquation()
Dim objTrendline As Trendline
Dim strEquation As String
With ActiveSheet.ChartObjects(1).Chart
Set objTrendline = .SeriesCollection(1).Trendlines(1)
With objTrendline
.DisplayRSquared = False
.DisplayEquation = True
strEquation = .DataLabel.Text
Range("A5") = strEquation
End With
End With
End Sub

Üdv.

Szia!

Ezt az oldalt találtam:

How to Use VBA to Access the Equation of a Trend Line on Microsoft Excel

Ez a makró az A5 cellába írja a trend egyenletet (a cellát tudod változtatni természetesen), ami szöveg formátumban tartalmazza az egyenletet.

Ebből szöveg darabolással ki tudod hámozni a számodra megfelelő megoldást, ha nem menne, légy szíves írj ide egy valós egyenlet szöveget, mert polinom függő a szétdarabolás.

Arra is lehet makrót írni és akkor egy futással lehet az egyenletnek megfelelő együtthatókat megadni.

A munkafüzetet természetesen makróbarátként kell menteni.

Üdv. 

Lehet, hogy rosszul kérdeztem (vagy a válaszodat értem félre). Nem azt szeretném, hogy egy meglévő trendvonalat kibővítsek az adathalmazt megelőzően vagy utána. A problémám az, hogy az adathalmazomban mérési eredmények (az X tengelyen ultrahang sebesség, az Y tengelyen a hozzá tartozó szilárdság) van. Idővel ezek a mérési eredmények egy adott értéktartományon belül "sűrűsödnek", az x értékek egy tartományon belül változnak, tehát a táblázatban nincsenek érték szerint sorbarendezve, lehetnek ismétlődések is. Ahogy egyre több pontpár kerül a táblázatba a trendvonal (ami harmadfokú polinom) ezzel együtt változik.

Azt szeretném, ha egy szerkezetnél csak ultrahang sebességet mérek, a legutóbbi (aktuális) trendvonal függvényével tudjak szilárdságot becsülni. Ha újabb UH sebesség/szilárdság pontpárral bővül a táblázat (és ezzel módosul a trendvonal) a korábbinál pontosabb becslést lehetne kapni. 

Szia!

Sajnos nem látom, hogy közvetlenül lehetne paramétert kiolvasni a trend egyenlethez. Viszont a Trendline objektumhoz van Backward2 és Forward2 tulajdonság, amivel léptetni tudod a trendet az általad meghatározott egységgel.

Trendline.Backward2 property (Excel) | Microsoft Learn

Üdv.

Szia!

Az Environ("COMPUTERNAME") megadja az adott gép nevét. Ezt azonban csak a fájl megnyitása közben (a makró futtatásakor) tudod lekérdezni és összehasonlítani az általad engedélyezettel. 

Célszerűen a Workbook_Open eseménykezelőben lenne értelme elhelyezni. A fájlt rejtett ablakban nyitod meg és ha nem jogosult gépről nyitják meg, akkor üzenettel bezárod, ha pedig jogosult, akkor láthatóvá teszed az ablakot.

A jogosult gépek nevét persze tárolni kell valahol egy munkalapon vagy "fixen" beírni a makróba vagy egy külső fájlba, amit jogosultság ellenőrzésnél megnyitsz.

Üdv.

Sziasztok!

Az a kérdésem, hogyan/honnét lehet a trendvonal paramétereit kiolvasni? Ha van egy táblázatom, az abból készített grafikonhoz tudok olyan trendvonalat rendelni ami viszonylag jól illeszkedik. A trendvonal egyenletét is meg tudom jeleníteni amivel szeretnék számítást végezni (egy "x" változóhoz a trendvonal egyenletével kiszámolni "y"-t). Jelenleg csak úgy tudom megoldani, ha kézzel beírom a trendvonal egyenletét egy függvénybe. Ez egészen addig jó, amíg az adatokat tartalmazó táblázatban nem történik változás pl. új adatsor kerül bele. Ilyenkor a trendvonal változhat, de a kézzel bepötyögött képlet nyilván nem. Tudtok rá valami megoldást? Általános esetben kérdezem, ismerem a trend függvényt de az csak a lineáris regresszióhoz jó, általános (többfokú polinom) trendvonalhoz nem. 

Sziasztok,

Azt meg tudtam csinálni, hogy ne engedje az excel bezárás előtt menteni a változtatásokat ás ne is lehessen lementeni "mentés másként"-el.

Így csináltam:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ThisWorkbook.Saved = True

If SaveAsUI.Saved = True Then

Cancel = True

MsgBox ("Nem lehet másként menteni")

ElseIf ThisWorkbook.Saved = True Then

a = InputBox("Jelszó:", "Tudnod kell a jelszót, h engedje a mentést")

If a = "123" Then

MsgBox ("Mentve")

Else

Cancel = True

MsgBox ("Nem lehet menteni")

End If

End If

End Sub

Ezzel egyidejűleg, azt hogyan oldom meg, hogy csak én és mondjuk a megadott felhasználók tudják megnyitni?
Environ-ra gondolok, hogy gépneveket adok meg, akiknek így adok jogosultságot a megnyitásra.
Fontos, h gépnév legyen, ne felhasználó név.

Ezt még, hogyan és hová teszem hozzá?

Illetve még annyi, hogy gépneven azt a vezérlőpulton belül kikeresve - "teljes eszköznév" mellett szereplő nevet értjük, vagy az excelnek van egy "belső" gépneve, amit saját magának használ?

Köszönettel, 

András

Szia!

Most tudtam csak este megnézni.

Működik, tökéletes!!!

Nagyon köszönöm!

Üdv,

Szia!

Megnézhetnéd az alábbi képletet:

A beviteli munkalapon az A oszlopban vannak a partnerek, B oszlopban a hozzájuk tartozó kiadások, a másik munkalap neve Munka2 és az A1:B200 tartományban vannak a partnerek és a keretek, akkor a képlet a 2. sor első üres cellájába:

= SZUMHATÖBB($B$2:$B100;$A$2:$A100;$A2)-FKERES($A2;Munka2!$A$2:$B$200;2;0)

A képlet lefelé hüzható.

Ha táblázattá alakítod az adatbeviteli részt, akkor a függvény minden új sornál automatikusan megjelenik. (Ehhez a beállítások - speciális - adattartomány végén a formázás és képletek folytatása.

Üdv. 

Kedves Fórumtársak!
Az alábbiakban kérnék tanácsot.

Az egyik munkalapon van egy tábla, melyben a partnerek és kifizetési adataik kerülnek folyamatosan rögzítésre.
A másik munkalapon van a partnerlista és az adott partnerhez tartozó keretösszeg.

A cél az lenne, hogy a kifizetési adatok rögzítésekor azonnal lehessen látni, ha az adott partner kerete elfogyott.

Ezt most úgy oldottam meg, hogy készítettem egy a partnereket csoportosító és a kifizetési adataikat összegző kimutatást, melyet minden egyes tétel rögzítése után frissítek.

1.Az első kérdésem, van erre valamilyen függvényes megoldás? (Groupby függvényt nem találtam.)
2. Ha nincs, akkor automatizálható a frissítés, úgy makróval, hogy ha az A2:A1000 tartomány nem üres celláinak száma változik fusson le a "kimutatás frissítése" (Alt+F5) parancs? (A kimutatás ua. oldalon van, ahol a tételek rögzítése történik.)

Köszönöm,

Igen, ezt a lehetőséget nem vettem észre. Ezért pótlólag a végére beszúrtam, hogy ha L6>X6, akkor a 8. hét legyen a találat.

=HAELSŐIGAZ(P6>L6;0;SZUM(P6:Q6)>L6;1;SZUM(P6:R6)>L6;2;SZUM(P6:S6)>L6;3;SZUM(P6:T6)>L6;4;SZUM(P6:U6)>L6;5;SZUM(P6:V6)>L6;6;SZUM(P6:W6)>L6;7;L6>X6;8)

Szia!

Logikus amit írsz és ez nyilván a sima HA egymásba ágyazásra is igaz. Viszont próbáld ki lsz. hogy az utolsó értéknél is nagyobbat írsz az L6 cellába. Ekkor hibaüzenet lesz a HAELSŐIGAZ eredménye. Ezért van az első felételnél  a ">6" nálam.

Üdv. 

Ps. Örültem, hogy az általam mutatott verziót kitaláltam. :))

Érdekes ez a HAELSŐIGAZ függvény. Kicsit próbálgattam a sajám mintaadataimmal, hogy nem lehet-e leegyszerűsíteni a VAGY(B2=A2;SZUM(B2:C2)>A2...stb. formula helyett VAGY(SZUM(B2:C2)>=A2 alkalmazásával. Aztán egyszer csak meglepetés ért. A függvény az egyenlőségjel nélkül is megtalálta a helyes eredményt. Azt állítottam be, hogy a kumulált érték az 5. hétnél pontosan legyen egyenlő az L6 értékével. Ezt írtam be:  =HAELSŐIGAZ(P6>L6;0;SZUM(P6:Q6)>L6;1;SZUM(P6:R6)>L6;2;SZUM(P6:S6)>L6;3;SZUM(P6:T6)>L6;4;SZUM(P6:U6)>L6;5;SZUM(P6:V6)>L6;6;SZUM(P6:W6)>L6;7), mire kiadta az 5. hetet.

Az eredmény persze logikus, hiszen a 6. hét az első, ami nagyobb, mint az L6 értéke, így az 5. hét a jó eredmény, akár kisebb, akár egyenlő L6 értékével.

Íme a kép:

Köszönöm a választ, ezt a HAELSŐIGAZ függvényt eddig nem ismertem, utánaolvasva ez egy nagyon hasznos függvény..

https://support.microsoft.com/hu-hu/office/haels%C5%91igaz-f%C3%BCggv%C3%A9ny-36329a26-37b2-467c-972b-4a39bd951d45

https://support.microsoft.com/hu-hu/office/ha-f%C3%BCggv%C3%A9ny-be%C3%A1gyazott-k%C3%A9pletek-%C3%A9s-a-csapd%C3%A1k-elker%C3%BCl%C3%A9se-0b22ff44-f149-44ba-aeb5-4ef99da241c8

Csináltam egy új munkalapot a kumulatív vevői igényeknek (mert végülis ez egyönmagában is hasznos infó), és azon a lapon már probléma nélkül működik a dolog:)

Szia!

Nem feltétlenül kell hozzá segédsor, egymásba ágyazott ha függvényekkel is megoldható, ha rövidebb időszakra tekintesz előre. A példában 6 napra van a képlet összeállítva, ha ennél messzebb szeretnél látni, akkor folytatni kell a HA(VAGY képlettel a ">6" helyén és az utolsó napra kerül a hamis ágra ">x"

A B4 cella képlete:

=HA($B2>A2;0;HA(VAGY(B2=A2;SZUM(B2:C2)>A2);1;HA(VAGY(SZUM(B2:C2)=A2;SZUM(B2:D2)>A2);2;HA(VAGY(SZUM(B2:D2)=A2;SZUM(B2:E2)>A2);3;HA(VAGY(SZUM(B2:E2)=A2;SZUM(B2:F2)>A2);4;HA(VAGY(SZUM(B2:F2)=A2;SZUM(B2:G2)>A2);5;HA(VAGY(SZUM(B2:G2)=A2;SZUM(B2:H2)>A2);6;">6"))))))) & " napra elég"

Ha 2019-esnél frissebb verziód van, akkor létezik a HAELSŐIGAZ függvény, amellyel a képlet így néz ki (M2 cella) :

=HAELSŐIGAZ(SZUM(B2:H2)=A2;">6";$B2>A2;0;VAGY(B2=A2;SZUM(B2:C2)>A2);1;VAGY(SZUM(B2:C2)=A2;SZUM(B2:D2)>A2);2;VAGY(SZUM(B2:D2)=A2;SZUM(B2:E2)>A2);3;VAGY(SZUM(B2:E2)=A2;SZUM(B2:F2)>A2);4;VAGY(SZUM(B2:F2)=A2;SZUM(B2:G2)>A2);5;VAGY(SZUM(B2:G2)=A2;SZUM(B2:H2)>A2);6)&" napra elég"

Ebben a képletben elsőként kell beírni azt az összegképletet, amely a még látni kívánt időszakon túl mutat és a végén folytatni a VAGY képletekkel.

Remélem, sikerül adaptálnod.

Üdv.

"Ha jól értem egy kumulatív vevői igény segédsort készítesz." Pontosan. És ahogy írtam, bármelyik sorba kumulálhatod az igényeket. És akkor a P7:W7 helyett a megfelelő sor számát írod. 

Ha végképp nincs a közelben üres sor, akkor írhatod a nullát akár az Akár AA oszlopba, a kumulált adatokat meg az AB-től, és akkor a képletben a P7:W7 helyett AB7:AO7, illetve amelyik oszlopig tartanak az adataid. 

Ha jól értem egy kumulatív vevői igény segédsort készítesz.

Nem tudom ez nekem miért nem jutott eszembe :S

Köszönöm! Sajnos nálam a hatodik sortól lefelé sok cikk készletadata szerepel, de elemzem emit írtál mennyire tudnám átalakítani.:)

Meg lehet oldani képlettel, de kell egy kis ügyeskedés. 

1. a 7. sorban (ha üres, egyébként lehet a 8., 9., stb.) az O oszlopba írj nullát, majd a P oszlopba az =O7+P6 képletet, majd ezt töltsd ki jobbra végig.

2. Az M6 oszlopba írd be a következő képletet: =HOL.VAN(L6;P7:W7;IGAZ) Az általam hasraütéssel beírt mintában ez a 6. hét.

Nálam így néz ki:

Sziasztok!

A segítségeteket szeretném kérni.

Egy olyan problémám van, hogy L6 cellában van egy készletadatom.

P6 cellától kezdve jobbra vannak heti vevői igények.

A kérdésem, hogy milyen képletet írjak M6 cellába, ha azt akarom megszámolni a készletem hány hét alatt fogy el/hány hét vevői igényt fedez.

Ezt meg lehet képlettel, makró nélkül oldani?

Előre is köszönöm a segítséget!

Szia!
A kérdező 2000-es Excelében levő KEREK függvény pedig magasabb verziókban már nem létezik, pedig az a magyar szabályok szerint kerekített... Az "új" Kerekítés függvény erre sajnos nem alkalmas.

Üdv.

Köszönöm mindenkinek a segítséget!

Úgy néz ki, így megoldódik.

=HA((MARADÉK(A1;5)=0);A1;KEREK(A1/10;0)*10)

Az "5Ft-ra" kerekítés (a szabályok szerint)

=KEREK(A1/5;0)*5

Szia!

Köszönöm, ez jött ki.

Szia!

Ilyen MROUND nincs nekem. :(

Az van!

(Lehet, az eredeti kérdezőnek is az kell majd, mert 2000-es Officet emlegetett.)

Szia!

Esetleg MROUND függvényt látsz-e a verzióban?

Mert nem minden függvényt magyarítottak akkoriban.

Üdv.

A 2007-es Excel nekem ilyen

=HA((MARADÉK(B4;5)=0);B4;KEREKÍTÉS(B4/10;0)*10)

Szia!

Nézd meg lsz. ezt:

=HA(MARADÉK(A1;5)=0;A1;TÖBBSZ.KEREKÍT(A1;10))

Üdv.

Üdvözlet fórumtársak!
Nem bírok egy feladattal, és ehhez kérek segítséget.
A feladat: az A oszlopban lévő szám kerekítése, hogy az 5 alatt végződőt lefelé, az 5-re végződő marad 5-ön, az 5 felett végződőt felfelé.
A "B" oszlopban lévő függvény "=KEREK(A2/5;0)*5" a "C" oszlopban "=KEREK(A2/10;0)*10"
Létezik ilyen függvény, vagy trükk? A "C" oszlopban majdnem jó, de az 5-re végződőt is kerekíti.

Office2000
Köszönöm.

Bemásolom neked is :)

Sajnos még nem kerültem megint a táblázat elé. Ezért nem reagáltam az írásodra. Köszi, hogy foglalkoztál vele.

Hogy mire jutottam a megoldásaitokkal, majd jelenetkezem. Már átszerkesztettem akkor, ahogy írtam az OFSZET-tel. De ha ezek vaslamelyike élhetőbb, akkor variálok rajta.

Sajnos még nem kerültem megint a táblázat elé. Ezért nem reagáltam az írásodra. Köszi, hogy foglalkoztál vele.

Nagyon szépen köszönöm, Garashannak is!

Szia!

Jó szívvel ajánlom az Excel Súgó menüpontját. Minden függvényhez van elég jól érthető magyar nyelvű leírás.

A képletet tartalmazó cellára ráállsz, az Fx gombot megnyomod, a párbeszédablak alján ott a link a súgóhoz.

Üdv.

Az FKERES a következő paraméterekkel rendelkezik:

1. mit keressen

2. a tartomány amiben keressen (ha több oszlopból áll, akkor az első oszlopban keres)

3. hanyadik oszlopban lévő értéket adja vissza, ha találat van az első oszlopban

4. IGAZ/HAMIS vagy 1/0: HAMIS vagy 0 érték esetén pontos értéket keres, míg IGAZ vagy 1 érték esetén közelítő értéket keres.

Azaz a te példádban: FKERES(C3;$L$2:$N$9;3;1)

1. C3 értéket keressük
2. L2:N9 tartartományban (a példában a húzhatóság miatt rögzítve van dollár jellel a tartományt meghatározó két cella)
3. a 3. oszlopban lévő adatot adja vissza
4. 1, azaz IGAZ érték, így közelítő értéket fog visszaadni

Ha nincsenek növekvő sorrendben az értékek, akkor rosszul fog működni a képlet. Illetve valójában az M oszlopra nincs is szükség. Illetve ha az általad megadott adatokat vesszük alapul és 0-nál kisebb számot keresnénk, akkor #HIÁNYZIK hibát adna a képlet. Mivel 0-tól indul a keresendő érték megadása.

Szia! Tökéletes, nagyon szépen köszönöm! 
Csak egy apróság még, a 3;1 paraméter a végén, mi célt szolgál?

A többi részét értem. :D

Szia!
Így akkor csak egyszerű FKERES, a negyedik paraméter 1 

A példádban D3 képlete:

=FKERES(C3;$L$2:$N$9;3;1)

Fontos, hogy a húzhatóság érdekében az L:N oszlop címe rögzítve ($) legyen.

Megjegyzés: Ebben az esetben az M oszlop nem szükséges, hiszen a határok az L oszlopban megfelelően meg vannak adva. Amire figyelni kell, hogy a határok növekvő sorrendben legyenek.

Üdv.

Szia, bocsánat, most láttam csak, hogy nem csatolta a képet.

Most csatolom!

Szia!

Sajnos nem egyértelmű a példád.

Ha 26000 a szám, akkor miért 24-24500 ill. 24500-25-höz tartozó értékeket adsz meg példának. Jó lenne egy nagyobb részét látni az L-M oszlopnak, a valódi formátumban (persze nem a tényleges számokkal). Milyen értékek vannak az L és milyen értékek az M oszlopban?

Egyébként valószínűleg egymásba ágyazott függvényeket kell használni majd. Pl. Fkeres függvénnyel megkeresni az első értéket, ezután INDEX függvénnyel meghatározni a keresési tartományt és utána ismét Fkeres függvénnyel a kívánt értéket. (Xkeres is működik hasonlóképp), de verzió függő, milyen függvényt lehet még használni, O365-ben pl. van SZŰRŐ függvény is.

Üdv.

Sziasztok! 

Az lenne a kérdésem, hogy a következő feladathoz milyen függvényt kellene használni? Próbáltam sok mindent, de nem sikerült megoldást találnom.

Adott az L-M oszlop, mint két határérték / tartomány, adott egy szám, jelen esetben a 26000 és szeretném mellérendelni az N oszlopból azt, ami éppen igaz rá. Ha 24-24500akkor -2000, ha 24500-25 akkor -1000 stb.

Erre van esetleg valami megoldás?

Előre is köszönöm a segítséget!

1. Tegyük fel, hogy az első sorban vannak a havi értékek az A oszloptól kezdve. A példámban a 2. sort meghagyom fejlécnek, pl.: 2001, 2002 2003 stb.

2. A 3. sor A oszlopába bemásolod a következő képletet:

=INDIREKT(CÍM(1;1+(OSZLOP()-1)*12-3+SOR();1;HAMIS);HAMIS) ' A megvastagított egyesről még beszélek

3. Ezután a 3. sor A oszlopától jobbra kitöltöd a a bemásolt függvényt addig, amíg vannak új éveid.

4. Végül a 3. sortól lefelé kitöltöd az így kapott oszlopokaz 1-12-ig.

És voilá megvan a teljes átrendezett lista.

Megjegyzés: Ha az első sor nem az A oszlopban kezdődik, akkor először a 2. pontban bemásolt képletben a vastagon szedett 1-est átírod arra a számra, ahányadik oszlopon kezdődnek a havi értékek.

ezután hajtod végre a 2.és 3. pontot.

Íme az eredmény képe (én csak 3 évi mintát csináltam:)

 A13 cella képlete helyesen: =INDEX($10:$10;1;SOR()-12+(OSZLOP()-1)*12)

Én másképpen futnék neki.

Szóval a 10. sorban vannak az adatok. Ha jól értelmeztem, akkor így követik egymást. Az 1/1 jelenti az első év januárját, 2/3 pedig a 2. év márciusát, stb...

A13 cella képlete: =INDEX($10:$10;1;SOR()-12+(OSZLOP()-1)*2)
Ezt a következő képen kell módosítani:

• $10:$10: ide menjen az a sor, szigorúan $ jellel, ahol az adatok vannak
• 1: mivel egy sorban helyezkednek el az adatok, így ide 1-es kerül
• SOR()-12+(OSZLOP()-1)*12: mivel a 13. sorba van a képletem, így az aktuális sorból ki kell vonni 12-t, hogy megkapjuk a hónap sorszámát. Az oszlop-1 kifejezés pedig meghatározza az év eltolását. Azaz az egymás melletti oszlopok pontosan 12 hónappal lesznek eltolva. Nyilván, ha nem az A oszlopban kezded a kimutatást, akkor nem 1-et kell kivonni az oszlop sorszámából, hanem annyit amennyi az első oszlop sorszáma. Pl. ha az M oszlopban kezded a kimutatást, akkor 13-at kell kivonni.

Találtam egy OFSZET függvényt. Ezzel elleszek szerintem.

Sziasztok!

Egy sorban vannak egymást követően számok. Egy adott évhez tartozó havi értékekkel. Tehát 12 szám van (január - decemberi érték). Aztán tőle jobbra a következő cellában a következő év 1. havi, majd 2. havi értékei stb.

101 / 102 / 103 / 104 / ....... 111 / 112 / 201 / 202 / ..... 212 / 301 / 302 / ....

Ugyanezen munkalapon szeretném valami függvénnyel rendezni, hogy egymás alatt legyenenk az adott év hónapjainak értékei, aztán a mellette oszlopban a következő év hónapjainka értékei.

101 / 201 / 301

102 / 202 / 302

103 / 203 / 303

.

.

.

112 / 212 / 312

Jelenleg nem találtam rá függyvényt, Excel 2007-es.

Ha a oszloponként egy cellába bele kell nyúlni, az nem baj. De jelenleg egyesével mozgatom a függvény "négyzetét", hogy így nézzen ki a függvény:

=AA10     =AM10     =AY10

=AB10     =AN10     =AZ10

=AC10     =AO10     =BA10

...            ...             ...

=AL10     =AX10     =BJ10

Tehát valami olyan függvény kéne, ami lépteti a meghivatkozandó cella azonosítóját. Nem találtam ilyet. Makrós megoldás nem lenne jó, mert nem akarom bonyolítani.

Nagyon köszönöm!
Már összevissza képleteztem mindent ész nélkül...

Remek vagy!

p.

Szia!
O365 esetében használható a SZŰRŐ függvény.

Korábbi verzió esetében érdemes megnézned az Adatok - Speciális (lánykori nevén Irányított szűrő) - menüpontot.

Vagy az eredeti munkalapról csinálsz másolatot - a másolaton Autoszűrő és már látod is az összes kívánt adatot.

Üdv.

Sziasztok!
Létrehoztam egy táblázatot a telephelyünk elektromos hálózatáról. (honnan, mi, milyen leágazás jelről, milyen védelemmel, milyen kábelen keresztül van megtáplálva) 'Szekrény - leágazás név - leágazás jel - védelem - kábel'
Szükségem van egy olyan megoldásra, hogy a táblázat adatai alapján másik munkalapon megjelenjen (a táblázat egyedi szekrénynév értékeit tartalmazó engedélyezési listából) kiválasztott szekrényhez tartozó összes (nem csak az elsőként megtalált) belőle induló, közvetlen betáplálás adata.
Segítségetek köszönöm! Pit

Szia,

Értem, köszönöm szépen!

Szia!

A helyettesítő karakterek csak szövegben működnek, szám esetében nem!

Ha a számok szövegformátumban vannak, akkor működhet, de csak 1 db csillag kell a végére.

A helyettesítő karaktereknél ugyanis a csillag (*) akárhány karaktert helyettesít, az lehet 1 és lehet akár 100 is:

Pl. *10* minden olyan tételt kiválaszt, amiben előfordul a 10 karaktersorozat (szándékosan nem a 10 számot írtam, mert ugye szövegről van szó!!!)

10* minden 10-zel kezdődő szöveget kiválaszt, *10 minden 10-zel végződő szöveget választ ki.

Ha egy karaktert szeretnél helyettesíteni, arra a kérdőjel (?) való. Ahány kérdőjelet teszel a keresésbe, annyi karakter helyet kvázi figyelmen kívül hagy.

Ezeket megfigyelheed, ha az autoszűrőben a szövegszűrést választod és tanulmányozod a szűrés eredményét és a létrehozott szűrő feltételeket.

Tehát a számoknál a számtani műveleteket kell használni, szövegnél lehet a helyettesítő karakteres formát is.

Üdv.

Advanced filterben kritériumok

Sziasztok,

Megint segítség kellene :-(

Nem bírok rájönni, hogy miért van a következő:

első esetben szűri manuálisan és makróval is

Második esetben viszont se manuálisan, se makróval sem szűri.
Mi az oka?

Mármint :-)

Szia,

Köszönöm, pár adattal kipróbálva működik :-(
Beteszem majd VBA is.

Köszönöm!

Szia!

"Hogyan tudom az alap adatsorban átalakítani a szöveges formátumú cellákat szám formátumúvá, hogy megtartsa a kezdő nullákat?"

Két lépésben:

1. lépés

Kijelölöd az oszlopot - Adatok - Szövegből oszlopok - 1.párbeszéd ablakban:tagolt - befejezés

2. lépés

Kijelölöd az oszlopot -  jobb egérgomb - cellaformázás - szám fülön - egyéni  - formátum kódba bemásolod:

_*0#########

Annyi # legyen benne, amennyi a maximális számhosszad.

Ezután a számaid - minden szám a kijelölésben! -  mindig egy db vezető 0-val fognak megjelenni - de számként lehet rájuk keresni.

Üdv.

Sziasztok, Boldog Karácsonyt!

Advanced filter multiple criteria-val szűrök makroval adatokat.
A szűrés szám formátum alapon működik.

Az adatsoromban viszont szöveges formátumok is vannak, amik számokat tartalmaznak. Ez azért van, hogy ha egy számsor nullával kezdődik az adatsorban, akkor maradjanak meg a kezdő nullák is az adatsorban, hiszen ha számformátumban van tárolva, akkor a kezdő nulla /nullák elvesznek.

Így viszont az advanced filter nem működik ezeken a szöveg alapú cellákon (amik egyébként számokat tartalmaznak).

Hogyan tudom a kettőt összehozni?

Vagy
Hogyan tudom az alap adatsorban átalakítani a szöveges formátumú cellákat szám formátumúvá, hogy megtartsa a kezdő nullákat?

Ha vakinek van kedve foglalkozni ezzel esetleg, így a bejglik között :-)

Köszi! 

Szia,

OK - átnézem ezeket a lehetőségeket.

Köszönöm szépen az ötleteket.

Szia,

Ha megcsinálom, amit szeretnék, akkor magunkat és így magamat is védem.