Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Mr Dini: Mindent a StreamSharkról!
- sidi: 386-os Chicony gázplazma laptop memóriabővítése
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Pitterix: Gyógytorna
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Brogyi: CTEK akkumulátor töltő és másolatai
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- GoodSpeed: Kell-e manapság egérpad vagy sem?
-
LOGOUT
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
-
#16600
poffsoft
veterán
dellfanboy
#16598
poffsoft
veterán
válasz
dellfanboy
#16598
üzenetére
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)
-
#16599
Delila_1
veterán
dellfanboy
#16598
Delila_1
veterán
válasz
dellfanboy
#16598
üzenetére
-
#16598
dellfanboy
őstag
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)
-
nimmy001
csendes tag
válasz
Delila_1
#16595
üzenetére
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.
-
-
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? -
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! -
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 -
#16583
pero19910606
csendes tag
atillaahun
#16582
pero19910606
csendes tag
válasz
atillaahun
#16582
üzenetére
Sikerült is, köszönöm a segítséget
-
#16582
atillaahun
veterán
pero19910606
#16580
atillaahun
veterán
válasz
pero19910606
#16580
üzenetére
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.
-
#16580
pero19910606
csendes tag
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
-
#16579
atillaahun
veterán
Sixkiller6
#16529
atillaahun
veterán
válasz
Sixkiller6
#16529
üzenetére
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.
-
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 -
repvez
addikt
válasz
Delila_1
#16570
üzenetére
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
válasz
repvez
#16569
üzenetére
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
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 -
-
-
Delila_1
veterán
válasz
Sziszmisz
#16556
üzenetére
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
válasz
nimmy001
#16553
üzenetére
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
-
-
Delila_1
veterán
válasz
#05304832
#16537
üzenetére
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
válasz
#05304832
#16533
üzenetére
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
válasz
VásRló
#16532
üzenetére
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
válasz
nimmy001
#16531
üzenetére
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? -
#16529
Sixkiller6
őstag
atillaahun
#16528
Sixkiller6
őstag
válasz
atillaahun
#16528
üzenetére
elég sok megoldás van neten:
pl:>>link<< -
#16528
atillaahun
veterán
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? -
#16527
Sixkiller6
őstag
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
válasz
peterszky
#16523
üzenetére
Sub oszlop()
Dim o$, oszlop%
o$ = InputBox("Melyik oszlopban akarod futtatni?", "Oszlop bekérése")
oszlop% = Asc(UCase(o$)) - 64
MsgBox oszlop%
Cells(1, oszlop%)="alma"
End SubA nagy A betű ASC értéke 65, ezért kell a beadott betű ASC értékéből levonni 64-et. 65-64=1, első oszlop.
-
peterszky
őstag
válasz
Delila_1
#16522
üzenetére
Csak az oszlopot szeretném paraméterként megadni az eljárásnak, hogy ne kelljen mindig átírni a kódban négy helyen a "Q"-t, ha másik oszlopra szeretném futtatni a makrót.
Tehát pl.:
Sub mm(p_oszlop As String)
...
If UCase(Left(Cells(sor%, p_oszlop), 3)) = "E (" Then
... -
Delila_1
veterán
válasz
peterszky
#16521
üzenetére
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.
-
-
BuktaSzaki
tag
válasz
BuktaSzaki
#16519
üzenetére
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ó? -
#16519
BuktaSzaki
tag
lappy
#16518
-
#16518
lappy
őstag
BuktaSzaki
#16516
lappy
őstag
válasz
BuktaSzaki
#16516
üzenetére
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!! -
#16517
Delila_1
veterán
BuktaSzaki
#16516
Delila_1
veterán
válasz
BuktaSzaki
#16516
üzenetére
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. -
#16516
BuktaSzaki
tag
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. -
#16514
poffsoft
veterán
Excelbarat
#16513
poffsoft
veterán
válasz
Excelbarat
#16513
üzenetére
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 -
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.
-
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.
-
peterszky
őstag
válasz
Delila_1
#16496
üzenetére
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
Ötlet erre?
már magával ragadt a makróprog
Új hozzászólás Aktív témák
Fferi50- VR topik (Oculus Rift, stb.)
- EA Sports WRC '23
- A világűrbe repíti az AI-t az NVIDIA és a Starcloud
- Kamionok, fuvarozás, logisztika topik
- Resident Evil Requiem - Ami eddig történt
- Kompakt vízhűtés
- Munkahelyek tízezreit szünteti meg az AI
- Milyen notebookot vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- LEGO klub
- További aktív témák...
- Xiaomi 14T 256GB, Kártyafüggetlen, 1 Év Garanciaval
- BESZÁMÍTÁS! Asrock B450M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB THERMALTAKE VERSA H17 600W
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3133, 95% Akkumulátor
- Lenovo Thinkpad T14 Gen 3, 1 Év Garanciával
- LG 48B4 - 48" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő