- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Apple iPhone 15 Pro Max - Attack on Titan
- Yettel topik
- Google Pixel 6/7/8 topik
- Android alkalmazások - szoftver kibeszélő topik
- Újabb Samsungok telepíthetik a Galaxy AI-t
- Samsung Galaxy Note20 Ultra - a tollnak nincs ellenfele
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Samsung Galaxy S24 - nos, Exynos
- Vodafone-ra áttért Digi Mobilosok
Hirdetés
-
Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
ma Részletes anyag került fel az internetre a Sony idei középkategóriás telefonjáról, három helyett két hátlapi kamera várható.
-
Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
it Az AI-t kiszolgáló adatközpontok olyan nagy energiaigénnyel bírnak, hogy egyre több atomenergiára van szükség.
-
Mozgásban az F1 24
gp A Forma 1 versenyek rajongói hamarosan végre belevethetik magukat az idei epizódba.
-
Mobilarena
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
-
greenface
aktív tag
válasz Delila_1 #22898 üzenetére
A mappanév tetszőleges, majd oda pakolom a fájlokat.
Minden munkafüzetben 3 lap van, ezek nevei:
- material
- layout-volume
- munka1A ’material’ és a ’layout volume’ lapokon vannak függvények ill. hivatkozások , amik az adatokat a ’munka1’ lapról veszik.
Először tehát azt kell megoldani, hogy csak értékek legyen az első két lapon, utána törölni a ’munka1’-et.A következő cellákban kell a hivatkozásokat értékre cserélni:
’material’: A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18
’layout-volume’: A5, D5, A8, A10, C10, A12, C14,
''Mit ér az erő, ha nem a tiéd?'' - "Pénz legyen, a többit megvesszük!"
-
Fferi50
őstag
válasz greenface #22901 üzenetére
Szia!
Miután az activeworkbook munkalapjain megy végig, a makrónak az adott munkafüzet egy moduljában kellene lenni.
Viszont megoldható az is, hogy egy külön munkafüzetbe teszed, akkor viszont ki kell egészíteni egy olyan résszel, ami megnyitja egyenként a fájlokat, utána ezzel a makróval elvégzi a módosítást, majd visszazárja/elmenti a fájlokat.Ha emlékeim nem csalnak, volt már itt ilyenről szó. (fájlok listázása mappából).
Ha mégsem találnád, írj és segítek.
Üdv.
-
Sasos
senior tag
-
Delila_1
Topikgazda
válasz greenface #22902 üzenetére
2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.
A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.
Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).Sub Erteket_Beilleszt()
Dim FN As String
Const utvonal = "C:\Adatok\Alkönyvtár\"
Application.DisplayAlerts = False
ChDir utvonal
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN
Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
Range("A5, D5, A8, A10, C10, A12, C14").Value
Sheets("Munka1").Delete
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
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.
-
Delila_1
Topikgazda
-
Fferi50
őstag
válasz Delila_1 #22905 üzenetére
Szia!
Nem akarlak elkeseríteni, de ebben az esetben a
"Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value"sajnos nem működik, mindig az első cella értékét fogja a többinek is beírni.
Ez a trükk csak folyamatos tartománynál működik.
Itt sajnos végig kell gyalogolni a cellákon.Üdv.
-
#02644736
törölt tag
Sziasztok!
Adott egy számsorozat pl.A2:A10 tartományban. Beírok mondjuk B1-be egy számot, és kiszeretném íratni az A2:A10 tartományból a B1-be írt számhoz legközelebb esőt (alatta is és felette esőt is külön-külön cellába pl. C1-be az alatta lévő legközelebb esőt, D1-be a fölötte levő legközelebb esőt).
Ezt hogyan lehetne megoldani? Remélem érthetően fogalmaztam meg, hogy mit szeretnék. -
Delila_1
Topikgazda
válasz greenface #22910 üzenetére
Mint kiderült, nem is volt jó a kód. Az Exceledben a bővítményeknél jelöld be a két, Analyzis kezdetűt, hogy a VB szerkesztő megismerje az egyes utasításokat.
Sub Erteket_Beilleszt()
Dim FN As String
Const utvonal = "C:\Adatok\Alkönyvtár\"
Application.DisplayAlerts = False
ChDir utvonal
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN
Muvelet FN
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
End SubEzt kell indítanod, az egyes fájlok behívása után elindítja a Muvelet makrót, ami az értékek beillesztését végzi.
Sub Muvelet(FN)
Dim cella As Range
For Each cella In Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18")
cella = cella.Value
Next
For Each cella In Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14")
cella = cella.Value
Next
Sheets("Munka1").Delete
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.
-
Fferi50
őstag
-
Bobrooney
senior tag
A HÉT.SZÁMA fv használható második paraméter nélkül?
Vagy ezt hogy tudom úgy megcsinálni, hogy manuális javítás nélkül jól működjön a többi évre is? -
Fferi50
őstag
válasz Bobrooney #22916 üzenetére
Szia!
Nem kötelező a második paraméter használata, de vedd figyelembe az alábbiakat:
A második paraméter azt határozza meg, hogy melyik nap a hét kezdőnapja. Ha elhagyod, akkor a vasárnapot tekinti a hét kezdőnapjának. Ha a hétfőt tekinted kezdőnapnak (mint Mo-n általában), akkor a második paraméter értéke 2.Üdv.
-
retesz147
addikt
Sziasztok.
Kis segítségre lenne szükségem...
FKERES-sel létrehozok egy listát , de ebben a listában nem tudok keresni Ctrl+F-el....
megoldható valahogy, hogy abban a listában tudjak keresni?Köszi!
Xiaomi 13 eu dev...
-
Vasinger!
nagyúr
2010-es Excelnél meg lehet azt csinálni valahogy, hogy ne egy ablakban legyen megnyitva minden dokumentum, hanem "ketté lehessen szedni" mint 2013-as officeban?
-
lappy
őstag
-
tgumis
tag
Tud valaki segíteni, hogy irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette?
Illetve hogy tudom megváltoztatni a makróhoz rendelt billentyűkombinációt?
na és még egy hogyan tudok az eszköztáron a makróm futtatását indító ikont elhelyezni? -
Fferi50
őstag
válasz tgumis #22932 üzenetére
Szia!
Menjünk sorba:
" irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette"
Ehhez látni kellene a makrót.
Billentyűkombináció megváltoztatása: Fejlesztőeszközök - Makrók - ráállsz a makróra és utána egyebek.
Ikon elhelyezése: Excel 2010-ben.
Beállítások - Menüszalag testreszabása - a választható parancsok helye - makrók. Utána a jobb oldalon létrehozol egy saját menüpontot és ide hozzáadhatod a makródat.Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz tgumis #22932 üzenetére
Másolod az adatokat (Ctrl+c), a másolandó hely bal felső cellájára állsz, és indítod a makrót.
Sub Ertek_beillesztese()
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
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.
-
Geryson
addikt
Van egy működő Pivotom. Hogyan tudom ellenőrizni, hogy milyen adattartományból dolgozik? Az a gyanú, hogy mivel a forrást folyamatosan bővítem (lefelé), így ő onnan már nem szed adatokat. Köszönöm!
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Geryson
addikt
válasz Delila_1 #22939 üzenetére
Och bakker, tényleg, pedig klikkelgettem bőségesen. Köszönöm!
Amit nem értek, hogy itt !Adatok:A:V van megadva, azaz hála az égnek okosan adtam anno meg, nem sort, hanem oszlopot. Most viszont mégsem frissít, elhagy adatokat... Kíváncsi leszek mi lesz itt a gond...
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Geryson #22941 üzenetére
"Táblázat"-ban vannak az adataid? Valószínű, hogy nem, mert akkor a forrás Táblázat1 névre hallgatna, vagy amilyen nevet adtál neki.
Próbáld meg, hogy a pontos helyet adod meg forrásként, majd visszaállítod az eredetire.
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
válasz Delila_1 #22942 üzenetére
Nem abban vannak, mert tudod nem ment valami a múltkor, amikor átállítottuk táblázattá. Ami érdekes, hogy 1-7 hónapot mutat csak a pivot (hiába törlöm és indítok egy teljesen újat), úgy, hogy vannak már 8. havi adatok is. Sőt, még érdekesebb, hogy a 7. hónapban ha a táblázatban összesítem az oszlopot, akkor "X" az eredmény, a Pivotban pedig "Y", azaz egy másik érték.
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
rubint
csendes tag
Sziasztok!
Fél napja próbálok megoldani egy problémát, sajnos nem sok sikerrel. Tudtok rá megoldást?
A következőről van szó:
Adott range-ben (pl. C3 : K17) szereplő egyedi, szöveg típusú adatokból szeretnék növekvő sorrendbe rendezett listát generálni automatikusan egy külön oszlopba (pl. A3-tól lefelé). Az összes többi adatot (blank, számok, dátum, etc.) valamint a duplikációkat figyelmen kívül hagynám. A végeredmény elképzeléseim szerint úgy nézne ki, ahogy a képen. Van erre mód az Excel-ben? (kb. 10000 cellás vizsgálatra keresek megoldást.)
[ Szerkesztve ]
-
Fferi50
őstag
válasz rubint #22945 üzenetére
Szia!
Nem írtad, milyen excel verziót használsz. De mindegyikben működik a következő:
-összemásolod az összes oszlop adatát egy oszlopba egymás alá.
-adatok - speciális szűrő/irányított szűrő - egyedi értékek - máshova másol.
- az eredményt rendezed és a számokat, egyéb jeleket tartalmazó cellákat törlöd.Ez még kézzel sem hosszú, annyi cellára sem, amennyit írtál.
Ha automatizálni szeretnéd, akkor egyszer makró rögzítés, majd a megfelelő részeket átírod.Üdv.
-
Delila_1
Topikgazda
válasz rubint #22945 üzenetére
Úgy látom, 2003-asnál magasabb verziót használsz. Ha nem, akkor a Rendezes makrót át kell alakítanod.
Az első makróban a Range("C3:K17") rész helyére írd a valós területet.Sub A_oszlopba()
Dim ertek As Range
For Each ertek In Range("C3:K17")
If ertek > "" And Not IsNumeric(ertek) Then
Range("A" & Application.WorksheetFunction.CountA(Columns(1)) + 1) = ertek
End If
Next
Rendezes
End Sub
Sub Rendezes()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("A1:A" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
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.
-
kacsaesokos
tag
Hali
Abban szeretnék segítséget kérni, hogy van egy táblázat, több 100e soros, ebbe a táblázatba kellene időközönként pár 10e sort kicserélni, másik táblázat adataiból, soraiból, a kérdés az lenne, hogy tudnám ezt végrehajtani, ezek különböző eszközök egyébként, leltári szám ami alapján lehetne talán szűrni? sajnos nem nagyon jutottam előbbre. Excel 2010-et használok.
-
Bobrooney
senior tag
Makrókban, minden főbb tevékenységet külön modulba raktam, ezek között vannak közös adatok, amelyekből a többi modulnak csak az értékére van szükség. Mit javasoltok erre, csináljak 1 "Main" modult ami struktúrálisan hívja be a modulokat, és ennek az adatait használja?
Vagy get-eljem be mindegyik modulba a Main adatait? -
Fferi50
őstag
válasz kacsaesokos #22948 üzenetére
Szia!
"leltári szám ami alapján lehetne talán szűrni?"
Igen jó lenne, ha valami egyedi azonosítót tudnál adni a munkához, mert egyébként mi alapján fogod "kitalálni", hogy melyik sorokat kell kicserélni.
Gondolom, nem egész sorokat kell cserélni, csak a megváltozott adatokat..., esetleg új sort hozzáadni.Egy kis méretű mintát a teljes illetve a becserélendő táblából azért tehetnél fel, hogy világosan láthassuk, mit szeretnél.
Üdv.
Új hozzászólás Aktív témák
- Kertészet, mezőgazdaság topik
- Autós topik
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Kerékpárosok, bringások ide!
- EA Sports WRC '23
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- Motoros topic
- exHWSW - Értünk mindenhez IS
- Lakáshitel, lakásvásárlás
- Robogó, kismotor
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest