-
Fototrend
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
-
Fferi50
Topikgazda
Szia!
"mögé szeretnék még írni valamit, ami mindig változik és egy adott cellában van."
Szerintem munkalapon ilyet nem lehet csinálni. Viszont az egyéni formázásban a számok elé - mögé írhatsz szöveget, amit utána formátum másolással át tudsz vinni bárhová.
Pl. 0,00utas formátum minden beírt szám után odaírja az utas szöveget. Tehát megcsinálod a kívánt egyéni formátumokat és azokat alkalmazod a megfelelő cellákra.
Üdv. -
#49944
Fferi50
Topikgazda
istvankeresz
#49939
Fferi50
Topikgazda
válasz
istvankeresz
#49939
üzenetére
Szia!
Használhatod a Like operátort ebben az esetben:
Cells(1,1).Value Like "1234.56*" True értéket ad, ha a cella értéke a beírt karakter sorozattal kezdődik, ellenkező esetben False az érték.
Vigyázz, a számok összehasonlításánál is a Like operátor utáni résznek szövegnek kell lenni és nem tizedespont hanem a magyar szabályok szerint tizedesvessző kell bele!
Üdv. -
#49937
Fferi50
Topikgazda
the radish
#49936
Fferi50
Topikgazda
válasz
the radish
#49936
üzenetére
Szia!
Állitsd a számításokat manuálisra:Application.Calculation=xlCalculationManual
A visszaállítás:Application.Calculation=xlCalculationAutomatic
Viszont ha a makró a számított értékeket is figyelembe veszi valahol, akkor hamis lehet a végeredmény. -
#49934
Fferi50
Topikgazda
istvankeresz
#49933
Fferi50
Topikgazda
válasz
istvankeresz
#49933
üzenetére
Szia!
Az elveket mutatnám, amit hozzá kell adaptálnod a saját feladatodhoz:Set ujws=Workbooks("uj").Sheets(1)
For Each ws in Worksheets
For Each rng In ws.UsedRange.Columns("A").Cells
If rng.Value=x Then
ujws.Cells(Cells(ujws.Rows.Count,1).End(xlUp).Row+1,"A").Value=rng.Value
'ha nem lehet több érték akkor Exit For
End If
Next
Next
Az "uj" munkafüzetet létre kell hoznod előtte.
A feltételt az If-fel kezdődő sorban kell megadni, itt egy szimpla egyenlőséget tételeztem fel.
Az értéket mindig az A oszlop következő üres cellájába másolja.
Üdv. -
Fferi50
Topikgazda
válasz
Onderon
#49921
üzenetére
Szia!
Ez megoldható az Fkeres függvénnyel, mutatom a képet:
A pótlék % képlete a B2 cellában látható.
A tényleges pótlék képlete (D1-ben van a napi bér):=$D$1*FKERES(A2;$K$1:$L$6;2;1)
A képleteknél figyelj a $ jelek megfelelő használatára.
Az Fkeres függvény 4 paramétere 1, ebben az esetben azt az értéket adja vissza, amelyik a legközelebbi határértékhez tartozik. Ezért kell a határokat minimálisan túllépve megadni a táblázatban.
Üdv. -
-
#49907
Fferi50
Topikgazda
istvankeresz
#49906
Fferi50
Topikgazda
válasz
istvankeresz
#49906
üzenetére
Szia!
A Workbooks.Add sor felesleges. A Sheets(...).Copy magától létrehozza az új munkafüzetet.
Üdv. -
#49904
Fferi50
Topikgazda
istvankeresz
#49903
Fferi50
Topikgazda
válasz
istvankeresz
#49903
üzenetére
Szia!
Melyik sornál?
Megmutatnád a makrót, ami ezt okozza?
Üdv. -
#49902
Fferi50
Topikgazda
istvankeresz
#49901
Fferi50
Topikgazda
válasz
istvankeresz
#49901
üzenetére
Szia!
Akkor kipróbálod?
Üdv. -
#49900
Fferi50
Topikgazda
istvankeresz
#49897
Fferi50
Topikgazda
válasz
istvankeresz
#49897
üzenetére
Szia!
Szerintem ennyi elég a másolás - új munkafüzet létrehozásához:Sheets("Nyilvantartolap_TEMPLATE").Copy
Ez egy új munkafüzetbe teszi át ezt az egy munkalapot. Utána ez a munkafüzet lesz aktív, tehát el kell döntened mi legyen a neve, hova mented stb.
Ebben az új munkafüzetben nem lesznek benne a makrók - kivéve, ha a másolt munkalapnak van kódlapja, mert azt viszont átviszi.
Az új munkafüzet bezárása után az eredeti munkafüzet marad aktív.
Ha azt szeretnéd, hogy csak az új munkafüzet maradjon nyitva, akkor ezt a sort kell még betenni a fenti sor után:Thisworkbook.Close False
Ebben az esetben csak az új munkafüzet marad nyitva.
Üdv. -
#49895
Fferi50
Topikgazda
Triathlete
#49894
Fferi50
Topikgazda
válasz
Triathlete
#49894
üzenetére
Szia!
Szerintem egy próbát megér (csak magyarban tudom mutatni):
File - Beállítások - Speciális - Rendszerbeállítások szerinti elválasztók használata elől pipa ki, utána megadhatod a tizedesjelet és az ezres elválasztót.
Üdv. -
Fferi50
Topikgazda
válasz
sonkuci
#49876
üzenetére
Szia!
Akkor pontosítsunk: Mitől lesz félkövér egy cellában az érték?
A hasonlításnál a két cella tartalmát kell összehasonlítani?
Ha mindkét cellában ugyanaz a tartalom, de az egyik félkövér, akkor egyezőek vagy nem?
Ha nem egyezik a két érték, de az egyik félkövér, akkor mi a teendő?
Ha figyelni kell a félkövér-séget is, akkor csak makró jöhet szóba, de fontos lenne tudni a pontos szabályt.
Üdv. -
#49868
Fferi50
Topikgazda
istvankeresz
#49867
Fferi50
Topikgazda
válasz
istvankeresz
#49867
üzenetére
Szia!
Lelked rajta. De a textboxba beírt érték mindig szöveg lesz és ellenőrizni kell, hogy megfelelő-e dátumnak - formátumtól függetlenül. Ne ringasd magad álmokba, a felhasználók sajnos gyakran esnek abba a hibába, hogy saját szakállukra írnak be adatokat - mindegy, milyen utasítást látnak alatta vagy akár a felhasználói kézikönyvben. Ha hibátlan adatokkal szeretnél dolgozni, akkor bizony folyamatosan ellenőrizned kell az adatbevitelt. Erre több lehetőség is van, de szerintem valamelyiket mindenképp választanod kell. Egyébként megfelelő formátumú szövegből bármikor tudsz dátumot "varázsolni", a megfelelő formátum a fontos.
Üdv. -
#49866
Fferi50
Topikgazda
istvankeresz
#49864
Fferi50
Topikgazda
válasz
istvankeresz
#49864
üzenetére
Szia!
Esetleg 3 Combobox (Év, hónap, nap), ahol meghatározhatod a kiválasztási lehetőségeket (pl. a középsőben a hónapok 1-12 vagy jan-dec, a napoknál pedig a hónaptól függően 28-29-30-31).
Üdv. -
Fferi50
Topikgazda
-
Fferi50
Topikgazda
-
#49853
Fferi50
Topikgazda
the radish
#49852
Fferi50
Topikgazda
válasz
the radish
#49852
üzenetére
Szia!
Talán a legegyszerűbb:usor=Cells(Rows.Count,1).End(xlup).Row
With Range("B1:B" & usor)
.Formula="=Timevalue(A1)"
.Value=.Value
' .NumberFormat="hh:mm:ss" ' ha formázottan szeretnéd látni akkor vedd ki a sor elejéről az aposztrofot
End With
Üdv. -
Fferi50
Topikgazda
válasz
tamas1985
#49828
üzenetére
Szia!
Ezt a makrót másold be a ThisWorkbook kódlapjára, ahogyan korábban mutattam:Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pld As Variant, xu As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
pld = Application.InputBox("Hány példányt szeretnél nyomtatni?", "Nyomtatás", 1, Type:=1)
If pld > 0 Then
For xu = 1 To pld
Range("A2").Value = 1 + (xu - 1) * 28: Range("A3") = Range("A2").Value + 1
Range("A2:A3").AutoFill Destination:=Range("A2:A29"), Type:=xlFillDefault
ActiveSheet.PrintOut copies:=1, from:=1, to:=1
Next
Range("A2:A29").Formula = "=Row()-1": Range("A2:A29").Value = Range("A2:A29").Value
Else
Cancel = True
End If
Cancel = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Használati javaslat:
A Fájl - nyomtatás panelen a példányszám 1.
A makró megkérdezi, hány példányt szeretnél nyomtatni. Ha meggondoltad magad, akkor 0 beírásával nem indul el a nyomtatás.
Az A2:A29 tartományba kerülnek a sorszámok. Természetesen tovább is sorszámoztathatod, akkor az A29 helyett írd be azt az utolsó cellát, ameddig a sorszám tartson, pld. A31 esetén 30-ig tart a sorszám.
Ha nem 28 sorszám szerepel egy oldalon, akkor az 1 + (xu - 1) * 28 kifejezésben a 28 helyett írd a sorszámok darabszámát, a példában ide 30 kerül.
A nyomtatás végén a munkalapon ismét az 1-től kezdődő sorszámok lesznek.
FIGYELEM: A nyomtatás elindításakor MINDIG 1-től kezdődnek a sorszámok, akármennyit is látsz vagy írsz a munkalapra!!!
Remélem érthető és használható számodra. Bármilyen kérdésed lenne még, kérlek írj bátran.
Üdv. -
Fferi50
Topikgazda
válasz
tamas1985
#49816
üzenetére
Szia!
Még egy kis pontosítás kérése:
"a sorszámozás folyatódjon a 30 oldalon keresztül, ne keljen 30 oldalon keresztül crtl+c crtl+v"
Tehát minden oldalon 1-el kezdődik a sorszám és tart ameddig tart vagy a második oldalon 29-től folytatódik és így tovább (bár ekkor nem értem a Ctr+c, Ctrl+v-t)?
Az előbbi esetben minden nyomtatás ugyanazt a sorszámozást fogja mutatni.
Utóbbi esetben makró szükséges. A nyomtatás előtti eseménykezelő makrót kell átírni.
De jó lenne pontosan tudni a feladatot.
Üdv. -
-
Fferi50
Topikgazda
válasz
tamas1985
#49810
üzenetére
Szia!
Eseménykezelő makróval oldható meg. A táblázat egy celláját "kinevezed" sorszámnak.
A Munkafüzet Before_Print eseménykezelőjében a cellában levő számot növeled eggyel.
VBA nézet (Alt F11) Thisworkbook kódlapjára beírod ezt:Option ExplicitPrivate Sub Workbook_BeforePrint(Cancel As Boolean)Range("A1").Value = Range("A1").Value + 1End Sub
Így minden nyomtatás előtt növeli a sorszámot.
Az is megoldható, hogy a nyomtatás előtt megkérdezze, valóban nyomtatni szeretne-e.Private Sub Workbook_BeforePrint(Cancel As Boolean)If MsgBox("Valóban nyomtatni szeretne?", vbQuestion + vbYesNo) = vbYes ThenRange("A1").Value = Range("A1").Value + 1ElseCancel = TrueEnd IfEnd Sub
A fájlt makróbarátként kell menteni.
Üdv. -
Fferi50
Topikgazda
válasz
Delila_1
#49806
üzenetére
Szia!
Szerintem pedig azzal nem fog menni. Honnan tudod, hogy melyik oszlopban keresd az idegen cikkszámot?
Ebben a felállásban pedig egyszerű FKERES-sel működik:
Az átalakítás pedig nem nehéz - az idegen cikkszámokat transzponálni az A oszlopba, mellé beírni a sajátot és lehúzni.
Így a kereséshez nem kell tudni, melyik ügyfélé az idegen cikkszám.
Üdv. -
Fferi50
Topikgazda
válasz
rvn_10
#49804
üzenetére
Szia!
Én megfordítanám a saját táblát a könnyű keresés érdekében:
Az A oszlopba tenném az idegen cikkszámokat, a B oszlopba pedig a sajátokat. Azaz 2 oszlopod lenne, ahol minden idegen cikkszám mellett ott lenne a megfelelő saját.
Ezután egy FKERES függvény megadja a keresett saját cikkszámot.
Üdv. -
Fferi50
Topikgazda
Szia!
Viszont amennyiben 6 szám átlaga kell, akkor kevesebb számból nem ér átlagot számolni
Egyébként nálad is feltétel az, hogy egymást követő 6 sort néz, nem pedig egymást utáni 6 számot. Ez utóbbi feltétel teljesíthetőségén - azaz 6-6 számot nézzen akkor is, ha nem egymást követő sorokban vannak - még morfondíroznom kell. (pl. 1,3,b,8,9,d,10,2,z,,8 ... hat-hat darab szám átlaga v. összege, mert abból már lehet átlagot számolni könnyen.)
Üdv. -
Fferi50
Topikgazda
válasz
bandus
#49775
üzenetére
Szia!
Kicsit bonyolultabban tömbképlettel:=SZUM(($A$1:$A$30)*(SOR($A$1:$A$30)>(SOR()-1)*6)*(SOR($A$1:$A$30)<=(SOR()*6)))/6
Természetesen az A30 helyére a saját utolsó sorod számát kell írni.
A tömbképletet SHIFT + CTRL + Enter kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
Excel 365-ben (de talán már 2019-ben is?) tudja, hogy tömbképlet lenne, nem kell a kombós lezárás.
Előnye, hogy nincs benne állandóan frissülő elem (ELTOLÁS függvény).
Üdv. -
Fferi50
Topikgazda
válasz
Santino
#49772
üzenetére
Szia!
Ha valóban dátum/szám és nem szöveg, akkor jobb egérgomb - cellaformátum - egyéni - beírod a kívánt formátumot.
Ha a cellaformátumot számra állítod és marad ez az érték, akkor sajnos nem valódi dátum van a cellában, hanem dátumnak látszó szöveg.
Ebben az esetben először kipróbálhatod, hogy a DÁTUMÉRTÉK függvény átalakítja-e dátummá. Ha nem megy, akkor a Szövegdaraboló (BAL, KÖZÉP, JOBB) függvényekkel és a DÁTUM függvény használatával tudsz dátumot faragni belőle. A függvényeket természetesen másik cellában kell alkalmazni. Ha ez megvan, akkor a formátum az első bekezdés szerint alakítható.
Üdv. -
Fferi50
Topikgazda
-
-
Fferi50
Topikgazda
válasz
AttyVin
#49724
üzenetére
Szia!
Egy ötlet a táblázat átalakításához a grafikon számára:
A II. - III. sorozat mérőszámait az A oszlopban az I. sorozat mérőszámai alá másolod.
A II. sorozat eredményét a II. sorozat mérőszámaihoz a C oszlopba, a III. sorozat eredményét a III. sorozat mérőszámaihoz a D oszlopba másolod.
Ezután az A-D oszlopot az A oszlop (mérőszámok) szerint sorbarendezed. Ahol egy mérőszám többször szerepel, ott a B-C-D oszlopokba összevonod az eredményeket, a felesleges sorokat megszünteted.
Másik megoldás (én ezt preferálnám):
Az A-C-E oszlopokat egymás alá másolod az A oszlopba. Ezután sorbarendezés, majd ismétlődések megszüntetése az A oszlopban.
A B2 képlete:=HAHIBA(Fkeres(A2;A:B;2;0);"")
A C2 képlete:=HAHIBA(Fkeres(A2;C:D;2;0);"")
A D2 képlete:=HAHIBA(Fkeres(A2;E:F;2;0);"")
A képleteket lehúzod lefelé. Ezután átalakíthatod értékké.
Ebből csinálhatsz diagramot.
Üdv. -
Fferi50
Topikgazda
válasz
-szabi-
#49716
üzenetére
Szia!
Úgy emlékszem, itt is van a fórumon olyan képlet, ami többszörös találatot is ad vissza.
Ha kevés keresnivalód van, akkor
1. Darabteli (Countif) függvénnyel megnézheted melyikből hány előfordulás van
2. A HOL.VAN (Match) függvény megadja az első előfordulás helyét
3. Az FKERES (Vlookup) függvény keresési tartományát a 2. pont alapján beállíthatod a következő érték megtalálásához.
Az 1 és 2 pontnál hasznáhatod a számoláshoz, kereséshez használhatod a joker (? és *) karaktereket.
Üdv. -
Fferi50
Topikgazda
válasz
kalasz
#49707
üzenetére
Szia!
Nem egészen értem, mire lenne ez neked jó. A véletlen szám generátort tartalmazó függvények minden egyes képlet beírásakor - illetve újraszámoláskor - megváltoztat(hat)ják az értéküket, újra generálódnak. Ha pl. 20 cellába beírsz VÉLETLEN.KÖZÖTT függvényt, amikor a következő cellába beírod a képletet, az előzőek mind újraszámolódnak!
Milyen célból szeretnéd az ismétlődés elkerülését?
Üdv. -
Fferi50
Topikgazda
válasz
tgumis
#49702
üzenetére
Szia!
Azt gondolom, ez egy elég csúnya bug Redmond részéről. Azt a tartományt, amely relatív módon végződik, a mindenkori utolsó sorig egészíti ki, a kiterjesztés sorától kezdve. Talán érdemes lenne ezt megírni a MS-nek.
Átmeneti kiküszöbölésére javaslok egy olyan képletet, ahol közvetett módon jelöljük ki a tartományt, a B5 cella képlete:=DARABTELI(ELTOLÁS($A$5;0;0;SOR()-4;1);A5)
Ez tesztelésem szerint megfelelően működik a kiterjesztés során is.
Üdv. -
-
Fferi50
Topikgazda
válasz
tgumis
#49697
üzenetére
Szia!
Szerintem a táblázatod "túl van bővítve", a 28-dik sortól törölni kellene a sorokat belőle.
Ha be van állítva a speciális fülön, hogy Adattartomány végén a formázás és a képletek folytatása, akkor új sor hozzáadása után nem kell a képleteket beírnod.
Valószínűleg úgy keletkezett a jelenség nálad, hogy az ominózus sorokban volt egyszer már adat, csak kitörlődött. Ilyenkor a képletek megmaradnak, nem szűkül a táblázat automatikusan.
Üdv. -
Fferi50
Topikgazda
válasz
Roxy27
#49670
üzenetére
Szia!
Megpróbálhatod a wildcard-os keresést, a * (csillag) karakter használatával.
A "*" & A1 & "*" azt a találatot adja vissza, amelyben valahol előfordul az A1 cellában levő szöveg. Természetesen konkrét szöveget is írhatsz az A1 helyére.
Az FKERES 4. paraméterét ilyen esetben 0 -ra (HAMIS) kell állítani, azaz pontos egyezést keresünk.
Ha elől van a *, akkor a mögötte levő szövegre végződő, ha a szöveg mögött van a csillag, akkor a szöveggel kezdődő értéket keresi.
Persze ezzel sem garantált még a teljes "hibátlanság", hiszen a pl. *tej* kifejezésnek a naptejek és a tehéntejek is megfelel.
Üdv. -
-
Fferi50
Topikgazda
válasz
föccer
#49663
üzenetére
Szia!
Szerintem nézd meg az [Application.AfterCalculate eseményt]
A tartomány méretét a (magyar) Eltolás és Darab2 függvények használatával lehet dinamikusan állítani, így mindig csak a tényleges adatot tartalmazó -összefüggő- cellákat fogja tartalmazni. Ez a képlet névként is definiálható. Pl.=eltolás($A$1;0;0;Darab2(A1:A200);1)mindig az A oszlop első nem üres celláját fogja tartalmazni.
Üdv. -
Fferi50
Topikgazda
Szia!
A többszörös HA függvények helyett erre használható az FKERES függvény, melynek negyedik paraméterét - tartományban keres - igazra kell állítani.
A kereséshez létre kell hozni egy kétoszlopos táblázatot:
-- első oszlop tartalmazza a határértékeket
-- második oszlop a hozzá tartozó kategóriát.
Pl. így:
A B1 cella képlete húzható lefelé.
Üdv. -
#49568
Fferi50
Topikgazda
MasterMark
#49567
Fferi50
Topikgazda
válasz
MasterMark
#49567
üzenetére
Szia!
Ez a mondat:
"Miegegyszer mondom, hogy nem fogom kezzel atalligtani egyesevel.
"
kiakasztott egy kicsit.
Próbáltunk ötleteket adni, de a probléma pontosabb ismerete nélkül nehéz eltalálni, mit is szeretnél tkp.
Ezért javasoltam a minta fájl közzétételét.
És sajnos néha nincs más, mint kézzel átírni (mert még makrón sem érdemes gondolkodni), a makróhoz pedig kellenek az infók.
Remélem, sikerül megoldanod a problémát.
Üdv. -
#49565
Fferi50
Topikgazda
MasterMark
#49563
Fferi50
Topikgazda
válasz
MasterMark
#49563
üzenetére
Szia!
Irónia on:
Esetleg kiadhatnád valakinek, aki jó pénzért biztosan szívesen megcsinálja az átalakításokat
Irónia off
Talán meg lehetne beszélni a forrás előállítójával, hogy komfortosabb formában adja meg számodra az adatokat.
Egyébként pedig makró a legegyszerűbb megoldás, lehet paraméterezni is.
Ha felteszel valahova egy mintát - valós szerkezettel, légből kapott adatokkal - akkor biztosan lesz itt valaki, aki csinál egy használható makrót rá.
Sajnos nem vagyunk (még) gondolatolvasók.
Üdv.
Üdv. -
-
#49559
Fferi50
Topikgazda
MasterMark
#49557
Fferi50
Topikgazda
válasz
MasterMark
#49557
üzenetére
Szia!
Ha A1:A10 esetén plusz sort szeretnél hozzáadni, akkor ne A11-be írd az új értékeket, hanem szúrj be egy sort a 10 sor elé. Az így hozzáadott sor miatt automatikusan módosul az A1:A10 -re hivatkozó képlet A1:A11-re.
Talán tudod használni ezt (is).
Üdv. -
Fferi50
Topikgazda
válasz
karlkani
#49541
üzenetére
Szia!
Bocs, most látom, hogy egy helyen dupla vessző maradt...
Próbáld így lsz.:Range("C1").Select: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False :Application.CutCopyMode=False
Az irányított beillesztés - értéket próbáld ki makrórögzítéssel.
Ha nem munkafüzetből másolsz be, akkor így próbáld szerintem:Range("A1").Select
ActiveSheet.PasteSpecial Format:="Szöveg", Link:=False, DisplayAsIcon:= False
Ha nem magyar az exceled, akkor a Szöveg helyett angol "Text" kell.
Üdv. -
Fferi50
Topikgazda
válasz
karlkani
#49539
üzenetére
Szia!
Jó lett volna látni a makrót.
Szerintem Beillesztés - értékként megtartja a cella formátumát:Range("C1").Select: Selection.PasteSpecial Paste:=xlPasteValues,, Operation:=xlNone, SkipBlanks:=False, Transpose:=False :Application.CutCopyMode=False
Ebben az esetben szükséges a Select.
Üdv. -
#49534
Fferi50
Topikgazda
Flowtation
#49533
Fferi50
Topikgazda
válasz
Flowtation
#49533
üzenetére
Szia!
Köszönöm!
Üdv. -
#49531
Fferi50
Topikgazda
Flowtation
#49530
Fferi50
Topikgazda
válasz
Flowtation
#49530
üzenetére
Szia!
Nekem nem sikerült.
Üdv. -
#49521
Fferi50
Topikgazda
szricsi_0917
#49520
Fferi50
Topikgazda
válasz
szricsi_0917
#49520
üzenetére
Szia!
Az mennyivel jobb, ha beszúrsz elrejtett oszlopokat mintha egy cellában adnád meg a több szumhatöbb függvény összegét?
Üdv. -
#49519
Fferi50
Topikgazda
szricsi_0917
#49518
Fferi50
Topikgazda
válasz
szricsi_0917
#49518
üzenetére
Szia!
Ahány Fel oszlopod van, annyi SZUMHATÖBB függvény eredményét kell összeadnod:
=SZUM(SZUMHATÖBB(Fel/1;Cég;Cég1;Cikkszám/1;"1234");SZUMHATÖBB(Fel/2;Cég;Cég1;Cikkszám/2;"1234"); és így tovább)
A képletben most a fejlécet írtam, természetesen az oszlopot kell érteni alatta.
Megpróbálkozhatsz még kimutatással is.
Megjegyzés: Mennyivel egyszerűbb lenne a helyzet, ha nem oszlopsorosan lennének az adatok, hanem sorfolytonosan. Igaz, akkor az A oszlopba is be kellene írni a cégnevet, cserébe viszont csak 4 oszlopod lenne és szűrőkkel megkaphatnád a kívánt eredményt.
Üdv. -
#49510
Fferi50
Topikgazda
MasterDeeJay
#49509
Fferi50
Topikgazda
válasz
MasterDeeJay
#49509
üzenetére
Szia!
Azt lehet tudni, hogy hány sor/rendszám van a táblában? Mindig ugyanannyi vagy változó?
Képlettel szerintem megoldható az oszlopok egymás alá hozása.
Üdv. -
#49508
Fferi50
Topikgazda
MasterDeeJay
#49507
Fferi50
Topikgazda
válasz
MasterDeeJay
#49507
üzenetére
Szia!
Szerintem nézd meg a kimutatás lehetőségeit.
Én biztosan elgondolkodnék azon, hogy az oszlopok helyett a sorokban folytassam az adatok vezetését. Igaz, akkor az A oszlopban ismételten be kellene írni a rendszámot is, ezzel együtt szerintem áttekinthetőbb lenne az állomány, könnyebb lenne pl. a szűrés: egy rendszámra szűrve egymás alatt jelennének meg a dátumok és a hozzá kapcsolódó adatok, amit így könnyedén lehetne másik munkalapra másolni.
Üdv. -
#49505
Fferi50
Topikgazda
Flowtation
#49504
Fferi50
Topikgazda
válasz
Flowtation
#49504
üzenetére
Szia!
A Diagram beszúrásnál válaszd az összes diagramot és ott a kombináltat.
A Bevétel sor típusa legyen vonal (esetleg terület).
Ezután a többi adatsornál kiválasztod a halmozott oszlopot.
Üdv. -
Fferi50
Topikgazda
válasz
Pityke78
#49494
üzenetére
Szia!
A dátum-idő ábrázolás miatt az adott cellában úgy tudod megoldani, ha ezt írod be:
=65/24/60 azaz a perceket el kell osztani 1440-nel (egy nap perceinek a száma).
Ezután a cellaformázásnál kiválasztod az idő óó:pp formátumot.
Természetesen ezt egy másik cellában is meg lehet csinálni, ha az eredeti cellában nem szeretnél módosítani.
(Az irányított beillesztés - osztás opció használatával egy vagy több cella értékét egyszerre is meg tudod változtatni - egy cellába beírod az osztó értékét, majd ezt másolás - a kívánt terület kijelölése és irányított beillesztés osztás.)
Üdv. -
-
Fferi50
Topikgazda
válasz
bteebi
#49447
üzenetére
Szia!
"Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen."
Miután esemény vezérlést szeretnél, az csak annak az objektumnak a moduljában szerepelhet, amelynek van olyan eseménye.
Munkalapnak nincs sem open sem close/beforeclose eseménye. Ilyen esemény csak a munkafüzetnél van.
A VBA nézetben ha kiválasztod a munkafüzet(Thisworkbook) illetve bármelyik munkalap kódlapját, a bal oldalon találsz egy legördülőt, amiben General illetve Workbook/Worksheet választható ki. Ha ez utóbbit választod ki akkor a jobb oldali lenyílóban a füzethez, laphoz tartozó eseményeket láthatod és választhatod ki. Ezekhez írhatsz vezérlő kódokat. General kiválasztásakor a jobb oldalon az adott modulban levő - nem eseményvezérelt - eljárások (Sub, Function) listája látható-
Üdv. -
Fferi50
Topikgazda
Szia!
Jelszó nélkül megoldható a következő módon:
Fejlesztőeszközök - Visual Basic
(Ha nem találod a Fejlesztőeszközök menüpontot, akkor a Fájl - Beállítások - Menüszalag testreszabása pontban be kell pipálni a Fejlesztőeszközök előtti téglalapot.)
Ezután F4 - billentyűvel előjön a Properties ablak:
A lenyílóban kiválasztod az elrejteni kívánt munkalapot, majd a Visible tulajdonságot átállítod 2 - xlSheetVeryHiddenre.
Ezután becsukod a Visual Basic ablakot.
Szerintem az nem probléma, hogy nem lehet jelszót beállítani, mert a lap füle ezek után már nem látszik sehol. Így csak te tudod visszaállítani ugyanilyen módon - a Visible tulajdonságot -1 - xlSheetVisible -re.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#49353
üzenetére
Szia!
Nem tudom, milyen formátumban kapod az adatokat. De ha text, akkor textként beolvasva megadhatod, hogy milyen legyen az adat formátuma, illetve ha egy oszlopba olvasódik be, akkor a szövegből oszlopba varázslóval is megadható az oszlopok típusa.
Ha gondolod, priviben beszélgessünk róla.
Üdv. -
Fferi50
Topikgazda
válasz
kartalhu
#49312
üzenetére
Szia!
"Minden korábbi dátum ugyan abban a formában átállítódott a mai napra."
Ezen sajnos nincs mit csodálkoznod, ez a függvény, ugyanúgy mint a MA() függvény mindig az éppen AKTUÁLIS NAPOT és a MOST az IDŐT is adja vissza eredményül. Azért látod csak a dátumot, mert úgy van beállítva a cellaformátum.
Ez mindig így működött ez a funkciója, nem tudom, hogyan lehetett másként nálatok eddig.
Ha nem szeretnéd, hogy változzon a dátum, akkor a gyorsbillentyűkkel kell/lehet bevinni vagy átváltani a képletet értékké (másolás - irányított beillesztés értéket).
Üdv. -
#49311
Fferi50
Topikgazda
z123456789
#49306
Fferi50
Topikgazda
válasz
z123456789
#49306
üzenetére
Szia!
Az előző válaszomban írtam, hogy lehet makró is:
Ez a makró az A3 -ban levő értéket az A10 cellától azA:Boszlopba bontja ki:Sub valaszto2()
a = Range("a3").Text
b = Split(a, vbLf)
For Each c In b
d = Split(c, ":")
For Each e In d
Range("A10").Offset(x, y).Value = e
y = 1
Next
x = x + 1
y = 0
Next
End Sub
A makrót egy modulba kell bemásolni (az összefoglalóban megtalálod hogyan). Ha a makrót meg szeretnéd tartani, akkor makróbarát formában (xlsm kiterjesztés) kell menteni.
Az A3 helyére írd annak a cellának a címét, amelyiket ki szeretnél bontani, az A10 helyére pedig azt, ahol az eredményt szeretnéd látni.
Üdv. -
#49310
Fferi50
Topikgazda
z123456789
#49306
Fferi50
Topikgazda
válasz
z123456789
#49306
üzenetére
Szia!
Néhány lépéssel megoldható szerintem. Mutatom a példádon képekkel is.
1. lépés:
B3 cella képlete: =HELYETTE(A3;Karakter(10);"!")
Ez azért kell, hogy jól látható legyen az elválasztás az adatok között.
2. lépés:
B3 cella kijelölése - másolás - irányított beillesztés értéket ugyanoda.
Ekkor a képlet helyett az új szöveg lesz a cellában.
3. lépés:
A B3 cella kijelölve -
Adatok - szövegből oszlopok - tagolt -
következő párbeszédpanelen: határoló jelek egyéb - felkiáltójel
következő párbeszédpanelen: rendeltetési hely C3
Befejezés.
Ekkor a C3 cellától látod az adatokat szétbontva, a megnevezés és az érték kettősponttal elválasztva, az első képen már ott van eredmény.
4. lépés
A C3 cellától végig kijelölöd az adatokat - másolás
A10 cella kijelölés - irányított beillesztés - transzponálás! (vigyázz, ezt csak akkor látod, ha rákattintasz az irányított beillesztésre)
5. lépés
A10-A21 cella kijelölése, majd
Adatok - szövegből oszlopok - tagolt
A második panelen a határolójel: egyéb kettőspont
Következő panelen rendeltetési hely B10
Befejezés
Láthatod az eredményt.
Természetesen akkor is működik a dolog, ha nem csak az A3 cellában van adat, hanem tovább lefelé is. Akkor a B3 cellába írt képletet húzhatod lefelé, majd a B oszlop adatot tartalmazó celláival megcsinálhatod 2 és 3. lépést. Ezután viszont soronként kell a transzponálást megcsinálnod - minden sort az előző adatok alá transzponálva. Az így kapott oszlopra szintén alkalmazod az Adatok - szövegből oszlopok műveletet.
FONTOS: Több adatnál lehetőséged van arra, hogy az "oldalrovatok" kimaradjanak az új helyről, igy egymás mellé kerülhetnek az adatok. Ebben az esetben a harmadik panelen az első oszlopnál be kell jelölnöd, hogy az oszlop kihagyása (átlépés).
Sajnos a szövegből oszlopok csak ugyanarra a munkalapra működik, de gondolom az eredmény átmásolása egy másik munkalapra már nem okoz gondot.
Természetesen mindez akár makróval is megoldható és akkor nincs kézi munka.
Remélem ez alapján sikerül megoldanod.
Üdv. -
#49302
Fferi50
Topikgazda
istvankeresz
#49301
Fferi50
Topikgazda
válasz
istvankeresz
#49301
üzenetére
Szia!
"Megpróbálom azt, hogy a segédoszlop celláiba a januári dátumokhoz 1-t, februári dátumokhoz 2-t párosítok és így tovább"
A HÓNAP függvény pontosan ezt adja meg neked.
Üdv. -
#49300
Fferi50
Topikgazda
z123456789
#49298
Fferi50
Topikgazda
válasz
z123456789
#49298
üzenetére
Szia!
Ha esetleg feltennéd publikusnak egy rövid fájl export eredményét, talán tudnánk is segíteni benne.
Üdv. -
#49296
Fferi50
Topikgazda
istvankeresz
#49294
Fferi50
Topikgazda
válasz
istvankeresz
#49294
üzenetére
Szia!
Szerintem a dátumokat tároló munkalapokra kell egy segédoszlop, ami a hónapot tartalmazza. (pl =HÓNAP(A2))
A segédoszlop alapján az alkalmas keresőfüggvény (XKERES, avagy FKERES -INDEX páros) alapján meg tudod oldani a feladatot.
Üdv. -
#49295
Fferi50
Topikgazda
z123456789
#49293
Fferi50
Topikgazda
válasz
z123456789
#49293
üzenetére
Szia!
Úgy gondolom - lehet, rosszul - , hogy ez a bővítmény kell az Excelbe exportáláshoz:
itt találod
Üdv. -
#49291
Fferi50
Topikgazda
z123456789
#49285
Fferi50
Topikgazda
válasz
z123456789
#49285
üzenetére
Szia!
Ha ezen a módon ki tudod exportálni, akkor már "csak" egy Excel makró kell hozzá és műxik.
Üdv. -
Fferi50
Topikgazda
-
#49272
Fferi50
Topikgazda
istvankeresz
#49271
Fferi50
Topikgazda
válasz
istvankeresz
#49271
üzenetére
Szia!
Cellán állva - jobb egérgomb - cella formázás - szám - egyéni : "Miskolc, " éééé.hh.nn
Vagy: A cellában a képlet:="Miskolc, " & SZÖVEG(MA();"éééé.hh.nn")
Üdv. -
Fferi50
Topikgazda
válasz
Dilikutya
#49251
üzenetére
Szia!
Az emojikat elkerülheted, ha használod a progran (</>) gombot a kijelölésre (vagy szóközöket teszel a betűk/jelek közé). Mert így elég furcsa a dolog.
A formázandó cellák kijelölése képlettel, a képletek pedig:
1.
=B$11>0 háttér szürke, a szabályoknál bejelölni a leállítás, ha igaz kockát
2.
=B2/$A2*100>100 háttér zöld
3.
=B2/$A2*100>=90 háttér sárga
4.
=B2/$A2*100<90 háttér piros
Ezt a négy szabályt külön-külön, ebben a sorrendben kell felvinned, ugyanarra a tartományra, figyelemmel a $ jelek megfelelő alkalmazására.
Üdv. -
Fferi50
Topikgazda
válasz
Dilikutya
#49248
üzenetére
Szia!
A feltételes formázásnál meghatározhatod, melyik feltétel alkalmazása legyen az első, illetve melyik feltétel teljesülése esetén ne legyen további vizsgálat.
A kérdésed nem egészen világos: Egyszerre nem lehet színes is és szürke is a cella.
Mutasd meg légy szíves, hogyan gondoltad.
Üdv. -
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
tgumis
#49068
üzenetére
Szia!
Talán a munkalapon van olyan nem látható dolog, ami ezt előidézi.
Nézd meg légy szíves az F5 - ugrás - irányított - utolsó cella eredménye mi. Ha ez túl van az "értelmesen" használt tartományon, akkor ez lehet az esetleges oka. Ebben az esetben töröld ki a teljes sorokat a normál tartomány végétől az eddigi sorig.
A mindent töröl opció sajnos hagyhat szemetet még hátra.
Üdv.
(Esetleg valami makró nem piszkálhat bele?)
"
Új hozzászólás Aktív témák
- Formula-1
- E-roller topik
- Vezeték nélküli fejhallgatók
- Autós topik
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- OLED TV topic
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- GoodSpeed: Mutasd magad topic!
- AliExpress tapasztalatok
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft és egyéb dobozos retro szoftverek
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- iPhone 17 256 GB Black - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok - Számlás
- HIBÁTLAN iPhone 15 Pro 128GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4384
- Honor 90 256GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi 13 Pro 12/256GB Ceramic Black használt 6 hónap garancia
- APPLE MacMini 7,1,i5-4278U,8GB RAM,1TB,macOS Monterey
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest