Hirdetés
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MaxxDamage: Vizes Laptop Hűtés? Lehetséges? Igen!
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- sh4d0w: Én és a számítógép
- sh4d0w: Árnyékos sarok
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- sziku69: Szólánc.
-
LOGOUT
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
-
menledge
senior tag
Sziasztok!
SOS-ben szükségem lenne segítségre!
Tud olyat az excel, hogy egy számsorból kihoz két különböző összeget? vagy akár egyet?
Nem biztos, hogy érthetően fogalmazok, megpróbálom érthetően leírni. Mondjuk vannak számok 1-100-ig
és én pl. azt szeretném, hogy az 56-ot hozza ki egyes számokból.Remélem tud valaki segíteni!
Előre is köszönök bármilyen ötletet!
Üdv!
-
Delila_1
veterán
válasz
alevan
#31785
üzenetére
Van itt 3 makró.
Sub Gyujtes()
Dim lap As Integer, usor As Long
Sheets(1).Range("N:Q") = ""
'Címsor az első lapon az N1:Q1-be
Sheets(1).Range("N1:Q1") = Sheets(1).Range("A1:D1").Value
For lap = 1 To Worksheets.Count 'Lapok tartalma az első lapra
usor = Sheets(1).Range("N" & Rows.Count).End(xlUp).Row + 1
Sheets(lap).Range("A1").CurrentRegion.Offset(1).Copy Sheets(1).Range("N" & usor)
Next
Rendez
End SubSub Rendez()
Dim usor As Long
Sheets(1).Select
usor = Range("N" & Rows.Count).End(xlUp).Row
Range("N1").CurrentRegion.Select
ActiveWorkbook.Sheets(1).Sort.SortFields.Clear
ActiveWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("N2:N" & usor), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).Sort
.SetRange Range("N1:Q" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Fajlokba usor
End SubSub Fajlokba(usor)
Dim utvonal As String, elso As Long, ucso As Long, nev As String
utvonal = "D:\Mentés\" '*** Ezt írd át! **************
elso = 2: ucso = 2: nev = Sheets(1).Range("N2")
Do
nev = Sheets(1).Cells(elso, "N")
If nev = "" Then Exit Do
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nev
Range("A1:D1") = Sheets(1).Range("A1:D1").Value 'Címsor az új füzetbe
ucso = Application.Match(nev, Sheets(1).Columns(14), 1)
Sheets(1).Range("N" & elso & ":Q" & ucso).Copy Sheets(nev).Range("A2")
ActiveSheet.Move
ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
elso = ucso + 1
Loop
Sheets(1).Select
MsgBox "Kész", vbInformation
End SubA harmadikban írt át a csillagokkal jelzett sorban az útvonalat.
Az első makrót (Gyujtes) kell indítanod, az majd hívja a másik kettőt.
Az első lap N:Q oszlopába összegyűjti a többi lap adatait, rendezi a nevek szerint, majd új lapra másolja egyenként a nevekhez tartozó sorokat. Ezt az új lapot áthelyezi egy új fájlba, és menti a megadott névvel, majd be is zárja. -
bteebi
veterán
válasz
bteebi
#31761
üzenetére
Sziasztok!
Végül sikerült megoldanom
. Megosztom, hátha valakinek jó lesz ötletet nyerni.Sub szamkereso()
Dim azonosito As Long, elso As Long, pageno As Integer, file As Variant
azonosito = ActiveSheet.Range("A1")
file = Dir("D:\proba\" & "*.pdf")
Do While (file <> "")
If Mid(file, 5, 6) < azonosito And Mid(file, InStrRev(file, "szam") + 4, 6) > azonosito Then
elso = Mid(file, 5, 6)
pageno = 1 + Int((azonosito - elso) / 10)
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("D:\proba\" & file & "#page=" & pageno)
Set IE = Nothing
End If
file = Dir()
Loop
End SubEgy apróságot leszámítva tökéletesen működik - ez pedig az adott oldalszámra ugrás. Úgy tűnik, hogy 1.4-es és 1.5-ös verziójú pdf-ekkel működik, de az 1.6-tal már nem (nem ugrik arra az oldalra, amelyikre kellene, csak az első oldalt nyitja meg). Van arra ötletetek, hogy miért lehet ez, vagy hogy át lehet-e valahogy állítani? Igazából az a kérdés, hogy ez szkennelési beállítástól függ(het)-e, vagy pedig a pdf verziójától?
-
alevan
őstag
válasz
DeFranco
#31783
üzenetére
60 sheet és jelenleg még csak 4000 sor.
Migrálunk excelből más rendszerbe, és így kérik (persze nekem kell megcsinálni...). Úgy is jó, ha 12000 sheet helyett 12000 fájl a végeredmény (sőt, elvileg így még jobb).
Nekem az is jó lenne, ha a 60 sheetből a 60 sort egy 61. sheetbe másolja, és én onnan mentem manuálisan. Sőt, így még jobb lenne, mert így is úgy is át kell nézzük mindet egyenként hibakeresés miatt, onnan már egy más fájlba mentés egy másodperc.
-
moklys1
aktív tag
Köszi, igen ezt tudtam, csak tegnap amikor csináltam, csak az "A" oszlopot jelöltem ki és akkor tolja a többi adatot törléskor. Lényeg az, h nem kell kijelölni semmit, hanem már maga a funkció kiválasztásánál kell kivenni a pipákat azokból az oszlopokból amiket nem szeretnék, h figyelembe vegyen.
-
DeFranco
nagyúr
válasz
alevan
#31779
üzenetére
a legyűjtés nem para, azt megcsinálod egy indirektbe ágyazott fkeressel akár, viszont ha minden sornak egyedi munkalapot kell csinálni, akkor az több ezer sornál egyrészt abnormálisan sok munkalap, másrészt kézzel kivitelezhetetlen.
a példa jó, de a konkrét feladat méretéről tudnál írni valami konkrétabbat?
-
alevan
őstag
Sziasztok. Lenne egy excel fájlom 50+ munkalappal és minden munkalap több ezer sorral. Az lenne a feladatom, hogy megfordítsam az adatokat:
Minden sheetből egy adott sort (pl. a 1125. sor) egy másik fájlban egymás alá kel tegyek.
Egy nagyon hülye példa:
És ez az eredmény lenne számomra fontos:
-
Sziasztok!
Van két cellám. Az egyikbe beírok egy számot 1-10ig. A másik cellbában szerepelnek a számok 1-10ig.
Egy olyan függvényre lenne szükségem, ami egy harmadik cellába beírja a második cella alapján az első cellában megadott számot. Ha a második cellába nem szerepel a megadott szám, akkor oda ne másoljon semmit. Melyik függévnnyel lehetne ezt megoldani? Esetleg makró lenne a megoldás? Utóbbi sajnos számomra kínai. -
Cece04
tag
Sziasztok,
segítsetek kérlek, mert nem jutok egyről a kettőre sehogy sem
van egy adott dátumom ebben a formátumban :
yyyy.mm.dd ,2016.06.11ezt szeretném ilyenre átalakítani: dd/mm/yyyy , azaz 11/06/2016.
Próbáltam úgy, hogy lecserélem a pontot semmire és az így kapott
20160611-et text to columns-ban az áhított formátumra váltani,
de nem történik semmi.Nem tudom mi lehet a gond, segítsetek kérlek, ha van ötlet.
-
Delila_1
veterán
válasz
lenkei83
#31766
üzenetére
A felső makróban az összes lapot felszabadítod, majd 2 lapnál beállítod az autoszűrőt, és ismét minden lapot levédesz. Elég lenne egyenként a 2 laphoz beállítani a makróból módosítást, és végrehajtani a szűrő beállítását.
A 2. makró első sora is legyen
ActiveSheet.Protect UserInterfaceOnly:=True. -
lenkei83
tag
válasz
Delila_1
#31765
üzenetére
Jaa oké. Ezt így értem. A kérdés arra irányult, hogy ha nincs password akkor a userinterface..True sem működik? A gondom az, hogy a kódban amit lentebb bemásoltam,ott van a userinterface True, és ennek ellenére sem frissül magától a fül.
Van egy ilyenem:
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.unprotect
Next
Munka2.AutoFilterMode = False
Munka3.AutoFilterMode = False
Munka2.Range("A5:Y" & Munka2.Range("A5").End(xlDown).Row).AutoFilter
Munka3.Range("A1:D" & Munka2.Range("A1").End(xlDown).Row).AutoFilter
Range("year").Locked = False
Range("month").Locked = False
For Each ws In Worksheets
ws.protect UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFiltering:=True, DrawingObjects:=True, contents:=True ', AllowUsingPivotTables:=True
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
UserForm10.Show
End SubMajd egy ilyenem a frissítendő munkalapon, ahol egy sima pivot van:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ThisWorkbook.RefreshAll
Application.ScreenUpdating = True
End SubEbben az összefüggésben merü fel az a gond, hogy ha zárolva van a munkalap akkor nem frissül a pivot.
-
-
lenkei83
tag
Sziasztok!
Le van védve egy munkalap, amint pivot van.
ws.protect AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True, DrawingObjects:=TrueA pivot munkalaphoz ez van hozzárendelve:
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End SubEz alapján mindig frissülnie kellene amikor rámegyek a munkalapra, viszont csak akkor frissül ha a munkalap nincs zárolva. Jelenlegi tudásom szerint a UserInterfaceOnly meg kellene hogy oldja ezt a problémát, de talán mégsem..?
Van valakinek rá ötlete?
üdv
P. -
bteebi
veterán
válasz
bteebi
#31760
üzenetére
Közben jobb esetben már közeledek a megoldáshoz, bár majd csak holnap fogom tudni tesztelni.
While (file <> "")
If Mid(file, 5, 6) < azonosito And Mid(file, InStrRev(file, "szam") + 4, 6) Then
elso = Mid(file, 5, 6)
pageno = 1 + Int((azonosito - elso) / 10)
End If
file = Dir
Wend -
bteebi
veterán
válasz
bteebi
#31759
üzenetére
Kicsit megviccelt az oldal meg a laptopom, de végre eljutottam oda, hogy megírjam azt, amit eredetileg is szerettem volna. Szóval egy adott listaelemet szeretnék megtalálni egy adott mappában lévő pdf file-ok között. A listaelemre (általános formája: szam123456) az A1-es cellában keresek rá, majd azt szeretném, hogy a makró megkeresse azt a pdf file-t a mappában, amelyik tartalmazza ezt az elemet. Van egy fix elérési útvonal (a példában a D:\Minta\ mappa), amiben különböző hosszúságú szkennelt pdf-ek vannak. A pdf file-ok elnevezése nagyjából
egységes. Az fix bennük, hogy tartalmaznak két számot, az első és az utolsó szkennelt elem értékét (pl. "szam123451-szam123680.pdf"). A fenti példánál maradva pl. a szam123456 nevű elem ebben a "szam123451-szam123680.pdf" nevű file-ban található meg.Egyelőre az előző hsz-emben lévő kezdetleges makróm van. Ha abban tudnátok segíteni, hogy hogy lehetne megkeresni a file-t a mappában, akkor a többi részt már meg tudnám írni. Előre is köszönöm a segítségeteket, javaslataitokat!
Remélem érthetően fogalmaztam 
. -
bteebi
veterán
Halálra szívat a laptopom meg a szerkesztési idő, bocsánat
.Valószínűleg nem tudom majd a szerkesztési idő alatt befejezni a hsz-em szerkesztését, de legalább addig is valami félig-meddig értelmes dolog legyen itt:
Sub szamkereso()
Dim azonosito As Integer, pageno As Integer
azonosito = Mid(ActiveSheet.Range("A1"), 5, 6)
Const path = "D:\Minta\szam123451-szam123680.pdf"
pageno = 5
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate (path & "#page=" & pageno)
Set IE = Nothing
End Sub -
Delila_1
veterán
válasz
ocsi19
#31756
üzenetére
Egyszerűbb összeállítani, mint leírni a módját.
A Munka1 lapon a legördülőbe elkezded beírni a keresett nevet, az E5 cellában megjelenik a hozzá tartozó adat, ami a Munka2 lapon van.
A csatolt cella a C5 a legördülőhöz, erre hivatkozik az E5 függvénye.
-
ocsi19
senior tag
Sziasztok!
Segítséget szeretnék kérni:
- egy olyan cellát szeretnék létrehozni, amelyben úgy tudok keresni egy másik fülön levő adathalmazból(szöveg), hogy pl 3 karakter után kiadjon egy legördülő listát a lehetséges találatokról, illetve kiválasztásra a kiválasztott névhez(pl a1) tartozó számsort(b1) írja be.Előre is köszönöm a segítséget.
üdv.: Péter
-
válasz
föccer
#31745
üzenetére
Köszi a válaszokat.
Azt hiszem, h a kérdésemet rosszul tetttem fel, mert elég a cellaformázásnál kapcsos zárójelbe "m"-et megadni és másodpercben látom az értéket. Ami a valódi problémám, az a következő:
Két különböző helyről kapok idő adatokat, más formátumban.
Egyik helyről 0:11:00, idő formátumban felismeri és decimális számként is tudja kezelni.
A másik helyről az előbb látott 18,55 formátumban érkezik, ami már eleve decimális szám, ha átváltom időre 13:12:00 lesz belőle.
A problémám, h egy táblázatba ezen különböző adatokat kell tudnom összeadni. Ezt hogyan tudnám megoldani? -
-
Delila_1
veterán
-
Zlcsi
senior tag
Sziasztok!
Olyat lehet valahogy csinálni, hogy egy cella úgy működjön, mint egy chekbox?
Úgy értem ezt, hogy rákattintva egy lista jön elő mondjuk pl: milyen autója van? : audi, bmw, trabant, zsiguli
és ebből többet is bepipálhasson, majd ha készen van akkor a cella mutassa is, hogy mi lett bepipálva (mindet amit bepipált)
remélem érthetően írtam le, hogy mit szeretnék
-
DS39
nagyúr
egy oszlopban szereplő elemeket be lehet másolni egy sorba?
tehát az lenne a lényeg, hogy mondjuk van egy A oszlopban 5 elem egymás alatt. ezt be tudom illeszteni máshova, hogy ne függőlegesen (ahogy a forrás), hanem vízszintesen illessze be (B1,C1,D1, stb cellákba)? van erre valami billentyű kombináció?
-
föccer
nagyúr
HA és FKERES függvények kombinációja kell neked. Ha nem vagy biztos a dolgodban, használd a súgót az adott függvényekhez. És 7 dimenziós kereséseket hajtottam végre ilyen, egymásba épített feltélekkel és segédtáblákkal.
Minden feltételhez kell egy külön tábla, amiből a következő feltétel alapján keresel. Excel önmagában csak 2 dimenziós táblázatot tud lekezelni egy függvénnyel, ez az INDEX függvény.
üdv, föccer
-
Sziasztok!
Ecelben szeretnék cellát értékét másolni ha néhány feltétel teljesül.
Ha az egyik cellában kiválasztok egy értéket, akkor egy másik cellában keressen "x"-et és ha talál "x"et akkor másolja be az "x"hez tartozó értéket. Addig eljutottam, hogy a =HA függvényt kéne használnom, de nem tudom, hogy mivel érdemes kombinálni. -
Fferi50
Topikgazda
válasz
Lajos.P
#31725
üzenetére
Szia!
A tábla végét jelző címet módosítanod kell ($21) helyett az utolsó adatot tartalmazó sorig, vagy addig, amíg úgy gondolod, hogy lesz még adat. Pl. $100 az első 100 sorig terjedő táblát nézi.
Tehát $A$2:$A$21 és $C$2:$C$21 képletben $A$100;$C$100. Az nem baj, ha a végén üres sorok vannak. A képlet módosítást elég az első sorra megtenni, utána lehúzható.Üdv.
-
DeFranco
nagyúr
az normális, hogy egy indirekt függvénnyel összekrakott hivatkozást nem frissít az excel, ha az elérési utat is tartalmaz?
az tiszta sor, hogy az elérési út (meghajtó, mappastrukúra) indirekttel nem paraméterezhető, csak maximum a filenév-munkalap-hivatkozás hármas közül egy vagy több, de most úgy tűnik, mintha semmiképp nem frissítené, akkor sem, ha a fenti feltétel tejesül.
példa:
=INDIREKT("'[Forrástábla.xlsx]"&A1&"!B22")ez működik, nyilván a Forrástábla a fenti képletet tartalmazó munkafüzettel egy mappában van
de a
=INDIREKT("'\\nagyszerver\defranco\segédhazugtáblák\[Forrástábla.xlsx]"&A1&"!B22")már nem.
miközben - tudtommal - csak annyi volt a korlátozás, hogy a path-ben nem lehet paraméter. de lehet tévedek.
-
Fferi50
Topikgazda
válasz
#02644736
#31711
üzenetére
Szia!
Tömbképletekkel lehet a problémádat megoldani:
FSZ tömbképlet az F12 cellába :=HA(C12="FSZ";HAHIBA(SZUMHA(INDIREKT("C" & SOR() & ":C"& KICSI(HA($C12:$C$1200="FSZ";SOR($C12:$C$1200);"");32));"FSZ";(INDIREKT("E" & SOR() & ":E"& KICSI(HA($C12:$C$1200="FSZ";SOR($C12:$C$1200);"");32))))/32;"NEM LEHET ÁTLAGOT SZÁMOLNI");"")
A tömbképletet Shift+Ctrl + Enter egyidejű lenyomásával viheted be, amikor elhagyod a cellát, az Excel kapcsos zárójelbe teszi a képletet.
A többi oszlopnál ("E" & SOR() & ":E"& részben az E cserélendő a megfelelő oszlopra.DSZ esetében az FSZ értékeket kell átírnod DSZ -re, illetve az eredmény oszlopokat.
A $C$1200 értéket a tényleges adathossznak megfelelően kell átírni.
A képletet folyamatosan húzhatod le az oszlopban, mindig 32 tagú mozgó átlagot számol.
Az adatsor végén fog megjelenni a hibaüzenet, amit szándékosan szövegként adtam meg, hogy feltűnő legyen, arra változtatod, amire szeretnéd.Remélem, használni tudod, ha kérdésed lenne, írj lsz.
Üdv.
-
-
Fferi50
Topikgazda
válasz
adamch4
#31712
üzenetére
Szia!
Nem tanácsos VBA foglalt neveket (Today, Copy) adni a saját makróinknak, mert abból csak baj lesz.
Az értékmásolást egyszerűen megoldhatod:
Sub MyCopy()
Worksheets("Output").Range("B1:B20").Value =Worksheets("Input").Range("A1:A20").Value
End SubHa valamitől függ, hogy melyik oszlopba menjen, akkor vagy select case vagy if utasításokkal lehet szétválasztani az eseteket:
Sub MyCopy()
If oszlop ="B" then
Worksheets("Output").Range("B1:B20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
If oszlop ="C" then
Worksheets("Output").Range("C1:C20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
If oszlop ="D" then
Worksheets("Output").Range("D1:D20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
'stb...
End SubÜdv.
-
adamch4
tag
Sziasztok!
Szeretnék írni egy makrót, ami a következőt csinálja:
Input munkalapról az A1:A20 cellatartományban szereplő értékeket átmásolja az Output munkalapra előbb a B, majd a C, D, E, stb. oszlopokba egy változó alapján. Konkrétan napi adatokat használok és azt szeretném, hogy a naponta frissülő értékeket mondjuk egy =TODAY() függvénnyel egy kattintással mindig új oszlopba dobálhassam. Eddig erre jutottam:Sub Copy()
Worksheets("Input").Range("A1:A20").Copy
Worksheets("Output").Range("B1:B20").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubKöszi előre is!
-
#02644736
törölt tag
Olyanban kérnék segítséget, hogy van egy táblázatunk, amiben az előírt értékektől való eltérések mozgó átlagát kellene néznünk az utolsó 32 mintára. Két csoport van, FSZ és DSZ, amikre ugye külön kellene az utolsó 32 minta mozgó átlagát nézni. Csatolok egy képet. A C oszlopban van, hogy FSZ, vagy DSZ. Az E,I,M,Q,U,Y oszlopokban vannak az FSZ eltérések, az F,J,N,R,V,Z oszlopokba kellene az FSZ-re a mozgó átlagot számolni. A G,K,O,S,W,AA oszlopokban a DSZ eltérések vannak, a H,L,P,T,X,AB oszlopokban kellene a DSZ eltérésekre a mozgó átlag.
pl.: ha a DSZ értékeket nézzük, akkor a 61. sorban lesz meg a 32 érték, eddig síma Átlag függvénnyel kellene az átlagot számolnia a H oszlopban a Goszlop értékeiből, de ezután a 62. sorban már úgy kellene átlagot számolni, hogy az első DSZ értéket már nem számolja bele, tehát csak az utolsó 32 értéket nézze.
Itt a kép:
Tud valaki segíteni?
-
-
föccer
nagyúr
Jaa, hát finoman fogalmazva sem erről a feladatról volt szó az előbb.
Jelöld ki az egész tartományt, majd adatok menü->részösszeg pontja. Az vizsgált adatok az A:A, művelet, összeg, összegzendő adatok a C:C. Leokézod, akkor bal oldal megjelenik 3 szintre csukható + jelecske. Ezekre kattintva tudok "nyitni" és csukni a részösszegzésnek a szintjeit. Ha A oszopra sorba van rendezve, akkor nem lesz benne ismétlődés, ha nincs, akkor a külön álló tételek külön részösszegben fog megjelenni.
Jah, egyébként elcsesztem, nem egyenlőek, hanem egyelőek. Természetesen.
üdv, föccer
.
.
Új hozzászólás Aktív témák
- BESZÁMÍTÁS! Samsung U28E590DS 60Hz 4K TN 1ms monitor garanciával hibátlan működéssel
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- HIBÁTLAN iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3392, 94% Akkumulátor
- Lenovo ThinkPad P1 G7
- Apple Watch SE 2020 ezüst, 44mm // Számla // Garancia // Válaszható szíj //
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest