-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
félisten
lappy és Magnat
Egyelőre ennyit tudtam tenni az ügy érdekében (vezetek)
Tudom, még lehetne optimalizálni, de MA biztosan nem teszem.B2 képlete
=ÖSSZEFŰZ(VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));1;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));2;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));3;1)="0");"";"milliárd ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));4;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));5;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));6;1)="0");"";"millió ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)+1;"";"egy ";"kettő ";"három ";"négy ";"öt ";"hat ";"hét ";"nyolc ";"kilenc ");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));7;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));8;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));9;1)="0");"";"ezer ");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)+1;"";"egyszáz ";"kétszáz ";"háromszáz ";"négyszáz ";"ötszáz ";"hatszáz ";"hétszáz ";"nyolcszáz ";"kilencszáz ");HA(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)<>"0";VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tizen";"huszon";"harminc";"negyven";"ötven";"hatvan";"hetven";"nyolcvan";"kilencven");VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)+1;"";"tíz ";"húsz ";"harminc ";"negyven ";"ötven ";"hatvan ";"hetven ";"nyolcvan ";"kilencven "));VÁLASZT(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)+1;"";"egy";"kettő";"három";"négy";"öt";"hat";"hét";"nyolc";"kilenc");HA(ÉS(KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));10;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));11;1)="0";KÖZÉP(SZÖVEG(A2;SOKSZOR(0;12));12;1)="0");"";""))
Természetesen módosítsátok tetszésetek szerint a képletet, legyen pöpec...
UI: Makróban sokkal egyszerűbb megírni, ezt csak az érdekesség kedvéért csináltam...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Nixon18 #48495 üzenetére
Valamikor régen már feltettem a makrót – talán többször is – de most nem találom. Újra felteszem.
Function Szam_kiiras(szam As Long) As String
Dim j1, j10, j10a, j100
j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
j100 = Array("száz", "", "ezer", "millió", "milliárd")
betu = ""
If szam = 0 Then
Szam_kiiras = "Nulla"
Exit Function
End If
s = Format(szam, "0")
j = 1
While s <> ""
i = Len(s) - 2
If i < 1 Then i = 1
s2 = Mid(s, i, 3)
s = Left(s, i - 1)
s3 = ""
If Len(s2) = 3 Then
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
s2 = Right(s2, Len(s2) - 1)
End If
If Len(s2) = 2 Then
If Mid(s2, 2, 1) = "0" Then
s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
Else
s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
End If
s2 = Right(s2, Len(s2) - 1)
End If
s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
If s3 <> "" Then s3 = s3 + j100(j)
If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
betu = s3 + kot + betu
j = j + 1
Wend
betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
Szam_kiiras = betu
End Function
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Magnat
veterán
-
félisten
-
Colin111
csendes tag
Üdv újra!
A jó hír, hogy egy másik gépen rendben van a power modul és az adatkezelésnél megjelenik a json file beolvasás, de nem igazán sikerült megértenem a működését...
Nekem egy többszintű json file-om van (lesz több is) de ebből csak a két első fejléc mezőt ismeri fel beolvasáskor az excel, a többi kb. 15 mezőt észre sem veszi.
Próbáltam manuálisan felvenni további oszlopokat, de hiába, az értékeket nem hajlandó beolvasni táblázatos formába (kb. 500 azonos szerkezetű bejegyzés van json-ben)
Egy online konverter simán felismerte és szuper táblázattá alakította ezt a json file-t, de nem szeretnék majd éles adatokat online feldolgozni, ezért keresek valami jobb megoldást.
Ha bárkinek van ötlete, javaslata, kérem írja meg.
Az első rekord a fejléccel így néz ki:
{
"account": {
"iban": "HU07XXXXX001000000XXXXXX0000"
},
"transactions": {
"booked": [
{
"additionalInformation": "+XXX 00365401940",
"bookingDate": "2022-02-07",
"creditorAccount": {
"iban": "HU07XXXXX001000000XXXXXX0000"
},
"creditorName": "KISS JÁNOS",
"debtorAccount": {
"iban": "HU74SSSSS0010000000SSSSS0025"
},
"debtorName": "HERMIONE GRANGER",
"endToEndId": "NOTPROVIDED",
"proprietaryBankTransactionCode": "HCT001",
"remittanceInformationUnstructured": "Payment order 1",
"transactionAmount": {
"amount": "1.00",
"currency": "HUF"
},
"transactionId": "",
"valueDate": "2022-02-07"
},
Előre is köszönök minden segítséget! -
Delila_1
Topikgazda
válasz Fire/SOUL/CD #48501 üzenetére
Hihetetlen, mire nem vetemedsz!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Anulu79
addikt
Sziasztok!
A következő lenne a kérdésem:
A oszlop: érték, mondjuk 10
B oszlop: érték, mondjuk 100
C oszlop: érték, 1 - 1000-igKövetelmény:
Ha a C oszlop értéke az A és B oszlopban írtak közé esik akkor zöld dzínű legyen az érték máskülönben piros színű.Megoldható úgy a C oszlop feltételes formázása (zöld, piros) úgy, hogy minden egyes cella külön legyen formázva? Ugyanis ha egyben formázom és mondjuk a B és C oszlopban lejjebb modosítom az értékeket akkor a formázást az egész oszlopra veszi.
Remélem, hogy nem voltam túl kusza.
Köszönöm!
-
-
Alcsi69
senior tag
Sziasztok!
Gyakornoki munkam soran (ami valoszinuleg nem lesz tul hosszu eletu amugy) belebotlottam nehany szamomra nehezebbnek tuno feladatba, es mivel nem vagyok annyira gyakorlott excelben, gondoltam megkerdezem hogy ez mennyire lehetseges.
A legegyszerubb feladat elso resze valahogy igy nezne ki:
Van 12db .xlsx-em melyekben kulonbozo gepek havi fogyasztasai vannak (12db xlsx->mindegyik 1-1 honapra vonatkozoan). Ezen gepeket 2021 valamelyik honapjaban fejlesztettek, es 30%-os fogyasztascsokkenest igeretek.Van egy 13. darab xlsx, melyben a vizsgalni kivant gepek vannak, illetve a fejlesztes datuma van megadva.
Eloszor is tudnia kellene a programnak, hogyha az adott gepen pl. a 10. honapban tortent a fejlesztes, akkor a 9. es 11. honap fogyasztasi adataibol kellene a szazalekos csokkenest (jobb esetben) logolnia. Tehat tudnia kell hogy melyik fajlban kell keresnie adott ID alapjan a havi fogyasztast tartalmazo xlsxekben a megfelelo ID-hoz tartozo fogyasztasi adatokat.
Szerintetek ez vba-ben megvalosithato ha jol utananezek a dolognak?
-
Anulu79
addikt
Igen erre gondoltam. Viszont a formáummásolás nem akar működni mert mert minden cella ugyanarról az egy celláról veszi a formátumot. Aztán ha később módosítok az A és a C cellán akkor már nem jó mert az elején lévő adatoknak meg kell maradniuk.
Kicsit nehéz elmagyaráznom. -
Nixon18
senior tag
válasz Fire/SOUL/CD #48501 üzenetére
Eszméletlen!
Delila_1 neked is köszönöm!
-
Mr.Mercury
aktív tag
Sziasztok!
Segítséget szeretnék kérni: meg lehet azt oldani, hogy a feltételes formázásnál az ismétlődő értékeknél az Excel csak azokat a cellákat jelölje meg ahol az ismétlődések száma min. 3-szor vagy többször fordul elő, tehát a duplikációkat hagyja figyelmen kívül és ne jelölje meg?
Mercury
-
temporello
tag
válasz Mr.Mercury #48520 üzenetére
Például egy ilyen képlettel:
=COUNTIFS(B:B;B1)>2 -
Mr.Mercury
aktív tag
-
Sziasztok!
SOS segítséget szerenték kérni! Ugyan nem MS Excel, hanem Libreoffice, de mikor átviszem a fájlt MS-be, ugyan az a helyzet.
Van egy táblázat, méretezve, képekkel, stb. Kereken A4-re. A nyomtatási és PDF exportálási kép azonban kisebb és alul megjelenik az oldalszám, felül pedig a munkalap neve. Ezt kellene eltüntetni, hogy a 0px margós A4-es nyomat tényleg az legyen, vagyis ténylegesen csak a cellákat nyomtassa ki.
Előre is köszönöm!
But who is watching the guardians?
-
-
wolfman
veterán
Sziasztok!
Lenne kettő igen égetően fontos kérdésem!
1.: Ki lehet-e menteni egy több füles táblázatból füle(ke)t külön táblázatba?2.: Ha igen: Ezen fülekben lévő táblázatokban megjelenő értékek változók és képletek alapján kerülnének be másik fülekről. Ha ezeket kimentem külön táblázatba, akkor ezek az értékek megmaradnak vagy mivel nincs mire mutassanak, lenullázódnak vagy értéküket vesztik? Ha igen, azért lehet rá megoldás? Ha nem teljesen érthető, leírom részletesebben is. Ha ezek kivitelezhetők lennének, rettentő sokat segítene a munkámban!
„Ami mérhető, mérd meg! Ami nem mérhető, tedd mérhetővé!” – Galileo Galilei
-
Fferi50
őstag
válasz wolfman #48526 üzenetére
Szia!
1. Igen! Lapfülön jobb egérgomb - áthelyezés vagy másolás - új munkafüzetbe - legyen másolat kocka bepipálva.
2. A hivatkozások megmaradnak, az eredeti munkafüzetben levő munkalapokra fognak hivatkozni. Ha az eredeti munkafüzetet nem helyezed át máshova, akkor a hivatkozások alapján az értékek frissíthetők (még az eredeti munkafüzet bezárása után is!).
Üdv. -
csiben1
tag
Sziasztok,
Ti hogy oldanátok meg a következő korlátozást:
A1 cella értékénél nem lehet nagyobb a B1 és C1 cella értékeinek összege. Tehát ha A1=100, akkor maximum akkora számot írhatok a B1 és C1 cellába, hogy azok összege nem lehet nagyobb 100nál. Ellenkező esetben egy csúnya hibaüzenetet kapok.Ha valaki tud erre valami megoldást azt megköszönném!
You can walk straight through hell with a smile
-
Fferi50
őstag
válasz csiben1 #48528 üzenetére
Szia!
Makró nélkül pl.
1. D1 cella képlete=HA(A1-B1-C1>=0;"";"HIBA")
2. Feltételes formázás az A1 : C1 tartományra - képlettel , a képlet=$A$1-$B$1-$C$1<0
kitöltés vagy szegély.
3. Adatok - érvényesítés - egyéni - képlet:$a$1-$b$1-$c$1<0
4. Makró:
A munkalap kódlapjára beírva:Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:C1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range("A1").Value < Range("B1").Value + Range("C1").Value Then
MsgBox "Hibás érték"
End If
Application.EnableEvents = True
End Sub
Üdv.
[ Szerkesztve ]
-
wolfman
veterán
válasz Fferi50 #48527 üzenetére
1.: Köszönöm, ez tuti!
2.: Nem nem, így nem lesz jó. Ami lapfület kimásolok külön dokumentumba, azt tovább lenne küldve az eredeti sokfüles táblázatunkból.
Azért kell, mert most kolléga (én meg a helyettese vagyok ) 5-6 különböző táblázatot (külön lapfüleken) tölt ki egymás után mert mindegyikre máshogyan kellenek számítások az általunk bevitt adatokból. Na most az első táblázatot mi töltjük, a többire meg számolná a program ezekből ami kell. Csakhogy a külön füleken szereplő táblázatokat külön osztályokra kell szétküldjünk, de nem akarjuk az egészet egyben. Hogy kimásoltam tuti, de az eredeti munkafüzet nem lesz mellette.
„Ami mérhető, mérd meg! Ami nem mérhető, tedd mérhetővé!” – Galileo Galilei
-
Fferi50
őstag
válasz wolfman #48531 üzenetére
Szia!
Akkor
1.a hivatkozásokat meg kell szüntetni az Adatok - kapcsolatok vagy hivatkozások - megszüntetés menüponttal az átmásolt munkalapon. Ebben az esetben az éppen akkor levő értékek maradnak meg.
2. A munkalap teljes területét kijelölöd - másolás - irányított beillesztés értéket.
Ebben az esetben is az értékek maradnak és a képletek megszünnek.
Üdv. -
wolfman
veterán
válasz Fferi50 #48532 üzenetére
Nagyszerű vagy!!! Köszönöm szépen! Tuti frankó. Első pontban leírtakat fogom alkalmazni. Ha sikerül a számolás a különböző fülekre, ezzel most jelentősen gyorsulni fog a havi munkafolyamat.
De még lesznek kérdéseim, csak még az összeállítás előtt állok!
„Ami mérhető, mérd meg! Ami nem mérhető, tedd mérhetővé!” – Galileo Galilei
-
zseko
veterán
Sziasztok,
lenne egy excel táblázatom, 34 munkalappal, mérési eredményekkel.
A benne lévő értékeket szeretném függőlegesről vízszintesre átrakni, minden munkalapon. Azaz az A8 a B2-be kerülne, a B8 a B3-ba, C8 a B4-be, stb, majd az A-F9 értékei a C2-7 cellákba, stb.Azt hittem ha felveszem makróval az egészet ahogy rendezem, majd a másik munkalapon elindítom, akkor ott is megcsinálja, de nem így működik... Hogyan lehetne megadni, hogy munkalap névtől függetlenül lefuttassa az épp aktuális munkalapon a makrót? (semmire nincs átnevezve, az alap Munka1 - Munka34 név van)
A legvégén az összes érték a legelső munkalapra kerül egymás alá (34 termék, 34 mérés eredményei, de ez a legkevesebb, legfeljebb ctrl+c - ctrl+v lesz, viszont a rendezést jó lenne nem minden lapon külön egyesével megcsinálni.
(Itthon 2007-es office van, munkahelyen viszont xp.)
[ Szerkesztve ]
HR24.hu
-
lappy
őstag
Sub Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
'your code here
End Sub
A modulban kell tenni és a kódot beilleszteni[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
lappy
őstag
Van egy megosztott excel file, amiben szabadságok vannak vezetve
Azt szeretném megcsinálni, hogy ha szeptember 01-ig nem veszi ki a szabadság 70% -át akkor, ha vki megnyitja a fájl-t akkor legyen egy lista amiben azokkal a személyekkel akik még nem vették ki. De lehet előtte egy hónappal is kellene egy figyelmeztetés hogy hamarosan szeptember 01.
KöszönömBámulatos hol tart már a tudomány!
-
Fferi50
őstag
Szia!
Ha makró lehet benne, akkor a Thisworkbook modul Workbook_Open eseményébe beteheted, hogy az aktuális dátum függvényében figyelmeztessen.
Ha nem lehet makró, akkor egy cellába írnám a figyelmeztetést és feltételes formázással tenném láthatóvá/láthatatlanná.
Persze figyelni kellene az aktuális felhasználó szabadság felhasználását is. A konkrét megoldás függ a személyek és szabadságok kezelésétől.
Üdv.[ Szerkesztve ]
-
lappy
őstag
válasz Fferi50 #48538 üzenetére
a személyek szabadság felhasználása egy sorban a személyek alatt lenne figyelve egyszerű matematikai művelettel (ez megoldott)
a feltételes formázásra gondoltam, de nem tudom mennyire veszi észre a figyelmeztetés - ha a makró nem megy akkor marad ez
viszont a makrós megoldást azt nem tudom, ebben tudnál segíteniBámulatos hol tart már a tudomány!
-
addikt
Üdv!
Az alábbi táblázatban szeretnék segítséget:
Szeretném, ha a program megkeresné az ismétlődő rendelési számokat és törölné egy kivételével, de a megmaradó egyetlen tételben összesítené a darabszámot. Pl. az A9A26927 esetében az elsőn kívül törölje a többit, de a darabszámot összesítse, ebben az esetben 6db-ra.
Ez lehetséges VBA nélkül? Bár annak sem vagyok ellene, ha nem túl bonyolult.
Köszi előre is!
Dark Archon | i5-12600KF - RTX 3070 | Canyon Endurace 7 | BF4: DarkArchonHUN
-
lappy
őstag
válasz Dark Archon #48542 üzenetére
lemásolod majd ismétlések eltávolítása
és egy darabteli függvényBámulatos hol tart már a tudomány!
-
addikt
-
lappy
őstag
válasz Fferi50 #48545 üzenetére
nincs bejelentkezés - belső hálózaton használt, megosztott fájl
igen tettem fel egy minta képet és a 2. sorban látható hogy mennyi szabadságot vett ki az adott személyek %-n ebből ki kellene gyűjteni akik nem érik el a 70% szeptember 01-ig akkor jönne a figyelmeztetés (de valójában korábban kellene erre felhívni a figyelmet)Bámulatos hol tart már a tudomány!
-
lappy
őstag
-
Fferi50
őstag
Szia!
Gondolom, hogy akivel nincs baj, annak nem szeretnél üzenetet adni. Ezért érdekes a belépés módja.
Az Application.UserName visszaadja, hogy éppen ki az aktuális felhasználó. Miután ez egy megosztott fájl, ezért ez a felhasználó név a Windows név lesz. Ezeket a neveket kellene párosítani a felhasználók munkalapon használt neveihez. Így már lehet keresni a hozzá tartozó információkat.
A minta makró, amit a Thisworkbook kódlapjára kell bemásolni:Private Sub Workbook_Open()
If Date < DateSerial(Year(Date), 8, 1) Then Exit Sub ' ha aug. 1 előtt vagyunk nem kell semmit tenni
Dim cl As Range,szemely As String
szemely = Application.UserName
Select Case szemely
Case "Név1" 'a belépő windows neve
szemely = "jóska" ' a belépő táblázat beli neve
Case "Név2"
szemely = "pista"
'...felsorolod a további név lehetőségeket
End Select
'vagy
' a belépők windows és táblázatbeli neve a hivatkozott tartományban van, elől a windows név
' pontos legyen mindkét név beírása a tartományba'
szemely = Application.VLookup(szemely, Sheets("Munka1").Range("A2:B20"), 2, 0)
'eddig tart a belépő azonosítása
Set cl = Sheets("Munka1").Rows(6).Find(what:=szemely, LookIn:=xlValues, lookat:=xlWhole)
If cl Is Nothing Then
MsgBox szemely & " nem szerepel a felhasználók között!", vbCritical
Exit Sub
Else
If cl.Offset(-4, 0).Value < 0.7 Then
MsgBox szemely & " még csak " & cl.Offset(-4, 0).Text & " szabadságot használtál fel!"
End If
End If
End Sub
A próbához az első sort (If Date) kommenteld ki, így látni fogod hogyan működik. A dátumot átírhatod tetszésed szerint.
Én jobbnak látom a második megoldást, amikor a felhasználó nevek párosítása táblázatban van és Vlookup-pal keressük meg. Így a felhasználók változását csak a munkalapon kell átírni.
Remélem erre gondoltál.
Üdv.
-
addikt
-
alcsa
senior tag
Sziasztok!
Hogyan lehet egy fuggvenyt alkalmazni egy oszlopban, anelkul, hogy le kelljen huznom.
Pl osszeakarom adni az A es a B oszlop elemeit es beirom a C1-be hogy =sum(A11), es ezt akarnam lehuzni mondjuk C100-ig.
Csak az a baj, hogy kell amikor huznom tobb ezer sorig, ezt akarnam elkerulni.Koszi .
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam kulcsok - UTALÁS/REVOLUT
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Steames kulcsok jó áron eladóak!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen