Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Brogyi: CTEK akkumulátor töltő és másolatai
- potyautas: A Magyar Néphadsereg emlékére
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- GoodSpeed: Márkaváltás sok-sok év után
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- eBay-es kütyük kis pénzért
-
LOGOUT
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
ny.janos
#39351
üzenetére
Nem néztem meg, milyen dátumok szerepelnek a pihenőnapoknál, mert az elnevezésüket nem tudtam értelmezni. Ezek munkanapként értelmezett szombatok, amik a BF oszlopban már eleve megvoltak.
Szombatokat nem vittem az ünnepek közé. 1 db vasárnap (2018.04.01) szerepel az ünnepek között, ahogy a munkaügyi naptárban is. Nem mindegy, hogy hétvége, vagy ünnepnap, a fizetés szempontjából. -
Delila_1
veterán
válasz
tgumis
#39234
üzenetére
Rendeld a laphoz ezt a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
Application.EnableEvents = False
Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=Target
Range("A1").CurrentRegion.Offset(1).Select
Selection.SpecialCells(xlVisible).Delete shift:=xlUp
ActiveSheet.Range("$A$1:$F$1").AutoFilter Field:=1
Application.EnableEvents = True
Range("A2").Select
End If
If Target.Address = "$N$1" Then
Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=Target
End If
End Sub -
-
Delila_1
veterán
-
Delila_1
veterán
válasz
föccer
#39131
üzenetére
Egy egysoros makró kell hozzá.
ActiveSheet.PageSetup.CenterHeader = Sheets("Munka1").Range("C3")A cellatartalom megjelenítési helyét az élőfej-élőláb területén módosíthatod, a CenterHeader helyett másik területet megadva (LeftHeader, RightHeader, LeftFooter, CenterFooter, RightFooter).
-
#39057
Delila_1
veterán
dellfanboy
#39056
Delila_1
veterán
válasz
dellfanboy
#39056
üzenetére
Állj a megjelenítendő (cím)sor alá, majd kattints a Nézet | Panelek rögzítése menüpontra.
Mit szeretnél még megjeleníteni a hivatkozásban?
-
Delila_1
veterán
Táblázattá alakítod az adataidat. Beszúrás, Táblázat. Ebből készíted el a kimutatást.
Mikor bővíted a sorokat, a táblázatod mérete automatikusan az új tartományhoz idomul. Ekkor annyi a teendő, hogy a kimutatást frissíted (kimutatásban állva jobb klikk, frissítés). Minden alkalommal az aktuális tartomány lesz az alap a feldolgozáshoz.
Ilyen sok terméknél talán célszerűbb, átláthatóbb elrendezés a sorokhoz a megrendelőt ÉS a cikkszámot behúzni, az értékekhez menjen a mennyiség.
-
Delila_1
veterán
válasz
Teejay83
#39033
üzenetére
Ha csak 1 ilyen sorod van, az Adatok | Szövegből oszlopok menüponttal egymás mellé írathatod az egyes tagokat, majd a másolás, irányított beillesztés, transzformálva menüponttal egymás alá rendezheted a szétválasztott adatokat.
Több sornál futtathatod a lenti makrót.
Sub trans()
Dim sor As Long, usor As Long, ide As Long
Dim szoveg As String, hossz As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
szoveg = Cells(sor, 1)
Do While InStr(szoveg, ",") > 0
hossz = InStr(szoveg, ",")
Cells(ide, "B") = Left(szoveg, hossz - 1)
szoveg = Mid(szoveg, hossz + 1, 100)
ide = ide + 1
Loop
Cells(ide, "B") = szoveg
ide = ide + 1
Next
End Sub -
#39003
Delila_1
veterán
Flowtation
#39002
Delila_1
veterán
válasz
Flowtation
#39002
üzenetére
Kezded beírni a függvényt
=ha(
A zárójel után rákattintasz a szerkesztőlécen lévő fx ikonra, mire feljön a képletszerkesztő ablak.
Beírod a példa szerinti következő függvényt
=ha(hibás(
Újabb fx-re ennek a függvénynek a segítő ablaka jelenik meg. -
#38998
Delila_1
veterán
Flowtation
#38997
Delila_1
veterán
válasz
Flowtation
#38997
üzenetére
Az FKERES függvény tartománya attól függ, hogy a hivatkozott dátum páros, vagy páratlan hétre esik.
A HÉT.SZÁMA függvény megadja a hét számát. Ezt vizsgálja a PÁROSE függvény. IGAZ érték esetén a Páros tartományban keresi a HÉT.NAPJA értéket, HAMIS-nál a másikban.
Ezt a logikát érdemes követni. Láttad, én is felvittem a két táblázatot az Adatok lapra. Nem feltétlenül kell másik lapon lenniük az adatoknak.
-
#38996
Delila_1
veterán
Flowtation
#38995
Delila_1
veterán
válasz
Flowtation
#38995
üzenetére
Másold át a B5 és a C5 képletét az új lap B és C cellájába, majd "húzd le", ameddig kell.
-
-
#38986
Delila_1
veterán
Flowtation
#38984
Delila_1
veterán
válasz
Flowtation
#38984
üzenetére
Feltettem ide egy megoldást.
-
Delila_1
veterán
válasz
Dinter
#38951
üzenetére
Adj az oszlopnak címet, legyen az A1 cella Név. A B1 legyen pl. összeg. Most a páratlan sorok lettek szövegesek, a párosak pedig számok.
B2-be: =A3
Jelöld ki együtt a B2 és B3 cellát, majd másold le addig, ameddig valamilyen adatod van az A oszlopban.
Most jelöld ki a teljes B oszlopot, másold, a kijelölést nem változtatva irányított beillesztés, értéket.Állíts be autoszűrőt a 2 oszlopodra. Adatok menü, szűrő. Szűrd a B oszlopot az üresekre. Jelöld ki a szűrt sorokat, teljes sorok törlése. A szűrést visszaállítva az összes kijelölésére már meg is van.
Tovább tart a leírás, mint a végrehajtása.
-
Delila_1
veterán
válasz
user112
#38912
üzenetére
Jelöld ki a táblázat sorát úgy, hogy a törlendő sor első oszlopa fölé mutatsz. Mikor fekete, jobbra mutató nyíl alakú lesz a kurzor, kattintasz. A Ctrl és a mínusz billentyű együttes lenyomására törlődik a sornak az a része, amelyik a táblázatodban van. Tehát ha a táblázatod például az A:F tartományban van, akkor a következő oszlopokban megmaradnak az adatok a törölt sorban.
-
Delila_1
veterán
válasz
botond187
#38907
üzenetére
Irányított, más néven speciális szűréssel oldhatod meg. Adatok | Rendezés és szűrés | Speciális.
A G1:H2 tartomány adja a szűrés feltételeit. A két feltétel ÉS kapcsolatban áll egymással.
Látod, ahova kigyűjtöd a feltételeknek megfelelő rekordokat, nem kell azonos sorrendben lenniük az oszlopoknak, mint a forrásnál. Nem is szükséges minden oszlopot megjeleníted. -
Delila_1
veterán
Bocsi, csakis a lényeget nem írtam le.
A kimutatásban állva létrehozol egy számított mezőt. Beállítások | Képletek | Számított mező. Itt címet adsz neki, ami nálam Százalék. Képletnek megadod az érték2 / érték1-et. Az új mezőt behúzod a Kimutatás mezőlista értékeihez, és százalékra állítod a statisztika módját.
-
Delila_1
veterán
válasz
LED333
#38875
üzenetére
Az elsőre a válasz, hogy a laphoz kell rendelned egy makrót. Ennek a módját megtalálod a Téma összefoglalóban.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target > "" Then
Sheets(2).Select
ActiveSheet.Shapes(Target).Select
End If
End SubNálam a terméknevek az A oszlopban vannak. A második lapon lévő képek nevei megegyeznek az első lap termékneveivel.
Ha a neveket tartalmazó lapon nem az A oszlopban vannak a nevek, akkor az If Target.Column = 1 -nél írd át az 1-et annyira, ahányadik oszlopra kattintást kell figyelnie a makrónak.
Ha a képek nem a 2. lapon vannak, akkor a Sheets(2).Select sorban kell átírnod a 2-t.A füzetet makróbarátként (xlsm) kell mentened.
Most nem ugrik be a második kérdésedre a válasz, de majdcsak jön valaki, aki kapásból tudja.
-
Delila_1
veterán
válasz
wednesday
#38868
üzenetére
A sok jelölőnégyzet jócskán megnöveli a fájl méretét. Alkalmazd a lappy által javasolt x-et, vagy van lehetőség a pipa beírására is.
Az oszlopot, ahova a pipát akarod tenni, Wingdings, félkövér karakterre állítsd, és mikor kész a sor, egy ü betűt írj ide.
Nekem a personalban (lásd a Téma összefoglalót) van egy nyúlfarknyi makróm, amihez a gyorselérési eszköztárra kitettem egy ikont. Ott – csodák csodája – a módosításnál rendelhettem hozzá egy pipa alakú ikont. A cellán állva rákattintok az ikonra, mire betesz egy kék pipát a kiválasztott cellába.
Sub Pipa()
ActiveCell = "ü"
With Selection.Font
.Name = "Wingdings"
.Bold = True
.ColorIndex = 5
End With
End SubA colorindexet 3-ra állítva piros lesz a pipa színe.
-
#38867
Delila_1
veterán
pero19910606
#38865
Delila_1
veterán
válasz
pero19910606
#38865
üzenetére
Nézd meg EZT, és az előzményét!
Ez a te táblázatodra is vonatkozik. Eszerint érdemes az adatokat beírnod, ha nem akarod minden bővítésnél a kimutatást is átalakítani.
-
Delila_1
veterán
A dátumot a SZÖVEG függvény segítségével formázhatod az összefűzésben.
Az egyéb formázásokat csak úgy tudod végrehajtani, ha az összefűzés eredményét értékként beilleszted saját magára.
A 32473-as hozzászólásoktól láthatsz példákat makrós formázásokra, de rákereshetsz az ActiveCell.Characters kifejezésre is.
-
#38805
Delila_1
veterán
molnarbalazs
#38797
Delila_1
veterán
válasz
molnarbalazs
#38797
üzenetére
Szerintem a 38782-es válasz jó volt. Ekkor pluszban kérted, hogy a munkaadót is egyeztetni kell, amit megkaptál a 38784-ben. Erre írtad, hogy valami nem stimmel, újra felteszed a fájlt, de azóta sem tetted fel.
Abból, hogy nem stimmel valami, nem sokra lehet menni.
-
#38784
Delila_1
veterán
molnarbalazs
#38783
Delila_1
veterán
válasz
molnarbalazs
#38783
üzenetére
=ÉS(DARABTELI($B1:$B5;$B5)=5;DARABTELI($C1:$C5;$C5)=5;$D1:$D5="Alkalmi") -
#38782
Delila_1
veterán
molnarbalazs
#38780
Delila_1
veterán
válasz
molnarbalazs
#38780
üzenetére
Az ötödik sortól kezdve vidd be a feltételes formázást az A:D oszlopokra.
=ÉS(DARABTELI($B1:$B5;$B5)=5;$D1:$D5="Alkalmi") -
Delila_1
veterán
-
-
Delila_1
veterán
válasz
bteebi
#38760
üzenetére
NE legyen mindenre külön lap!
Minden adatot vigyél fel egy lapra, folyamatosan, majd alakítsd táblázattá (beszúrás, táblázat).
A felvitelnél nem kell figyelned arra, hogy a dátumok, a projektek, vagy bármi más valamilyen rendszer szerint történjen.
A táblázatban állva Beszúrás, Kimutatás, Kimutatás. A megjelenő ablakban legyen az elrendezés
Ilyen lesz a kimutatásod
Minden mező (Dátum, Hét, Munkavállaló, Projekt, Tevékenység, és még a Munkaidő is) szűrhető.
Mikor felvittél egy csapat adatot, a kimutatáson állva jobb klikk, Frissítés. Ha megfogadtad, hogy eleve táblázattá alakítod a listádat, nem kell mást tenned.Szerk.: nálam a C2 képlete az adatoknál: =WEEKNUM(B2;2)
-
-
#38741
Delila_1
veterán
szabonorbkk
#38740
Delila_1
veterán
válasz
szabonorbkk
#38740
üzenetére
Szívesen.
-
#38739
Delila_1
veterán
szabonorbkk
#38738
Delila_1
veterán
válasz
szabonorbkk
#38738
üzenetére
Igen, a Solver a megoldás.
Az A oszlopban vannak az összegek, mellettük a B-t feltöltöttem nullákkal, a C1 képlete =A1*B1, ezt lemásoltam. A C16 összegzi a C1:C15 tartományt. G5-ben van a kívánt összeg, de erre nem lehet hivatkozni, csak be kell írni az összeget a Solverbe.
Előre besárgítottam az A oszlopban azokat az összegeket, amik kiadják a G1 értékét, de a Solver másik megoldást adott, amint az első képen látod.
-
Delila_1
veterán
válasz
BalanceR
#38735
üzenetére
Legyen mindkét füzet megnyitva. Nálam a Füzet1.xlsm-ben van a makró, modulban, a másik neve Füzet2.xlsx.
Mindkét füzetben Munka1 a lap neve, és címsort feltételezek.Sub Egyeztet()
Dim sor As Long, usor As Long
Dim WS1 As Worksheet, WS2 As Worksheet, talal
Set WS1 = Workbooks("Füzet1.xlsm").Sheets("Munka1")
Set WS2 = Workbooks("Füzet2.xlsx").Sheets("Munka1")
WS1.Activate
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
On Error Resume Next
talal = Application.Match(Cells(sor, 1), WS2.Columns(1), 0)
If IsError(talal) Then
Rows(sor).Delete Shift:=xlUp
On Error GoTo 0
Else
Cells(sor, 9) = WS2.Cells(talal, 9)
End If
Next
End Sub -
Delila_1
veterán
-
#38666
Delila_1
veterán
Flowtation
#38663
Delila_1
veterán
válasz
Flowtation
#38663
üzenetére
Egyszerűbb összeállítani, mint elmagyarázni. Feltettem a fájlt ide.
-
Delila_1
veterán
válasz
#62169858
#38601
üzenetére
A helyedben a következőt tenném:
A területre, ahova az időket kell beírnod, érvényesítést tennék. Lista, a forrás 5;7;12
Három makróval adnám meg a cellák formázását.
Sub Nappal()
Selection.NumberFormat = """N""0"
End SubSub Ejszaka()
Selection.NumberFormat = """E""0"
End SubSub Mozgo()
Selection.NumberFormat = """M""0"
End SubA makrókhoz ikont rendelnék a gyorselérési eszköztárra. Az eszköztár jobb oldalán lévő nyílon katt, További parancsok. A Választható parancsok helye Makrók. Balra egyenként kiválasztanám, és a Felvétel gombbal átmásolnám ezeket a jobb oldali táblába. Mikor megvan, mindegyikhez rendelnék egy ikont, pl. a nappalhoz vil. kék négyzetet, az éjszakához feketét, és a mozgóhoz fehéret.
A táblázat adott pontján kiválasztod a három engedélyezett (5, 7, 12) értéket, majd az ikonra kattintva megjelenik a megfelelő betű a szám előtt. Az összegzés egy sima SZUM.
-
Delila_1
veterán
válasz
MCMLXXXII
#38557
üzenetére
Ha az előző makró nem működött mobilon, ez sem fog.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 And Target.Row Mod 2 = 0 Then
ActiveSheet.Protect UserInterfaceOnly:=True
Application.EnableEvents = False
If IsNumeric(Target) And Target.Count = 1 Then
Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
Range(Target.Address).Locked = True
Range(Target.Address).Offset(1).Locked = True
End If
Application.EnableEvents = True
End If
End SubA makró figyeli, hogy a páros sorokban az E oszloptól kezdődően szám legyen, ekkor az alatta lévő sorba beírja az aktuális dátumot és időt, majd zárolja a beírt szám és idő celláját.
-
#38541
Delila_1
veterán
Winner_hun
#38540
Delila_1
veterán
válasz
Winner_hun
#38540
üzenetére
Ctrl és + jelre előjön a beszúrás menü, ahol cellákat, vagy teljes sort szúrhatsz be. Ctrl és mínusz az ellenkezője.
-
#38532
Delila_1
veterán
pero19910606
#38529
Delila_1
veterán
válasz
pero19910606
#38529
üzenetére
Gondolom, az csak a mintaként megadott értékeknél van úgy, hogy a 2 cikkszám megegyezik.
M-mel kezdődő adatok képlete
=IF(LEFT(VLOOKUP($A2;[Munkafüzet1]Munka1!$A:$B;2;0);1)="M";VLOOKUP($A2;[Munkafüzet1]Munka1!$A:$B;2;0);"")S-sel kezdődő adatok képlete
=IF(LEFT(VLOOKUP($A2;[Munkafüzet1]Munka1!$A:$B;2;0);1)="S";VLOOKUP($A2;[Munkafüzet1]Munka1!$A:$B;2;0);"")Az eredeti adatok a Munkafüzet1 fájl Munka1 lapján, az A és B oszlopban vannak, a másik füzet A oszlopa tartalmazza a keresendő cikkszámokat.
-
#38509
Delila_1
veterán
customer114
#38508
Delila_1
veterán
válasz
customer114
#38508
üzenetére
Egy modulba másolt makró elintézi. A lap neve, ahonnan másol: Munka1, a másik lap Nyomtatás névre hallgat nálam.
Sub Nyomtatashoz()
Dim innen As Long, ide As Long, hanyszor As Long, db As Long
Sheets("Munka1").Select
innen = 1 'ha címsorod van a Munka1 lapon, akkor innen=2
With Sheets("Nyomtatás")
Do While Cells(innen, "A") <> ""
hanyszor = Cells(innen, "A")
ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
db = 0
Do While db < hanyszor
.Cells(ide, "A") = Cells(innen, "B")
db = db + 1: ide = ide + 1
Loop
innen = innen + 1
Loop
End With
End SubA füzetet makróbarátként kell elmentened.
-
Delila_1
veterán
válasz
föccer
#38495
üzenetére
Szia Föccer!
A szűrt adatok másolásáig
Sheets("Munka1").Select
Range("A:B,J:J").ClearContents
Range("K1:K150") = "=Countifs(A:A,J1)"
Sheets("Mintavételek").Range("E7:E" & Range("E7").End(xlDown)).Copy
Sheets("Munka1").Range("B1").PasteSpecial xlPasteValuesInnen már azt hiszem, nem volt problémád az ismétlődések eltávolításával, és másolásával.
Azért csak 1 sort másolt, mert a For-Next ciklusban csak másoltad a memóriába az egyes sorokat, de nem illesztetted be sehova.
Az első For ciklusod végére Next helyett End került, itt nyilván kiakadt a makró, ill. el sem indulhatott. -
Delila_1
veterán
Jó helyen változtattál, csak nem <50, hanem <51. Akkor az 50-et is figyelembe veszi.
Egy picit gyorsítottam a makrón.
Sub Masolas()
Dim hova As Integer, oszlop As Integer
ActiveSheet.Protect UserInterfaceOnly:=True
If Range("B4") > 0 And Range("B4") < 51 Then
hova = Application.Match(Range("B4"), Range("B15:B94"), 0) + 14
Range("C4:D5").Copy
Range("C" & hova).PasteSpecial xlPasteValues
For oszlop = 5 To 15
Cells(hova, oszlop) = Cells(4, oszlop).Value
Next
Application.CutCopyMode = False
Else: MsgBox "Hibás sorszám", vbCritical
End If
End Sub -
Delila_1
veterán
Egy modulba helyezett makró minden indításakor megkeresi a B4 cellában lévő sorszámot a B15:B94 tartományban, és ide másolja a pirossal keretezett fenti részt.
Sub Masolas()
Dim hova As Integer, oszlop As Integer
If Range("B4") > 0 And Range("B4") < 41 Then
hova = Application.Match(Range("B4"), Range("B15:B94"), 0) + 14
For oszlop = 3 To 15
Cells(hova, oszlop) = Cells(4, oszlop)
Next
For oszlop = 3 To 4
Cells(hova + 1, oszlop) = Cells(5, oszlop)
Next
Else: MsgBox "Hibás sorszám", vbCritical
End If
End SubKitehetsz a lapra egy gombot, vagy egy alakzatot, és hozzárendeled a makrót.
A modulba helyezésről a Téma összefoglalóban olvashatsz. -
Delila_1
veterán
válasz
Dinter
#38454
üzenetére
Feltettem ide egy mintát.
Az Fkeres lapra bevittem az összes e-mail címet, amik az előtte lévő 3 lapon előfordulnak.
Nem fontos mindet bevinni, elég, ha egy cellába beviszed a keresett címet, a képlet előcsalja a hozzá tartozó adatokat. Természetesen át kell alakítanod a saját lapjaid felépítéséhez.Az OSZLOP() függvény az aktuális oszlopszámot adja. A példában az e-mail címet tartalmazó oszlop után azonos sorrendben vannak a 3 lapon az adatok. Lehet, hogy nálad nem így van, akkor helyette a valós oszlopszámot kell megadnod.
Új hozzászólás Aktív témák
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Stalker Clear Sky Limited Collector's Edition
- Asus ROG Strix G G531GT - 15,6"FHD IPS 144Hz - i5 9300H - 16GB - Win11 - GTX 1650 - MAGYAR
- Xiaomi Redmi Note 13 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Apple iPhone 13 Pro Max 128GB,Újszerű,Dobozával,12 hónap garanciával
- Garmin USB ANT Stick jeladó eladó
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest