De nem működik.
Nem jelenik meg.

[ Szerkesztve ]

F.K.T.

dobd fel üresen a munkafüzetet, kóddal együtt

[ Szerkesztve ]

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

Hazertem es kiprobaltam az itthoni gepen itt officebol a legujabb van tokeletesen mukodik.
Cegben egy régebbi verzió van...
Ez megoldható? Marmint hogy regebbinnis mukodjon?
Erdekes hogy a regebbin csinaltam meg es az ujon csak megnyitottam es működik.

F.K.T.

Próbálhatod, de, nem lesz OK...
Osztott (shared) munkafüzettel megoldható, de ha a Delila_1 által adott megoldás is problémás számodra, akkor neki sem fogok kezdeni ennek... Bocsi...

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

Vagyis akik hasznaljak azok hasznaljak a legujabb excelt es akkor megokdva?

F.K.T.

Osztott munkafuzetes megoldást használtunk de ott fulek helyett munkafuzetekbol hivja be az adatokat es mi egy munkafuzettel szerettuk volna megoldani. Már ha ilyenre gondoltal. S nem haragszom nem tagadom magas egy két dolog.

F.K.T.

De amúgy olyan jó hogy mindig csak egy kis információt adsz amit szeretnél, és persze hogy nem fog működni

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

Bocsánat! Probaltam mindig tomiren egyszeruen leirni.
Tényleg koszonom mert ha a legujabb officet hasznalja mindenki akkor teljesen jol mukodik a fülek rejtese jelszoval.
Sajnos tobb regebbi excel is használatban van igy siman egy mappábavtesszuk a különböző munkafuzeteket (amelyek eddig fulek voltak) es egy = fuggvennyel mjndegyikbol behuvjuk az adatot egy torzs munkafuzetbe. Igag azt nem talaltuk hogy milyen modon lehet megoldani hogy ne kelljen minden cellába végig = fuggvenyt kézzel irigatni mert ilyenkor nem engedi sima huzassal ervenyesiteni a következő cellára.

F.K.T.

Az megoldható hogy ha beírok egy cellába egy számot, akkor a mellette lévő cellába automatikusan beírja az aznapi dátumot?
MS drive-os excel vagy gmail-es táblázat.
Telefonon nehézkes a dátum irkálás, azt mindig pc-n szoktam utólag beírni.

"If in doubt, flat out!" Colin McRae

így lehetne

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

Sziasztok!
Olyan problémám lenne, hogy kellene egy excel táblázat fuvarozással kapcsolatban amely tartalmazná a gépjármű fogyasztását,megadott bázis árat/illetve ezt 30 ft-os lépcsőként tételezve Ft/km lenne a végeredmény.
A segítségeteket előre is köszönöm.

Machete nem ír sms-t

Csináld meg hogy mi az elképzelés és hogy hol vannak tárolva az adatok és akkor megmondjak milyen képlet, stb kell majd neked

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

Köszönöm szépen

Machete nem ír sms-t

Köszi, nézem

"If in doubt, flat out!" Colin McRae

Szia
Ez érdekelne engem is
Ez milyen hatásra indul? (még nem ismerem teljesen a makrók működését)
A laphoz rendelt makró önmagától indul arra az eseményre, amire megírtuk (adatbevitel billentyűzetről, jobb klikk, dupla klikk, lapra lépés, stb.).

A Worksheet_Change esemény a lapra írt adat hatására indul, amint a neve is mutatja.
Ebben a makróban az elején egy feltételben megadom, hogy akkor tegyen valamit, ha az adatbevitel az 1. oszlopban történik.

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

Több értéket másolva az oszlopba "Run-time error '13': Type mismatch" -üzenet kiküszöbölhető valahogyan?

[ Szerkesztve ]

A feladattól függ, mit akarsz elérni több cella együttes kitöltésével.
Ha csak egyet akarsz módosítani, és csak véletlen a több cellába történő bevitel, a feltételben ennek az ellenőrzését is megadhatod.
If Target.Count > 1 Then MsgBox "hiba"

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

Ha garantált a felhasználónevek egyedisége, akkor lehet azzal is játszani. Látrehozol mindenkinek egy sheet-et, ahol a sheet neve a felhasználónév, és beállítod az alábbi makrót a ThisWorkbook alá:
Private Sub Workbook_Open()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim WSHnet As Object, ws As Worksheet, UserID As String
Set WSHnet = CreateObject("WScript.Network")
UserID = WSHnet.UserName
Set WSHnet = Nothing

For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
ElseIf ws.Name = UserName Then
ws.Visible = xlSheetVisible
Worksheets("Unauthorized").Visible = xlSheetVeryHidden
Else
ws.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Workbook_Open
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetVeryHidden
End If
Next
End Sub

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Egyszerre több adat (az oszlopban) bemásolását szeretném megjeleníteni képpel.

[ Szerkesztve ]

Ehhez egy kicsit több infóra van szükség.
Hova viszed be az adatokat, hova kéred a képeket, és ezeket minek, alapján honnan töltöd be.

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

"A"-oszlopba szeretném a kép-fálj neveket beilleszteni és mellé közvetlenül a "B"-oszlopban megjeleníteni képpel (ugyan úgy méretezve, ahogyan előzőleg írtad). Ezen kívül csak annyit még, hogy bármi hiba esetén ne álljon meg, hanem hagyja figyelmen kívül, maradjon üres a kép cella.
A képek mondjuk itt vannak: D:\képek

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture, CV As Range, ter As Range
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If Target.Count > 1 Then
            Set ter = Range(Target.Address)
            For Each CV In ter
                KepHelye = "D:\kepek\" & CV.Value & ".jpg"
                With Cells(CV.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
            Next
        End If
        Application.EnableEvents = True
    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.

Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture, CV As Range, ter As Range
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        Application.EnableEvents = False
        If Target.Count > 1 Then
            Set ter = Range(Target.Address)
            For Each CV In ter
                KepHelye = "D:\kepek\" & CV.Value & ".jpg"
                With Cells(CV.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
            Next
        Else
          KepHelye = "D:\kepek\" & Target.Value & ".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
        Application.EnableEvents = True
    End If
End Sub


[ Szerkesztve ]

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!

Szívesen.
Közben egyszerűsítettem rajta, mert voltak benne dupla sorok. Az előzőleg megadott formában is működik.

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

Nincs véletlenül valakinek egy kész VBA scriptje erre:
Adott egy xlsx adatokkal [adat.xlsx]
Azt szereném, hogy ha egy másik XLSX-ben futtatom a VBA scriptet az alábbi valósuljon meg:
felugrik egy ablak, ahol be tudok tallózni egy cella-range-et, és egy checkboxban ki tudom választani, melyik oszloba pakolja majd az eredményt. OK gomb nyomásra megynitja az [adat.xlsx]-et, végez egy fkerest az előbb kijelölt cellákkal (mint keresendő, a tábla amiben keres pedig a [adat.xlsx]-tábla a1:Z200) és beilleszti a checkboxban kiválasztott oszlopokba, hiperhivatkozásként. bezárja mentés nélkül az [adat.xlsx]-et.

[ Szerkesztve ]

#Raspberry #Orangepi #HassOS #Esp32

Sziasztok!

Excelben megvalósítható-e, hogy a táblázat szűrésénél, csak egy adott tartományon belül rejtsen el / jelenítsen meg sorokat az excel?
[Kiinduló táblázat] [Táblázat szűrés után]

Igazi profi. Úgy csinálja, mintha könnyű lenne....

Szia!
Az nem működik az Excelben, hogy egyes oszlopoknál elrejt sorokat, másoknál nem. Csak egész sorokat/oszlopokat lehet elrejteni. Ez igaz a szűrésre és a kézi elrejtésre is.
Üdv.

Sziasztok!
Nem teljesen jó helyre írok, mivel amit szeretnék megvalósítani, az inkább a Google Sheetsel lehetne megoldani, de nem találtam más topicot.

Egy egyszerű dokumentum nyomonkövető táblát szeretnénk létrehozni, amin látszik, hogy éppen kinél van az adott irat, és arról esetleg e-mailes értesítőt is küld, vagy automatikusan megjeleníti, hogy ki mikor módosította az irat helyét a táblába stb.

Erre van külön kiegészítő Google Sheetsben, vagy hogyan lehetne a legegyszerűbben megoldani?

Ha esetleg ezt meg lehet könnyen oldani Office 2019-el, akkor azt is szívesen hallgatom.

Nagyon szépen köszönöm!

Sziasztok! Szeretnék egy gombot csinálni ami kiváltja az F9 billentyű nyomogatását, megoldható? Hogyan lehet ezt megcsinálni?

Northlight music

Formulas szekció, Calculate Now - illetve ki tudod tenni a fejlécbe is (jobb gomb a fejlécre, Customize ... > All vagy Formulas Tab és onnan kiválasztod a Calculate now vagy calculate sheet gombot és hozzáadod a Quick access toolbarhoz)

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

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

Értem köszönöm! És vezérlő parancsgombal hogy lehet megoldani?

Northlight music

egy meglévő gombot kiváltani egy másikra, minek

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

Kiteszel egy gombot – Fejlesztőeszközök | Beszúrás | Gomb (űrlap-vezérlőelem).
Kapsz egy párbeszédablakot, Új.
A makró
Sub Gomb1_Click()
    Calculate
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.

Á működik, nagyon köszönöm!

Northlight music

Sziasztok,

Az feltételes formázással megoldható, hogy az A1 cellát jelölje meg ha F1 cellában van X. Sorban így van párban A2-F2, A3-F3 stb.

Persze
Vizsgalod hogy F1 üres

[ Szerkesztve ]

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

Sziasztok
Amatőr kérdés
Hogy lehet leggyorsabb módon összeszorozni oszlopban lévő számokat?
páldának 10 cellát kéne összezoroznom, (de sokkal több kéne) és ne egyesével kelljen kijelölgetnem (A1*A2*A3... )
Köszi

Szorzat függvény

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

Erre nem tudtam rájönni, hogyan kell, de megtaláltam. Köszi.

Sziasztok!

Van két event makróm:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_Close()
    Application.DisplayFullScreen = False
End Sub


Az első azt csinálná, hogy kiteszi teljes képernyőre és teljes képernyős nézetre az Excelt a file megnyitásakor, a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet.

De valamiért nem mennek... Ha külön elindítom a makrót, akkor működik, de magától nem. Pedig pont ez lenne a lényege. Makrók futása engedélyezve van. Vajon mi lehet a gond?

Közben kipróbáltam úgy, hogy az adott munkalap helyett a ThisWorkbook lapba másoltam a makrókat. Ekkor már az első működik, de a második, a Workbook_Close nem.

Cancel all my meetings. Someone is wrong on the Internet.

Ha úgy indul hogy teljes képernyő (ami ok) és amikor bezárod akkor ezt
"a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet" hogy ellenőrzöd hiszen bezárod

[ Szerkesztve ]

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

Egy kis félreértés van, valamelyest becsapós a megfogalmazás.

Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az Application.DisplayFullScreen. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.

Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...

Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.

Cancel all my meetings. Someone is wrong on the Internet.

a ThisWorkbook arra a munkafüzetre vonatkozik, amelybe a kódot írjuk másik munkafüzetnél nem lesz érvényben

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

Így vagy úgy, de fura. Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen. Egy dolgon kellett módosítani, mert talán nincs simán olyan, hogy Workbook_Close (tulajdonképp logikus), csak olyan, hogy Workbook_BeforeClose:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    Application.WindowState = xlMaximized
End Sub

Ha csak a DisplayFullScreen van a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele a WindowState is. De akármilyen módban is hagyom ekkor (ribbon mutatás/rejtés, vagy épp ablak/teljes képernyő), a következő file-t annak megfelelően nyitja meg ribonnal vagy anélkül, ablakban vagy teljes képernyőn.

Cancel all my meetings. Someone is wrong on the Internet.

Szia!
"Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen."
Miután esemény vezérlést szeretnél, az csak annak az objektumnak a moduljában szerepelhet, amelynek van olyan eseménye.
Munkalapnak nincs sem open sem close/beforeclose eseménye. Ilyen esemény csak a munkafüzetnél van.
A VBA nézetben ha kiválasztod a munkafüzet(Thisworkbook) illetve bármelyik munkalap kódlapját, a bal oldalon találsz egy legördülőt, amiben General illetve Workbook/Worksheet választható ki. Ha ez utóbbit választod ki akkor a jobb oldali lenyílóban a füzethez, laphoz tartozó eseményeket láthatod és választhatod ki. Ezekhez írhatsz vezérlő kódokat. General kiválasztásakor a jobb oldalon az adott modulban levő - nem eseményvezérelt - eljárások (Sub, Function) listája látható-
Üdv.

Ejha, nagyon köszönöm az alapos magyarázatot! Így már minden világos.

[ Szerkesztve ]

Cancel all my meetings. Someone is wrong on the Internet.

Üdv,
Eddigi legördülő listát használtam indirekt függvénnyel, de ezt szeretém leváltani combox-ra, főleg a legördülő lista hossza miatt
Kérdés makró nélkül meg lehet-e csinálni, hogy úgy működjön mint a sima érvényesítési lista?

"akinek minden a vállán nyugszik, nem nyugszik senki vállán"