-
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
-
tgumis
tag
válasz
Delila_1
#34326
üzenetére
Köszi
Amúgy mi ennek a neve? Mármint a kis gomboknak mert sem ikon sem gombként nem találom.
Próbáltam a Office könyvtárban megkeresni hogy melyikek tartalmaznak valamiféle kép kiterjesztést de semmi. Nem emléxel véletlenűl a progi nevére? Engem nagyon zavar már hogy semmi egyedit nem tudok íde berakni
-
tgumis
tag
Sziasztok
Szeretnék egy makrót arra hogy ha bezárom az Excel munkafüzetemet akkor mentse másként. A mentéskor kérdezze meg, hogy milyen néven kívánom menteni. Nekem annyit sikerült amit a rögzítővel vettem fel, hogy folyton azon a néven akarja elmenteni.
Sub Makró2()
'
' Makró2 Makró
'
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\tgumis\Desktop\Munkafüzet1.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End SubPersze előtte még van egy makró amit szeretném ha lefuttatna
Sub osszetett_összesito()
Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
Sheets("összesítő").Unprotect Password:="Jelszo81" 'felold
'Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("ért_és_anyagkiad_lap").Range("G15:G423").Copy Sheets("összesítő").Cells(11, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesítő").Select
Range("E11:AI419").Select
Selection.Locked = True ' cellatulajdonságra vonatkozik
Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
Sheets("összesítő").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesítő").Activate
Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
Sheets("összesítő_műanyag_élelmiszer").Unprotect Password:="Jelszo81" 'felold
'Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("ért_és_anyagkiad_lap").Range("F456:F461").Copy Sheets("összesítő_műanyag_élelmiszer").Cells(3, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesítő_műanyag_élelmiszer").Select
Range("A1:AJ261").Select
Selection.Locked = True ' cellatulajdonságra vonatkozik
Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
Sheets("összesítő_műanyag_élelmiszer").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesítő_műanyag_élelmiszer").Activate
Sheets("ért_és_anyagkiad_lap").Unprotect Password:="Jelszo81"
Sheets("ért_és_anyagkiad_lap").Range("$L$1:$L$763").AutoFilter Field:=1
Sheets("összesítő_műanyag_élelmiszer").Unprotect Password:="Jelszo81" 'felold
'Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("ért_és_anyagkiad_lap").Range("F499:F740").Copy Sheets("összesítő_műanyag_élelmiszer").Cells(9, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesítő_műanyag_élelmiszer").Select
Range("A1:AJ261").Select
Selection.Locked = True ' cellatulajdonságra vonatkozik
Selection.FormulaHidden = True ' cellatulajdonságra vonatkozik
Sheets("összesítő_műanyag_élelmiszer").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("ért_és_anyagkiad_lap").Protect Password:="Jelszo81", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesítő_műanyag_élelmiszer").Activate
End Sub -
tgumis
tag
Sziasztok!
Lehet olyat csinálni, hogy A oszlopba felsorolok egy mappában lévő fájlneveket (mindegyik kép) és automatikusan a mellette lévő cellába beilleszti vagy valami hasonlót csinál. És persze ha átrendezem a táblázatot vagy szűröm akkor is mellette marad. a lényeg hogy automatizált legyen a folyamat. . A hivatkozás megadása egyenként az nagyon lassú több száz képről lenne szó.
Előre is köszi -
tgumis
tag
válasz
Fferi50
#31335
üzenetére
Szia!
Bocs késő volt már. Szóval mindig hibát ír vagyis megáll . Eddig a különböző egyszerű makrókat csak simán egymás után bemásoltam de most nem fut végig. A " Dim oszlop As Integer " résznél akad meg. próbáltam beírni hogy next de nem segített. Van valami általános szabály hogy kell két makrót összefűzni?
Hová tudok feltölteni egy munkafüzetet, hogy esetleg lássátok is a problémát? -
tgumis
tag
Sziasztok
hogy tudom ezt a két vagy esetenként más makrót is egybefűzni. Eddig nem volt ilyen gondom de most mindig hibát ír
Sub Osszesites_M()
Sheets("adat_bekér").Unprotect Password:="tigris98"
Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
Sheets("összesit1").Unprotect Password:="tigris98" 'felold
Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("adat_bekér").Range("F456:F461").Copy Sheets("összesit1").Cells(3, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesit1").Select
Range("A1:AJ262").Select
Selection.Locked = True
Selection.FormulaHidden = True
Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesit1").Activate
End Sub
Sub Osszesites_E()
Sheets("adat_bekér").Unprotect Password:="tigris98"
Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
Sheets("összesit1").Unprotect Password:="tigris98" 'felold
Dim oszlop As Integer
oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
Sheets("adat_bekér").Range("F499:F741").Copy Sheets("összesit1").Cells(9, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
Sheets("összesit1").Select
Range("A1:AJ262").Select
Selection.Locked = True
Selection.FormulaHidden = True
Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True
Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
, AllowFiltering:=True _
, AllowFormattingColumns:=True '>>>>>munkalap lekódolása
Sheets("összesit1").Activate
End Sub -
tgumis
tag
Köszi
sziasztok
van arra makróval megoldás hogy van egy táblázatom ami sok sok adatot tartalmaz. A G15:G423 tratomány minden nap végén feltöltésre kerül adatokkal. Szeretnék egy olyan makrót hogy ezt a tartományt kijelölöm és minden nap végén ha lefuttatom egy másik munkalapon ugyanannyi sorból álló táblázat megfelelő oszlopába rakja Ezt az oszlop számot a dátumból határoznám meg. Szóval 31 oszlop lenne és egy kezdőlap munkalapon beállítom a dátumot ekkor a makróm tudja hogy az adatokat tartalmazó táblázat G15:G423 tartományát kimásolás után az összesítő táblázat megfelelő napjának oszlopába rakja.
-
tgumis
tag
sziasztok
hogyan tudok munkalap nevet képlettel megadni egy másik függvényen belül:
Van egy pár munkalapom
102;104;111 stb
ezeken a munkalapon a B oszlopban számok vannak például a 102 es munkalapon 102.1.34.56 vagy 102.1.2.3. sb tehát az első szám mindig egyezik a munkalap nevével
az utolsó munkalapomra bemásolok hasonló formátumú számokat 102.1.2.3.vagy 111.1.3.12
amikről egyenlőre nem tudom hogy van e már valamelyik munkalapomon ebből a számból
most úgy keresem hogy minden egyes új számnál át kell irnom a munkalap nevét a függvényben:
B1=101.1.13 =HOL.VAN(B1;'101'!A:A;0)
B2=102.1.4.257.6 =HOL.VAN(B2;'102'!A:A;0)
ugye a Bal függvényből meg tudom határozni az első 3 számjegyet de nem tudom hogy lehetne ezt bele applikálnom a HOL.VAN függvényben ezt használja
szóval hogy '101' helyett függvény adja a 101 et BAL(B3;3)
remélem érthető -
tgumis
tag
válasz
Nowitzki
#31202
üzenetére
Ha volt beállítva akkor ugye eltünteti és nem hozza létre oda ahová én állítottam be.
Ha nem volt beállítva akkor mindegy, hogy hova mert megadom nekiéds létrehozza.
Az lenne a lényeg, hogy ha van akkor azt módosítsa arra ahová én akarom ha meg nincs akkor rakja oda ahova én akarom. -
tgumis
tag
Sziasztok!
Hogy tudnám azt megoldani hogy ne kelljen kétszer is futtatnom a lenti makrót azért, hogy az autó szűrő működjön. Szóval fixen az itt beállított soron legyen a szűrés. Mert vannak munkalapok amelyiken van beállítva csak más soron van amelyiken nincs és van amelyiken a makróban megjelölt sorban. Mert most csak akkor kerül oda ha nincs bekapcsolva ha már van szűrés a munkalapon akkor a futtatás után eltűnik.
Illetve hogyan tudnám azt megcsinálni, hogy az összes munkalapon egy indítással fusson le az egész.
Ja esetleg annyi hogy az ablaktábla rögzítést fixen az az A 10 cellán állva szeretném.
Sub fejlec_formazas()
ActiveSheet.Unprotect Password:="Lufi09"
With ActiveWindow 'ablaktabla rogzites
.SplitColumn = 1
.SplitRow = 10
End With
ActiveWindow.FreezePanes = True 'ablaktabla rogzites vége
Range("I1:I3").Select 'szinezés
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14336204
.TintAndShade = 0
.PatternTintAndShade = 0
End With 'szinezés vége
Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158").Select 'cellatulajdonságok nem zárolt nem rejtett
Selection.Locked = False
Selection.FormulaHidden = False
Range("A6:J6").Select 'autoszűrő
Selection.AutoFilter
'kodolás
ActiveSheet.Protect Password:="Lufi09", UserInterfaceOnly:=True _
, AllowFormattingColumns:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
Remélem tudtok segíteni. -
tgumis
tag
-
tgumis
tag
válasz
Fferi50
#31045
üzenetére
Megcsináltam de valamiért hármassával számoz egy helyett ahol rejtve vannak a cellák
Sub szamoz()
'
' szamoz_Makró
''
sorsz = 1
For xx = 15 To 16
If Not Cells(xx, 1).EntireRow.Hidden Then
Cells(xx, 1).Value = sorsz
sorsz = sorsz + 1
End If
Next
End Submi lehet a probléma valaki tudja?
-
tgumis
tag
válasz
Delila_1
#30765
üzenetére
Nem. Az első oszlop is tartalmaz adatokat viszont az nem folytonos ott vannak üres és egyesített cellák.
Az N oszlopot feltöltöttem csupa egyessel és ott folyamatosan van adat ahogy tegnap kérted. Most átírtam az A oszlopot a makróba N re és az oszlop 1 nél az egyest 14 majd mikor kérdezi hogy hány oszlop legyen akkor ha beírok -7 et akkor is ugyan ott hagyja az oldaltörést. -
tgumis
tag
válasz
Delila_1
#30761
üzenetére
Nem akar működni a dolog pedig átírtam N oszlopra az A oszlopot és feltöltöttem az N oszlopot 1 -ekkel így végig van érték az oszlopban. arra tegnap rájöttem , hogyha egy " ActiveSheet.ResetAllPageBreaks " részt beszúrok akkor észhez tér a makró de most nem segít.
A legelején egyszer megcsinálja a soronkénti oldaltörést de oszloponként nem oda teszi amennyit beírok neki értéket. Ezért kell visszaállítanom az oldaltörést de utána semmi. -
tgumis
tag
válasz
Delila_1
#30730
üzenetére
Mondtam, hogy jó fej vagy. Megtaláltam a témaösszesítőt asztali gépen nem volt nehéz
és jól tippeltem és jól is csináltam meg. És amit javasoltál az A oszlopot kijavítottam N oszlopra most már jól működik csak egy a bibi. Szűrt táblázatnála sorok számához igazodik. Így az elrejtett sorokat is belevonja. 
Ezt ki lehet küszöbölni? De azért hálás vagyok mert ez is is haladás csak sokszor szűrt adatokat tartalmazó táblázattal dolgozom. -
tgumis
tag
válasz
Delila_1
#30727
üzenetére
De Te nagyon jó fej vagy. Be kell vallanom én is azt hittem nem segítesz többet de mint mondtam jófej vagy. De mostmár mindig megköszönöm és igyexem udvarias lenni. Roppant szégyeltem is magam amiatt. És igazad is volt. És már sokszor irtam hogy hálás vagyok a segítségedért.
-
-
-
tgumis
tag
válasz
szatocs1981
#30604
üzenetére
Köszönöm a segítséget. Remélem meg tudom csinálni.
-
tgumis
tag
válasz
szatocs1981
#30592
üzenetére
Köszi de az a rész lényegtelen. Akinek kell az tudni fogja, hogy hogyan oldja fel a szűrêst. Az első részében segitsetek légyszíves mert azt nem tudom. Szóval megnyitaskor szűr záráskor kikapcsolja a szűrést.
-
tgumis
tag
Sziasztok!
Hogyan tudom azt megoldani,hogy ha megnyitok egy munkafüzetet akkor egyes munkalapok D oszlopán automatikusan szűrjön a nullánál nagyobb értékek jelenjenek meg csak.Amikor viszont bezárom a táblázatot akkor ismét jelenjen meg az összes sor. Természetesen menet közben akinek kell tudja megnézni a nullás sorokat is.
Előre is köszi a választ.
Alapesetben makróval és szűrővel meg tom oldani de olyanok használják akik csak nézhetik és nem vágják az excelt alap szinten sem. -
tgumis
tag
válasz
slashing
#25567
üzenetére
A megrendelés szám az lehet többször de a jjr szám az csak egyszer fordulhat elő. vagyis 1 megrendelés számhoz max 6 jjr szám tartozik de egy jjr szám csak egyszer fordulhat elő.
Remélem érthetően magyaráztam. Magyarul a kettő metszéspontja megadja a szerződeskivonat számát -
tgumis
tag
válasz
Fferi50
#24836
üzenetére
Sub megrendeo_nyil_tart_masol()
'
' megrendeo nyilvantartas masolasa utolso ures sorba a 2-es munkalapramasol Makró
'
usor = Cells(Rows.Count, 1).End(xlUp).Row + 1
Munka2.Cells(usor, 1).Value = Munka1.Cells(2, 2).Value
Munka2.Cells(usor, 2).Value = Munka1.Cells(3, 2).Value
Munka2.Cells(usor, 3).Value = Munka1.Cells(4, 2).Value
Munka2.Cells(usor, 4).Value = Munka1.Cells(5, 2).Value
Munka2.Cells(usor, 5).Value = Munka1.Cells(6, 2).ValueEnd Sub
ez a makróm de nem müxik
-
tgumis
tag
-
tgumis
tag
válasz
Fferi50
#24826
üzenetére
Mint írtam készűl egy szebb megoldás viszont most csak egy olyan makrót szeretnék ideiglenes megoldásnak,hogy kijelöl egy adott területet(a sárga tartományt) az 1. munkalapon majd azonnal be is illessze a 2.munkalap utolsó üres sorába. A gond ott van, hogy hogyan adom meg neki a transzportálást és az utolsó üres sort.
-
tgumis
tag
sziasztok
hogy tudom azt megoldani makróval hogy a sárgával jelzett részen lévő adatok kijelölése után egy másik munkalapon a piros színnel jelölt részre irányított beillesztés transzportálással a munkalap utolsó üres sorába kerüljön
Próbálkoztam userformmal de macerás és egy csomó hiba van benne és sürgésen prezentálnom kellene de nem megy légy szí segítsetek.
-
tgumis
tag
válasz
Fferi50
#24737
üzenetére
Először is mindenkinek nagyon szépen köszönöm a segítséget.
A feltöltött mintafájlt leszedtem de nem történik semmi .
De majd próbálkozom hátha megértem.
Amúgy valami hasonló adatbázist kellene összehoznom de nem tom excelben menni fog e és a végén ugye összesítve kellene kimutatnom
Persze több munkalapon lennének az adatok és egy beviteli panelen kellene bevinni az adatokat ami megint csak a megfelelő táblázatba rakná az adatokat.
Még egyszer köszi a segítséget mindenkinek. -
tgumis
tag
Sziasztok!
Kellene csinálnom egy táblázatot baromi sok adatot tartalmazna és hát olyanok használnák akik finoman szólva rossz viszonyban vannak az excellel.
Szóval van olyan lehetőség hagy egy beviteli panelen beüti az adatot és a program a megfelelő munkafüzetben egy új sorba pakolja az adatokar?
A legmegfelelőbb az accees lenne de excelbe kellene megoldani. -
tgumis
tag
sziasztok tudtok segíteni?
Selection.AutoFilter Field:=4, Criteria1:=">0"
usor = Range("AY2").End(xlDown).Row
Range("AY2:BD" & usor).Select
Selection.Copynem tudom megoldani hogy a nem 0 értékeket szűrje mert ha a criteia-hoz <>0 írok akkor nem csinál semmit hanem az egész tartományt kijelöli viszont a >0 val az a baj hogy vannak negatív értékek is. és azt nem hozza.
ötlet? mit lehet tenni, hogy a nem nulla értékeket szűrje -
#24229
tgumis
tag
m.zmrzlina
#24224
tgumis
tag
válasz
m.zmrzlina
#24224
üzenetére
Hálás köszönet èrte. Majd ha asztali gép közelébe jutok lepróbálom. Mégegyszer köszi.
-
tgumis
tag
Sziasztok
Segítsetek! Meg lehet azt oldani makróval,hogy:
Adott egy x(pl: 60 munkalapból àlló munkafüzet
Meg kellene oldani, hogy az összes munkalapon a AL1:AO49 tartományban az utolsó oszlop 0nàl nagyobb ra szűr majd a szűrt erednényt màsol majd egy tetszőleges munkalapra beilleszti (irányított) csak értéket. De ezt kérdès nélkül a munkafüzet összes lapjára tegye meg -
#24041
tgumis
tag
m.zmrzlina
#24040
tgumis
tag
válasz
m.zmrzlina
#24040
üzenetére
müxik csak az utcsó munkalap nem volt kikódolva így amiatt megállt.
KÖSZI KÖSZI KÖSZI
egy délutánnyi időt spóroltál meg nekem. -
#24039
tgumis
tag
m.zmrzlina
#24038
tgumis
tag
válasz
m.zmrzlina
#24038
üzenetére
szia kösz a kikódolás az működik viszont a lekódolás valamiért nem.
Van valakinek ötlet.
valószínű az active sheet az ami bezavart tegnap -
#24036
tgumis
tag
m.zmrzlina
#24035
tgumis
tag
válasz
m.zmrzlina
#24035
üzenetére
sajna nem megy:S
-
tgumis
tag
Sziasztok4
Át tudja nekem variálni valaki ezt a két makrót hogy a munkafüzetemben lévő sok lapon ne kelljen eggyenként végigfuttatni hanem automatikusan mind a 90 munkalapon végigfusson ha elindítomSub kodolas()
'
' munkalap védetté tétele
ActiveSheet.Protect Password:="xxxxxx", UserInterfaceOnly:=True
End Sub
Sub kikodolas()
'
' munkalap kikódolás
ActiveSheet.Unprotect Password:="xxxxxx"
End Sub -
#24001
tgumis
tag
m.zmrzlina
#23926
tgumis
tag
válasz
m.zmrzlina
#23926
üzenetére
.
-
#23984
tgumis
tag
m.zmrzlina
#23926
tgumis
tag
válasz
m.zmrzlina
#23926
üzenetére
Ha csak ötlet is de köszönöm. Ès mindenkinek minden segítsègèt köszönöm. Sokat tanultam màr itt tőletek.
Külön köszi Delila -
#23922
tgumis
tag
m.zmrzlina
#23920
tgumis
tag
válasz
m.zmrzlina
#23920
üzenetére
Kösz ezt olvastam már de közben müxik csak az alején kell emgedélyezni a tratalmat.
Ismét egy kérdés:
Van valaki aki tud egy olyan makrót ami megoldja a problémám.
Van 12 munkafüzetem
mindegyik munkafüzet 64 munkalapból ál.
Én hülye védetté tettem a munkalapokat és elfelejtettem az évszámot úgy megoldani hogy hivatkozzon.
Szóval az első munkalap G7 cellájának értékét kellene behivatkozni mind a 63 munkalap H4 cellájába.
Természetesen védett munkalapok szóval a kikódolásnak is szerepelni kellene a makróban.
légyszí segítsetek -
tgumis
tag
Sziasztok hogy oldom azt meg hogy van egy munkafüzet ami 8 másikból szedi az adatokat és ha az átmásolom egy másik gépre akkor ne a ne a pendriven lévő munkafüzetekre hivatkozzon hanem a gépen lévőre hisz az egész mappát átmásolom amiben ezek a munkafüzetek vannak.
légyszí segítsetek
előre is köszi -
#23913
tgumis
tag
m.zmrzlina
#23912
tgumis
tag
válasz
m.zmrzlina
#23912
üzenetére
nem tudok
az egész munkafüzeteMás
lehet olyat excelben is mint a worldben hogy az első oldal álló a második fekvő és az x edik megint álló a nyomtatáskor. -
tgumis
tag
Sziasztok!
Kèt kèrdèsem Lenne:
Van egy tàblàzatom (kaptam ) amiben van egy oszloo ès ha annak az oszlopnak bàrmelyik cellàjàba klikkelek jobb gombbal akkor eltünik az èrtèk ès egy szöveg jelenik meg benne.sajnos visszavonni sem lehet. Ez valami makró? a vb kódokat nem tudom megnèzni mert jelszót kèr. Ezt a jelszóval vèdettv vb lapot mivel tudnàm kikódolni?
A màsik kèrdès
Hol lehet azt beàllítani hogyha autoszűrőt hasznàlok akkor amikor lenyitom a listàt hogy mit szűrjön akkor legyen egy beviteli mező amibe ha írok akkor azokat az èrtèkeket szűrje amben benne van az a szövegrèsz amit a beviteli mezőbe írtam. Remèlem èrthető a kèrdès. A melóhelyen így működik az autoszűrő.
Előre is köszi a segítsègeteket -
tgumis
tag
válasz
Fferi50
#23659
üzenetére
Köszi de se a Te se a Delila makrója nem működött. Biztos ën vok bal/sz leírnàtok melyik rèsze a makrónak mit jelent hàtha megfejtem.
A spec szűrő viszont jó bàr valamièrt mindig csinàl olyat hogy az eggyik elemet de csak eggyet ²szer rak bele az első elem az. Szóval a szűrendő lista első elemèt 2szer szerepelteti -
tgumis
tag
Tud valaki egy olyan makrót prezentàlni amegy mondjuk 411 értékből kiszűri az ismètlődő sorokat?
Manuàlisan meg tudom adni csak egyeszerű felhasznàlóknak szànt tàblàzatba kell ès 2003 as excellen is futnia kellene.
Szóval c2:c700 tartomànyba egy èrtèk kb 6o szor van ès egy kattintàssal a d oszolpba minden èrtkèk csakn1 szer jelenjen meg mundjuk 10 èrtéket làssunk össz vissz
Tudom a 2007 ben màr van az ismètlődő sorok eltüntetèse de azt most nem alkalmaznàm. -
tgumis
tag
Èn ùgy csinàlnàm,hogy először csinàlnèk egy szűkitett listàt az ismètlődő sorok eltàvolítàsàval. Módjuk a L oszlopba a h oszlop értékeiből mellette M oszlopba a hozzà tartozó j oszlop elemeivel.
Majd leszűröm a j oszlopot 0 vagy üres értékre.aztàn =index(M:M;hol.van(H1;L;0))
Szerintem ennyi. -
tgumis
tag
Sziasztok
Van arra valami megoldás hogyha elkezdek begépelni valamit a cellába akkor az felkínáljon egy listából értékeket amik tartalmazzák azt a betűkombinációt amit elkezdtem begépelni.
PL:
van egy listám a következő értékekkel:
ez a lista a CR1 : CR21 tartományba vancroissain csokoládés vaniliás min. 70 g 3 db
burkifli mákos 95-100gr 3 db
pizzás csiga 100 g 3 db
zsemle 3 db
kifli 3 db
zöld paprika 10 dkg
tv paprika 10 dkg
paradicsom 10 dkg
zöld paprika 7 dkg
tv paprika 7 dkg
paradicsom 7 dkg
alma
narancs
tej 0,5 l-es
minimargarin 1 db
minimargarin 2 db
minimargarin 3 db
gyümölcsjoghurt
gyümölcsös tejberizs
túró rudi 1 dbAz A1 cellába begépelem mondjuk, hogy min egy legördülő listában már csak a minimargarin jelenjen meg, hogy kiválasszam melyiket akarom a 3 ból. vagy beírom, hogy TV lés már csak a 2 TV paprikából választhassak.
Remélem érthető
-
tgumis
tag
válasz
Delila_1
#23044
üzenetére
Teljesen igazad van.
Az a helyzet hogy nem azt szeretném hogy megold helyettem hanem hogy megtanuljam. Màr így is sokat tanultam tőled és nem akarlak fàrasztani csak azt hittem pikk pakk ràjövök hogy a makródban mi miért van. De küldöm az email címedre hogy mit szeretnék. -
tgumis
tag
Egyszer úgy használom hogy:
Csatolva:.............valami...............valami................valami
Szóval a pontokon kívül minden. A "valami"-k az mindegyik egy külön cellából vett érték.
És van egy màsik eset ahol egy nagyobb szövegbe kerül beillesztésre ugyanezen cellák értéke. Azért van erre szükség mert egy sablonos szövegbe cserélődnek az értékek és ki kell legyenek emelve összegek és dátumok.
10 tartomány.
Ezt ki lehet küszöbölni? De azért hálás vagyok mert ez is is haladás csak sokszor szűrt adatokat tartalmazó táblázattal dolgozom.
6
és majd valamikor esetleg lesz időd?Új hozzászólás Aktív témák
- Kertészet, mezőgazdaság topik
- Pedzegeti az új Xbox irányát a Microsoft
- Autós kamerák
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- Fejhallgató erősítő és DAC topik
- Házimozi haladó szinten
- Micro Four Thirds
- EAFC 26
- Sütés, főzés és konyhai praktikák
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- The Elder Scrolls Online Imperial Collector s Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Fallout 4 Pip-Boy Edition eladó
- HIBÁTLAN iPhone 12 Pro Max 256GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS4306, 100 AKKSI
- Apple iPhone 13 / 128GB / Kártyafüggetlen / Akku:87%
- Borzasztóan cuki, elegáns, HALK fileszervernek bőven elég teljesítménnyel és elegáns megjelenéssel
- BESZÁMÍTÁS! MSI B450 R7 1700 16GB DDR4 512GB SSD GTX 1070 8GB Rampage SHIVA Thermaltake 500W
- ÁRGARANCIA!Épített KomPhone i9 14900KF 64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest