-
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
-
-
Pá
addikt
válasz
Delila_1
#50171
üzenetére
Köszönöm szépen (neked és a többieknek is)! Sajnos ez még mindig nem az, amit szeretnék. Megpróbálom még egyszer leírni, csak nem tudom, hogy nagyon leegyszerűsítve lenne célravazető, vagy minden részletet megosztva?
Nagyon leegyszerűsítve arra lenne szükségem, hogy egy makró megnyisson egy user által kiválaszott file-t és aztán ne csináljon vele semmit. Azon túl, hogy a nevét(lehetőleg kiterjesztéssel, de az se világvége, ha nem) bemásolja annak a file-nak bármelyik cellájába, ahonnan indítottuk a makrót.
Ebben szeretnék segítséget vagy esetleg egy konfirmációt, hogy ez nem lehetséges és akkor tudok másik irányba is menni, csak azok mind macerásabbak és/vagy kevésbé elegánsak.Azért fontos, hogy a képletekkel "szívjam" be az adatokat a másik fileból, mert a másik fileban lévő adatoknak csak egy nagyon kis részére van szükségem. (10,000+ cellányi adatból kell ~100). Viszont az én cellámban folyó számolásoktól függ, hogy éppen mikor melyik 100 adat kell, szóval a lokáció dinamikusan változik. Ráadásul a képleteim már eleve a megfelelő sorrendben, formátumban, és helyre teszik be ,csak a szükséges adatokat, a további feldolgozásra.
Persze át lehetne tenni az egész sheetet az én fileomba és arra ugyanúgy ráereszthetném a képleteimet. Ezzel az a baj, hogy a másik fileban nem egy tabon vannak a szükséges adatok, hanem többön, ráadásul a számuk 2 - 15 között random módon változik. A "beszívó sheetem" ezt szépen le tudja követni. Nem szeretnék ennyi "szemetet" átpakolni az én fileomban, amikor valójában csak kb az 1%-ra van szükségem. (ezen a fileon kívül még 3 különböző adatbázisból is húz le adatokat a fileom és van 7-8 tab, amin a usereknek kell navigálni és ügyködni, szóval tényleg szeretném tisztán tartani, amennyire lehetséges).
Harmadrészt a forrás file felett semmi kontrollom nincs. Ha bármit változtatnak benne, akkor a makrót nem biztos, hogy tudom magamnak updatelni. Emiatt minél kevesebb munkát szeretnék a makróval elvégeztetni, tényleg csak, ami szükséges. Viszont a képleteimet nagyon modulárisan legózom össze. Szóval eleve olyan a design, hogy egy "kapcsolótáblában" lévő pár cella átírásával tudom frissíteni az egész sheetnyi képletet a változásoknak megfelelően, szóval így egyszerűbbnek látom a karbantartást. -
#50174
Fire/SOUL/CD
félisten
Delila_1
#50173
-
Játékos
addikt
válasz
Delila_1
#50141
üzenetére
Szia!
Nagyon köszönöm a választ, kitaláltad a gondolatomat!
Viszont a kérdés lényege, hogy miként lehet az, hogy pl. a cég nevét felajánlja (ha már volt az oszlopban feljebb), de pl. az adószámát soha, egyik cégnek sem. Köze lehet az adószám formátumához? (12345678-01-1)
Vagy alapvetően azért, mert szám?
-
-
#49843
istvankeresz
aktív tag
Delila_1
#49842
istvankeresz
aktív tag
válasz
Delila_1
#49842
üzenetére
Most még jó így. Viszont megint elakadtam. A Combobox-ok és textbox-ok értékeit akarom gombnyomással (Távollét rögzítése) az aktív munkalapra sorba egymásután átvinni úgy, hogy minden gombnyomásnál új sort kezdjen. Sajnos csak egy értéket tudok átvinni.
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A1:A999")
If c.Value = "" Then c.Value = TextBox1.Value: Exit Sub
Next
End SubHogyan lehet többet?
-
rvn_10
senior tag
válasz
Delila_1
#49820
üzenetére
Szia!
Az Infor szám táblában az eslő oszlopban vannak a saját cikkszámok a B-C-D-E...oszlopban a különböző vevök cikkszámai amik megfelelnek a saját cikkszámnak.
A Rend áll fölün fel vannak sorolva az eslő oszlopba a vevői cikkszámok és a rendelések a D oszlopba kellene az adott vevői cikkszámhoz tartozó saját cikkszámot kikeresni és beilleszteni az Infor számok fülről.
-
Fferi50
Topikgazda
válasz
Delila_1
#49806
üzenetére
Szia!
Szerintem pedig azzal nem fog menni. Honnan tudod, hogy melyik oszlopban keresd az idegen cikkszámot?
Ebben a felállásban pedig egyszerű FKERES-sel működik:
Az átalakítás pedig nem nehéz - az idegen cikkszámokat transzponálni az A oszlopba, mellé beírni a sajátot és lehúzni.
Így a kereséshez nem kell tudni, melyik ügyfélé az idegen cikkszám.
Üdv. -
fjns
lelkes újonc
válasz
Delila_1
#49607
üzenetére
Azt én sem értem, hogy miért úgy kell a kérdezőnek, ahogyan leírta. Ilyen előfordult már máskor is, ez a kérdezőre tartozik, nekünk válaszolóknak nem is kell ismernünk az okokat.
Mindig az a célom, hogy olyan megoldás szülessen, amilyet a kérdező szeretne.
Ahogyan írtam, nem teljesen biztos, hogy jó az értelmezésem. Előfordulhat, hogy az említett kimaradó tételeket az A és B oszlopban szeretné látni alul, én pedig a D és E oszlopba tettem (ez utóbbit tartottam valószínűbbnek és ésszerűbbnek). Ha mégis az A/B-be szeretné, akkor pedig egyszerű módosítással az is megoldható... -
fjns
lelkes újonc
válasz
Delila_1
#49604
üzenetére
Szia Delila!
Ha a #49599-ben ajánlott képletedet (C1: =HAHIBA(FKERES(A1;D:E;2;0);"")) alkalmazzuk az eredeti állapotra, akkor az lesz az eredmény, ami a következő képen látható.
Ez nem felelt meg a probléma gazdájának, amit a #49600-ban jelzett is számodra.
A #49603-ban linkelt táblázatban az volt a célom, hogy teljesüljön az elvárás, amit legjobban a #49600-ban látható kép mutat, illetve az első ide vonatkozó hozzászólásban, a #49591-ben olvasható igények. Ebből a leírásból erre figyeltem elsősorban: "ami nincs az „A” oszlopban csak a „D” oszlopban az kerüljön alulra". Az idézett szövegrész nem százszázalékosan egyértelmű, de próbáltam a legvalószínűbb értelmezést adni neki. Úgy gondolom, hogy a táblázatom Munka2 munkalapja megfelel az elvárásoknak...
Üdv, János -
spe88
senior tag
válasz
Delila_1
#49576
üzenetére
Köszi, de az eredeti táblában az adatok jóval bonyolultabban helyezkednek el, a minta sem olyan egyszerű (hol több szó, hol egy tb.)
Szóval ez jóval komplikáltabb annál, hogy az Excel automatikusan észlelje.Csak az egyszerűség kedvéért kreáltam úgy a képet.
Kipróbáltam amúgy, de sok hibásan jelenik meg, illetve üresen marad stb.
-
#49557
MasterMark
titán
Delila_1
#49556
MasterMark
titán
válasz
Delila_1
#49556
üzenetére
Van vagy 300 ilyen sor amit módosítani kéne, soronként 6 érték +2 még külön. Nem fogom kézzel csinálni.
A gond az hogy be van fixálva mondjuk A1:A10 közé, én hozzáadok egy A11 sort, az összes képletet át kéne írnom hogy benne legyen ez az új sor is.
Biztos meg tudnám csinálni mindenféle string replace meg stringben keressésel, meg regexelni a számokra, aztán a számot növelni egyel, aztán újra összerakni a képletet és visszaírni a cellába, de reméltem hogy erre van valami jobb módszer.
-
fjns
lelkes újonc
válasz
Delila_1
#49550
üzenetére
Szia Delila!
Úgy érzem, félreértetted az előző bejegyzésemet. Az általad #33224-ben idézett szöveg alapján teljesen egyértelmű, hogy a szintén #33224-ben lévő link a szerző feltöltése volt, ráadásul ez egy szuper anyag lehetett a könyv mellett megtalálható egyéb kiegészítésekkel együtt. Troy jelezte, hogy sajnos az a link már jelenleg nem működik, és helyette megtaláltam másik helyen Troy számára Kovalcsik Géza könyvét. Az általam megadott linkre vonatkozott, hogy valószínűleg ezt nem a szerző tette fel, hanem valaki beszkennelte a könyvet, és ily módon osztotta meg másokkal is...
Üdv, János -
Delila_1
veterán
válasz
Delila_1
#49423
üzenetére
Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture, CV As Range, ter As Range
Dim KepHelye As String
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Count > 1 Then
Set ter = Range(Target.Address)
For Each CV In ter
KepHelye = "D:\kepek\" & CV.Value & ".jpg"
With Cells(CV.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
Next
Else
KepHelye = "D:\kepek\" & Target.Value & ".jpg"
With Cells(Target.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
End If
Application.EnableEvents = True
End If
End Sub -
huan
őstag
válasz
Delila_1
#49421
üzenetére
"A"-oszlopba szeretném a kép-fálj neveket beilleszteni és mellé közvetlenül a "B"-oszlopban megjeleníteni képpel (ugyan úgy méretezve, ahogyan előzőleg írtad). Ezen kívül csak annyit még, hogy bármi hiba esetén ne álljon meg, hanem hagyja figyelmen kívül, maradjon üres a kép cella.
A képek mondjuk itt vannak: D:\képek -
-
-
adDis
csendes tag
válasz
Delila_1
#49334
üzenetére
Bár igazából ezen is szerintem el fogok tudni indulni. Az jött ki, hogy 214 olyan szöveges érték van, ami legalább egyszer fordul elő - ez azért már kezelhető mennyiség! Megnézem, hogy ezek közül mennyi az átfedés, egységesítek, aztán mehetnek a képletekbe. Köszönöm!
-
adDis
csendes tag
válasz
Delila_1
#49334
üzenetére
Kedves Delila_1!
Köszönöm szépen a válaszod!
És az megoldható, hogy magukat az egyedi értékeket is leválogassa /kilistázza "valami"? (Ugyanis egy külön fülön szeretnék rájuk kimutatásokat készíteni: pl. más oszlopok tartalmához képest felderíthetők-e bizonyos összefüggések stb.) -
#49301
istvankeresz
aktív tag
Delila_1
#49299
istvankeresz
aktív tag
válasz
Delila_1
#49299
üzenetére
Jó ötlet, megpróbálom mennyire használható a szűrővel, de még gondolkodom a segédoszlopos megoldáson. Megpróbálom azt, hogy a segédoszlop celláiba a januári dátumokhoz 1-t, februári dátumokhoz 2-t párosítok és így tovább, így FKERES-el vagy XKERES-el talán áttudom rántani a nekem szükséges dátum adatokat szövegként a másik lapfülre.
Köszi az ötleteket!
-
huan
őstag
válasz
Delila_1
#49268
üzenetére
"A színezett cella több feltételed formázás alapján színeződik, de a cellatartományra nem tudom "ráhúzni" ugyan ezen feltételeket valamiért."
sok feltétel van benne és mindet módosítani/igazítani kellene. Nincs valami egyszerű megoldás a feltételek helyett egyetlen feltételhez, egy cella színéhez kötni a feltételt? -
bozsozso
őstag
válasz
Delila_1
#49231
üzenetére
Köszönöm szépen nagyon jó lett, sikerült kis módosításokkal a saját "éles" adataimhoz igazítani, így már csak abban kérném a segítséged, mert erre eddig még nem jöttem rá hogyan tudnám azt elérni, hogy a txt-be ne " " jelek közé kerüljenek a kiírt sorok.
Ez sebességben jócskán felülmúlja Pakliman javaslatát, de ha nem sikerül megoldanom az idézőjel problémát akkor az lesz a befutó.
Köszönet mindkettőtöknek a segítségért.
-
bozsozso
őstag
válasz
Delila_1
#49231
üzenetére
Köszönöm, megnéztem. Egyelőre annyi problémát látok vele, hogy a txt-be " " jelek közé teszi a tartalmat. Fontos lenne az általam megadott formátum használata. Dátum formátum nem fontos, azért csak kiszedtem az első 10 karaktert. Jobban beleásom magam, és megpróbálom "kijavítani" ami számomra fontos. A #49232-es hozzászólásban a javasoltat is köszönöm azt is megnézem.
-
Salex1
őstag
válasz
Delila_1
#48991
üzenetére
Nagyon hálás vagyok a segítségért, sok időt spórolok/nék vele. Az eredeti hsz-ban írtam, csak nem értette a "kolléga" ezért írtam mintát. Bocsánat érte, hogy félre vitt.
Az összes oszlopnak adatnak maradni kellene, nem csak a ABCE. -
Salex1
őstag
válasz
Delila_1
#48858
üzenetére
Ki tudnád nekem ezt egészíteni? Én próbáltam, de nem sikerült sajnos, összekuszálódott.
Az alap táblázat A:CL tartomyányú. Ebből az AH amit bontani kellene.
Viszont van olyan is, ahol üres a cella, ott úgy is kellene maradnia (ha ez nem megoldható, az nem baj, akkor írok bele valamit ideiglenesen, PL. N/A) -
-
Lajos.P
csendes tag
válasz
Delila_1
#48894
üzenetére
Szia Először is köszönöm hogy foglalkozol velem.
Viszont nekem ez így nem jó.
Én azt szeretném hogy a B2 oszlopban a betűt jelenítse meg.
Ha az A1 oszlopban lévő szám 103 akkor a B2 A betű legyen.
Ha az A1 oszlopban lévő szám 140 akkor a B2 oszlopban C betű legyen.
És így tovább.
Köszönöm segítséged remélem így érthetőbb.
-
#48836
Fire/SOUL/CD
félisten
Delila_1
#48835
válasz
Delila_1
#48835
üzenetére
Mert válaszoltam Neked, aztán kimentem kimosni a szememből a csipát, a hideg víz hatására meg megvilágosodtam, hogy hülyeséget írtam, így megváltoztattam a hozzászólást "Korán van még..." jeligére.
Akkor még1x:
A feladat kivitelezéséhez a kombinatorika, azon belül az ún. ismétlés nélküli variáció lekódolása szükséges. Ezt még meg lehet írni makróban, de mivel közben az is befigyelt, hogy "értelmes magyar szó" is kitétel, ezért már értelmetlen az egész. Ahhoz pluszban kellene -ahogy lappy is írta- egy adatbázis, ami max. 9 betűs magyar szavakat tartalmaz.
-
#48834
Fire/SOUL/CD
félisten
Delila_1
#48833
-
#48616
Fire/SOUL/CD
félisten
Delila_1
#48615
![;]](http://cdn.rios.hu/dl/s/v1.gif)
tovabbi szep napot 
Új hozzászólás Aktív témák
Fferi50- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Építő/felújító topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Autós topik
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- Kormányok / autós szimulátorok topikja
- ROG Xbox Ally X: Összefogás
- NOTEBOOK / NETBOOK / Mac beárazás
- Telekom mobilszolgáltatások
- Ford topik
- További aktív témák...
- Gamer PC-Számítógép! Csere-Beszámítás! Mini PC! I5 10600KF / RTX 3060 12GB/ 16GB DDR4 / 1TB SSD
- Dell Precision 5820 XL PC - Xeon W-2123 112GB RAM 512GB SSD 1TB HDD RX 580 GTS 8GB Win 11
- BESZÁMÍTÁS! MSI B450 R7 5800X 32GB DDR4 1TB SSD RTX 4070Ti 12GB Zalman S2 TG Enermax 750W
- HIBÁTLAN iPhone 13 Pro 256GB Graphite 1ÉV GARANCIA -Kártyafüggetlen, MS3740
- Lenovo ThinkPad T14s Gen 3 i5-1245U 14" FHD+ 16GB 512GB 1 év teljeskörű garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest