Szia,

Mivel ez egy tömb-képlet (az új, előfizetéses változatban minden képlet tömb-képletként került feldolgozásra) azért a Formula2 tulajdonságot kell használni.

Itt a példa:

Sub ArrayFormula()
Dim rngSzuro As Range
Dim rngAdatok As Range
Dim rngCel As Range

Set rngSzuro = Range("A1:A10000")
Set rngAdatok = Range("B1:B10000")
Set rngCel = Range("G2:G4")

'kézzel van megadva minden tartomány a képleten belül
rngCel.Formula2 = "=TRANSPOSE(FILTER(B1:B10000,A1:A10000=F2))"
'változókból jönnek a tartományok
rngCel.Formula2 = "=TRANSPOSE(FILTER(" & rngAdatok.Address & "," & rngSzuro.Address & "=" & rngCel.Range("A1").Offset(, -1).Address(RowAbsolute:=False) & "))"
'R1C1 változatban
rngCel.Formula2R1C1 = "=TRANSPOSE(FILTER(" & rngAdatok.Address(ReferenceStyle:=xlR1C1) & "," & rngSzuro.Address(ReferenceStyle:=xlR1C1) & "=RC[-1]))"

End Sub

Microsoft365 verzió esetén javasolt csak a Formula2-t használni, a korábbiaknák pedig a Formula vagy FormulaArray-t attól függően hogy sima vagy CSE képletről van szó.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Hasznos új funkció kerül az Excel-be, egyelőre csak a tesztelőknek érhető el.

Adatok importálásakor, vágólapról másoláskor vagy gépeléskor választható hogy a számként vagy szövegként tárolja az adatot az alábbi esetekben:
1. ha van vezető nulla az adatban
2. legalább 15 számjegyből álló számsort lát
3. ha számok után van E betű (ezt a tudományos számformátum)

MrExcel az alábbi YT videóban mutatja be ezt.

Most már csak azt kellene elérni, hogy ne próbálja meg bizonyos számokat dátummá alakítani.

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Igen-igen, ők lesznek a következők. Csak azért kérdeztem, hogy egyébként jól gondolom-e, hogy a jelszót és a felhasználót oda kell beírnom, amit lefotóztam egy jelszóvédett webcím lekérése során.

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Sziasztok!
Excel 2013 jelzi, hogy a biztonsági beállításokban le van tiltva a makró. A Markóbeállításokban az összes makró engedélyezésén van a pötty.
Hol kell még beállítani valamit?

Szia!
Nem tudom, milyen formátumban kapod az adatokat. De ha text, akkor textként beolvasva megadhatod, hogy milyen legyen az adat formátuma, illetve ha egy oszlopba olvasódik be, akkor a szövegből oszlopba varázslóval is megadható az oszlopok típusa.
Ha gondolod, priviben beszélgessünk róla.
Üdv.

Sziasztok!

Cellaformázással lenne gondom. Tudnátok segíteni?

A következőt szeretném:
"A1" cellába beírok egy számot pl: 8 és azt ő ügy jelenítse meg enter ütése után, hogy: 08:00
"B1" cellába beíok egy másik számot pl: 13 enter után azt írja oda: 13:00

Próbáltam cellaformázás idő ó:pp de ha beírok egy számot pl 7 akkor mindíg dátummal jeleníti meg.: 1900.01.07 0:00:00

Illetve még egy fügvény is szeretnék létrehoztni ami B1 értékből kivonja A1 értéket és azt megjeleníti C1 mezőben 00:00 formátumban.
Esetemben a példa szerint 05:00

Köszönöm.

Hölgyeim! Azt tesszük a kirakatba ami eladó.:)

Sima cellaformázásnál a formátummal megegyező módon kell beírni a cellaértéket idő esetén, mert egyébként nem értelmezhető a dolog.
Mindhárom oszlopot formázd óó:pp-re és ennek megfelelően kell bevinni az értéket, azaz 8:00 és 13:00. A két cella értéke meg simán kivonható egymásból és 05:00-t fogsz kapni.
(Ha a megfelelő formátumban írsz be időértéket, akkor az "nem létező" adat esetén is konvertálódik, tehát pl. 1:70 esetén 2:10-re...)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Idő formátum kell és nem dátum
A képlet esetén is hasonló a beállítàs viszont nem biztos hogy elegendő csak kivonni egymásból

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

Idő formátumnál történik ez. Azt állítottam be.
Ezért nem értem laikuskén mit keres ott a dátum.

Fire/SOUL/CD

Vagyis ha jól értelek akkor minden cellába be kell pötyögnöm a xx:00 -t
Nem tudom azt megtenni, hogy autómatikusan a 17et átalakitsa 17:00 ra

Hölgyeim! Azt tesszük a kirakatba ami eladó.:)

Excel-ben a dátum- és időformátumok számmal vannak megadva és ebből a számból számolja vissza és jeleníti meg dátum- és időformátumban. Pl. ha időre formázol egy cellát és beírsz egy 1-est, akkor a szerkesztőlécen a 1900.01.01 0:00:00 fog látszódni, ha 2-est, akkor meg 1900.01.02 0:00:00, ha 1,1-t akkor meg 1900.01.01 2:24:00 és így tovább, tehát csak így simán egy számot beírva nem fogja óó:pp formátumra tudni átalakítani, ezért kell így bevinni.
Makróval kivitelezhető a dolog, ami figyeli -példádban- az A és B oszlopokban bekövetkezett változást (amikor valamit beírsz) és átalakítja megfelelő formátumra (pl: 8 beírásakor 08:00-ra, esetleg segédoszloppal, de ennyit nem biztos, hogy ér a dolog...)

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Köszönöm de a makrót kihagynám.
Akkor pötyögök.

Illetve még egy fügvényben kérnék segítséget.
Dátum.

A1 cellába beírom a mai dátumot és B1 cella tartalmaz valamit akkor a c1 cella kiírja a A1 cellához képest beírt előző hónap utolsó napját
Vagyis:

A1 2022.07.01
B1 valami szöveg
C1 2022.06.30.

Illetve:

A1 2002.07.01.
B1 "üres"
C1 "üres"

=HÓNAP.UTOLSÓ.NAP(A1;-1) fügvényt kellene valhogyan beillesztenem a c1 cellába ami csak akkor jelenik meg ha B1 igaz

Talán Függvények egymásba ágyazása?

Hölgyeim! Azt tesszük a kirakatba ami eladó.:)

Ha függvény és vizsgálni kell a B1="" szerint

[ Szerkesztve ]

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

C1-be
=HA(ÜRES(B1);"";HÓNAP.UTOLSÓ.NAP(A1;-1))

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Köszönöm.
Siker.

Hölgyeim! Azt tesszük a kirakatba ami eladó.:)

Sziasztok,
Egy táblában a cellákban értékek vannak. Van olyan cellám, amiben több érték szerepel enterrel elválasztva egymás alatt, de egy cellában.
Hogyan tudnám minden értéket külön cellába tenni?
Köszi

adatok- szövegből oszlopok

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

Valamiért a többszörös adatú cellák első elemét hagyja meg...

adatok - szövegből oszlopok - egyéb opció - CTRL+J kombináció és tovább

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

Sziasztok!
Egy kis excel segítségre lenne szükségem.
Hogyan tudom a legkönnyebben megoldani, hogy például van egy tábla, egymás alatt vannak a cellák, kb. így:

Azt szeretném elérni, hogy az A2 cellában lévő "sor001" szöveggel rákeresen az adott PC mappájában, és az eredményt a B2 cellába illessze be.
Valamiféle dinamikus képkeresés vagy hasonló lenne.
Kivitelezhető ez az excelel?

akkor most neked olyan kellene, hogy az A sorban lévő szövegű kép elérései helye hol van? vagy létezik-e?

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

Nem, pontosan megadnám, hogy hol keressen, tehát lehetne úgy is értelmezni, hogy az A oszlóbban lévő sor001.jpg, és a B oszlopba pedig ezt a képet beillessze nekem automatikusan.

Mondhatni a B2 cellába akarok egy függvényt vagy makró, aminek megadom, hogy az A2 cellában lévő fájlnevet keresse, és megadom neki, hogy a C:\kepek\ mappába keresse meg és persze illessze is be.

Sziasztok!

Segítsetek kérlek!

2022-07-21 15:13:01.319797

ebből szeretnék ilyet kapni:

2022-07-21 15:13

Hogyan kellene?

Per aspera ad astra.

A B2 cella képlete =HIPERHIVATKOZÁS("C:\kepek\"&A2&".jpg";A2), amit másolhatsz a többi sorba.

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!

Esetleg ez:
=BAL(A1;SZÖVEG.KERES(".";A1)-4)

A1 hol a "2022-07-21 15:13:01.319797" érték van

[ Szerkesztve ]

[kép]

[ Szerkesztve ]

Per aspera ad astra.

Ha nem Magyar az Office, azt legközelebb írd meg...
=LEFT(A1,16)

detroitrw megoldása is teljesen jó, csak angolosítani kell
=LEFT(A1,SEARCH(".",A1)-4)

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

KOSZONOM!
Mukodik.
Elnezest, neha mar nem tudom melyik nyelvet használom.

Per aspera ad astra.

Köszönöm!
Ezzel a hiper hivatkozással próbálkoztam egy ideig én is, de annyit sikerül elérni vele, hogy egy kattintható link lesz, a képet sajnos nem húzza be
Esetleg olyan megoldás ami be is tölti?

Rendeld a lapodhoz (lásd Összefoglaló) a lenti makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        KepHelye = "C:\kepek\" & Target & ".jpg"
        With Cells(Target.Row, 2)
            Set FN = ActiveSheet.Pictures.Insert(KepHelye)
            .RowHeight = Rows(Target.Row).Height
            FN.Top = .Top + 1
            FN.Left = Columns(2).Left + 1
            FN.Height = Rows(Target.Row).Height - 5
            FN.Height = .Height
            FN.Placement = xlMoveAndSize
        End With
    End If
End Sub

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

Megoldható hogy ugy vedjek egy munkalapit hog (fulet) hogy ne is legyen látható? Csak egy jelszo beirassal?

F.K.T.

Elrejted a kívánt munkalapot, majd Véleményezés menü/Füzetvédelem és adsz jelszót.
Lapvédelem erre hatástalan.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

De ha azt szeretném hogy a teljes fuzetet mindenki lathassa viszont a lapot csak az akinek jelszava van hozza.

F.K.T.

A mindig látható munkalaphoz kell rendelned a makrót.
Nálam ezen a lapon a C2 cellába kell beírni a jelszót (itt EzAJelszó, de írd át kedved szerint a makróban) ahhoz, hogy a Munka2 lap látható legyen. A Munka2 nevét is átírhatod a makróban.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        If Target = "EzAJelszó" Then Sheets("Munka2").Visible = -1 Else Sheets("Munka2").Visible = 2
    End If
End Sub

Érdemes a ThisWorkbokk laphoz rendelni egy másik makrót, ami a füzet bezárásakor törli a Munka1 lap C2 cellájának a tartalmát.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Munka1").Range("C2") = ""
End Sub

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!
Ez nekem sajnos tul mély.

Ha kulon fuzetetek hozok letre a fulek helyett es egy fő fuzetbe hivom be az adatokat amit a jelszoval vedett fuzetekbe irnak azt hogy tudom beallitani hogy ne egyesevel kelljen a cellakat kepletezni?

F.K.T.

Szia!
Jelszó nélkül megoldható a következő módon:
Fejlesztőeszközök - Visual Basic

(Ha nem találod a Fejlesztőeszközök menüpontot, akkor a Fájl - Beállítások - Menüszalag testreszabása pontban be kell pipálni a Fejlesztőeszközök előtti téglalapot.)
Ezután F4 - billentyűvel előjön a Properties ablak:

A lenyílóban kiválasztod az elrejteni kívánt munkalapot, majd a Visible tulajdonságot átállítod 2 - xlSheetVeryHiddenre.

Ezután becsukod a Visual Basic ablakot.
Szerintem az nem probléma, hogy nem lehet jelszót beállítani, mert a lap füle ezek után már nem látszik sehol. Így csak te tudod visszaállítani ugyanilyen módon - a Visible tulajdonságot -1 - xlSheetVisible -re.
Üdv.

Szia! Köszönöm, de ez nem jo, mert a cél az hogy egy ember a sajat fulere tudjon irni ugyanabban a munkafuzetben de ne lassa a tobbi fület, de ha latszik is a tobbi ful a tartalmat se lathassa.

F.K.T.

Szia
Delila1 szerint itt van egy minta


a munka1 lapon jobb klikk- kód megjelenítése- majd a kapott kódot ahogy a képen látod (másolod, módosítod) a Munka2, Munka3 - saját munkalapod nevei és a jelszavakat is megadod és így tovább
illetve a ThisWorkbokk is beilleszted a makrót
makróbarát munkafüzetbe legyen mentve
Minta

[ Szerkesztve ]

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

Köszönöm!
De hogy hivom elő ujra a fuleket?
Illetve egy makrot kicsit értő megtalalja a jelszot konnyen, nem?

F.K.T.

idézem: "Nálam ezen a lapon a C2 cellába kell beírni a jelszót"
de ennek a helyet is megváltoztathatod If Target.Address = "$C$2" Then sorban
és igen meg lehet találni, de akkor a makróra kell egy jelszóvédelem
itt van hogyan tudod a makró megnyitást is védeni

[ Szerkesztve ]

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

Igen köszönöm ez megvan.
Sajnos valamit nem jol masolok modositok, mert van amikor bár eltunnek a fulek, hiaba irom be a jelszot. Es van hogy hiaba irom be a makrot nem tunnek el a fulek.
Illetve az altalad kuldottben hiaba irom be a makros jelszavadat nem tortenik semmi.

[ Szerkesztve ]

F.K.T.

makró módosítás után menteni kell a füzetet majd nyisd meg újra

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

Most eltunnek szepen es nem aktiv a felfedes de hiaba irom be az altalam beallitott cellaba a jelszót.
Illetve jelszo beirasa utan aktiv lesz a felfedes de nem tudom kiválasztani az elrejtetteket.

[ Szerkesztve ]

F.K.T.

képet tegyél fel mert így nem tudom mit hol rontasz el

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

F.K.T.

Sziasztok

Adott lenne egy excel tábla 18 lapfüllel ahol a felhasználók feltöltenek dolgokat és oda írja a nevét hogy ki volt és erre van egy időbélyeg hogy mikor tette
Szerencsére minden lapfülön máshol vannak ezek az adatok és különböző lapfülön lehet akár 3-7 feltöltő is. Cél az lenne hogy megkell mondanom hogy összesen Pisti mennyit töltött fel a hónapban. Így péntekre kicsit sok nekem valaki tudna irányba állítani hogy ő ezt hogy kezdené el?

"zoltan" jelszóra a "pecs", "zoltan2"-re a "debrecen" lap lesz látható.

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

Minden lapon szűröd a feltöltő oszlopot Pisti-re. A szűrt tartományt kijelölöd, a státuszsorban látod a darabszámot.A kapott 18 értéket összeadod.
Ha ez a feladat ismétlődik, érdemes írni rá egy makrót, vagy kimutatást készíteni a lapokról, de 18 lapnál az egyszeri összeállítás nem nagy munka.

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

Sajna ismétlődni fog és inkább most szenvedem végig