- Fotók, videók mobillal
- Telekom mobilszolgáltatások
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Új Beats fej- és fülhallgatók jelentek meg
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Poco X6 Pro - ötös alá
- iPhone topik
- Yettel topik
- Honor Magic5 Pro - kamerák bűvöletében
Hirdetés
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Már tudjuk, hogy mikor jön az idei Xbox Games Showcase
gp A showt egy külön Direct előadás követi, ami szinte biztosan az idei Call of Duty lelepelzése lesz.
-
Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
ph A Kereskedelmi Minisztérium egyelőre csak felméri a helyzetet, egyelőre nem látni, hogy tudnak-e bármit is tenni.
-
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
-
Salex1
senior tag
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 .. ? -
Salex1
senior tag
válasz matekmatika #2040 üzenetére
Köszi
-
Salex1
senior tag
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. -
Salex1
senior tag
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
senior tag
Makróban milyen paranccsal lehet a cella értékét másolni?
A sima cell.......copy a képletet hozza át, és nekem csak az érték kellene.
Illetve, hogy lehet formátummal és nélküle másolni?[ Szerkesztve ]
-
Salex1
senior tag
Találkoztatok már olyannal, hogy a függvényt az excel csak kiírja, és nem működik?
Simán beírom, hogy =DARAB2(C7:E7) és ugyanezt kiírja a cellába.... mi lehet a baj? -
Salex1
senior tag
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
senior tag
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
senior tag
Tudnátok segíteni? Adott egy lista a B oszlopban és ezt szeretném autoSzűrővel leszűrni, úgy, hogy egy másik cella (K1) értéket "tartalmazza" Meg lehet valahogy oldani?
(Esetleg azt, hogy nem egy cella értéket keres, hanem egy szövegdoboz értékét?) -
Salex1
senior tag
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?
[ Szerkesztve ]
-
Salex1
senior tag
Lehet egy makró futtatást időhöz kötni? Pl. minden reggel 8-kor szeretném, hogy lefusson.
-
Salex1
senior tag
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
senior tag
Lehetséges valahogy függvényt írni Textbox-ba?
-
Salex1
senior tag
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
senior tag
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?
[ Szerkesztve ]
-
Salex1
senior tag
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
D M
A igaz
B hamis
C igaz
D hamisy táblázat
K1 cellája = A, C -
Salex1
senior tag
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
senior tag
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
senior tag
Egy kis segítséget kérnék! (Előre is köszi!)
Van egy excel fájl, amiben van egy lista, és minden elemhez egy lejárati dátum. Lehetséges valahogy, olyan emlékeztető létrehozása, ami jelez az adott dátumoknál, úgy, hogy az excel file nincs megnyitva? -
Salex1
senior tag
-
Salex1
senior tag
Tudom, nem Excel, de valamelyik VBA guru hátha tudna válaszolni
-
Salex1
senior tag
Meg lehet azt oldani, hogy az excel-ben a numerikus billentyűzeten ne vessző legyen alul, hanem pont?
-
Salex1
senior tag
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
senior tag
Van egy hatalmas excel táblám, ami tele van valami nemlátható, örökölt szeméttel. Van valami mód, hogy a szövegen és formátumon kívül mindent töröljek, a másolás-érték beillesztésen kívül?
-
Salex1
senior tag
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
senior tag
válasz Fire/SOUL/CD #48855 üzenetére
-
Salex1
senior tag
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) -
Salex1
senior tag
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.[ Szerkesztve ]