Szia!

Miért nem felel meg neked a megnyitható sablonok között szereplő vérnyomásnapló?

Üdv.

Szia!
Tökéletesen megfelel, csak nem tudtam, hogy van ilyen
Mondjuk ettől még kíváncsi lennék a makró leírására

Üdv,

"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."

Nézd meg az FKERES függvény leírását a súgóban, az segí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.

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.

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)

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?

Ha es fkeres fuggveny pl

Bámulatos hol tart már a tudomány!

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

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.

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

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 ]

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 If

Selectet kerülni érdemes, ahol csak lehet.

Üdv.

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 ]

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.

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.

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.

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.

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á

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 :)

[link]

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 a

mit = 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.

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 Sub

ez 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!

Kicsit másképp, mint Lappy.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm szépen. Amint hazaérek kipróbálom.

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 :)

Köszi, működik. Élesben kipróbálni csak szerdán tudom.

Szivi.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm, ilyenre gondoltam!

Szóval nincs olyan program amivel meg lehet (ingyen) nézni egy .xls (vagy .xlsx) tartalmát..?

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.

[kép]

http://letoltokozpont.hu/letoltes_programok_reszletes.php?a=7824&k=42

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

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.

Szia!

Adatok - ismétlődések eltávolítása.

Üdv.

Miért tetted zárójelbe a "$G$1"-et?
Helyesen:

If Target.Address = "$G$1" And Target = "in" Then

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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

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.

Rosszul fogalmaztam az előbbi posztomban, akkor számolja meg a B oszlop elemeit, ha az nagyobb mint 60.

Tehát ha A oszlopban lévő szám kisebb mint 40, és ezen számmal egy sorban B oszlopban lévő szám nagyobb mint 60, akkor ezeket számolja össze.a B oszlopban.

Köszönöm!

=DARABHATÖBB(A:A;"<40";B:B;">60")

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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 ]

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

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!"

Így is ugyan ezt dobta, azért próbáltam átirogatni.

Szia!

Szerintem azért, mert "elveszett" az alapadatokra való hivatkozás.
Ne töröld ki a füleket, hanem írd felül a tartalmát az új értékekkel.

Üdv.

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.

Erre én is gondoltam, de ez volt a gyorsabb. Illetve nem értem, hogy ez miért működik:

ActiveSheet.PivotTables("GR Pivot").PivotCache.Refresh

Ha a for next ciklusba beleírom a PivotCache.Refresh-t sem történik semmi.

"Odamentem egy párhoz...négyen voltak!"

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 ]

nézd meg ezt

Bámulatos hol tart már a tudomány!

Sajnos így sem jó. A robot 200ms-enként frissít, sok cella változik.

Létezik más módszer esetleg? (vagy valami függvény, amivel kiíratom az akkori értéket, amikor az egyik cellába kerül valami?)

Szia!

Akkor meg kellene próbálni időzítéssel elkapni az adott értéket. De ebben most nem tudok segíteni.

Üdv.

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.

Szia!

Milyen Exceled van, mert ha angol nyelvű, akkor IF kell a HA helyett.

Üdv.