- One mobilszolgáltatások
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- VoLTE/VoWiFi
- Mobil flották
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel 8a - kis telefon kis késéssel
- Samsung Galaxy S25 - végre van kicsi!
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
-
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
-
biker
nagyúr
válasz
Delila_1
#8226
üzenetére
ooo-ban nem ! kell, hanem . így ezeket átarva, és a J:J-t sem fogadja el, ezt átírva így most a #hiányzik eredményt kapom
=INDIRECT("importsql.A"&MATCH(termekkek.A2;importsql.J1:J50000;0))(ja, a lap neve termekkek, nem termekek, de ez nem gond, erre figyelek én...
elírtam az elején
-
biker
nagyúr
válasz
Delila_1
#8220
üzenetére
igen, nem tábla, munkafüzet, csak adatbázis táblák exportja van benne
sajnos nem jó a képlet, még a szükséges mezőjavításokkal sem, lehet rosszul határoztam meg a kérést amellett, hogy a cellákat is félrenéztem
tehát: a kepek lap A1 cellájába szeretném megkeresni azt a számot az importsql lap A oszlopából, ahol az importsql J oszlopában lévő cikkszámok egyike egyezik a termekek lap A2 mezőjében lévő cikkszámmal.
(a sor eltéréstől függetlenül a termekek és kepek tábla sorrendje azonos, az importsql a kevert sorrendű tábla) -
motinka
tag
válasz
Delila_1
#8210
üzenetére
Köszönöm, a gyors válaszodat, bemásoltam, sajnos nem működik.
feltettem ide: http://www.hunsurf.hu/1.xlsa lényeg az lenne, hogy amennyiben az A oszlopban SC kerül akkor azt írja be a C oszlopba,
de amennyiben a C oszlopban a lenyílóból választunk ki, akkor az kerüljön beírásra.Na a csavar most lenne, amennyiben a C oszlopból kitöröljük a beírást, akkor ismét az első feltétel működjön.
A gondom az hogy amennyiben a képletet a C oszlopba rakom, akkor ha beírás történik ide akkor természetesen a képlet törlődik, így ha újra üres lesz a mező a képlet nincs már ott.
Köszönöm hogy foglalkozol a problémával.
-
mr.nagy
tag
válasz
Delila_1
#8221
üzenetére
A World körlevél funkcióját szoktam is használni, de most kellene bele tenni egy olyan megoldást amire Worldben nem jöttem rá.
Valamikor régebben itt kaptam egy megoldást arra, hogy egy külső (internetes) linken található képet tegyen be az excel táblába. A linknek van egy fix része és van egy változó, ami szintén a táblában van. A kettőből generálódik az URL amit a makró betesz egy megadott helyre.
Na most is erre lenne szükségem csak a körlevélnél erre nem találtam megoldást, ezért kérdeztem, hogy excelben megoldható lenne-e?Huh, remélem érthető voltam! Ha nem bocsánat!
-
biker
nagyúr
válasz
Delila_1
#8208
üzenetére
szia
ooo, tehát angol kellA lényeg, a termekek táblában az A oszlopban vannak az ID-k, az O-ban a cikkszámok
az sqlimport táblában az A1 mező kell legyen egyenlő azzal az ID-vel a termekek táblából, ahol az sqlimport O1 cellában lévő cikkszám egyenlő a termekek táblában valahol az O oszlopban lévő cikkszámmal.A gond az, hogy egy táblából elkészült az import az sql táblába, ez 1900 sor.
de ezeket nem sorban illesztette be az sql, így ha kiveszem a sorokat, amiknek már van ID-je (auto increment) akkor lesz két táblám, amiben azonos cikkszámok is megvannak, de nem sorban, és ehhez kell összepárosítsak egy 1200 képet tartalmazó táblát, amit a sor nemegyezés miatt nem sorrendezhetek szimplán.Remélem érthető volt
-
Fboy
aktív tag
válasz
Delila_1
#8215
üzenetére
Rájöttem, hogy ez nekem nagyon bonyolult ez a makrózás
Helyette megoldottam diagrammal (tudom, favágó módszer), úgy hogy a diagramm hátterének a választott térképet raktam be, a diagramm elemek körök, a méretüket pedig egy táblázatból választom ki, a diagrammon pedig szabadon rakosgathatom.
Azért köszi a fáradozást.
-
-
szjoci
őstag
válasz
Delila_1
#8187
üzenetére
köszönöm!
Ez az indirekt függvény működik úgy is hogy nem kell megnyittatnom a hivatkozott munkafüzetet, vagy pedig mindenképp meg kell nyitnom?
leírom inkább miről lenne szó konkrétan: van egy lista fájlnevekkel, ezek közül amit kiválasztok az lenne az adatbázis, abból szeretnék adatokat elérni. -
#8165
m.zmrzlina
senior tag
Delila_1
#8164
m.zmrzlina
senior tag
válasz
Delila_1
#8164
üzenetére
Stimmel, valsz ezt fogom tenni csak reméltem, hogy le lehet automatizálni ezt a részt is.
Apropos: 2007es Office-ban van-e lehetőség új menüpont beszúrására? Nem a Gyorsindítás gombok közé tehető parancsgombokra gondolok, hanem a Szalagra lehet-e definiálni egy menü elemet (új fület) ahova lehet pakolgatni makróhoz rendelhető parancsgombokat.
Régebbi verziókban volt ilyen sőt az Openoffice-ben is van
Egyébként köszönöm a választ itt is ott is. -
#8151
m.zmrzlina
senior tag
Delila_1
#8101
m.zmrzlina
senior tag
-
#8138
scott_free
senior tag
Delila_1
#8130
scott_free
senior tag
-
#8125
scott_free
senior tag
Delila_1
#8121
scott_free
senior tag
válasz
Delila_1
#8121
üzenetére
köszönöm a segítséget!
a legördülő listánál meg lehet azt csinálni, hogy egy másik cella értékétől függően mutassa a választási lehetőségeket?
pl. A1 cellában megadhatok számokat 1-10-ig, és az itteni értéktől függően a B1 cellában a legördülő listában pl. 1-től (11-A1)-ig mutassa a számokat. (vagyis ha pl. az A1=3, akkor a legördülő listában már csak 1-tól 8-ig legyenek a számok, és ne 10-ig)
-
Kobe
veterán
válasz
Delila_1
#8122
üzenetére
köszi, kipróbálom majd
ezekszerint ha fogom a 3 pivot táblát és egymás alá illesztem mondjuk egy új sheetben, akkor végig fut az egészen?"A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés."
ezt nem egészen értem, mármint értem, hogy mit jelent, de magyarra lefordítva akkor bármilyen olyan sort kitöröl a táblázatból, ahol adott oszlop adott sorában semmilyen adat nincs ? ezt akrja jelenteni ?
illetve befolyásolja a makró működését, hogy a commentek nem kézzel beírt kommentek, hanem előre kiválasztható listából legördülő menüvel lehet választani közülük? -
#8108
Fire/SOUL/CD
félisten
Delila_1
#8107
válasz
Delila_1
#8107
üzenetére
Hali!
Mármint a Címjegyzékre vagy a Fiókokra érted?
Csak azért kérdem, mert a héten 2 emberkének is ilyen gondja volt, mindkét esetben egy szépséges kártevőt sikerült beszerezni...![;]](//cdn.rios.hu/dl/s/v1.gif)
(Mindkét gépet újratelepítettem, formázás után, remélem nálad nem ez lesz a szitu....
)Fire.
-
zsotesz81
senior tag
válasz
Delila_1
#8101
üzenetére
köszi, műxik.
A többi feltétel azért van mert valamiért az üres cellánál is belement a feltételbe, a másik meg ezeket a számokat országonként kellene szétmásolni, csak azt nem tudom, hogy ezt még hogy oldjam meg (még csak amolyan próbálkozás). Tehát Austriához (C1) tartozik a B6-ban és B12-ben lévő szám, utána
Arabemirates-hez(C17) a B22-ben és a B28-ban lévő számok, és így tovább. Az a gond, hogy van olyan ország ahol nem csak két számot kell másolni hanem többet. -
-
#8039
Fire/SOUL/CD
félisten
Delila_1
#8038
-
Tier555
csendes tag
válasz
Delila_1
#8034
üzenetére
Üdv,
erről van szó:
Tehát adott 2 db xls file: a.xls és b.xls
Mindkettő struktúrája azonos.
1. oszlop azonosító szting
2. oszlop márkanév
3. oszlop adat
4. oszlop adat
5. oszlop adat
6. oszlop keresendő sztring azonban csak a.xls-ben van adattartalma.A feladat, hogy az a.xls 6. oszlopának tartalmát másoljam b.xls 6. oszlopába de nem ugyanazokba a sorszámú sorokba, ahol a.xls-ben is voltak, hanem az 1. oszlop által azonosított sorba.
Vagyis fut a kereső az a.xls 6. oszlopában. A 9. sorban talál egy sztringet, akkor és csakis akkor meg kell néznie az a.xls első oszlopában a 9. sorhoz tartozó azonosító sztringet, majd átmásolni a 6. oszlop adattartalmát a b.xls 6. oszlopának azon sorában ahol a ugyanaz az első oszlopbeli sztring azonosító található meg.
Ha ezt tudja az FKERES akkor a paramétereket adom meg rosszul. Mi a helyes megadás?
Köszönöm szépen a segítséget!! -
Oly
őstag
válasz
Delila_1
#8011
üzenetére
Akkor fogalmam se nem van, hogy mi történt, de nem is érdekel, mert működik.
Már csak azt kellene megcsinálni, hogy a amikor nem talál ilyen lapot, akkor az új lap létrehozásával egyidejűleg egy másik műveletet is csináljon meg. Range("A3") = 1
Azt a Then után hova írjam? -
#8000
basaharc502
aktív tag
Delila_1
#7997
-
#7998
Fire/SOUL/CD
félisten
Delila_1
#7997
-
motinka
tag
válasz
Delila_1
#7976
üzenetére
a munka általában aznap befejeződik a kivételekkel nem kell foglalkozni, csak néha van olyan, tehát azt kell feltételezni a képletnek hogy aznap befejeződik.
Hát igen, a munkalap zárása azt jól gondolod, amelyik a 8:30-13:30 időszakban van az még aznap az azt követők csak másnap zárulhatnak le. De ha azárás cellába [ F4 ]ideiglenesen beirnám a zárás dátumot és azt figyelné akkor? majd átírnám a másik dátumra, majd amikor végeztem visszírnám zárás-ra ?
-
#7961
Fire/SOUL/CD
félisten
Delila_1
#7959
válasz
Delila_1
#7959
üzenetére
Hali!
Igen, ez más megközelítés valóban és szebb is lehet, ha "visszaszámol" a szükséges időpontig. Ehhez azonban alakítani kell a kódon mert most azt írja ki, hogy "-7 nap múlva kell leadni a jelentést."
Sickboy25
A "hhhh " helyére "hh " kerüljön. Ez sima dátumformázás...Fire.
-
Sickboy25
addikt
-
#7951
Fire/SOUL/CD
félisten
Delila_1
#7950
-
#7949
Fire/SOUL/CD
félisten
Delila_1
#7940
-
#7931
Fire/SOUL/CD
félisten
Delila_1
#7930
-
#7918
Fire/SOUL/CD
félisten
Delila_1
#7916
-
-
#7914
Fire/SOUL/CD
félisten
Delila_1
#7912
válasz
Delila_1
#7912
üzenetére
Hali!
Semmi köze az Excel-hez, ez Windows funkció. Az ALT+SHIFT-el lehet a billentyűzet kiosztását váltogatni. Ha nálad nem megy, akkor nálad csak egy billentyűzetkiosztás van telepítve...
Fire.
UI: Ha magyar nyelvű billentyű volt, amikor feltelepítetted az OS-t, akkor annak alapból az angol kiosztást is telepítenie kellett, ha ez nincs, akkor az "gond"...
-
#7911
Fire/SOUL/CD
félisten
Delila_1
#7910
-
#7876
Fire/SOUL/CD
félisten
Delila_1
#7875
válasz
Delila_1
#7875
üzenetére
Hali!
A 2007-ben jól megy, a 2003-ban nem ment jól. Amit te készítesz kódot, azt 2003-ban (elsősorban) szoktam megnézni, mert tudom, hogy 2003-at használsz alapvetően. A korábbi 2007-es képnél meg én voltam a ludas, nem azért mert az adoptálás nem volt jó, hanem W7 alatt a startmenüből úgy nyitottam meg az excel 2007-et, hogy az egy látszólag üres füzetet egyből megnyitott(nem egy üressel indult, ahogy alapban szokása, hanem egy kinézetre üres munkafüzetet töltött egyből be). Mivel üres volt ezért beletettem a kódodat és nem működött jól, azért nem, mert abban a munkafüzetben volt makró, ami az A oszlopban színezgetett és mivel a kedvenc színem(ha úgy tetszik megszokás) az a kék, amit használni szoktam, nem tűnt fel(akkor) hogy a makró is színezget a feltételes formázás mellett...
De rájöttem, mert "Okos, ügyes a legkisebb ugrifüles"...Szóval 2007-ben jól működik a kódod, 2003-ban meg "csak" Sp3 után...
Fire.
-
#7874
Fire/SOUL/CD
félisten
Delila_1
#7873
válasz
Delila_1
#7873
üzenetére
Hali!
Köszönöm, de nem az volt a gond.
Felpakoltam az SP3-at neki, most kifogástalanul működik a "kódod"...
Én szoktam hangoztatni mindenhol, hogy milyen fontos, hogy a frissítések fent legyenek(ami nem csak az excel-t érinti, hanem az egész Office csomagot), erre én feledkezem el róla.
Fire.
-
#7872
Fire/SOUL/CD
félisten
Delila_1
#7871
válasz
Delila_1
#7871
üzenetére
Hali!
Áttettem/másoltam, ki tudja hány módon új füzetet nyitottam, nincs változás.
Most még annyit kipróbálok, hogy felpakolom az utolsó szervízcsomagot a 2003-nak, mert jelenleg virtuális gép (XP) alatt fut, és nincs semmi frissítés telepítve.
(Amikor vettem, akkor még SP nélküli változatban lehetett kapni)Fire.
-
#7870
Fire/SOUL/CD
félisten
Delila_1
#7868
válasz
Delila_1
#7868
üzenetére
Hali!
Oké, hasogassuk a szőrt...
1. igen, valóban a belső események gyorsabbak, mint a makró, de akkor így kellett volna fogalmazni
"Továbbra is más megoldást javaslok, nem a Fire által megadott makróst, mert gyorsabban működik."2. Megcsináltam 2003-ban, semmit nem adoptáltam, az R oszlopban vannak az adatok
nem jól működik Magyarul az R2-be írj egy nagy számot...3. Időközben megvilágosodtam...
Fire.
-
#7867
Fire/SOUL/CD
félisten
Delila_1
#7866
válasz
Delila_1
#7866
üzenetére
Hali!
1. A feltételes formázás is az onchange eseményt használja (belső esemény)
2. A feltételes formázás valóban egyszerűbb lehet, de a megoldásod sajnos nem jól működik. Nálam így "működik" (és jól lett adoptálva)
3. Ha az a feladat, hogy a 3 (vagy 5) legnagyobbat színezd ki, akkor nem értem, hogy a NAGY függvénynél (ami az N-edik legnagyobbat adja eredményül), miért a 4. és 6. legnagyobbat kéred le...Fire.
-
#7852
Fire/SOUL/CD
félisten
Delila_1
#7851
válasz
Delila_1
#7851
üzenetére
Hali!
Hát én csak egy "kicsit" értelmeztem félre ezek szerint Sickboy25 első feladatát.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Dim MyRange As Range
Set MyRange = Range("A1:A10")
Dim Nth As Integer
Nth = 5
If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
Application.ScreenUpdating = False
MyRange.Select
MyRange.Interior.ColorIndex = 0
For i = 1 To Nth
What = MyFxs.Large(MyRange, i)
For j = 1 To MyRange.Cells.Count
If MyRange.Cells(j, MyRange.Column) = What Then
MyRange.Cells(j, MyRange.Column).Select
Selection.Interior.ColorIndex = 37
End If
Next j
Next i
Range(Target.Address).Select
Application.ScreenUpdating = True
End If
End SubFire.
-
GBandeee
csendes tag
válasz
Delila_1
#7825
üzenetére
Szia Delila_1!
Nem, nem egy cellába szeretném írni a szöveget és a számot.
Összesen 2 oszlop és 5-6 sor (attól függően hogy hány gyümölcs van összesen).Tehát még egyszer a kérés, kérdés:
- Van egy SZÖVEGES oszlop (tartalma változó lehet) van benne alma, dió, körte, barack, szilva, stb...
A kérésem a következő: Írja ki, hogy hány alma, dió, barack, stb... van benne a következő formában:
dió 12
alma 5
körte 3
barack 2
szilva 1Lehetőleg amiből a legtöbb van az legyen legfelül és csökkenő sorrendben legyen alatta a többi.
Köszönöm!
-
GBandeee
csendes tag
válasz
Delila_1
#7821
üzenetére
Huuu, igazából ÉN nem értem, hogy mit írtál ezért megpróbálom még egyszer leírni érthetőbben.
Bocsánat! Tehát van két oszlopom:
A oszlop: Ebben vannak a gyümölcsök nevei
B oszlop: Ebben vannak a gyümölcsökhöz tartozó számokA feladat első részét, hogy a legnagyobb 25 számhoz tartozó gyümölcs nevét írja ki megoldottad, amit köszönök. (A G és H oszlopra szerintem nem volt szükség.)
Már csak annyit kellene tenni, hogy számszerűen írja ki, hogy a legnagyobb számú gyümölcsökből összesen mennyi van. Tehát szerintem az E oszlopba került szöveges adatokat összesíteni kellene egy külön helyen. (Ez ugye lehet akármi, mert, ha megváltoztatom a gyümölcsöket, és a mellettük lévő számot, akkor változik a végeredmény is, mint ahogy két példában le is írtam.)
Egy harmadik példa szerint (lehetőleg csökkenő sorrendben írja ki) így alakul a végeredmény:
Például, ha a szilvából van a legtöbb (9 legnagyobb számú), akkor ilyen sorrendben írja ki:
(két oszlop, öt sor)9 szilva
7 barack
6 alma
3 körte
0 dió(Tehát csak azt a 25-öt legnagyobb számot vizsgálja, ami már az előbb ki lett számolva.)
-
GBandeee
csendes tag
válasz
Delila_1
#7817
üzenetére
Nagyon köszönöm! Ismételten működik!
Viszont, ha a G és H oszlopot kitörlöm, akkor is tökéletesen működik, pedig direkt írtam egyforma számokat több helyre is és nem okozott problémát. Rendesen kiírta, hogy hány alma, szilva, stb van. Nem keverte össze. Lehet, hogy ahhoz valamilyen különleges esetre lenne szükség, amit nem tudok?
Mi szükség van a G és H oszlopokra?
Szóval lényeg, hogy működik!Most már csak egy utolsó kérés:
Számszerűen számolja össze, hogy hány alma, szilva stb... van összesen a kiválasztott legnagyobb 25 között.
Tehát így írja ki:
14 alma
4 barack
3 dió
2 körte
2 szilvaMég egyszer köszönöm!
-
perfag
aktív tag
-
GBandeee
csendes tag
válasz
Delila_1
#7804
üzenetére
Delila_1 nagyon köszönöm a segítséget. Sikerült!
Szintén ezzel kapcsolatosan, hogyan lehet megvalósítani, hogy ne magát a legnagyobb számot írja ki, hanem a mellette lévő (hozzá tartozó szöveges részt).
Pl. Kiderül hogy a 404 a legnagyobb szám, a mellette lévő adat 'alma', akkor kiírja, hogy alma, stb...
Bonyolítva a helyzetet, meg is számolja, hogy hány 'alma', 'körte', stb... legnagyobb van az első 25 között, pl:
alma: 16
körte: 4
barack: 3
szilva: 1
dió: 1(Tehát összesen 25.)
Köszönöm!!!
-
Yaye
őstag
válasz
Delila_1
#7808
üzenetére
Hát, nekem átvitte, pedig bizisten nem kértem meg rá
2003 sp3@ föccer: épp hogy nem akartam semmiféle formátumot átvinni. Speciális, "értéket" beillesztés nem is vitte át, a célcellák beillesztés után is maradtak az előre beállított formátumok, csak épp a tartalmukat jelenítette meg hibásan, szövegmód, balra igazítva. Ezért kellett az újabb, 1-el szorzós úgy-szerkesztek-hogy-nem-szerkesztek trükkös spécipaszta, de az is úgy hogy a formátumhoz véletlen se nyúljon ("értéket").
-
Yaye
őstag
válasz
Delila_1
#7805
üzenetére
Köszi, ezt ismertem, és majdnem jó is, de mégsem. A szorzás után ugyanis a cellák formátuma a segédegyes cellájának formátumát veszi föl. Ha az eredeti cellákban különbözőképp formázott számok/dátumok vannak, akkor az mind jól elszáll.
Viszont kicsit még próbálkoztam, és kis kiegészítéssel jó: az *1 (vagy +0) speciális beillesztésnél is alkalmazni kell a "csak értéket" és akkor nem túrja szét a formátumokat. Legjobb, úgy alakít számmá egy már eleve szám értéket, hogy nem alakít át semmit.
-
föccer
nagyúr
válasz
Delila_1
#7783
üzenetére
Igen, addig látszik, amig nem 40 oszlop van egy lapra kinyomtatva 6-os betűnagysággal (85% nyomtatási nagysággal), olyan szorosra véve az oszlopokat, hogy a cellatartalmaknak így is csak az eleje látszik. Sajnos így is nagyon zsúfolt
. És mindennek fejébe egyszerre 10-12 lappal kell majd dolgozni. Hidd el, legnagyobb gondomnak se szeretném, ha +ba azt kelljen bogarászni, hogy melyik lap éppen miről szól.No, hamán nyomtatá:
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Lehet-e valami olyat csinálni, hogy ne kapásból kinyomja a nyomtatóra, hanem jelenírse meg a nyomtatási párbeszéd ablakot? Mint Delphiben az
if printdialoge.execute then
begin
...
endobjektummal csináltam? Vagy ez is ezt csinálja? Még nem próbáltam ki, mert nem akarom fölösbe használni a festéket, meg a paprít Illetve figyelembe veszi-e az eredetileg beállított nyomtatási területeket, illetve az olddalbeállításokat (margók, élő fej élőláb, minden oldalon látszódó sorok beállaítása stb). Gondolo igen, csak még nem mertem kipróbálni...Köszi,
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7779
üzenetére
Nem baj az. Az eredeti tábla második sora eddig is üres cellák voltak. Egészen pontosan erre a sorra volt beállítva az autoszűrő. Így teljesen pörfekt, ha abba a sorba írom a critériumokat. Már csak azért is, mert így a nyomtatásban, az üres sorban eléggé feltünő az a néhány kitöltött cella. Így ránézésre látszik, hogy melyik oszlopok, mi szerint vannak szűrve
És végeredményben ezt volt a cél.üdv föccer
mod:
Mikor már a lapra álltál [Sheets("Receptek").Select], nem kell külön megadni a lapot:
Sheets("Receptek").Cells(1, i).Value = F.Criteria1 helyett elegendő a
Cells(1, i).Value = F.Criteria1Amikor nem adtam meg neki a teljes elérést, akkor a vezérlők sheeten hajtotta végre cellatartalom beírását. Nem tudom miért, de így volt. Ezzel tutira mentem, és így szépen műxik.
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7770
üzenetére
No, itt a végleges, nálam is hibátlanul futó makró
Sub CommandButton1_Click()
Dim AF As AutoFilter
Dim F As Filter
Dim i As Long, usor As Long, C As Long
Sheets("Receptek").Select
Set AF = ActiveSheet.AutoFilter
C = AF.Filters.Count
Range(Cells(2, 1), Cells(2, C)).Value = ""
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Sheets("Receptek").Cells(2, i).NumberFormat = "@"
Sheets("Receptek").Cells(2, i).Value = F.Criteria1
End If
Next
End SubKöszi a segítséget, nélkületek nem lett volna meg. Soakt tanultam belőle. Most jön a következő feladat
Üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7774
üzenetére
viszont a runtime- error még mindig él, és vigyorog az arcomba...
bekapcsolok mindent, és csinálok egy restartot, hátha....
hmm, restart után nem dobott hibát....
Viszont be kelett tennem egy Sheets("Receptek").Select-et, hogy utánna helyesen fusson a Set AF = ActiveSheet.Autofilter utasítás.
No, a másik, hogy ugyan hibát nem jelez, de nem írja be nekem a megfelelő adatokat... Még nem tudom, de minden esetre legalább van egy futtatható makróm.
Köszi szépen az eddigieket is. Nagy voltál
Üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7770
üzenetére
Run-Time error '91':
Objekt variable or With block variable not set.A hibát For i = 1 To AF.Filters.Count sorraadja.
Ha inicializálom elötte az i -t nem segít. Ha az elejére beszúrok egy sheets("Receptek").select-et, nem segít.
Lassan kezdem azt hinni, hogy bennem van a hiba...
Kérdés: a lent írt kódban mit akar csinálni az usor változó? Nem egészen tudom értelmeni az
usor = Range("A65536").End(xlUp).Row utasítást...
Köszi az eddigi segítséget. Nem tudom, hogy mi a rákért nem akar rendesen menni...
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7764
üzenetére
Amennyiben nem ez a célod, írd le pontosan, mit is akarsz. Azt szeretnéd, hogy a Lista lapon egyenként beállítod a (20) szűrőt, és ezek a kézzel beállított kritériumok jelenjenek meg a Kritériumok!B1
20 tartományában?Majdnem.Az egyenként, kézzel beállított kritériumok jelenjenek meg, ugyanezen lapon azokban a cellákba, ahol az autószűrő is van. Magyarán, azt szeretném elérni, hogy úgy jelenjen meg a nyomtatásban, mintha egy érvényesítés-> listából választottam volna ki.
De lassan meg lesz a megoldás, csak még nem látom át teljesen, a szintaktikát, meg az objektumok kapcsolatát.
kérdés: mi a különbség a ":=" és az "=" között. Pascalban az első az értékadás, a második pediglen érték vizsgálat. De ahogy nézem, ez itt fordítva van?
Valamint az értékadás jobbról balra, vagy balról jobbra történi?
köszi,
üdv, föccer
mod: amit írsz kódot, még mindig a kritérium cellákat ellenőrzi, hogy üresek-e. Nekem arra lenne szükségem, hogy az autoszűrő critériumát vegye feltételnek, és ha annak van valamilyen értéke, akkor ezt az értéket kell bevinni a cella értékének. Tehát a feltételt és a műveletet kellen még megcserélni
. Jah, és mindezt persze ugyaz azon a munkalapon.Köszi szépen.
Üdv, föccer
-
#7763
WildBoarTeam
senior tag
Delila_1
#7758
WildBoarTeam
senior tag
válasz
Delila_1
#7758
üzenetére
Így van nem összegezni akarok.
Lestem is egy nagyot erre a folyamatra, mert rögtön kínai volt.
Sajnos ez szerintem tényleg makrós megoldást igényel, de ehhez kevésnek érzem magam. Mivel a D oszlopban lévő címekhez kell néznem az E oszlop negatív összegeit, viszont a D oszlop címei mögött nem kellene figyelni az emelet+ajtó számokat.
Vagyis úgy kellene, hogy megnézem a D oszlopban a címet a házszámig, összehasonlítom az alatta lévővel, addig amíg ugyan az, ha eltér, akkor megnézem ezekhez a címekhez tartozó E oszlop sorait, ha mindegyik negatív, akkor a címek hátterét megváltoztatom. Na ez az amit nem tudom hogyan oldjak meg. -
föccer
nagyúr
válasz
Delila_1
#7756
üzenetére
A feltételnt nem fordítva kellene? Ha az autoszűrő critériuma nagyobb mint "", akkor a cella értéke legyen a critériummal egyenlő? Így azt vizsgálja, hogy van-e valami a cellában, és ha igen, akkor a kritériumot beállítva a cella tartalmának. Nekem pont fordítva kelle...
Üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7756
üzenetére
Runtime error '1004'
Range osztály Autofilter metódusa hibás
Egyébként amikor a Sheets paraméterét adom meg (hogy milyeik munkalapra akarok hivatkozni, akkor a paraméterbe "melyik nevét" kell megadni? Atulajdonságoknál van olyan, hogy (Name), értéke Munka1 és van oylan, hogy Name, értéke vezerlok (ez az általam, a munkalapnak adott megnevezés?
Köszi,
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#7725
üzenetére
Na, most van időm jobban átnézni, hogy mi írtál.
Az a helyzet, hogy nem teljesen erre gondoltam. Az eredeti elképzelés az, hogy a van egy olyan lapom, ahol beállítom a szűrési feltételeket. Ehhez nem használok makt, hanem simán, a legördíthető is listákat. Ezután (egy másik munkalapon) megnyomok egy gombot, és voilá, töltöget nekem minden félét.
Valami ilyesmi az elképzelés:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 to 20
With ThisWorkBook.Sheets("munka2").autofilter.field(i)
if not criterial1 = "" then
cells("B", i).value = .citerial1
end if
end with
NextEnd Sub
És persze a print a végére, de az már csk formaság...
Viszont valami nem kerek, mert nem akar menni...
i need help
köccke
Üdv, föccer
-
-
-
föccer
nagyúr
válasz
Delila_1
#7739
üzenetére
mint macska az esőt...
ezeken a hivatkozáson még agyalnom kell, mert még nem látom át a logikáját, de a többi megvan. Frankó. Gyakorlatilag, akkor úgy lehet makróból futtatni a már megszokott függvényeket, hogy kiválasztom az adott cellát, majd az aktív cellába beíratom képletként...
-
föccer
nagyúr
válasz
Delila_1
#7735
üzenetére
Üdv!
Rá tudom valahogy venni a VBasicot, hogy futtassa a már jól begyakorolt, és ismert excell függvényeket? Vagy külön le kell kódolnom mondjuk az fkeres(,,,), vagy az érték() függvéyneket? Ha igen, akkor hogyan? Sokat segítene, ha nem kellene mindent megírnom
Help-ben így hirtelen nem találom
köszi, üdv: föccer
-
föccer
nagyúr
válasz
Delila_1
#7735
üzenetére
jahjahjah. A ciklusok megvannak. A gombnyomásra szorzótáblát már megcsináltam (avagy a for ciklus alapjai
)No ,meg kezdem érezni, hogy hol, mit hogyan találok meg. Kezdem látni a builder felépítését. Köszi a sok segítséget, még biztosan jövök kérdezni
üdv, föccer
mod: a for-nál kihagytad a végéről a next-et
üdv, föccer
-
![;]](http://cdn.rios.hu/dl/s/v1.gif)
)
) ), csak nem szerettünk volna annyit gépelni.
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Vírusirtó, Antivirus, VPN kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Bomba ár! HP ZBook Studio G5 - XEON I 32GB I 512SSD I Nvidia I 15,6" 4K DreamColor I Cam I W11 I Gar
- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Csere-Beszámítás! Asus Rog Strix GTX 1080Ti 11GB GDDR5X Videokártya!
- VÉGKIÁRUSÍTÁS - REFURBISHED - Lenovo ThinkPad 40A9 docking station
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest