- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
- Az AI átformálja a Peugeot modelljeit is
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
- Mindenféle környezeti behatásnak ellenállnak az ASUS új TUF tápjai
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Kormányok / autós szimulátorok topikja
- Milyen videókártyát?
- Sony MILC fényképezőgépcsalád
- Vezetékes FEJhallgatók
- Pixel plus ultra: teszten a 6K-s LG UltraFine monitor
- Internet Rádió építése (hardver), és programozása
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
-
16600 - 16501
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 17901 17900 - 17801 17800 - 17701 17700 - 17601 17600 - 17501 17500 - 17401 17400 - 17301 17300 - 17201 17200 - 17101 17100 - 17001 17000 - 16901 16900 - 16801 16800 - 16701 16700 - 16601 16600 - 16501 16500 - 16401 16400 - 16301 16300 - 16201 16200 - 16101 16100 - 16001 16000 - 15901 15900 - 15801 15800 - 15701 15700 - 15601 15600 - 15501 15500 - 15401 15400 - 15301 15300 - 15201 15200 - 15101 15100 - 15001 15000 - 14901 14900 - 14801 14800 - 14701 14700 - 14601 14600 - 14501 14500 - 14401 14400 - 14301 14300 - 14201 14200 - 14101 14100 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
poffsoft
veterán
ez legyen mondjuk B2-ben:
=HA((A2*0,0001*$B$1)>10;(A2*0,0001*$B$1);10)A2-ben a darab, B1-ben az egységár (12 Ft)
-
dellfanboy
őstag
Egy fv lenne szükségem, lényege: pékség, jutalék kiflinként 0,01% vagy min 10ft-ot ha csak 5 kiflit adunk el akkor a 10 ft a jutalék, viszont ha 120-at akkor 120darab*12ft*0,01% -őt . egy kifli ára: 12ft. (tehát ha a jutalék mértéke 10ft felett van akkor 0,01% ha alatta akkor 10ft a minimum)
-
Delila_1
veterán
-
nimmy001
csendes tag
Ez a ctrl+c és ctrl+v, amit ki akarunk kerülni, és makróval megcsinálni. Forrásfájlokból sok van (sok lehet), mindegyikben mások az adatok, más a fejléc, a célfájlt arra akarjuk használni, hogy az eltérések a két új oszlopba bekerülnének (az egyik képlettel számol a forrásfájlból átmásolt adatok és a másik oszlopba kerülő adatok alapján), majd innen nyomtatni, ezt gyorsítani akarjuk, ezért akarjuk a forrásfájl(ok) adatainak behívását makróval megcsinálni és nem manuális másolással. Csak nem találom, hogy lehetne makróban, mert most visszakiabál az eltérés miatt.
-
Delila_1
veterán
-
nimmy001
csendes tag
Sziasztok,
Akadt egy kis gondom excel makróval kapcsolatban.
Át kéne másolni egy táblázatot egy másik táblázatba úgy, hogy a céltáblázatban (ide kellene behívni a forrásfájl adatait) két extra oszlop van, ami üres, azzal később fognak dolgozni, az adatok a forrástáblából kerülnének be, viszont van 2 olyan rész az egész fölött fejlécként, ami több cella egyesítése, erre is szükség van. A sorok száma egyezik, az oszlopok száma viszont több a célfájlban, mint a forrásfájlban. Ezt ki lehet valahogy küszöbölni, hogy ne kiabáljon vissza, de ezek tartalma is átkerüljön? -
Delila_1
veterán
-
baderoli
tag
-
lappy
őstag
-
baderoli
tag
-
lappy
őstag
-
baderoli
tag
Sziasztok! Ismét szeretném kérni a segítségeteket. Szeretnék átmásolni egy munkalapot egy másik táblázatba. A gondom az hogy ez sikerül de a munkalapon vannak képletek amit módosít.
ebből:=Munka1!B42
ez lett: ='[kész napi lista új.xls]Munka1'!B42Van erre valami megoldás, hogy az eredeti legyen benne?
Köszi!
Üdv! -
Excelbarat
tag
-
Gandalf80
csendes tag
Sziasztok!
Delila, már segítettél nekem ebben egyszer.

Szeretnék Kijelölést, DE (Ha megoldható) Egy adott sorban állva - a sor bármelyik cellájában - a makró indításával jelölje ki H oszloptól L oszlopig terjedő cellákat. Pl. állok a B6-os cellában, és elindítom ezt a makrót, akkor jelölje ki H6:L6 -ig. Megoldható?Előre is köszönöm

Üdv.
Gandalf80 -
pero19910606
csendes tag
Sikerült is, köszönöm a segítséget

-
atillaahun
veterán
Ezt írd a 4. oszlop 2. sorába (ha az első sorban a boltok nevei vannak, alatta pedig az értéket)
=HA(A2=MAX(A2 : C2);"Lidl";HA(B2=MAX(A2 : C2);"Tesco";"Spar"))
Szünet ne legyen benne sehol, ide csak azért írtam, mert egyébként hülye smile-vá alakítja őket.
-
Vladek83
tag
Sziasztok!
Vba-ban Userform űrlapon, ha beillesztek egy képet, lehet formázni (árnyék stb..) vagy külső programmal kell megcsinálnom?
Üdv.
-
pero19910606
csendes tag
Sziasztok!
Egy étrendet kalkulátort csinálok itthon. Ha be viszem az adatokat, akkor kiszámolja pontosan, hogy mennyi fehérje,zsír stb van benne illetve mennyibe kerül egy nap/hétre/hónapra.
Mellé segédtáblának szeretnék egy olyat amiben 3 üzletnek az árai vannak az adott termékekre és akkor így még a "fő" táblába sem kell átírnom az árakat ha változnak, hanem elég csak a segéd táblába bevinni a változásokat és arra hivatkoznék.pl:
Lild tesco Spar
Rizs 189 Ft 200Ft 210 Ft ?? Melyik a legolcsóbbA lényeg az lenne, hogy milyen függvényt kéne ahhoz használnom, hogy a 4. oszlopba kiírja nekem azt az üzletet, amelyikbe a legolcsóbb az adott termék?
Köszönöm

-
atillaahun
veterán
Köszi szépen, bár a makrók kicsit elriasztottak, főleg hogy a GDocs-ba még kevésbé van fogalmam hogy kell őket beépíteni, úgyhogy inkább megcsináltam kézzel az ellenőrzést.

Akadt most viszont itt egy újabb kihívás, ugyanezen online tábla C oszlopának tartalmából kellene készíteni egy ugyancsak online dinamikusan változó kördiagrammos kimutatást a választott lehetőségek arányaival. Csakhogy mint látszik a C oszlop celláiban a Google szavazós űrlapjának köszönhetően vegyesen, vesszővel elválasztva kerülnek be az eredmények. Így meg nem tudom hogyan lehetne megszámoltatni vele melyikből mennyi van összesen, és azt végül diagrammba tenni.

-
repvez
addikt
-
Attas
aktív tag
Üdv Mesterek!
Kaptam egy feladatot. Van egy adatbázisom. A oszloptól T oszlopig. Az utolsó 3 oszlopban a Hónap, nap és végül 06-18, vagy 18-06 szerepel. Csináltam egy formot ahol épp e három adatot lehet 3 comboboxban kiválasztani. Combobox1 a Hónap, a 2ő a nap és a 3om a 06-18 vagy 18-06. Olyan makróra lenne szükségem ami e három feltétel alapján kikeresi az adatbázisból azokat a sorokat, aminek az utolsó három adata az itt megadottakkal egyezik, és ezen sorok bizonyos oszlopait átmásolná egy munkalap A oszlop 10 sorától lefele, nyomtatás céljából.. Tehát nem az egész sor kell csak pl a B a C az F a H és I oszlop adatai.
Lehet kicsit nem jól fogalmaztam, de talán érthető. Köszönöm előre is -
L!NK->Q3
senior tag
-
Delila_1
veterán
-
repvez
addikt
Köszönöm ismét csak a segitséget, müködik is,de lenne egy kis javitani való vagy csak én nem csináltam jól.
Ezzel a szürés modszerrel sikerült is kiválasztani a dolgokat viszont nem tudom hogy az eredeti listából kihez tartoznak az adatok.Ezért irtam, hogy az eredeti lista A-T oszlopait is vigye magával a szüréskor és lehetöleg a képlet értékét a neki megfelelő sora után irja ki.
-
Delila_1
veterán
-
Delila_1
veterán
-
Delila_1
veterán
Használd a speciális rendezést más helyre. A kritérium táblában (nálam a W1:W2) add meg a feltételt a D oszlopra. Az új táblához add meg az oszlopok címsorát, amik a képletedben szerepelnek (Y1:AD1). Indítsd a speciális szűrést, ahogy a képen látod.
A következő oszlopba (AE) vidd be a képletet, és rendezd a tartományt az új oszlop szerint.

-
repvez
addikt
Üdv! lenne egy újabb feladat. van egy elég nagy adathalmaz kb 12000 sornyi.,
Ebből hogy tudom kiválasztani azokat a sorokat ami az alábbi feltételeket teljesitik?
Mert a rendezés és szürők menüből a szürök azok nagyon jól használhatók ,de nem felhasználóbarát.Szóval a feltételek :
csak azokat a sorokat hagyja megjeleniteni ahol a D oszlopban 85 vagy annál kisebb szám szerepel.
Majd ezeket az adatokat úgy rendezze, hogy az =E +F -(0,1*H )+(1,5*G )+( 2*J )-O képlet legnagyobb eredménye sor kerüljön elsőnek. A képlet eredményét irja ki a V oszlopban a neki megfelelő sorhoz.
ÉS a rendezés során a teljes sort vigye magával mivel A-T oszlopig vannak adatok ,de csak a fenti oszlopok a lényegesek a keresés sempontjából.Remélem érthető és sikerül találni rá megoldást !
köszönöm előre is
-
Roley_05
csendes tag
-
L!NK->Q3
senior tag
-
Delila_1
veterán
-
Roley_05
csendes tag
Sziasztok!
Azt szeretném megtudni, hogy hogyan lehet a választógombok hivatkozásait egy munkalapon belül szétválasztani. Hiába csoportosítom őket pl két csoportba és adok meg nekik egy cellát, hogy hova hivatkozzon, mindig úgy kezeli őket, mintha egybe tartoznának. Hogyan lehet szétszedni?
köszi,
Roley -
Gexdd
csendes tag
-
lappy
őstag
-
Gexdd
csendes tag
-
Sziszmisz
csendes tag
-
Delila_1
veterán
Nem biztos, hogy jól értem a feladatot, mert elég rossz példát adtál meg a csatolt képen.
Jobb lett volna, ha a címsor Alma, Kék, Jobb, Egyéb, ill. Körte, Piros, Bal, Egyéb. A képen az O:R tartomány minden tételnél azonos.
Gondolom, a sorok O:R tartományában azt kell feltüntetni, hogy az egyes tételek melyik címsor alá tartoznak. A lenti makró ezt oldja meg.Sub Katalogus()
Dim sor As Integer, usor As Integer, sor1 As Integer
usor = Cells(Rows.Count, "A").End(xlUp).Row
For sor = usor To 1 Step -1
If Cells(sor, "A") = "" Then GoTo Tovabb
If Cells(sor, "A") = "+" Then
sor1 = sor
Do While Cells(sor1, "A") = "+"
sor1 = sor1 - 1
Loop
Cells(sor, "O") = Cells(sor1, "A")
Cells(sor, "P") = Cells(sor1, "B")
Cells(sor, "Q") = Cells(sor1, "C")
Cells(sor, "R") = Cells(sor1, "D")
End If
Tovabb:
Next
End Sub -
Delila_1
veterán
-
Delila_1
veterán
2003-as verzióban a
=HA(HIBÁS(FKERES("kód_"&J1;A:B;2;0));"Nincs ilyen";FKERES("kód_"&J1;A:B;2;0))
képlet,fölötte lévő verziókban a
=HAHIBA(FKERES("kód_"&J1;A:B;2;0);"Nincs ilyen")kiküszöböli a hibát. A képletek a J1 cellába írt kódot keresik az A oszlopban. Találat esetén a megtalált kód sorában a B oszlop értékét adják, ha nincs találat, "Nincs ilyen" szöveg a visszatérési érték.
-
Sziszmisz
csendes tag
Sziasztok,
Lenne egy sürgős makró gondom amibe szeretném a segítségeteket kérni.
Az excel táblám úgy néz ki hogy az a oszlopban +el jelölöm a konkrét törzsadatokat tartalmazó sorokat, ezek a törzsadatok blokkokba vannak rendezve és úgymond fejlécük van. A fejlécekbe vannak kategória adatok(az A-B-C-D oszlopban vannak mindig).Azt szeretném elérni, hogy ezekhez a pluszos sorokhoz a saját "tömbjük" fejlécében található 4kategóriaadat minden egyes pluszos termékkel egy sorba kerüljön bele.
Remélem sikerült érthetően leírnom. Én valahogy úgy képzeltem el a megoldást, hogy ha az A oszlopban + -van akkor meg kellene vizsgálni felfelé, hogy melyik a legközelebbi nem +os sor és az abba a sorba található 4 cella adatát, a pluszos sor O oszlopától számított 4cellába bemásolni. Sajnos a makró szintaktikát nem sikerült megcsinálni, de elméletbe én így képzelem el a megoldást.
Mindenféle megoldásért nagyon-nagyon hálás lennék

Előre is köszönöm szépen

-
L!NK->Q3
senior tag
-
L!NK->Q3
senior tag
Sziasztok!
Miért van az ha megnyomom a ctrl+v-t nem beilleszt, hanem:

-
nimmy001
csendes tag
-
cellpeti
nagyúr
anno játszadoztam az Excellel és sikerült megcsinálnom azt, hogy csak a kijelölt területet mentettem el. Tehát a táblázat többi részét nem. Esetleg tudja valaki hogy csinálhattam?
-
cellpeti
nagyúr
-
Delila_1
veterán
-
cellpeti
nagyúr
-
Delila_1
veterán
-
cellpeti
nagyúr
-
Delila_1
veterán
-
cellpeti
nagyúr
-
Delila_1
veterán
-
Delila_1
veterán
Kész a makró.
Sub csere()
Dim sor As Integer, usor As Integer, V As Variant
usor = Cells(Rows.Count, "C").End(xlUp).Row
For sor = 16 To usor
If Right(Cells(sor, "D"), 4) = "_ker" Then
V = Cells(sor, "D")
Cells(sor, "D") = Left(V, Len(V) - 4)
V = Cells(sor, "H")
Cells(sor, "H") = Cells(sor, "I")
Cells(sor, "I") = V
V = Cells(sor, "K")
Cells(sor, "K") = Cells(sor, "M")
Cells(sor, "M") = V
V = Cells(sor, "N")
Cells(sor, "N") = Cells(sor, "P")
Cells(sor, "P") = V
End If
Next
End Sub -
cellpeti
nagyúr
tudok-e olyat, hogy van egy név ami többször szerepel a táblámba és még szeretnék hozzá írni valami rövidítést. De ne egyenként kelljen már, hanem egyszerre cserélje? wordbe tudom hogy van ilyen
Iletve, ha csinálok egy időbeosztást, akkor azt meg lehet-e tenni, hogy az adott nevet magától oda tegye? Vagy ezt már csak VB programozással lehetne?
-
Delila_1
veterán
-
Delila_1
veterán
-
Delila_1
veterán
Egy üres oszlopba a 2. sorba írd be ezt a képletet: =HA(JOBB(D2;4)="_ker";BAL(D2;HOSSZ(D2)-4);D2)
Másold le, ameddig a kiállított sorok tartanak a D oszlopban. Jelöld ki a képleteket tartalmazó cellákat, másold, állj a D2-re, jobb klikk, irányított beillesztés, értékként. A segédoszlopot törölheted.Cseréld ki a címsorok feliratait. Jelöld ki az I oszlopot, nyomd le és tartsd nyomva a Shift billentyűt. Kezdd el balra húzni a kijelölt oszlopot. A függőleges szürke vonal mutatja, hol tartasz. Mikor a H oszlop elé érsz, engedd fel az egér gombját, majd a Shiftet is.
-
nimmy001
csendes tag
Ezeket ismerem, de nem ez a feladat.
A forrástáblában vannak első oszlopban ilyenek, hogy: kód - valami név
A többi oszlopban különféle adatok, és mondjuk az egyik oszlopból kellenek nekünk az adatok az eredménytáblába, de csak a kód alapján, mert az eredménytáblában csak a kód van benne. Ez elvileg egy Fkeres függvény, de csak ha ugyanaz a keresett, mint a keresendő, itt nem. A forrástáblát csak akkor bolygatnám, ha nem lehet másképp megcsinálni a kódlevágást csak úgy, hogy beillesztek még egy oszlopot. Mások ezzel még dolgoznak. -
VásRló
tag
Hello
Én nem teljesen értem, hogy akarod. Én a BAL függvénnyel csinálnám, úgy, hogy a kódot külön oszlopba veszem vele. Mondjuk ez akkor működik, ha minden kód ugyanolyan hosszú. Úgy néz ki, hogy =BAL(cella;hány karaktert akarsz balról bemásolni). Ami nem a kód, azt meg ki lehetne szedni a JOBB függvénnyel, de csak ha egyenlő hosszú a nem kód jellegű adat minden sorban, mert be kell írni, hány karaktert akarsz kimásolni...
-
nimmy001
csendes tag
Sziasztok!
Milyen megoldást javasolnátok az alábbi problémára?
Keresni kell adott kódokhoz tartozó adott másik adatot, és ezt kiíratni. Eddig rendben is van, a probléma az, hogy amiben keresni kell, ott a kód egy nagyobb szöveg része (így néz ki: kód - valami név), így a keresés nem ad pontos egyezést. A forrástáblázat adott, nem nagyon lehet belepiszkálni. Hogy tudok úgy keresést indítani így, hogy a forrástáblázat egészében keresse a kódot, és csak az adott oszlopban lévő cellák kódnyi részét nézze, a többi szöveget hagyja figyelmen kívül azokban a cellákban, és meg is találja a hozzá tartozó másik oszlopban lévő értéket, amit ki kell íratni az eredménytáblába? -
ldave
félisten
Sziasztok, van egy grafikonom, amin 8 görbe van (x-y plot), és erre szeretnék egy határológörbét (maximum értékeknél) húzni, viszont a 8 adatsor x pontjai különböznek, van erre valami beépített megoldás?
-
Sixkiller6
őstag
elég sok megoldás van neten:
pl:>>link<< -
atillaahun
veterán
Szépjóestét.
Lehetséges valahogy irányított webes lekérdezéseket csinálni?
Van nekünk egy szavazásunk az egyik telefon topic-ban, és ebből kellene valahogy kiválogatnom az olyan szavazókat, akik nem léteznek, de legalábbis nincs regisztrációjuk itt MA-án.
ITT a tábla. B oszlopban a felhasználónevek, E-ben, pedig a belőlük összefűzött profil webcíme.
Azt kellene valahogy kidobnia az Excelnek egy következő oszlopba, hogy azokon a hivatkozásokon valóban betöltődik-e egy profil, vagy csak 404-es hiba.
Ezt végülis egyesével részfolyamatokban meg is tudom csinálni, csak én valami lehúzhatós képletet szeretnék inkább.
Van erre valami okosság?
-
Sixkiller6
őstag
lenne egy ne-vicceljünk-már kategóriás excel bug/kérdésem (excel 2007 SP3)
2013.01.21 2
2013.01.22 1
2013.01.23 0
2013.01.24 4
2013.01.25 6
2013.01.26 3
2013.01.27 0erre dobjunk egy robbantott pie-chartot, jobb gomb a pie-on, format data series, shadow, presets, vmi kiválaszt, erre nekem a chart közepén megjelenik egy teljes kör, ki tudja miért.
ha leveszem a shadowt eltűnik. ha átírom a 2013.01.24 mellett lévő 4-et 5-re eltűnik.ööö... wtf
hallottam már az excel kerekítési gondjairól, de ennek mi köze a shadow-hoz?
-
Delila_1
veterán
-
peterszky
őstag
-
Delila_1
veterán
Kérdés, hogy mit akarsz kezdeni vele. Amit írtál, az a Q oszlop sor%-adik cellájában lévő szöveges érték első 3 karakterét alakítja nagybetűvé. Ha ezt akarod valahova beilleszteni, akkor meg kell adnod, hova tegye a makró.
Pl. cells(sor%, "B")=ucase((left(cells(sor%, "Q"), 3))
vagy:
if ucase((left(cells(sor%, "Q"), 3))="ABC" then ...Szerk.: nem jól írtam, nem alakítja nagybetűvé a 3 karaktert, hanem a nagybetűs változatával kezd valamit. Összehasonlítja, kikeresi, beírja, stb., ahogy a további sorokban megadod.
-
peterszky
őstag
-
BuktaSzaki
tag
Na ezt megoldottam, ha elég sokáig húzza az ember az egeret, begyorsul

Köv gond.
Van két oszlop, mondjuk A és D.
ezekben 25 jegyű számok. az A oszlop összes értéke eleme D-nek.
ki kéne tenni egy új oszlopba, hogy melyek azok a számok, amik D-ben megvannak, de A-ban nem.
Ezt mivel és hogy ? FKERES? vagy a HA is jó? -
BuktaSzaki
tag
-
lappy
őstag
Szia!
Ha csak egy oszlop első cellájának formátumát akarod 35000 sorra érvényesíteni, akkor kijelölöd és formátummásoló, majd az oszlop betűjelére kattintva ez egész oszlop felveszi a tulajdonságot. Bár ilyenkor a teljes táblázatban az adott oszlop olyan formátumú lesz!! -
Delila_1
veterán
Kavarod a fogalmakat. Egy cella például az A1 jelű.
Gondolom, az első sor formátumát akarod a többi sorra is alkalmazni. Jelöld ki a sort úgy, hogy a sorjelölő 1-esre kattintasz. Ekkor a teljes sor szürke árnyalatot vesz fel.
Kattints a formátumfestő ikonra, ami egy ecsetet ábrázol. Most jelöld ki az összes többi sort úgy, hogy rákattintasz a 2-es sorjelölőre, és az egér bal gombját nyomva tartva húzd le addig, ameddig másolni akarod a formátumot. -
BuktaSzaki
tag
Sziasztok,
Gondolom, ez nagyon lamer kérdés de nem találom a választ a neten, vagy rosszul keresek

Szóval van egy 35.000 soros cella, ahol az egyik oszlop 1 sorában levő formátumot kéne abban az oszlopban mind a 35000 sorra érvényesíteni. Persze annyi az egész, hogy a cella jobb alsó sarkában fogom az egérrel a keresztet és lehúzom. Na most erre van valami billentyűkombináció, vagy valami, hogy ne kelljen 2 órán keresztül tartani az egér jobb gombját és úgy lehúzni?Köszi,
B. -
Delila_1
veterán
-
poffsoft
veterán

Azért a range("b").select hibát fog adni, hacsak nem nevet is adtál neki valahol

Próbáld így:
Range("A1").Name = "Delila_1"
Range(Delila_1)=b

-
Excelbarat
tag
-
poffsoft
veterán
-
Pille69
tag
-
Delila_1
veterán
Írtam egy rövid makrót, ami "kifehéríti" azoknak a celláknak a karaktereit, amiket nem akarsz megjeleníteni.
A képen az L oszlopig látszanak az adatok. Ha több oszlopban is vannak, a feltétel (If) 2. sorában írd át.
Sub szin()
Dim sor As Integer, usor As Integer
usor = Cells(Rows.Count, ("H")).End(xlUp).Row
For sor = 2 To usor
If (sor + 1) Mod 5 Then
Range(Cells(sor, "A"), Cells(sor, "G")).Font.ColorIndex = 2
Range(Cells(sor, "J"), Cells(sor, "L")).Font.ColorIndex = 2
End If
Next
End SubEzt lefuttatod, a táblázat bővítésekor csak másolnod kell az utolsó 5 sor formátumát a formátumfestő ecsettel.
-
Thom6
csendes tag
-
Delila_1
veterán
Lappy válaszát tudom ajánlani.
Gyorsan át tudod alakítani a táblázatodat. Kijelölöd az oszlopokat, ahol egyesítés van. Megszünteted az összevonást, de nem szünteted meg a kijelölést. Most minden valahány sorod üres cellákat tartalmaz ezen a területen.
Ctrl+g-re bejön az "Ugrás" menü. Kiválasztod az Irányított ugrást, majd az "Üres cellák"-at.
Ez kijelöli a tartomány üres celláit, ahol a képed szerint az A3 lesz aktív. Még most sem szünteted meg a kijelölést. Beírsz egy egyenlőség jelet, és nyomsz egy fel nyilat. Ctrl+enterrel az összes kijelölt cella a fölötte lévő értéket adja egy hivatkozás segítségével.Most újra kijelölöd a teljes oszlopokat, Ctrl+c-vel másolod, marad a kijelölés. Jobb klikk, Irányított beillesztés, Értéket. Minden cellába fixen beíródott az adat, amit az összevont cella tartalmazott.
Ez az egész procedúra kevesebb idő alatt lesz kész, mint ahogy leírtam. Már csak a feltételes formázást kell megadnod.
-
Thom6
csendes tag
-
Delila_1
veterán
-
Thom6
csendes tag
-
Delila_1
veterán
-
peterszky
őstag
Kiegészítettem a kódot azzal, ami még hiányzott belőle, így remekül segíti a dolgomat ez a kis makró

Sub search(p_sorszam As Integer, p_sheet As Worksheet, ByVal p_field As String)
Dim row%, WS As Worksheet
Set WS = Sheets("IG2KH")
row% = 3
p_sheet.Cells(p_sorszam, "B") = "T" & p_field
Do While WS.Cells(row%, "A") <> ""
If Cells(row%, "A") = p_field Then
p_sheet.Cells(p_sorszam, "C") = "P: " & WS.Cells(row%, "D") & ", H: " & WS.Cells(row%, "E")
Exit Do
End If
row% = row% + 1
Loop
End Sub
Sub mm()
Dim sor%, usor%, WS As Worksheet
Set WS = Sheets("Sheet1")
sor% = 3
usor% = WS.Cells(Rows.Count, "A").End(xlUp).row + 1
Sheets("IG2KH").Select
Do While Cells(sor%, "A") <> ""
If UCase(Left(Cells(sor%, "Q"), 3)) = "E (" Then
Call search(usor%, WS, Mid(Cells(sor%, "Q"), 5, Len(Cells(sor%, "Q")) - 5))
WS.Cells(usor%, "A") = "P: " & Cells(sor%, "D") & ", H: " & Cells(sor%, "E")
usor% = usor% + 1
End If
sor% = sor% + 1
Loop
End SubPastebin [link]
-
lappy
őstag
Szia!
Igen macro nélkül meg lehet bár nem lesz túl elegáns a táblázat!
Ott ahol egyesítve van a cella ott minden sorba beviszed az adatodat. Azaz ha 4 sort egyesítettél akkor 4 sorba beviszed pl.: B1
Minden cellára ezt megteszed és ezután feltételes formázással oldod meg.
Kijelölöd az oszlopot majd új szabály- formázandó cellák kijelölése képlettel.
a képlet =A2=A1 majd a formázásnál megadod a cella színét (alapnál fehér)
és alkalmaz -
Thom6
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem,
Adott egy tábla,fix felső sor,amikre rá lehet szűrni pl név,cégnév..stb
1 adott sor 5-6 egyesített sorból áll, kivétel egy oszlop,ahol felsorolás van,ott megmaradtak a sorok.
Ha szűrök valamelyik oszlopra, pl egy névre,akkor az adott névhez tartozó sorban,abban az oszlopban ahol nem kerültek egyesítésre a sorok,onnan csak a legelsőt listázza szűrés után,de kellen a többi sor is.Azt tudom,hogy azért csinálja így mert egyesített cellát úgy veszi,hogy a legfelső sorban van beírva a név,ezért csak azt a sor listázza ki a nem egyesített sorokból.
Kérdésem az lenne,hogy milyen makróval illetve hogy makró nélkül meg lehet e oldani a problémát.
Előre is köszi
Új hozzászólás Aktív témák
-
16600 - 16501
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 17901 17900 - 17801 17800 - 17701 17700 - 17601 17600 - 17501 17500 - 17401 17400 - 17301 17300 - 17201 17200 - 17101 17100 - 17001 17000 - 16901 16900 - 16801 16800 - 16701 16700 - 16601 16600 - 16501 16500 - 16401 16400 - 16301 16300 - 16201 16200 - 16101 16100 - 16001 16000 - 15901 15900 - 15801 15800 - 15701 15700 - 15601 15600 - 15501 15500 - 15401 15400 - 15301 15300 - 15201 15200 - 15101 15100 - 15001 15000 - 14901 14900 - 14801 14800 - 14701 14700 - 14601 14600 - 14501 14500 - 14401 14400 - 14301 14300 - 14201 14200 - 14101 14100 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Hirdetés
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Microsoft és egyéb dobozos és OEM szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Apple iPhone 13 /128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100% Után gyártott Kijelző
- PEACH Laminálógép és vágógép (6 in 1 Laminator & Trimmer PBP350 A4)
- REFURBISHED és ÚJ - Lenovo ThinkPad 40AY Universal USB-C Dock
- 27% - NiPoGi MINI PC AMD Ryzen 5800U / 16GB DDR4 / 512GB NVMe
- NEO-t vennél? NE TEDD!!! KÉSZLETKISÖPRÉSI UltraAkcióóó! Air M4 16GB 512GB Garancia - több színben!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest








Ötlet erre?

már magával ragadt a makróprog


Fferi50
