-
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
-
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[ Szerkesztve ]
-
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!
-
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 -
Delila_1
Topikgazda
válasz Roxy27 #33398 üzenetére
Ez egy tipikus FKERES függvényes megoldás. A keresett érték az A2 cella értéke, a tartomány a másik lap A:E tartománya, és pontos keresésre van szükséged.
Nézd meg a súgóban a függvény leírását!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
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.
Új hozzászólás Aktív témák
- KERÉKPÁR / BRINGA / ALKATRÉSZ beárazás
- Call of Duty: Modern Warfare III (2023)
- VR topik (Oculus Rift, stb.)
- Poco X6 Pro - ötös alá
- Kerékpárosok, bringások ide!
- Szevam: Érzelmi magabiztosság/biztonság - miért megyünk sokan külföldre valójában?
- Alkalmazásbemutató: Keep
- Gaming notebook topik
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Debrecen és környéke adok-veszek-beszélgetek
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.