- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Apple iPhone 16 Pro - rutinvizsga
- Yettel topik
- Samsung Galaxy A55 - új év, régi stratégia
- Motorola Razr 60 Ultra - ez a kagyló könnyen megfő
- Egyszerre legnagyobb és legkisebb is a Garmin Venu X1
- Karaktere biztos lesz az első Nothing fejhallgatónak
- Samsung Galaxy A56 - megbízható középszerűség
- A lapkakészlet és az akku különbözteti meg a Motorola Edge 60 és Edge 60 Pro-t
- Google Pixel topik
-
Mobilarena
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
-
Delila_1
veterán
válasz
Delila_1
#11322
üzenetére
Ímé szép magyar nyelven:
Jelöljük ki a szűréshez az oszlopot vagy a tartomány, illetve lista egyik celláját.
Válasszuk az Adatok menü Szűrő, majd Irányított szűrő parancsát.
Hajtsuk végre a megfelelő műveletet:
Ha az AutoSzűrőhöz hasonlóan helyben szeretnénk szűrni a tartományt vagy a listát, jelöljük be a Helyben szűrje választókapcsolót.
Ha a szűrés eredményét máshová szeretnénk másolni, jelöljük be a Más helyre másolja választókapcsolót, majd a Hova másolja mezőben adjuk meg a cella hivatkozását.
A cella kijelöléséhez ideiglenesen elrejthetjük a párbeszédpanelt a Panel elrejtése gombra kattintva. Jelöljük ki a cellát a munkalapon, majd kattintsunk a Panel megjelenítése gombra.
Jelöljük be a Csak az egyedi rekordok megjelenítése négyzetet.A szűrt listát másolhatod (ez már tőlem).
-
mr.nagy
tag
válasz
Delila_1
#11301
üzenetére
Még is csak zaklatlak még egy kicsit!
Ebből a kódrészből:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$5" Then Dim meret As Integer Select Case Len(Range("A6"))A $G$5 cella időközben kiderült, hogy függvényen keresztül fogja kapni az értéket, így nem működik az egész makró.
Javítható a fenti kód, ennek megfelelően? -
-
mr.nagy
tag
válasz
Delila_1
#11303
üzenetére
Na még egyet segíts, aztán nem zaklatlak egy ideig!
Az A9 cellában van a fejléc, alatta az adatok. Innen 4 adatot átkellene másolni az A1,A2,A3,A4 cellába, elvégezni egy műveletet. majd a következő négy a listából+művelet és így tovább, míg van adat. Hasonlóan a nem régiben kért makróhoz.
-
mr.nagy
tag
válasz
Delila_1
#11297
üzenetére
Szia!
Az összevont cella egy "tábla" nevű lapon van. Az "adat" nevű lapon van az adattábla ohonan dolgozik. Ez pedig a függvény:
=FKERES(G5;adat!A:E;5;HAMIS)Köszönöm a fáradozásod!
Képet most nem tudok tenni mert már úton vagyok, a mobilon meg örülök, hogy meg tudom nyitni a táblát, nem még képet is csinálni róla!
-
mr.nagy
tag
válasz
Delila_1
#11295
üzenetére
Lehet már fáradt vagyok de ezt most nem értem! Bocsánat.
Van egy egyesített cellám, ami az A6, B6, C6, D6 cellák egyesítésével jött létre. Ide fkeressel adom az értéket egy másik lapfülről. Éppen ezért változik mindíg a megjelenített szöveg hossza, tehát egyszer 25 karakter, máskor 500. Azt szeretném elérni, hogy ennek függvényében automatikusan állítsa be a betűnagyságot, hogy mindg beleférjen a megadott mezőbe, de ugyanakkor mikor kevés itt a szöveg akkor is töltse ki minél jobban a helyet.
Huh, érthető voltam?
-
#11220
m.zmrzlina
senior tag
Delila_1
#11219
m.zmrzlina
senior tag
válasz
Delila_1
#11219
üzenetére
pitman-nak válaszoltam mert írta, hogy neki működik az FKERES() amit a #11211-ben kérdeztem. Gondolom begépelte a számokat, úgy nekem is működött.
A képleted a "2" karaktert távolítja el. 2017-ből 017 lesz.
Sőt a KÓD() akkor is 50-et ad ha az eredeti cellatartalomra írom be meg akkor is ha a <Backspace>-szel preparáltra.
-
#11206
m.zmrzlina
senior tag
Delila_1
#11205
m.zmrzlina
senior tag
válasz
Delila_1
#11205
üzenetére
Arra gondolok, hogy pl az 123AC-ből az 123 az szám az AC meg mondjuk benne van a listában de így együtt nem érvényesíti mert az egész együtt se nem szám és az 123AC mint karaktersorozat nincs is a listában.
Szerk:
Ok igazad van, ha szóköz van a szám meg a betű közt akkor engedi
-
#11202
m.zmrzlina
senior tag
Delila_1
#11201
-
pitman
őstag
válasz
Delila_1
#11197
üzenetére
Office 2003 alatt dolgozom jelenleg, de más verziókban is működnie kellene.
Makróval csináltam már hasonló dolgokat, igaz az nem formázott csak értékeket számolt. Annyi problémám volt vele, hogy lassította az adatbevitelt (a következő cellába ugrás előtt gondolkozott egy kicsit), ami zavaró volt. Ha lehetséges makró nélkül szeretném megoldani a dolgot. -
pitman
őstag
válasz
Delila_1
#11195
üzenetére
Azt sejtem, hogy ez a megoldás, csak a konkrét megvalósítással vagyok bajban.
Az érvényesítésnél azt meg tudom oldani, hogy csak az adott betűket fogadja el, de ekkor számokat nem tudok beírni, illetve fordítva.
A feltételes formázást az meg tudom oldani a feltétel részletes megadásával, csak ez elég hosszú lesz, így ha sok cellára kell alkalmazni, nagyon megnöveli a fájlméretet.
Ezért lettem volna kíváncsi, hogy nincs-e valamilyen beépített függvény, amivel azt lehet vizsgálni, hogy egy adott érték egy megadott sorozat része-e? -
#11179
Fire/SOUL/CD
félisten
Delila_1
#11177
válasz
Delila_1
#11177
üzenetére
Hát ha arra a fedettpályás atlétikai vb lebonyolítására is alkalmas képződményre gondolsz, akkor igen, az kész van.
(Már jó ideje)
Közelmúltban azért nem voltam egy darabig, mert végre sikerült 10 napot pihenéssel/nyaralással tölteni, amire az elmúlt 5-6 évben nem volt példa. -
Dave™
nagyúr
válasz
Delila_1
#11162
üzenetére
Ez így hirtelen ellenőrizve tök jól működik, köszönöm szépen a gyors segítséget, életmentő volt
Még egy gyors kérdés a jövőre vonatkozóan: az megoldható valahogyan, hogy vkeresnél a pluszjelet lehúzva a sorokat növelje az excel a képletben? Erre gondolok: =vkeres(D2; D; 2 -> ezt a sort nem növeli lehúzva, csak a keresett éréket, a képletben az elsőt). -
Dave™
nagyúr
válasz
Delila_1
#11160
üzenetére
Ha jól értem az a megoldás van csak, ha minden oszlophoz hozzáfűzöm a géptípust (tehát lesz egy géptípus és szolgáltatás oszlopom mind a hat szolgáltatáshoz). Ez sajnos túl komplexé teszi a dolgot.
itt egy link a rövid példához, hogyan néz ki a valóságban. Persze sokkal több sor meg komplexebb nevek, de példának megteszi
Az ajánlat fül C oszlopa kellene a legegyszerűbben. LINK -
Dave™
nagyúr
válasz
Delila_1
#11158
üzenetére
Lehet rosszul írtam: az árak fülön minden sor egy egyedi gép, ezekhez tartozik utána hat oszlop a hat szolgáltatáskategóriával. Tehát egy géphez hatféle szolgáltatás tartozhat, hatféle árral. Az ajánlat fülön vannak a gépek különböző szolgáltatásokkal, de mindegyikhez csak egy szolgáltatás kapcsolódik a hatból, viszont össze-vissza. Lényegében két feltétel kellene az fkereshez.
Köszönöm a gyors reakciót
Mellékelek egy mintafile-t, ha az segít.
-
-
cortez25
senior tag
válasz
Delila_1
#11097
üzenetére
nem, félreértettél,tuti rosszul fogalmazok. Szóval, nekem két szám közötti számok kellenek, ha egy harmadik oszlopba,tetszöleges két szám között amit beírok egy másik oszlopba.
A1 B1 C-oszlop
130 150 131
132
133
.
.
149 A1- és a B1-t tetszőlegesen változtatom, de mindíg az A1 a kezdő és B1 a végső, szám.vagy ahol megtalálja ezeket a számokat a közte lévő sorokat kilistázza.
-
#11062
Fire/SOUL/CD
félisten
Delila_1
#11061
-
-
b.bone
senior tag
válasz
Delila_1
#11010
üzenetére
Szia,
Ne haragudj, hogy értetlenkedem, de megkérdezhetem, hogy hogyan?
A help-ben azt találtam, hogy a DATE-et a mögötte lévő zárójelben adjuk meg. pl. DATE(2011,10,11), de ebben az esetben, hogyan adom meg úgy, hogy mindig a mai nap legyen? Illetve, hogy nem kell hozzá zárójel?
-
-
-
Agony
aktív tag
válasz
Delila_1
#10996
üzenetére
Bocsi, de nem teljesen tiszta.
Most így áll a függvény:
=FKERES(2140;'20. B3ny'!A7:X17;6)
A 2140-es értéket, ami egy lovas igazolási száma, keresi a B3ny munkalapon az A oszlopban és adja a 6-os oszlop értékekét ahová beírtam az 1000Ft-os nevezési díjat.
A probléma az, hogy egy lovas több lóval is indulhat egy adott versenyen. A lónak a az igazolási számát a D oszlop tartalmazza.
És van egy összesítő tábla, ami sorokban tartalmazza a lovasokat a lovaikkal, tehát lényegében az összes létező kombináció szerepel rajta. Az első három oszlop tartalmazza a Lovas nevét a ló nevét és az egyesületét ahonnan indul, ezt pedig a kategóriák követik.
Tehát példának okáért:Név: Ló neve: Egyesület neve: B1ny B2ny B3ny
Kis Béla Paripa LovagokÉs akkor ide kellene hogy automatikusan beírjon 1000, 2000, vagy 3000 forintot ha megtalálja Kis Bélát és lovát a táblák valamelyikében.
-
mr.nagy
tag
válasz
Delila_1
#10983
üzenetére
Végülis ennek a használatánál maradtam, azonban a táblázatba építve egy hiba üzenetet kapok:
Object variable or With block variable not setÍgy néz ki most a teljes kód:
Private Sub CommandButton1_Click()
Sheets("eladás").Activate
Sheets("eladás").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("készlet").Activate
Sheets("készlet").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("kiárusítás").Activate
MsgBox ("KÉSZ!!!")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A7").Select
If Intersect(Range("E3"), Target) = "" Then Exit Sub
If Not Intersect(Range("E3"), Target) Is Nothing Then _
Selection.AutoFilter Field:=1, Criteria1:=Range("E3")
End SubMi lehet a hiba? Tudsz rá valami megoldást?
-
#10977
medvezsolt
senior tag
Delila_1
#10974
medvezsolt
senior tag
válasz
Delila_1
#10974
üzenetére
Bocsi, de én tökéletesen pontosan definiáltam. És elég jól le is írtam. Fentebb válaszoltak is. A lényeg, hogy Az A oszlop nem minden elemét akarom hogy össze adódjon az A1 cellában, hanem csak néhányat. Például azokat amiket háttérszínnel látok el vagy félkövéren írok.
-
#10935
m.zmrzlina
senior tag
Delila_1
#10934
-
bozsozso
őstag
válasz
Delila_1
#10921
üzenetére
Köszönöm és bocsánat ha félreérthetően fogalmaztam.
Ez is jó lenne csak nem tudom miért, de a 2005.november 3 illetve 2005.november 16-os dátumot egyforma sorszám alá teszi.
Sőt most nézem az előzőleg használt képlet is ezt csinálja. Még csak most használom az eredeti táblázatba.
-
Baboka
tag
válasz
Delila_1
#10884
üzenetére
Bővítményekkel sem jó sajna, berakom az egész makrót, nem egy nagy cucc hátha így tudsz segíteni:
Sub gomb()
Dim mo1, mo2, mo3, eo, ssz, osz, fk, i, j, k As Integer
mo1 = frmmasol.tbmo1.Text
mo2 = frmmasol.tbmo2.Text
mo3 = frmmasol.tbmo3.Text
eo = frmmasol.tbeo.Text
ssz = frmmasol.tbssz.Text
osz = frmmasol.tbosz.Text
fk = frmmasol.tbfk.Text
Sheets(1).Select
Range("A1").Select
If frmmasol.cbtabla.Value = False Then
Windows("1.xls").Activate
Sheets(1).Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Masolo.xls").Activate
Sheets(1).Select
Cells.Select
ActiveSheet.Paste
End If
Windows("2.xls").Activate
Sheets(1).Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Masolo.xls").Activate
Sheets(2).Select
Cells.Select
ActiveSheet.Paste
Sheets(1).Select
Range("A1").Select
For i = fk + 1 To ssz
If (Sheets(2).Cells(i, eo).Value <> "") Then
For j = fk + 1 To ssz
If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
For k = 1 To osz
Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
Next k
End If
Next j
End If
Next i
End Sub -
#10839
Fire/SOUL/CD
félisten
Delila_1
#10838
válasz
Delila_1
#10838
üzenetére
De, igazam van (és ezt tudod, csak szeretsz gonoszkodni, akárcsak én)
![;]](//cdn.rios.hu/dl/s/v1.gif)
"Más volt a cél, ő a címsort színezi, ha aktív a szűrő, Te üzenetet küldesz."
Hát nem kell hozzá atomfizikusnak lenni, hogy function-t varázsoljon belőle valaki, ami igaz/hamis értéket ad vissza...(És legalább nem csak az Autofilter A1 cellájáról ad vissza helyesen infót, bár szerintem a korábbi verzió sem ad rossz infót...)Én is had kérdezzek valamit... olyannal már találkozott valaki, hogy az Excel időzítője valamiért áll?
Ilyennel még nem találkoztam (eddig) -
#10837
Fire/SOUL/CD
félisten
Delila_1
#10836
válasz
Delila_1
#10836
üzenetére
Hát csak egy kissé nehezen követhető, talán így egyszerűbb
With Worksheets("Munka1")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then
MsgBox ("Szűrve: " & """" & .Criteria1 & """" & " feltétel alapján.")
Else
MsgBox ("Nem szűrt")
End If
End With
End If
End WithA Filters tulajdonság indexével lehet hivatkozni, tartománya 1-től AutoFilter.Filters.Count-ig.
UI: "Aki ezt a rövid makrót írta, nagyon erényes. Szép.letisztult makrót írt."
Igen, nyomhatott volna egy F1-et inkább... [link]
-
#10830
m.zmrzlina
senior tag
Delila_1
#10828
m.zmrzlina
senior tag
válasz
Delila_1
#10828
üzenetére
Ha kiegészítem ezzel a sorral:
Application.Volatile
akkor úgy tűnik működik.
Innen szedtem.Valójában egyetlen sorát sem értem ennek a függvénynek (na jó az elsőt és az utolsót igen
.), de ilyen egymásba ágyazott With..End With szerkezetet nem láttam soha 
-
#10829
Fire/SOUL/CD
félisten
Delila_1
#10828
válasz
Delila_1
#10828
üzenetére
Tegyél a munkalapra pl. egy MOST() fx-et és az Worksheet Calculate eseményébe tedd a kódot. Ez meg egy másik megközelítés, a Filterhez
Private Sub Worksheet_Calculate()
'Szűrt terület sorainak teljes száma, a címsort is beleértve
MsgBox (AutoFilter.Range.Rows.Count)
'Szűrt terület aktuális (szűrt) sorainak száma, címsort is beleértve
MsgBox (AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count)
End SubÉrtelem szerűen, ha az a két érték egyenlő, akkor nincs szűrés, más esetben meg igen.
-
#10827
m.zmrzlina
senior tag
Delila_1
#10825
m.zmrzlina
senior tag
válasz
Delila_1
#10825
üzenetére
Maga a fv által visszaadott érték nálam valamiért így sem frissül. K1-be tettem ezt: =FilterOn(A1) és ha nincs szűrő az a oszlopban akkor HAMIS-t ad vissza. Azt várnám ha bekapcsolok egy szűrőt A1-ben akkor IGAZ-ra vált K1 értéke. Ez nem történik meg (az üres makróval sem) viszont ha bekapcsolt szűrőnél viszem be A1-re a FilterOn()-t akkor helyesen TRUE-t ad vissza.
Viszont ennek ellenére a felt. formázás jól működik
-
#10824
m.zmrzlina
senior tag
Delila_1
#10823
-
föccer
nagyúr
válasz
Delila_1
#10818
üzenetére
Nekem ez jutott az eszembe:
Sub Filt()
Dim AF As AutoFilter, F As Filter, i As Long, usor As LongSet AF = ActiveSheet.AutoFilter
usor = Range("A65536").End(xlUp).RowFor i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Cells(1, i) = Cells(usor, i)
End If
Next
End SubEzt még te készítetted nekem.
üdv, föccer
-
Honkydoo
őstag
válasz
Delila_1
#10812
üzenetére
Nem akartam az idődet rabolni..
Nem kértem még segítséget ilyen témában, gondolom ezért követtem el hibákat.
Legközelebb, megpróbálom pontosan megfogalmazni, amit akarok.
Bocsi, nem akartalak kihasználni vagy ilyenek, annak is örülök hogy eddig segítettél.
Innen akkor megoldom én.Üdv,
Ádám -
-
repvez
addikt
válasz
Delila_1
#10779
üzenetére
Köszönöm a kitartó segitséget, márcsak egy kis finomhangolást szeretnék és tökéletes lesz.
Ha kiválasztom a loxot akkor nekem az elötte lévö 3 nap jelölödik ki nem az utánna való.
A másik hogy hogyan kell modositani a képletet ha mindegyik listába szereplö értéknek más háttérszint szeretnék?
ÉS a 8 óránál ne tünjön el a jelzés a bal oldali napoknál mintha ott lenne lox.Köszi mégegyszer
-
repvez
addikt
válasz
Delila_1
#10776
üzenetére
PEdig irtam is hogy minden más adat csat tájékoztató jelegü, tehát nem kell számolni vele csak lehessen kiválasztani a listábol hogy lássam ki merre van
Amivel számolni kell az a 24 ora és a 8 ora.
És valami hasonlora gondoltam mint amit AE linkelt hogy automatikusan beszinezze a cellákat és a 24 ora után 3 napot pihenöre legyen.Archelf:Valami ilyenre gondoltam, de mi mit jelent, mert nem nagyon vagyok képbe vele hol vannak a C oszlopok ami szerepel a képletben vagy az mit jelent.
-
repvez
addikt
válasz
Delila_1
#10772
üzenetére
igy van ahogy ARchelf is mondja a lox értéke 24 ora utánna jonne 72ora pihenés, de ez nem számit bele az éves munkakeretbe és a ledolgozott orába igy csak amit össze kell addni a lox 24 ora és a 8 ora sima nap.
PErsze vannak olyan esetek amikor a 24 ora után nem 3 nap pihenö jön hanem kevesebb.
A többi érték az csak tájékoztató jellegü hogy tudják hogy ki merre jár .
Remélem érthetö azért amit szeretnék.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Kerékpárosok, bringások ide!
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- Autós topik
- Milyen légkondit a lakásba?
- Kínai és egyéb olcsó órák topikja
- Azonnali processzoros kérdések órája
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Bestbuy játékok
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Assassin's Creed Shadows Collector's Edition PC
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- BESZÁMÍTÁS! ASRock B550M R7 5700X 32GB DDR4 512GB SSD RTX 3070 OC 8GB NZXT H400 fekete Enermax 750W
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! MacBook AIR 13" 2018 - i5-8210Y I 16GB I 512SSD I OS X Sonoma I Cam I Gari!
- Quadro FX 570 eladó
- 35" ASUS ROG Swift PG35VQ curved GAMER monitor
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest