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!

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

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.

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

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.

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.

Nem vagyok hős, egész nap internetezek.

Nálam megint jó ezzel a szabály alkalmazásával is. Próbáld újra felvenni a szabályt.

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

teljesen új munkafüzetben is tudom reprodukálni:

[kép] -> [kép]

Nem vagyok hős, egész nap internetezek.

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.

Ilyen lett

Hello
Kipróbáltam
Nekem ily lett jó.
A Típust átállítottam számra

[kép]

igen, úgy már jó. segédcellák nélkül pedig az értéknél nem 90-et, hanem 0,9-et kell megadni

[ Szerkesztve ]

Nem vagyok hős, egész nap internetezek.

Látom, ügyesen elnevezted az egyes sofőrökhöz tartozó tartományokat.
Sok sikert!

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

Igen. Az már régen igy van.

Most épp ilyen a táblázat:

Sok funkciója nem jöhetett volna létre ha nem kapok ennyi segítséget tőletek

Rendeles video

Ú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.

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!

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

a sima sorbarendezés nem lesz jó?
GÉPNÉV szerint növekvő
ÉS
IDŐ szerint növekvő?

Nem, ennél bonyolultabb.

Függvénnyel kell, vagy makróval is jó?

[ Szerkesztve ]

[ Szerkesztve ]

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 Sub

A "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.

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.

Függvénnyel és makróval is jó. Ez mindegy.

Jelenleg nem vagyok se gép, se a táblázat közelében. Ez hogy nézne ki?

Szia!

Szerintem a többszintű rendezés jó lehet neked:
Első szint: Idő
Második szint: Gép
Harmadik szint: TervAzon vagy Terv
Negyedik szint: Terv vagy Tervazon

A növekvő szintek megtartják az előző szintek rendezettségét, azon belül rendezik a saját szintjüket.

Üdv.

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.

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?

igen csak egy feltételes formázás kell amiben benne van az általad megadott elemek és kapcsolata és a dátum figyelése
a másik hogy listázza ki ahhoz viszont makró kell

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

Nem ezt szeretné.
Delila, a te módszered sem jó.

[ Szerkesztve ]

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

Változás van:
a tervek már időrendi sorrendben vannak a gépeken belül, tehát csak a gépcsoportok első eleme szerint kellene rendeznem idő szerint. Azt hogy?

Agyazd bele az indirekt fuggvenyit. Ezzel szovegesen tudsz osszrakni hivatkozast. Pl egy cellaba beirod hogy A15 es akkor a fuggvenyed az A15 cellara fog hivatkozni.

Építésztechnikus. Építőmérnök.

Az INDEX és HOL.VAN függvények segítségével meg tudod oldani. Ezekre elég sok példát találsz ebben a topikban.

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

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.

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

Makróval megoldottam, köszönöm a segítséget.

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ödik

Private 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 ]

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.

Koszonom a tippeket

Enterprise Admin? Kirk kapitany leszel? - Ne törődjél semmivel, egyél zsömlét kiflivel

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

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.

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 Sub

A 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.

Köszi mindkettőtöknek!

"Ha lehet menni akkor menjünk, ha meg tökölni kell akkor meg tököljünk."

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.

Most hogy elkezdtem macerálni rájöttem, hogy nem adtam pontos információt.
Az excel tábla egy Google Drive fiókban lesz, amit mindenki otthon szerkeszt. Így gondolom a makró is módosul.

"Ha lehet menni akkor menjünk, ha meg tökölni kell akkor meg tököljünk."

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.