- Ha Trump győz, Elon Musk politikai tanácsadó lehet
- Mozilla Firefox
- Otthoni hálózat és internet megosztás
- Aliexpress tapasztalatok
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- WordPress tartalom kezelő rendszer (CMS)
- Windows 11
- A Sony szerint Japánon kívül is hódíthat az anime
- Autodesk - Revit
-
IT café
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
válasz Delila_1 #10732 üzenetére
Igen, csak ez nem a tipikus ÉS kapcsolat, ha meg olvassa valaki a topikot, akkor néz furcsán, hogy "hát én azt tanultam, hogy ÉS csak akkor igaz, ha minden állítás igaz, itt meg nem, akkor mi most van?"
Szóval ezért bátorkodtam leírni, hogy az ÉS ebben az esetben miért nem ÉS...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)
-
félisten
válasz Delila_1 #10734 üzenetére
Nem erről beszéltem.
Valósítsd meg, hogy akkor legyen OK, ha minden tartományban szerepel a név. Ennyi.
Ezt az ÉS-es módszert használd(nem az enyémet ) és majd rájössz, hogy nem tudod kivitelezni, és annak az lesz az oka, amit korábban kifejtettem.Ha még lesz lelkierőd, akkor a VAGY-al is megpróbálkozhatsz, az meg úgy működjön, hogy akkor legyen OK, ha a 3 tartomány, legalább egyikében megtalálható a keresett név
Na ez sem fog összejönni...
Remélem így már közös nevezőre jutunk, és értelmet nyer, hogy mit brekegtem korábban...Brekk, brekk...
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)
-
félisten
-
fess
őstag
válasz Delila_1 #10646 üzenetére
bemásoltam A1 cellába,de hibát ír ki,syntax error. Azt valahogy meg lehet csinálni,hogy az alkatrészeknek különböző idő lenne a karbantartási szükséglet,egyiknek pl.3 hét,másiknak 3 hónap (persze napokban),és asszerint szűrné ki őket?
a táblázat minden munkalapon így néz ki -
repvez
addikt
válasz Delila_1 #10770 üzenetére
Hát egyenlöre még nagyon az elején tartok.Annyi biztos hogy 7 embernek szerepel benne,de csak 5 fog renszeresen 24/72 menni 2 csak besegit és hogy egy teljes honapra kell ..
Én 2007es office-t használok, de nem árt ha kompatibilis 2003al, mert bennt azt használjkák.
A legnagyobb gondom az hogy hogyan oldjam meg az olyan eseteket amikor nem jon ki a 24/72 hanem valaki elmegy szabira vagy elöbb kell jönnie..közbe találtam egy olyan excelt ami egy jelenléti ivhez készitettek abban vannak ilyen lenyilö listák amiböl ki lehet választani, hogy ki mit csinál és a következö munkalapon hozzátársitja a jelenléti ivhez a megfelelö szöveget és értékeket, csak nem tudom, hogyan lehet visszanézni, hogy hogyan hivatkozik rá vagy milyen képletet fugvényt használ.
[link][ Szerkesztve ]
-
ArchElf
addikt
válasz Delila_1 #10772 üzenetére
Írta, hogy 24/72-znek (nem 8 ór
s munkafrendben dolgoznak, hanem 24-órásban - pl. biztonsági őrök): 1 nap munka - 24 óra, 3 nap pihenés (72 óra)...AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
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. -
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 #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
-
Honkydoo
őstag
válasz Delila_1 #10790 üzenetére
Ok, jó lesz ez, csak még pár apróság:
Még annyi kellene, hogy a kimeneti tartomány ne a G:G oszlop legyen, hanem az I:I.
Meg a keresett különbségek nem az F oszlopban van hanem a G-ben.
Ja meg az A és a B oszlop elég hosszú, leér a munkafüzet végéig."Légy olyan, mint bárki más, tégy olyat, mint senki más."
-
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"Légy olyan, mint bárki más, tégy olyat, mint senki más."
-
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
Építésztechnikus. Építőmérnök.
-
-
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
-
félisten
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.
[ 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)
-
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
-
félisten
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][ 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)
-
félisten
válasz Delila_1 #10838 üzenetére
De, igazam van (és ezt tudod, csak szeretsz gonoszkodni, akárcsak én)
"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)
[ 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)
-
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 -
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.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
-
fess
őstag
válasz Delila_1 #10952 üzenetére
még azt meg lehet csinálni,hogy a megnevezés és típuson kívül, az cikkszámot is kigyűjtse a gyűjtő lapra?
-
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.
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
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?
HMNote10Pro
-
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.
Start with a whisper, end with a scream!
-
Agony
aktív tag
válasz Delila_1 #11002 üzenetére
Rögtön kipróbálom csak még van egy kis dolgom. Elég komoly képtelet fűztél össze, nagyjából sikerült megérteni, de azt nem egészen értem hogy ez mi alapján nézi az összes munkalapot? Vagy ha nem szabsz neki korlátot, akkor eleve nézi az összeset?
Start with a whisper, end with a scream!
-
b.bone
senior tag
válasz Delila_1 #11006 üzenetére
Szia ,
Az utolsó példánál azt szeretném formázni ami "holnaptól" +7 napig tartó intervallumba esik.
Ez igazából jó lenne : =AND(E1>TODAY();E1<TODAY()+8) ,de sajnos valamiért az Excel nem fogadja el. Azt mondja, hogy hibás a függvény[ Szerkesztve ]
"guilty until proven innocent" - Artisjus
-
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?
"guilty until proven innocent" - Artisjus
-
b.bone
senior tag
Új hozzászólás Aktív témák
- Politika
- Vezeték nélküli fülhallgatók
- Nyaralás topik
- Ha Trump győz, Elon Musk politikai tanácsadó lehet
- Autós topik
- A fociról könnyedén, egy baráti társaságban
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Ukrajnai háború
- Kínai, és egyéb olcsó órák topikja
- Magga: PLEX: multimédia az egész lakásban
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs