- Asus Zenfone 8 - komplett kompakt
- Apple Watch Sport - ez is csak egy okosóra
- Telekom mobilszolgáltatások
- Samsung Galaxy S21 FE 5G - utóirat
- Fotók, videók mobillal
- Android alkalmazások - szoftver kibeszélő topik
- Megjelentek az első HMD okostelefonok, ezek a magyar áraik
- Új Beats fej- és fülhallgatók jelentek meg
- Redmi Note 12 Pro - nem tolták túl
- DIGI Mobil
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! :)
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
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
-
Fferi50
őstag
Szia!
Ehhez igazán nem kell makró:
Kijelölöd az átlagot tartalmazó 3 cellát. Ezután jobb egérgomb. Beszúrás Cellák eltolása lefelé OK. Már írhatod is az üres sorba a számokat.
Ha mindezt makrórögzítéssel csinálod, akkor megnézheted utána azt is és használhatod is, csak arra kell vigyáznod, hogy indítás előtt az átlagot tartalmazó cellákat jelöld ki.Üdv.
-
csferke
senior tag
Vérnyomás-értékeket írnék egy táblázatba
Úgy neked nem lenne jó ha az első sorban lennének az átlagok az értékek viszont a másodiktól lefelé.
Rögzíted az első sort, hogy mindig látható legyen.
A1-be=AVERAGE(A2:A100)
és értelem szerűen a B és C oszlopban is. A 100-as érték helyett adj egy elég nagy számot ahová biztosan nem fogsz értéket megadni.[ Szerkesztve ]
-
Sziasztok! Excel Viewert-t keresek ami meg tudja jeleníteni ezt a filet: [kép]. Letöltöttem kétfajta excel viewert, egyik 51MB, másik 74MB, de egyik sem ismeri fel.: [kép] mindkettő eredeti microsoftos.
Egy gyenge laptopra kellene, amin még egy libreoffice-ot se tennék fel..
Honnan tölthetek le xls nézegetőt? (ingyenest) -
Dr V
őstag
Sziasztok!
Egy oszlopban vannak kézzel írott adatok, amiket szeretnék összehasonlítani egy másik táblázatban található adatokkal, hogy megegyeznek e. Ezt milyen képlettel tudnám megoldani?
-
lizakattila
senior tag
Sziasztok!
Újbólag egy kis segítség kellene:
Adott egy táblázat, mely a következő képpen néz ki, mint a lenti képen(ilyen formában lehet kiexportálni az adatokat egy adatbázisból):
A tábla az A, B, C, D, E oszlopokat tartalmazza.
Meg lehet-e oldani (függvény, makró) valahogy, hogy a táblázatban lévő adatokat - jelen esetben neveket - valahogy kiszedjük egy oszlopba (ahogy a H oszlopban látszik)? A sorrend teljesen mindegy lenne, a lényeg, hogy ne legyen duplikáció és minden név szerepeljen."Ha próbára akarod tenni egy ember jellemét, adj neki hatalmat." - Abraham Lincoln
-
Fferi50
őstag
válasz lizakattila #34059 üzenetére
Szia!
A H oszlopba átmásolod a neveket minden oszlopból egymás alá. Ezután kijelölöd az oszlopot, adatok - ismétlődések eltávolítása.
Üdv.
-
lizakattila
senior tag
válasz Fferi50 #34060 üzenetére
Szia!
A másolgatást szeretném elkerülni.
Nem csak ennyi adat van, van, hogy közel 100 sorban van adat, 1-től akár 10 névig is.
Ezt havonta kellene frissíteni, és szinte mindig mások az adatok."Ha próbára akarod tenni egy ember jellemét, adj neki hatalmat." - Abraham Lincoln
-
poffsoft
addikt
válasz lizakattila #34061 üzenetére
parancsolj:
Sub Rendez()
Dim usor As Long
Dim lusor As Long
Dim ms As Long 'max sor'
Dim sm As Long 'aktualis sor'
Dim i As Variant
Dim Ls() As String
Dim Ts As String
Dim valasz As String
Ls() = Split("B.C.D.E", ".") ' a neveket tartalmazó oszlopok'
Ts = "H" ' a szűrt lista oszlopa'
sm = 1
ms = Rows.Count
usor = Range(Ts & ms).End(xlUp).Row
If usor > 1 Then
valasz = MsgBox("Nem üres a cél """ & Ts & """ oszlop." & vbCrLf & "Folytatod?", vbYesNo, "Figyelem!")
If valasz = vbYes Then Range(Ts & "1:" & Ts & usor).Clear Else Exit Sub
End If
For Each i In Ls
usor = Range(i & ms).End(xlUp).Row
If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
Next i
'duplikációk eltávolítása, abc sorrend'
usor = Range(Ts & ms).End(xlUp).Row
Application.DisplayAlerts = False
Range(Ts & "1:" & Ts & usor).RemoveDuplicates Columns:=1, Header:=xlNo
Application.DisplayAlerts = True
With ActiveSheet.Sort
.SetRange Range(Ts & "1:" & Ts & usor)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Ts & "1").Select
End Sub[ Szerkesztve ]
[ Szerkesztve ]
-
Fferi50
őstag
válasz poffsoft #34062 üzenetére
Szia!
Ehelyett:
If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
Szerintem inkább így:If usor > 1 Then
Range(i & "2:" & i & usor).Copy Destination:=Range("H" & sm)
sm = sm + usor - 1
End IfSelectet kerülni érdemes, ahol csak lehet.
Üdv.
-
poffsoft
addikt
válasz Fferi50 #34063 üzenetére
o.k.
Fránya makrórögzítő csak így hajlandó rögzíteni.ráadásul a "H" még hibás is volt, csak most vettem észre:
Sub Rendez()
Dim usor As Long
Dim lusor As Long
Dim ms As Long ' max sor'
Dim sm As Long ' aktualis sor'
Dim i As Variant
Dim Ls() As String
Dim Ts As String
Dim valasz As String
Ls() = Split("B.C.D.E", ".") ' a neveket tartalmazó oszlopok'
Ts = "H" ' a szűrt lista oszlopa'
sm = 1
ms = Rows.Count
usor = Range(Ts & ms).End(xlUp).Row
If usor > 1 Then
valasz = MsgBox("Nem üres a cél """ & Ts & """ oszlop." & vbCrLf & "Folytatod?", vbYesNo, "Figyelem!")
If valasz = vbYes Then Range(Ts & "1:" & Ts & usor).Clear Else Exit Sub
End If
For Each i In Ls
usor = Range(i & ms).End(xlUp).Row
If usor > 1 Then
Range(i & "2:" & i & usor).Copy Destination:=Range(Ts & sm)
sm = sm + usor - 1
End If
Next i
'duplicate remove'
usor = Range(Ts & ms).End(xlUp).Row
Application.DisplayAlerts = False
Range(Ts & "1:" & Ts & usor).RemoveDuplicates Columns:=1, Header:=xlNo
Application.DisplayAlerts = True
With ActiveSheet.Sort
.SetRange Range(Ts & "1:" & Ts & usor)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Ts & "1").Select
End Sub[ Szerkesztve ]
[ Szerkesztve ]
-
tzimash
őstag
Sziasztok,
Adott ez a felület, activex objektumokkal:A működése a következő lenne: beolvasom a vonalkódot, kiválasztom a sort, majd a gombra kattintok.
Ennek kellene történnie:
a beolvasott vonalkódnak csak a kijelölt részére van szükség (7 karakter, a 3.-tól számítva), a data munkafüzetlapon erre a karaktersorozatra indulna egy keresés, amennyiben találat van, el kellene tárolni az alatta lévő számokat, az "end" kifejezésig, valamint azt is, hogy ez hány darab szám.tehát amit külön szeretnék tárolni:
a vonalkódból kiolvasott 7jegyű szám, az ehhez tartozó további számok (6 ill 7 jegyű lehet), és ezek darabszáma, valamint a megadott sor-nak a száma 1-13 lehet, ez kitöltetlen nem maradhat.ha lefut a program szeretném, ha törlődne mindkét mező.
Ezeket az adatokat aztán SAP-ban szeretném használni, makróból scriptelve a SAP GUI-t. Ez a része már működik, konstans adatokkal próbáltam már.
Előre is köszönöm a tanácsokat/segítséget. -
RAiN91
őstag
Sziasztok
Lehet olyat Excelben, hogy ha van egy változó cellám (1-10-ig randomra dobálja másodpercenként az értékeket), és van egy másik cellám, amibe ha pl. "A"-t írok, akkor abban a pillanatban kiírja egy harmadik cellába a változó cella akkori értékét?
Köszönöm.
-
Delila_1
Topikgazda
válasz RAiN91 #34066 üzenetére
Feltettem ide egy fájlt.
A Module1-ben lévő Pontosido makró utolsó sorában írhatod át, hogy melyik cellában legyenek a random számok, a laphoz rendeltben pedig, azt, hogy hova várod az A betűt, és hogy hova írja be az aktuális értéket.
Tettem egy Leállítás gombot is a lapra, hogy A betű beírása nélkül is leállítható legyen a folyamat.
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 tzimash #34065 üzenetére
Hol vannak a data lapon az adatok, ahol keresni kell?
Hova másolja a talált számokat?Mi az a választható "SMT 13"?
Kicsit részletesebb magyarázat kellene erre: "a megadott sor-nak a száma 1-13 lehet, ez kitöltetlen nem maradhat." Befolyásolja ez a keresést, vagy csak kötelező legyen kiválasztani egy értéket?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tzimash
őstag
válasz Delila_1 #34068 üzenetére
Hol vannak a data lapon az adatok, ahol keresni kell?
A C oszlopban, ahogyan az alsó képen látszik.
Hova másolja a talált számokat?
Az működhet, hogy az adott range-t, ahol a számok vannak kimásolni és beilleszteni SAP-ba? manuálisan lehetséges.
Viszont ez előtt, annyi sort kell megnyitni SAP-ban, ahány számot találtunk. Egy for ciklussal annyiszor lefuttatni ezt a sort:session.findById("wnd[0]/usr/btnCOMP_LIST_0200_INSERT").press
"Mi az a választható "SMT 13"?"
Elég magában a szám is, az "SMT" elhagyható előle.
A keresést nem befolyásolja, egy plusz paraméter csak, amelyet ennek a sornak a végére kell majd beillesztenem:session.findById("wnd[0]/usr/txtRM61B-BKTXT").Text = "FPM L(itt lesz az a szám)"
Úgy értettem kötelező kiválasztani valamelyik értéket, nem maradhat üresen.
Köszi, hogy időt szánsz rá -
eszakas
senior tag
Sziasztok.
Azt szeretném kérdezni, hogy van-e lehetőség az excelben arra, hogy egy beszúrt kép, vagy alakzat színét formázza egy változtatható cella érték alapján. pl napszak, beírom hogy 06,00h és sötét a kép, 10.00-kor világos 22,00-kor ismét sötét.Megoldható-e ilyesmi?
Előre is köszi a segítséget.
Asus rog strix x570‑e gaming alaplap ,AMD Ryzen 7 3800X ,SAPPHIRE NITRO+ AMD Radeon RX 7900 XT Vapor-X 20G,G.SKILL Ripjaws V 32GB (2x16GB) DDR4 3600MHz, Corsair HX1200i Köszönöm szépen. Üdv. eszakas :)
-
Delila_1
Topikgazda
válasz tzimash #34069 üzenetére
A for-next ciklusba írd be a saját sorodat az msgbox-os sor helyére.
Ha a data lapon számként (nem szöveges adatként) szerepelnek a számok, akkor amit = Mid(Range("D4"), 3, 7)
sor végére írj *1 -et, ami a keresett szöveges adatot számmá konvertálja.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz eszakas #34070 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G4")) Is Nothing Then Exit Sub
Me.Shapes("Rectangle 1").Select
With Range("G4")
If .Value > 0 And .Value <= 56 Then
Selection.ShapeRange.Fill.ForeColor.RGB = ThisWorkbook.Colors(.Value)
Else
Selection.ShapeRange.Fill.ForeColor.RGB = 0
End If
.Select
End With
End Subez a G4 értékének változására változtatja meg az objektum színét
Bámulatos hol tart már a tudomány!
-
-
-
RAiN91
őstag
válasz Delila_1 #34067 üzenetére
Tudom, hogy nagyon kevés az infó, de azért hátha tudsz segíteni.
Egy program generálja a dolgokat (Betangel robotja). Amit küldtél, átírtam, amíg a program nem kapcsolódik az excelhez tökéletesen működik, viszont ha hozzákapcsolom a programot, már egyből "Runtime Error 13" hibát ad, VBA-ban megjelölt sorra.
-
cekkk
veterán
Sziasztok!
Olyanban szeretném a segítségeteket kérni, hogy lenne egy oszlopom, amibe kódok vannak vegyesen, de előfordul, hogy ugyanaz többször is szerepel benne. Mivel tudom azt megcsinálni, hogy kitöröljem belőle az egyezőket és mindből csak egy legyen belőle?
Köszönöm a segítséget.
-
erdey_a
őstag
Sziasztok, az alábbiakban kérném hozzáértők segítségét.
3 műszakban dolgoznak a munkavállalók, esetenként túlórázva, mindenféle pótlékokkal.
A vevő felé viszont csak kétféle árképzés van, nappali (6-18 óráig) és éjszakai (18-6 óráig).A dolgozó munkakezdésének és befejezésének időpontját ismerjük, összes óráit tudom számolni
Tehát A1 kezdés, B1 befejezés, C1 össz ledolgozott időAmi kellene: D1 6:00-18:00 óra között ledolgozott idő (nappali), E1 18:00 után egész reggel 6-ig ledolgozott idő
Reggeles és éjszakás műszakban ez nem okozna gondot, de a délutános 14-22 bontása nem megy.
Előre is köszi, ha valaki megszán.
Vérboci
-
meke11
aktív tag
Sziasztok!
A problémám a következő: van két oszlop A és B. Az A oszlopban 25-60 vannak pozitív egész számok, a B-ben egyéb számok. Milyen képlettel tudnám azt megoldani, hogy az A oszlopban lévő számok közül ahol 40 alatti az érték, a vele egy sorban álló B oszlopban lévő számok darabját kapjam meg.
Köszönöm, remélem érthető voltam.
-
meke11
aktív tag
-
Ez sem nyitotta meg..
Viszont rájöttem hogy valószínű nem a programmal van a baj, mert más .xlsx fileokat jól nyitott meg, csak az OTP-től letölthető .xls kivonatokba tört bele a foga..de rájöttem arra, hogy ha ezen .xls fileokat átnevezem .html -re akkor a Crome egész jól meg tudja jeleníteni.. (csak azt hittem a becsatolt file-tartalom kép alapján ti erre hamarabb rájöttök)
[ Szerkesztve ]
-
wopi
aktív tag
Sziasztok!
Alapvető kérdésem van: az megoldható, hogy az Excelben pár cella kitöltése után egy gombnyomásra email generálódjon a megadott adatokkal?
Köszönöm szépen,
Peti -
Polllen
nagyúr
Sziasztok!
Kellene egy kis segítség pivot frissítésben.
Adott egy file, amiben 2 fülön vannak az alapadatok, erre épül 5-6 pivot.
Ezt a két fület kitörölöm teljesen és újjal helyettesítem, majd:For Each Sheet In ThisWorkbook.Worksheets
For Each Pivot In Sheet.PivotTables
Pivot.RefreshTable
Pivot.Update
NextÉs ezzel nem is történik semmi.
Kénytelen vagyok egyenként frissíteni a pivot táblákat. Miért?
"Odamentem egy párhoz...négyen voltak!"
-
Fferi50
őstag
válasz RAiN91 #34091 üzenetére
Szia!
Szerintem okozhatja a gondot az, hogy nincs kikapcsolva közben az eseménykezelés. Mielőtt értéket adnál a másik cellának: Application.EnableEvents=False, amikor megtörtént: Application.EnableEvents=True.
De még az is lehet, hogy a "robot" túl gyorsan dolgozik, esetleg nem egy db cella van kijelölve, hanem több.
Üdv.
-
Polllen
nagyúr
-
Fferi50
őstag
válasz Polllen #34094 üzenetére
Szia!
Talán azt sem szereti, hogy Sheet nevű változót használsz, mivel az foglalt név! (Elvileg lehet használni, de akkor teljes névvel kell rá hivatkozni, nem elég a Sheet szerintem). Én mindenesetre messzire elkerülném a használatát.
Esetleg aktíválni kell a frissítéshez a munkalapotÜdv.
[ Szerkesztve ]
-
lappy
őstag
-
RAiN91
őstag
Lenne egy újabb kérdésem
=HA(B1=Munkalap2!C4; U9; 0)
#NÉV? eredményt kapom. A B1 és a Munkalap2 C4 cellájában szövegek vannak, ha megegyeznek akkor U9 eredményét szeretném kapni.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus VPN kulcsok
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz