- Épített vízhűtés (nem kompakt) topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- ASUS ROG PG32UCDM: OLED csúcsmonitor tesztje
- Azonnali VGA-s kérdések órája
- Computex 2024: Itt az új ROG Ally
- Milyen TV-t vegyek?
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Melyik tápegységet vegyem?
- HiFi műszaki szemmel - sztereó hangrendszerek
- OLED TV topic
Hirdetés
-
Nyárköszöntő hardverszemle
ph A desktop gép, notebook és ház nyomába sokféle periféria szegődik, sőt, még egy VR headset is tiszteletét teszi heti rovatunkban.
-
Féltucat régi Samsung kapott új One UI-t, köztük az A52s
ma A 6.1 olcsó, drága, ütésálló és közönségkedvenc készülékekre is megérkezett.
-
Csak 2025-ben érkezik a Little Nightmares III
gp A sokak által várt folytatás sajnos nem fog idén megjelenni, kicsit tovább kell rá várnunk.
-
PROHARDVER!
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
-
Carasc0
őstag
-
BullZeye
veterán
Üdv,
Kéne egy kis segítség.
Van 1db excel táblázatom, az egyik tartalmaz egy product listet, ahol product kódok vannak felsorolva dátummal, hogy mikor melyik érkezett be, viszont nem tudom, hogy az a product micsoda, csak ha rákeresek.
Van kb 165db PDF fájl, amiben fel vannak sorolva a product kódok, és szépen szövegesen a mellette lévő cellába, hogy mi is az a product.Mivel lehetne valahogy megoldani, hogy a FŐ Excel táblázatban automatikusan a product kódot tartalmazó lista mellé beszúrja, hogy az micsoda a PDF alapján?
-
astorre19
aktív tag
Szisztok!
Excel 2007-ben lehet olyat csinálni, hogy felhasználói adatok alphelyzetbe állítása/törlése?
Battletag: SHADOWDRAGON#26677
-
Louro
őstag
válasz poffsoft #28056 üzenetére
Az Indirekt függvénnyel az a baj, hogy csak egy cellát képes átemelni a másik dokumentumból.
Nekem az kellene, hogy van egy könyvtárstruktúra. Év/Hónap/Év_Hónap_Nap.xlsx
Azért, hogy rengeteg emberre ne cserélgessem le egyenként, ezért lenne jó úgy megírni egy DARABTELI-t vagy FKERES-t, hogy a fájl elérését dinamikusság tenném. Szívem szerint makróval csinálnám, de akik használni fogják, ők nem akarnak makrózni. (Aztán lehet erősebb leszek )
Bár nem az se ment, amit Fferi javasolt pár hónapja, hogy =[hivatkozottfájlnév]munkalap!cella. Nem húzta át a hivatkozott adatot.
Én az ilyeneket úgy oldom meg, hogy megnyitom a fájlt a makróval, átmásolom az eredményt és bezárom a forrást.
Mess with the best / Die like the rest
-
csongi
veterán
Sziasztok!
Ilyen képletre lenne szükségem.
HA k6 Bkny vagy Nyíló akkor f92*l6. Ha k6 kfny vagy Bknykfny akkor f93*l6.... -
Louro
őstag
Adott egy mappastruktúra, ami év/hónap/nap.xls (Pl.: 2015/08/01.xls , 02.xls, 03.xls , 04.xls .......)
Makróval fel tudnám dolgoztatni, na meg én egybe is gyúrnám az Exceleket meg nem nagy adattartalmúak.
De mivel nem szeretnének makrót, akiknek kellene és a napokból szeretnének FKERES-ezni. (Cikkszámra szűrve FKERES-t végezni.) Gondoltam volna, hogy egy új Excel A1-be beírnám, hogy Év, A2-be, hogy Hónap, majd az B1-be beírják, hogy '2015' (aposztróf nélkül ), majd B2-be, hogy '08' .
A táblázat fejléce napok lennének 01-31-ig. (D1-től)
Függvényt másolva azt csinálnám D2-ben, hogy a fájl helyének hivatkozásába változót tennék. Ahogy lentebb is írtam. =FKERES("valami";'blablabla\" & $B$1 & "\" & $B$2 & "\[" & D$1 & ".xls]Munka1'!$B$1:$C$50000;2;0)
És ezt oldalra/le elhúzva az Excel másolná a függvényt úgy, hogy ne kelljen megnyitni, hogy elvégezze a keresést.
Lehet így zavaros. Többször mfutottam neki ennek a kérdéskörnek, de ha nem érthető, akkor ok. Maradok a fájlmegnyitogatós, makrós megoldásomnál. Aki meg segítséget kért, marad a manualitás. Bár lehet azóta meg is csinálták.
Mess with the best / Die like the rest
-
gyu84
tag
Sziasztok!
Segítséget szeretnék kérni:
Egyik munkafüzet tartományát szeretném áthivatkozni egy másik munkafüzetre, úgy, hogy egy adott sorban kihagyja az üreseket. A képen gyorsan szerkesztettem egy mintát.
Másolni és beilleszteni nem szeretném, mert az értékek változhatnak. Ha lehet akkor makró nélkül szeretném megoldani.
Előre is köszönöm! -
Delila_1
Topikgazda
Makróval megoldható.
Sub Megis_makro()
Dim usor As Long, oszlop As Integer, uoszlop As Integer
Dim ter As Range, CV As Range
Sheets("Munka1").Activate
usor = ActiveSheet.UsedRange.Rows.Count '*
uoszlop = ActiveSheet.UsedRange.Columns.Count '**
Set ter = ActiveSheet.Range(Cells(2, "A"), Cells(usor, uoszlop)) '***
oszlop = 1
For Each CV In ter
If CV > "" Then
Sheets("Munka2").Cells(CV.Row, oszlop) = CV
oszlop = oszlop + 1
End If
If CV.Column = uoszlop Then oszlop = 1
Next
End SubHárom sor végére csillagokat tettem. Ha a Munka1 lapon (ahol az eredeti adatok vannak) meghatározott területről kell kigyűjtened a Munka2 lapra az adatokat, az 1 és 2 csillagos sort töröld ki, a 3 csillagos helyett pedig ez legyen:
Set ter =Range("A2:F5"), de persze az F5 helyére a saját területed jobb alsó cellájának a címe kerüljön.
A Munka1 és Munka2 lapok nevét is írd át a saját lapjaid nevére.
[ 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.
-
gyu84
tag
Tartottam én tőle, hogy makró kell ide
Köszi -
Sweetraver
csendes tag
Sziasztok!
Excel legördülő listában szeretnék segítséget kérni.
Csináltam 2 külön legördülő listát Excel 2010-ben (adatok-érvényesítés-lista) az A és B oszlopba. A háttérlista a Munka1-en úgy néz ki, hogy van sok területek és még több osztály, tehát egy területhez több osztály tartozik:
Terület Osztály
Pénzügy Adózás
Pénzügy Treasury
Pénzügy Controlling
Jog Munkajog
Jog Ingatlan
Jog EgyébAzt szeretném, hogyha kiválasztom azt, hogy Jog, ne ajánlja fel a B oszlopban pl. az adózást, controllingot vagyis csak azokat ami a Joghoz tartozik. Viszont ha azt választom ki, hogy Pénzügy, akkor meg csak az Adózás, Treasury és a Controlling legyen kiválasztható. Nem tudom mennyire kell az info, de mindkét fülön az A és B oszlop tartalmazza az adatokat.
Tudtok ebben segíteni, hogy hogyan oldható meg? Köszönöm -
Louro
őstag
válasz Sweetraver #28068 üzenetére
Mess with the best / Die like the rest
-
KubanitoS
veterán
Sziasztok!
Lenne még egy kérdésem: sorokat, pontosabban azok tartalmát kellene feljebb tolni X sorral, mivel azok üresen tátonganak, az információnak, felsorolásnak viszont a legelső sortól kell indulnia.
A problémám: maga a munkafüzet egy cégszerű alkotás saját fejléccel (cégnév, elérhetőség stb) minden oldalon, így egyszerűen feltolni nem lehet a sorokat, mert jön a fejléc is vele együtt.
A dokumentum kb 50 oldalas, így nem nagyon szeretném egyesével másolgatni a sorokat... :/
Lenne erre valami megoldás?
Nothing will stand in our way. I will finish what you started.
-
sedyke
tag
Sziasztok!
Automatikus kitoltesi lehetoseget keresek olyan tablazatba, ahol az ures cellakat a felette levo utolso ertekkel toltene fel. Eltero szamu ures cellak vannak.
Valamint van lehetoseg egy Pivot tablaban beallitani, hogy ne legyenek ures sorok ha egy ertekhez tobb is kapcsolodik? Ilyenkor a pivot automatikusan "csoportosit".
Sajnos nem tudom kifejezni szakszavakkal, inkabb mutatok egy egyszeru peldat.
pl.
auto Audi A3
A5
BMW 3
5ehelyett pedig igy nezne ki
auto Audi A3
auto Audi A5
auto BMW 3
auto BMW 5 -
Delila_1
Topikgazda
válasz KubanitoS #28070 üzenetére
Makró, amire poffsoft utalt:
Sub SorTorles()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 5 Step -1
If Application.WorksheetFunction.CountA(Rows(sor)) = 0 Then _
Rows(sor).Delete
Next
End SubA makró az A oszlopban található utolsó adattól indul felfelé. Ahol üres sort talál, azt kitörli, az első 5 sor kivételével.
Ha van oszlop, ahol több kitöltött sor van, mint az A oszlopban, az
usor = Range("A" & Rows.Count).End(xlUp).Row -ban írd át az A-t az oszlopod betűjelére.
A For kezdetű sorban írhatod át a meghagyandó felső sorok számát 5-ről.
Mivel nem tudom, minden lapodon kell-e ismételni a sorok törlését, 1 lapra írtam meg. Azon a lapon töröl, amelyiken éppen állsz.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
Sziasztok! Ha van egy ilyen cellám "048843-TRA", azaz mindig egy szám, kötőjel és egy betűkód, akkor hogyan tudnám kiszedni egy másik cellába csak a betűkódot? Ilyen jobb.bal.szöveg.keres ilyesmi megoldással
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
-
poffsoft
addikt
válasz Delila_1 #28076 üzenetére
picit faragtam a makrót, ha a feladatot jól értettem:
Sub SorTorles()
Dim sor As Long, usor As Long
Dim lapsor As Integer
Dim fejlec As Integer
Dim aktsor As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
lapsor = 10
fejlec = 3
aktsor = fejlec + 1
For sor = aktsor To usor
If (sor - 1) Mod lapsor = 0 Then sor = sor + fejlec
Do While Application.WorksheetFunction.CountA(Rows(aktsor)) = 0 And aktsor <= usor
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
Loop
If Application.WorksheetFunction.CountA(Rows(sor)) = 0 Then
Rows(aktsor).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Rows(sor).Select
ActiveSheet.Paste
End If
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
If aktsor >= usor Then Exit For
Next
End Sublapsor: hány soronként jön a fejléc
fejlec: hány soros a fejléc[ Szerkesztve ]
-
KubanitoS
veterán
válasz poffsoft #28078 üzenetére
Sajnos majd csak holnap tudom kipróbálni ezt a megoldást, a fáradozásotokat előre is köszönöm!
Itt egy kép, hogy jobban érthető legyen a dolog.
A táblázat számozása 1-25-ig van per oldal. A képen az első oszlopban a 6. és 7. sorban látszódik egy duplázott dátum, alatta ugyanígy folytatódnak a duplázott dátumok a 25. sorig. A munkafüzet következő oldala ugyanígy néz ki, 1-25 közötti számozással, valamint felette a fenti képen is látható "fejléccel". A dátumok viszont folytatódnak oldalról oldalra.
A probléma abban rejlik, hogy a képen is látható két dátum nem az első sorszámnál kezdődik, hanem a 6-7-nél. Azt kellene megoldani, hogy az összes dátum feljebb kerüljön öt sort. Ez a már említett "fejléc" miatt nem lehetséges. A dokumentum nagyjából ötven oldalból áll.
Nothing will stand in our way. I will finish what you started.
-
poffsoft
addikt
válasz KubanitoS #28082 üzenetére
namost a kérdésem:
minden munkalapon van a fejléc és max 25 sor (ezesetben Delila makrója kell neked, ahogyan leírta),
vagy egy munkalapon van 25 soronként a fejléc (vagyis 29 soronként, 25 adatsor plusz 4 sor a fejléc), ezesetben az enyémmel próbálkozz-módosítani kell még, mivel, ahogyan látom, az A oszlopban a sorszám van, vagyis teljes sorokkal nem operálhatunk, így egyelőre nem jó a makró, a row() helyett majd range() lesz, de ehhez tudni kellene, meddig vannak az adatok (pl Range("B5:H5"))
a
fejlec=4
és
lapsor=29
amit módosítanod kell majd.amíg Delila ki nem rukkol az elegánsabb kóddal.
(#28081) Geryson : Nincs mit
[ Szerkesztve ]
[ Szerkesztve ]
-
-
poffsoft
addikt
válasz KubanitoS #28084 üzenetére
értem.
amit javítanod kell, uoszl az utolsó adatot tartalmazó oszlop EXCEL azonosítója szerint, ez nálad az E nevű oszlop a képen, ami ugye az excelnek "F", de nem látom a végét...Sub SorTorles()
Dim sor As Long, usor As Long
Dim lapsor As Integer
Dim fejlec As Integer
Dim aktsor As Integer
Dim uoszl As String
usor = Range("B" & Rows.Count).End(xlUp).Row
lapsor = 29
fejlec = 4
uoszl = "F"
aktsor = fejlec + 1
For sor = aktsor To usor
If (sor - 1) Mod lapsor = 0 Then sor = sor + fejlec
Do While Application.WorksheetFunction.CountA(Range(Cells(aktsor, "B"), Cells(aktsor, uoszl))) = 0 And aktsor <= usor
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
Loop
If aktsor > usor Then Exit For
If Application.WorksheetFunction.CountA(Range(Cells(sor, "B"), Cells(sor, uoszl))) = 0 Then
Range(Cells(aktsor, "B"), Cells(aktsor, uoszl)).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Range(Cells(sor, "B"), Cells(sor, uoszl)).Select
ActiveSheet.Paste
End If
aktsor = aktsor + 1
If (aktsor - 1) Mod lapsor = 0 Then aktsor = aktsor + fejlec
If aktsor > usor Then Exit For
Next
End Sub[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz poffsoft #28085 üzenetére
Egyszerűbb megoldás:
Sub mm()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 5 To usor Step 29
Range("B" & sor & ":Z" & sor + 4).Delete Shift:=xlUp
Range("B" & sor + 20 & ":Z" & sor + 24).Insert Shift:=xlDown
Next
End SubMivel nem látszik a képen, melyik az utolsó felhasznált oszlop a táblázatban, Z-ig törlök, ill. szúrok be cellákat.
[ 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.
-
Delila_1
Topikgazda
válasz poffsoft #28085 üzenetére
Még egyszerűbben:
Sub AdatokAthelyezese()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 10 To usor Step 29
Range("B" & sor & ":Z" & sor + 19).Cut Destination:=Range("B" & sor - 5)
Next
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.
-
Delila_1
Topikgazda
válasz poffsoft #28089 üzenetére
»az első 5 üres sort az utolsó 5-be kell "átrakni"«
Éppen fordítva, az első 10–19. sort kell áttenni az 5–24. sorba.
Még rövidebben a ciklus egyetlen sora
Range("B" & sor & ":Z" & sor + 19).Cut Range("B" & sor - 5)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
KubanitoS
veterán
Köszi mindkettőtöknek, valamelyik megoldást próbáltam és kisebb állítgatásokkal sikeres volt a dolog.
Nothing will stand in our way. I will finish what you started.
-
-
Senkiki
újonc
Sziasztok!
Angol excel-ben készült táblában hogy lehetne átírni egyszerre az összes hivatkozásban az R1C1-t S1O1-re, hogy magyar excelben is használható legyen a tábla?
-
poffsoft
addikt
válasz TrollBalint #28099 üzenetére
és azt hogyan adod meg, hogy a képletekben minden R#C# típusú substringben az R-t S-re, a C-t O-ra cserélje?
a következő gond a "," vs ";" lesz.[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen