-
Fototrend
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
-
olloczky
senior tag
Hali
Egy Word dokumentumon belül lévő (másfél oldalán átívelő) táblázatot szeretnék bemásolni egy Excel táblázat egy darab cellájába, tehát hogy a cellán belül megmaradjon az eredeti táblázat. Ez lehetséges? Egy sablon táblázatba menne ez, és a cella ahova másolni kell, nem engedi, hogy a forrásformátummal megegyező tartalmat másoljak bele. Mellette lévő üres cellánál ez megoldható. Akkor mi a probléma?
Előre is köszönöm
üdv
Úgy még sosem volt, hogy valahogy ne lett volna!
-
punterhun
csendes tag
Sziasztok,
Kontrollerkènt, pènzügyeskènt dolgozom. Az excel programozàsa nagy piaci előnyt jelenfene szàmomra. Sokat hasznàlom a függvènyeket, excel mit javasoltok, hogyan kezdjem hozzà ?Köszi[ Szerkesztve ]
"Weniger, aber besser." - Dieter Rams
-
pigster
senior tag
válasz punterhun #36002 üzenetére
Még nagyobb előnyt jelentene, ha helyesen használnád az ékezetes karaktereket. Az is bizonyos fokú igényességről árulkodna, ha küldés előtt átnéznéd az elküldendő hozzászólást.
Hol van még az Excel programozása, hajjajj...FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
Sprite75
tag
Sziasztok.
Újra a segítségeteket kérném.
Többféle módon megpróbáltam (pl ha és hol.van kombinálásával, speciális szűrővel stb) de nem boldogulok azzal, hogy a képen látható BE oszlopba a boltok neve mellé ki tudjam írni melyik sofőr boltja.
Ha pedig senkihez nem tartozik akkor valamilyen figyelmeztetés legyen kiírva.Elvileg minden bolt hozzá van rendelve valamelyik sofőrhöz ezen a lapon:
Ha pedig nincs mert pl valaki kitörölt egy boltot, (ami probléma mert akkor annak a boltnak a rendelése nem jelenik meg a sofőr saját lapján) akkor arra figyelmeztetni kellene a táblázat használóját.
Ezen a lapon a B E H K N oszlopokban a 2-60as sorig vannak felvéve a boltok. Csak pl az a probléma hogy van akinek nem ABC sorrendben (és ennek így is kell maradnia),
Az is probléma hogy a B E H K N oszlopokban kettesével össze vannak vonva a sorok cellaegyesítéssel (és ennek is oka van és így kellene maradnia)Szóval elakadtam
-
Delila_1
Topikgazda
válasz Sprite75 #36008 üzenetére
Feltettem egy fájlt.
Az R1 cellában választhatod ki az üzletet, az S1-be írja ki a sofőr nevét.A minta szerint átalakíthatod az S1 képletét a saját igényed szerint.
Szerk.: a B1, E1 ... N1 cellákban a sofőr neve legyen, a többi szöveget szövegdobozba, vagy megjegyzésbe írd.
[ 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.
-
MODERÁTOR
van 10db cellám, amikben feltételes formázással zöld ikont szeretnék kitenni ha 90% feletti az érték, sárgát 70%-90% között illetve pirosat 70% alatt.
ez működik is , amíg nem kerül 107% feletti érték valamelyik cellába, mert akkor a 95%-os értéket már sárgával jelöli
Nem vagyok hős, egész nap internetezek.
-
Sprite75
tag
válasz Delila_1 #36009 üzenetére
Nagyon szépen köszönöm.
Ilyen az amikor valaki nem csak a SZUM() függvényt ismeri mint én: ) hanem ilyeneket is hogy NEM() meg HIBÁS().
Magamtól eszembe nem jutott volna, hogy ezek mire használhatóak tulajdonképpen.Kicsit módosítottam rajta mert kellett bele egy olyan HA() ág is amikor senkihez nem tartozik egy adott bolt valami miatt.
Még egyszer köszi.
-
Delila_1
Topikgazda
válasz Sprite75 #36019 üzenetére
Úgy látom, minden sofőr tartományát egyforma hosszúságúra állítottad be. Ha ezek táblázatok, nem kell előre megadnod a vélhető maximális sorszámot, új sor beírásakor automatikusan bővülnek az egyes, névvel ellátott tartományok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Evuska
újonc
Sziasztok!
Napok óta olvasgatlak titeket de nem találtam megoldást a kis fejemben kitalált "problémára".
Van egy rém egyszerű táblázatom. Oszlopok: Szám Név Lakcím Évszám (2015-től) Más is hozzáférhet ill hozzá is kell férjen ezért az első 3 oszlopot levédtem csak én módosíthatom.
Az évszám oszlopban aktuális dátumot Írok/unk Ctrl+0 val. Ezt szeretném, hogy utólag, tehát másnap már ne lehessen módosítani senkinek.Ha gyorsan akarsz menni, menj egyedül! Ha messzire akarsz jutni, menj együtt másokkal!
-
n1nja
tag
Sziasztok.
Segítséget szeretnék kérni.
Adott egy táblázat a következő oszlopokkal:
Gép, Idő, TervAzon, Terv.
Alaphelyzetben gép szerinti ABC sorrend rendezés van, azon belül a Terv-ek vannak meghatározott sorrendben.
Szeretném az egészet időrendi sorrendbe rakni, úgy, hogy a gépnevek ne essenek szét (maradjanak meg a csoportok), megtartva a tervek sorrendjét. (TervAzon szerint is jó lenne rendezni)Próbáltam így is, úgy is, de nem jutottam egyről a kettőre.
Teszek fel egy képet:
bal oldali táblázat az eredeti, középső a hibás rendezéssel és a jobb oldali, amit szeretnék megvalósítani.Köszönöm a hozzászólásokat előre is.
Üdv.
Gábor -
Delila_1
Topikgazda
válasz Evuska #36021 üzenetére
Az első 3 oszlop zárolása után valószínűleg levédted a lapot.
Rendeld a laphoz a lenti makrót (lásd a Téma összefoglalót).Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="Saját_jelszavad", UserInterfaceOnly:=True
If Target.Column = 4 Then Range(Target.Address).Locked = True
End SubA "Saját_jelszavad" helyére írd be az igazi jelszó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.
-
Delila_1
Topikgazda
Egy segédoszlopban összefűzöd az egyes cellákat valami elválasztó karakterrel (szóköz, alsó kötőjel), olyan sorrendben, ahogy a rendezést szeretnéd látni. A kép szerint az első az idő, második vagy a gép, vagy a TervAzon. A mutatott adatok szerint bármelyik lehet. Akárhány oszlopod adatait is összefűzheted, majd eszerint rendezd a teljes tartományt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
-
lenkei83
tag
Sziasztok!
"A" oszlopban van egy rakás megnevezésem, mindegyik többször szerepel. "B" oszlopban hozzájuk kapcsolódó más-más számadatok. Valahogy összesítenem kellene a számokat megnevezésenként, de makróval. Képletes, pivot táblás és egyéb lehetőségeket ismerem, ez nem játszik jelenleg. Ha más nincs, akkor makro+pivot lesz a vége.
Valakinek valami ötlet?
üdv.:
P. -
norbika84
csendes tag
Sziasztok!
Segítségeteket szeretném kérni! Itt a táblázatom egyszerűsített fejléce:
Azt szeretném, hogy az első sorban lévő dátumhoz viszonyítva ha a H oszlopban x vagy y szerepel, akkor 3 nap múlva, ha valami más akkor 5 nap múlva pirosozza ki a sort, ha az M oszlopban nem szerepel addig dátum. És mindaddig maradjon pirosan a sor, amíg a K oszlop értéke nem lesz eredeti, az L oszlop eredménye ok, M oszlopban legyen dátum, az N oszlop értéke pedig igen legyen.
És még azt is szeretném, hogy megnyitáskor egy kis ablakban sorolja fel azokat a dátumokat (A oszlop belieket), amiknél piros a sor. 1 dátum csak egyszer szerepeljen az ablakban.
Tehát a csatolt képen a fejléc utáni sor nem lenne piros, de a többi igen, mert vagy nincs még dátum beírva az M oszlopba, illetve a többi 3 oszlopban sem a jó szöveg szerepel.
Ez megoldható valahogy? -
bobsys
addikt
Fkeres fuggvenynel mindig az elso oszlopban kell Lennie amit keresek, van olyan fuggveny ami azt csinalja amit az fkeres, megkeres egy erteket es visszad masikat, de megtudom hatarozni, hogy melyik oszlopban keresse az erteket? Ne kelljen mar minden egyes alkalommal atszabdon a tablazatokat
Enterprise Admin? Kirk kapitany leszel? - Ne törődjél semmivel, egyél zsömlét kiflivel
-
pigster
senior tag
válasz lenkei83 #36029 üzenetére
Tools/References...-nél be kell jelölni a Microsoft Scripting Library-t a működéshez
Function Gyujtes() As Scripting.Dictionary
Dim dict As Scripting.Dictionary
Dim myRange As Range
Dim sor As Long
Dim megnevezes As String
Dim ertek As Long
Set myRange = Range("A:B")
sor = 1
Set dict = New Scripting.Dictionary
megnevezes = myRange.Cells(sor, 1).Value
ertek = myRange.Cells(sor, 2).Value
Do While Not megnevezes = ""
If Not dict.Exists(megnevezes) Then
dict.Add megnevezes, ertek
Else
dict(megnevezes) = dict(megnevezes) + ertek
End If
sor = sor + 1
megnevezes = myRange.Cells(sor, 1).Value
ertek = myRange.Cells(sor, 2).Value
Loop
Set Gyujtes = dict
End Function
Sub Kiiras()
Dim dict As Scripting.Dictionary
Set dict = Gyujtes
Dim v As Variant
For Each v In dict.Keys
Rem persze a MsgBox helyett akármit lehet csinálni vele
MsgBox CStr(v) & " összesen: " & dict(v)
Next
End Sub[ Szerkesztve ]
FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
Delila_1
Topikgazda
válasz lenkei83 #36029 üzenetére
Az L-M oszlopba írja ki az egyes megnevezésekhez tartozó összegeket.
Sub Kigyujtes()
Dim usor As Long
Columns(1).Copy Range("L1")
usor = Range("L" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("L1:L" & usor).RemoveDuplicates Columns:=1
usor = Range("L" & Rows.Count).End(xlUp).Row
Range("M1:M" & usor) = "=sumif(A:A,L1,B:B)"
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
n1nja
tag
válasz poffsoft #36040 üzenetére
akár
(gépenként az első dátumot kimenti egy tömb-be, majd a tömböt növekvő sorrendbe rendezi és az időpont új sorszámát beírja gépenként a sorting no. oszlopba)
nem szép, de működikPrivate Sub CommandButton1_Click()
Dim currv As Integer
Dim csere As Date
Dim i, j, k, rowcount As Integer
Dim currmachine As String
Dim tomb(1 To 145) As Date
range("R2").Value = "Sorting no."
mint = range("C3").Value
maxt = range("C3").Value
currmachine = " "
rowcount = range("A3", range("A3").End(xlDown)).Rows.Count
Cells(3, 25).Value = rowcount
j = 0
For i = 1 To rowcount
If currmachine <> Cells(i + 2, 1) Then
currmachine = Cells(i + 2, 1)
j = j + 1
tomb(j) = Cells(i + 2, 3)
End If
Next i
For i = 1 To j - 1
For k = i + 1 To j
If tomb(i) > tomb(k) Then
csere = tomb(i)
tomb(i) = tomb(k)
tomb(k) = csere
End If
Next k
Next i
currmachine = " "
For i = 1 To rowcount
If currmachine <> Cells(i + 2, 1) Then
For k = 1 To j
If Cells(i + 2, 3) = tomb(k) Then
currv = k
End If
Next k
End If
Cells(i + 2, 18).Value = currv
Next i
End Sub[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Az alábbi makró az Excel sajátos eszközeivel próbálja megoldani a problémát (több segédtartományra is szüksége van, amit az elején definiálok).
Sub rendezi()
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, sora As Integer, sor As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set rng1 = Range("A1").CurrentRegion
Set rng2 = Range("AA1")
Set rng3 = Range("Q1:Q2"): rng3.Cells(1).Value = "Gép"
Set rng4 = Range("U1")
rng1.Copy Destination:=rng2
Set rng2 = rng2.CurrentRegion
rng1.Offset(1, 0).ClearContents
sor = 2
Do
rng1.Cells(sor, 2).Value = Application.Small(rng2.Columns(2).Offset(1, 0), 1)
sora = Application.Match(rng1.Cells(sor, 2), rng2.Columns(2), 0)
rng3.Cells(2, 1).Value = rng2.Cells(sora, 1).Value
rng2.AdvancedFilter Action:=xlFilterCopy, criteriarange:=rng3.Columns(1), copytorange:=rng4, unique:=False
rng4.Sort key1:=rng4.Cells(1, 2), order1:=xlAscending, Header:=xlYes
rng4.Cells(1, 1).CurrentRegion.Offset(1, 0).Copy Destination:=rng1.Cells(sor, 1)
sor = rng1.End(xlDown).Row + 1
rng2.AdvancedFilter Action:=xlFilterInPlace, criteriarange:=rng3.Columns(1), unique:=False
rng2.SpecialCells(xlCellTypeVisible).ClearContents
rng1.Rows(1).Copy rng2.Rows(1)
rng2.AdvancedFilter Action:=xlFilterInPlace, criteriarange:=rng3.Cells(1), unique:=False
rng4.CurrentRegion.ClearContents
If Application.CountA(rng2) = 4 Then Exit Do
Loop
rng3.CurrentRegion.ClearContents
rng2.CurrentRegion.ClearContents
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
MsgBox "Kész van", vbInformation
End SubÜdv.
-
bobsys
addikt
Koszonom a tippeket
Enterprise Admin? Kirk kapitany leszel? - Ne törődjél semmivel, egyél zsömlét kiflivel
-
Mela Kehes
addikt
Egy táblát egyszerre többen is használunk. Mindenkinek van egy saját munkalapja a táblán belül. Lehet olyat, hogy mindenki csak a sajátjába tudjon írni és a többiekét ne is lássa? Valami olyan megoldás kellene ami egyszerű, mert a többiek egyáltalán nem értenek az excelhez. Az elszámolás miatt viszont nekem nagyon jó lenne.
Köszi
"Ha lehet menni akkor menjünk, ha meg tökölni kell akkor meg tököljünk."
-
Fferi50
őstag
válasz Mela Kehes #36044 üzenetére
Szia!
Egy makró, ami a fájl megnyitásakor bekéri a felhasználó nevet és a jelszót, majd ennek alapján elrejti azokat a munkalapokat, amelyet nem kell látnia.
(Persze ehhez a felhasználó neveket és a jelszavakat is tárolnod kell a munkafüzetben.)Üdv.
-
Delila_1
Topikgazda
válasz Mela Kehes #36044 üzenetére
Egy kis makró, amit a ThisWorkbook laphoz rendelsz a VB szerkesztőben, megoldja.
Private Sub Workbook_Open()
Dim lapnev As String, lap As Integer
Select Case Environ("Username")
Case "Jancsi"
lapnev = "Munka1"
Case "Juliska"
lapnev = "Munka2"
Case "Péter"
lapnev = "Munka3"
Case "Pál"
lapnev = "Munka4"
End Select
For lap = 1 To Sheets.Count
Sheets(lap).Visible = xlSheetVisible
Next
For lap = 1 To Sheets.Count
If Sheets(lap).Name <> lapnev Then Sheets(lap).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End SubA füzet megnyitásakor automatikusan elindul. Az egyes nevekhez (Case "Jancsi") a valódi felhasználó nevét írd be, ahogy a gépe el van nevezve. A lapnev="Munka1" helyére annak a lapnak a nevét add meg, amit a felhasználó 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.
-
Delila_1
Topikgazda
válasz Mela Kehes #36047 üzenetére
FFeri ötlete alapján jelszavas belépést állítottam össze. [link].
Behíváskor indul a UserForm1. A Jelszo nevű TextBoxba beírt érték alapján láthatóvá teszi azt a lapot, amit a jelszó tulajdonosa láthat, a többit elrejti.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mela Kehes
addikt
-
Delila_1
Topikgazda
válasz Mela Kehes #36049 üzenetére
Nem módosul, bármelyik változat jó lesz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Kormányok / Autós szimulátorok topicja
- Motorola Moto G54 5G Power Edition - nem merül le
- Autós topik látogatók beszélgetős, offolós topikja
- Wise (ex-TransferWise)
- OpenMediaVault
- Óra topik
- Samsung Galaxy S23 Ultra - non plus ultra
- Revolut
- Autós topik
- Nagyrobogósok baráti topikja
- További aktív témák...
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Canva Pro előfizetés - 1 éves
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )