- Huawei Watch 5 - okosóra érintőlegesen
- Huawei Watch GT 5 Pro - egészség + stílus
- Xiaomi 14T Pro - teljes a család?
- Xiaomi 15 - kicsi telefon nagy energiával
- Honor 200 - kétszázért pont jó lenne
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Magisk
- LG V50 ThinQ Dual Screen - az 5G ára
- LG Velvet (4G) - megelőzte a híre
- Mobilhasználat külföldön
-
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
-
#49638
Salex1
őstag
Fire/SOUL/CD
#49633
Salex1
őstag
válasz
Fire/SOUL/CD
#49633
üzenetére
Köszönöm neked is és MUTT kollégának is. Nemsokára neki esek és kipróbálom.
-
#49627
Salex1
őstag
Fire/SOUL/CD
#49624
Salex1
őstag
válasz
Fire/SOUL/CD
#49624
üzenetére
A tagolás megegyezik minden esetben, de most láttam, hogy került bele hibásan olyan, aminél a 4. tag csak 7 karakter, ez javítva lesz.
Lehet egyező azonosító. -
Salex1
őstag
Egy igen nehéz feladat állna előttem. Adott egy jó nagy tábla, BC oszlopában vannak a kezelendő adatok, amiket szét kellene bontani.
Az adat tagolása xx-xxxxx-xxxxx-xxxxxxxx-xxxxxx, 2-5-5-8-6 karakter, kötőjellel elválasztva.
Az első kettő tag a hely,
harmadik a szoba,
negyedik a gép,
ötödik egy azonosító.
Így:DB-BAN54-0ROOM-00NUMBER
DB-BAN54-0ROOM-00NUMBER-000207
DB-BAN54-0ROOM-00NUMBER-000209
DB-BAN54-0ROOM-00NUMBER-000210
DB-BAN54-BALAN-SARTO_A-000013
DB-BAN54-BALAN-SARTO_A-000014
DB-BAN54-DESCI-0NIKKO_A-000046
(előfordulhat üres cella is)Ebből kellene olyan, hogy minden eltérő azonosítónál (azaz utolsó tag) legyen előtte egy sorban a hely (2-5 kar.), következő sorban már a szoba is (2-5-5 kar.), megint következőben gép (2-5-5-8).
Viszont ami már szerepelt (hely, szoba vagy gép már fel volt tüntetve) az nem kell még egyszer.
Így:
DB-BAN54
DB-BAN54-0ROOM
DB-BAN54-0ROOM-00NUMBER
DB-BAN54-0ROOM-00NUMBER-000207
DB-BAN54-0ROOM-00NUMBER-000209
DB-BAN54-0ROOM-00NUMBER-000210
DB-BAN54-BALAN
DB-BAN54-BALAN-SARTO_A
DB-BAN54-BALAN-SARTO_A-000013
DB-BAN54-BALAN-SARTO_A-000014
DB-BAN54-DESCI
DB-BAN54-DESCI-0NIKKO_A
DB-BAN54-DESCI-0NIKKO_A-000046A többi adat a táblázatban is fontos, hogy maradjon. A beszúrt sorok lehetnek a többi mezőkben üresek.
-
#49032
Salex1
őstag
Fire/SOUL/CD
#49029
Salex1
őstag
válasz
Fire/SOUL/CD
#49029
üzenetére
Köszönöm működik.
Mutt a tiédet is próbáltam, de az nem megy. Azt írja ki a cellába: ?NÉV
-
Salex1
őstag
Tudnátok segíeni? Meg kellene számolnom, hogy az adott cellában hány tizedes jegyig vannak a számok.
16,34 > 2
3,3 > 1
találtam rá egy függvényt:
=IF(B5=INT(B5),0,LEN(B5)-FIND(".",B5,1))
Magyarosítottam:
=HA(A2=INT(A2);0;HOSSZ(A2)-KERES(",";A2;1))
Nem működik (#HIÁNYZIK).
Szétbontva olyan mintha a "," nem tetszene neki. -
Salex1
őstag
válasz
Delila_1
#48991
üzenetére
Nagyon hálás vagyok a segítségért, sok időt spórolok/nék vele. Az eredeti hsz-ban írtam, csak nem értette a "kolléga" ezért írtam mintát. Bocsánat érte, hogy félre vitt.
Az összes oszlopnak adatnak maradni kellene, nem csak a ABCE. -
Salex1
őstag
válasz
Delila_1
#48858
üzenetére
Ki tudnád nekem ezt egészíteni? Én próbáltam, de nem sikerült sajnos, összekuszálódott.
Az alap táblázat A:CL tartomyányú. Ebből az AH amit bontani kellene.
Viszont van olyan is, ahol üres a cella, ott úgy is kellene maradnia (ha ez nem megoldható, az nem baj, akkor írok bele valamit ideiglenesen, PL. N/A) -
#48857
Salex1
őstag
Fire/SOUL/CD
#48855
Salex1
őstag
válasz
Fire/SOUL/CD
#48855
üzenetére
Bocsánat, hogy nem volt érthető. Így tényleg könnyebb lesz:
-
-
Salex1
őstag
Adott egy excel, aminek az egyik oszlopában ilyen cellák vannak:
['0,0','20,0','40,0','60,0','80,0','100,0']
Ezt szeretném szétszedni, hogy minden érték külön sorba kerüljön:
0,0
20,0
40,0
...
Viszont a sor többi értéknek minden új sorban meg kellene jelennie. Tudtok segíteni? -
Salex1
őstag
Nem sajnos. Sok dátumot kell írnom, és a numerikus bill-en tudok írni anélkül, hogy oda néznék, de a pont mindig megakaszt.
A lényeg az lenne, hogy ott be tudjam írni a dátumot. Az is jó lenne, ha az adott oszlopban átalakítaná automatikusan, beütés után a 2018,07,06 -ot 2018.07.06-ra. -
Salex1
őstag
Tudom, nem Excel, de valamelyik VBA guru hátha tudna válaszolni
-
Salex1
őstag
Egy kis segítség kellene. Van egy csoportosított oszlop grafikon, ami a hónapon belül a heteket tartalmazza, viszont az összesítésnél halmozott oszlopként kellene megjelenni, így:
Csak úgy tudtam megoldani, hogy egy másik grafikont raktam az alsóra, de így nem az igazi. Van erre valami megoldás? -
-
Salex1
őstag
Sziasztok! Régen jártam erre...de most van egy problémám, amit nem sikerül megoldani.
Van egy Textbox-om, az ide beírt adatra szeretnék egy másik táblázatban rákeresni, ENTER ütés után.
De valamiért leáll hibával: "Object variable or With block variable not set"
Mi lehet a gond?Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Workbooks.Open Filename:="K:\példa.xls"
Cells.Find(What:=TextBox2.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End Sub -
Salex1
őstag
Valahogy meg lehet azt csinálni, hogy egy cellába szeretném beíratni egy másik táblázat adott sorának D celláját, ha az M sorban lévő cella "igaz", de ezt összefűzve, mivel több is lehet igaz.
x táblázat egyik fájlban
D M
A igaz
B hamis
C igaz
D hamisy táblázat egy másik fájlban
K1 cellája = A, C -
Salex1
őstag
válasz
Delila_1
#21080
üzenetére
Rendszerek C oszlopát kell a Munkák B oszlopba, illetve a H-t a H-ba.
De a lényeg, hogy a munkafüzet megnyitásánál az auto_open makróban rendesen lefut, hiba nélkül, viszont, egy command_button-hoz rendelve, ugyanazon szöveg átmásolva már nem. Nem okoz hibát, de nem is végzi el a feladatát.Sheets("Rendszerek").Select
' megkeresi az utolso ures cellat
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' vegigmegy a cellakon 2_vel kezdve
For X = 2 To FinalRow
' eldönti másoljon-e a cells_x,15 cella alapján
ThisValue = Cells(X, 15).Value
If ThisValue = "1" Then
' ha a 15 azaz O cella 1 akkor masol
Cells(X, 3).Resize(1, 1).Copy
' munka1 lap kivalasztasa
Sheets("Munkák").Select
' a kovetkezo ures sor 2 azaz B oszlopaba irja a kivalasztott cellat
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Rendszerek").Select
Cells(X, 15) = "áttéve"
' a lejáratidátumot is átviszi a 8.(H) oszlopba
Cells(X, 8).Resize(1, 1).Copy
Sheets("Munkák").Select
Cells(NextRow, 8).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' 7. oszlopba beírja, hogy TERV
Cells(NextRow, 7).Select
ActiveCell.FormulaR1C1 = "Terv"
Sheets("Rendszerek").Select
End If
Next X
' kijelölés megszüntetése
Application.CutCopyMode = False
Sheets("Munkák").Select
Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAndSzerk: Jut eszembe, lehetséges valahogy a command_buttonnal meghívni az auto_open makrót?
-
Salex1
őstag
Az mitől lehet, hogy ha auto_opennel hívok meg egy makrót akkor rendben működik, de, ha ugyan azt command_button-nal teszem, akkor látszólag lefut, de nem hajtja végre a feladatát?
Egyik munkalapról a másikra kellene bizonyos adatokat átmásolni neki...Private Sub CommandButton4_Click()
Sheets("Rendszerek").Select
' megkeresi az utolso ures cellat
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' vegigmegy a cellakon 2_vel kezdve
For X = 2 To FinalRow
' eldönti másoljon-e a cells_x,15 cella alapján
ThisValue = Cells(X, 15).Value
If ThisValue = "1" Then
' ha az O cella 1 akkor masol
Cells(X, 3).Resize(1, 1).Copy
' munka1 lap kivalasztasa
Sheets("Munkák").Select
' a kovetkezo ures sorba irja a kivalasztott cellat
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Rendszerek").Select
Cells(X, 15) = "áttéve"
' a lejáratidátumot is átviszi a H oszlopba
Cells(X, 8).Resize(1, 1).Copy
Sheets("Munkák").Select
Cells(NextRow, 8).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' G oszlopba beírja, hogy TERV
Cells(NextRow, 7).Select
ActiveCell.FormulaR1C1 = "Terv"
Sheets("Rendszerek").Select
End If
Next X
Application.CutCopyMode = False
Sheets("Munkák").Select
Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAnd -
Salex1
őstag
válasz
Salex1
#20459
üzenetére
Rátaláltam, de ha kellene másnak is az adott időpontban való makró futtatás:
Bele kell írni egy bármilyen makróba (pl. auto_open), amit lefuttatva már a memóriába kerül és ez után már végre fogja hajtani az adott időpontban.Application.OnTime TimeValue("8:00:00"), "Makró név"
-
-
Salex1
őstag
válasz
Delila_1
#20359
üzenetére
Köszi! kicsit átalakítva tudtam csak működésre bírni, biztos van egyszerűbb mód, de legalább működik.
Range("K1").Value = ActiveSheet.Shapes("Text Box 558").TextFrame.Characters.Text
Range("L1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""*"",RC[-1],""*"")"
Selection.AutoFilter Field:=2, Criteria1:=Range("L1").TextLehetséges valahogy a makrót hozzárendelni a textbox elhagyásához, vagy a textboxban az enter megnyomásához?
-
Salex1
őstag
Lenne egy kérdésem:
Adott egy táblázat Munka (A-D) és hozzá üzemóra (1-...)
Egy cellában összesíteni kellene az adott pl "A"-hoz tartozó üzemórákat. A nehezítő tényező, hogy egymás mellett többször szerepelnek (több dolgozó) és mindez több (12, hónapok szerint) munkalapon ismétlődik.
A lényeg, kinyerni, hogy egy munkán összesen hány órát dolgoztak.
Valakinek esetleg lenne ötlete? -
Salex1
őstag
Egyik sem volt azok közül, amit írtatok. Nem tudom, hogy hogy, de belekattintottam a képletbe, újra kiválasztottam a célterületet és néha így megjelent az eredmény, ha nem elsőre akkor 2. 3. próbálkozás után...az a baj, hogy ki tudja hány gépen és office-on ment keresztül a file, mert ilyen közös nyilvántartás szerűség.
-
Salex1
őstag
A következő üres cellába íráshoz használok egy makrót, ez a lényege:
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Ebben a formában működik, amíg nincs elrejtve az utolsó cella. Viszont, ha el van rejtve akkor felülírja az utolsó látható cella utáni sort. A sor végi +1 miatt.
Lenne valakinek ötlete, hogy működhetne ez rendesen? -
Salex1
őstag
Sziasztok! egy kis segítség kellene, meg lehet ezt oldani valahogy:
A lényeg, hogy van egy tábla, amit folyamatosan bővítek kézzel (napi/heti egy két plusz sor) és van egy másik munkalap, amin van egy táblázat,minden sorban dátummal, itt egy függvény nézi, hogy melyik régebbi, mint az aktuális dátum (MA). Az első munkafüzet következő üres sorába kellene átírni annak a nevét, aminek a dátuma lejárt. -
#2047
Salex1
őstag
matekmatika
#2040
Salex1
őstag
válasz
matekmatika
#2040
üzenetére
Köszi
-
Salex1
őstag
Egy kis segítséget kérnék!
Adott egy táblázat..A oszlopban nevek. B oszlopban mondjuk telefon számok...
egy másik lapon kellene, hogy egy mezőbe beírok bizonyos szöveget és azt keresse ki a nevek közül, mint adatbázisból és adja ki mellé a telefonszámot!
Egyszerű és csak én akaron túlbonyolítani, vagy .. ?
Új hozzászólás Aktív témák
Hirdetés
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 4060 Ti 8GB GAMER PC termékbeszámítással
- AKCIÓ! ASRock B85M Pro4 B85 chipset alaplap garanciával hibátlan működéssel
- BESZÁMÍTÁS! Apple MacBook Pro 14 M4 16GB RAM 512GB SSD garanciával hibátlan működéssel
- Akciós Windows 10 pro + Office 2019 professional plus csomag AZONNALI SZÁLLÍTÁS
- Bomba ár! Dell Latitude E6440 - i5-4GEN I 8GB I 320GB I 14" HD I HDMI I Cam I W10 I Garancia!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged