-
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
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. -
Delila_1
veterán
válasz
Roxy27
#42998
üzenetére
Idézek a Téma összefoglalóból:
"Ne azt írd, hogy például az A oszlop szűrt adatait szeretnéd a C oszlopba másolni, ha valójában a B oszlop szűrt adatai kellenek egy másik lap X oszlopába."Ahhoz, hogy el tudjam küldeni a fájlt, újra be kellene vinnem mindent egy új füzetbe, mert természetesen nem mentettem el a feladatodat. Az eredmény az lenne, amit a képen látsz, a képből is kikövetkeztetheted a valódi megoldást. Nem véletlenül kértem az elrendezésedet, mert ahhoz kellett volna igazítanom a képleteket.
Mások is elkövetik ezt a hibát, hogy nem az eredeti felállást küldve kérnek segítséget, majd közlik, hogy másról van szó. Igazán érdekel, miért küldtél más formátumot, mint a valódi. Kérlek, írd meg!
Ha nem sikerül összehoznod, küldd el Te a fájlodat, akkor biztos leszek benne, hogy nem dolgozom duplán a képletekkel, és nem kell nekem bevinni az adatokat.
-
Delila_1
veterán
válasz
Roxy27
#34166
üzenetére
Feltöltöttem ide egy fájlt.
A Munka1 lap E2 és F2 cellájában választhatod ki a két lapot. A lapok nevét a H oszlop tartalmazza egy bővíthető táblázatban. Az érvényesítés forrása a Lapnevek tartomány.
Az E2-ben kiválasztott lapnév A oszlopa a laphoz rendelt makró hatására a Munka1 lap A-oszlopába kerül, az F2-é pedig a C-be. A bemásolás előtt az előző A, ill. C oszlop tartalma törlődik.
A feltételes formázást add meg az A és C oszlopra.
-
Delila_1
veterán
válasz
Roxy27
#33402
üzenetére
Képlet az F2 cellában:
=FKERES($A2;Munka1!$A:$E;3;0)Az A2 cella értékét keressük a Munka1 lap A:E tartományának első oszlopában. Eredményként a tartomány 3. oszlopában lévő értéket kapjuk.
Ebből következik, hogy a G és H oszlopok képletében ezt az oszlopszámot kell átírnod.
-
#29482
szatocs1981
aktív tag
Roxy27
#29481
szatocs1981
aktív tag
válasz
Roxy27
#29481
üzenetére
Fejléc és hibakezelés még nincs benne, próbáld ki:
Töröld a "Végeredmény" nevü fület, mielött futtatod a makrót!A makró létrehoz az elsö helyen egy "Végeredmény" nevü lapot, majd oda bemásolja az összes többi létezö lapról az adatokat, a megadot szabály szerint!
Sub Makro1()
Worksheets(1).Select
Sheets.Add
Worksheets(1).Name = "Végeredmény"
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 2 To WS_Count
utolso = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
For szorzo = 0 To 40 Step 8
For sor = 1 To 8
ujsor = sor + szorzo
Worksheets(1).Cells(utolso + 1, sor) = Worksheets(i).Cells(ujsor, "C").Value
If sor <> 1 Then
Worksheets(1).Cells(utolso + 1, sor + 7) = Worksheets(i).Cells(ujsor, "F").Value
End If
Next sor
utolso = utolso + 1
Next szorzo
Next i
End Sub -
#29474
szatocs1981
aktív tag
Roxy27
#29473
szatocs1981
aktív tag
válasz
Roxy27
#29473
üzenetére
Közben átírtam, mert nem volt jó:
Sub Makro1()
utolso = Sheets("Végeredmény").Cells(Rows.Count, "A").End(xlUp).Row
For szorzo = 0 To 16 Step 8
For sor = 1 To 8
ujsor = sor + szorzo
Sheets("Végeredmény").Cells(utolso + 1, sor) = ActiveSheet.Cells(ujsor, "C").Value
ActiveSheet.Cells(ujsor, "C").Select
If sor <> 1 Then
Sheets("Végeredmény").Cells(utolso + 1, sor + 7) = ActiveSheet.Cells(ujsor, "F").Value
ActiveSheet.Cells(ujsor, "F").Select
End If
Next sor
utolso = utolso + 1
Next szorzo
End SubPage1- lapra "rámész" és futtatod a makrót!
-
#29472
szatocs1981
aktív tag
Roxy27
#29471
szatocs1981
aktív tag
válasz
Roxy27
#29471
üzenetére
Ezt lefuttatod 36x ( a lapokat egyesével aktiváld):
Idömböl most ennyi futotta erre.Sub Makro1()
utolso = Sheets("Végeredmény").Cells(Rows.Count, "A").End(xlUp).Row
For szorzo = 1 To 3
For sor = 1 To 8
Sheets("Végeredmény").Cells(utolso + 1, sor) = ActiveSheet.Cells(sor, "C").Value
If sor <> 1 Then
Sheets("Végeredmény").Cells(utolso + 1, sor + 7) = ActiveSheet.Cells(sor, "F").Value
End If
Next sor
utolso = utolso + 1
Next szorzo
End Sub
Új hozzászólás Aktív témák
Fferi50- exHWSW - Értünk mindenhez IS
- HiFi műszaki szemmel - sztereó hangrendszerek
- Macska topik
- Path of Exile (ARPG)
- Home server / házi szerver építése
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- GoodSpeed: Mutasd magad topic!
- FOTÓS beárazás
- OLED monitor topic
- TCL LCD és LED TV-k
- További aktív témák...
- Fallout 4 Pip-Boy Edition eladó
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Apple iPhone SE 2020 128 GB Fehér 1 év Garancia Beszámítás Házhozszállítás
- Targus DOCK423A - USB-C Dual HDMI 4K HUB - 2 x HDMI (120Hz)
- Apple iPhone 12 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo Legion 9 (16IRX9) - Intel Core i9-14900HX, RTX 4090
- Akció! Csere-Beszámítás! Asus Zenbook 14 UM425IA! R7 4700U / 8GB / 512GB SSD!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest