- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Fogkefe: elektromos vagy manuális?
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
-
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
-
Fferi50
Topikgazda
Szia!
Neked bizonyára sokkal nagyobb gyakorlatod van a relatív meghatározású nevek használatával, mint nekem, mivelhogy én nem használok ilyeneket. A kérdésed kapcsán próbáltam megnézni a viselkedésüket, illetve visszaemlékeztem pár hasonló próbálkozásomra (de bizonyára rosszul fogtam meg a témát).
Hogy a kérdésedre válaszoljak:
Alapcella - amin álltál, amikor a névkezelőben megadod a nevet. Ehhez a cellához képest a névhez tartozó tartomány (ami lehet egy-vagy több cella) sor és oszlop eltérése a viszonyítási alap a szóhasználatomban.
Tehát, ha a C1-ben állva adsz az A1 cellának nevet (név), majd F1-ben beírod a képletet =név, abban pillanatban a név már nem az A1 cellára fog vonatkozni, hanem az F1-től 2 cellával jobbra levő D1 cellára.
Ha pedig beleállsz az E1 cellába és megnézed a név melyik cellára mutat, meglátod, hogy az - mielőtt bármit is csinálnál vele C1-re hivatkozik.
DE: a VBA már meg is "bolondult", mert nála már az utolsó oszlopok valamelyike az, amihez a név tartozik.
És itt jön be, amit a 24292-ben írt Fire/SOUL/CD : a relatív névből látszólag mindig egy van, a valóságban pedig mindig a legutolsó aktív cellához képest számolja ki a név hivatkozását, tehát "több" név létezik belőle. Ezért nem egyértelmű - pont a dinamizmusa miatt. Szerintem a VBA ezért nem tud vele igazán mit kezdeni.Ez igaznak látszik a munkalapon generált relatív nevekre. Nem tudom - most nincs már igazán időm rá -, hogy a VBA-ban makróval megadott nevek hogyan viselkednek.
Emiatt az általam korábban már megtapasztalt ellentmondás miatt inkább a VBA objektum hozzárendelést és ahhoz az offset tulajdonságot használom. Pl.
dim alap as range
set alap=range("A1")
msgbox alap.offset(0,2).address ' = $C$1De persze - mint az már többszörösen bebizonyosodott, ízlések és pofonok különböznek. Így aztán nyilván különféle megoldásai lehetnek ugyanazon feladatoknak.
Üdv.
-
Fferi50
Topikgazda
válasz
Pampipapi
#24297
üzenetére
Szia!
Ehhez így sajnos nem fogsz megfelelő függvényt találni.
Illetve a MOST de inkább a MA az jó a beírás napján,de ahhoz, hogy későbbi napokon ne változzon meg, minden bezárás előtt át kell alakítani értékké:
Másolás - irányított beillesztés érték. Ezután már mindig az adott értéket fogja mutatni a cella. (Ezt természetesen lehet automatizálni makróval - és ekkor makróbarátként kell a füzetet elmenteni és a makró futtatását engedélyezni kell stb...)Üdv.
-
Wyll
őstag
válasz
Fferi50
#24296
üzenetére
Mit értesz az alapcellán és a viszonyítási alapon? Mmint mi a különbség?
Szerintem pont ez a marha jó a relatív nevekben, hogy dinamikusan, bárhol használhatók!
Épp a múlt héten kellett írnom két elég nagy többszörösen összetett függvényt, és 1000x könnyebb volt benne tájékozódni nevekkel, mint cellahivatkozásokkal. Sőt, előre meg tudtam írni notepad-ban, nem kellett a cellákkal foglalkoznom. De egy csomó tutorial is van a neten relatív nevekkel. Nem hinném, hogy ellenjavallt lenne.Szerintem VBA-ban annyi lesz a gond, hogy a Range() csak így simán object qualifier nélkül az ActiveSheet-re vonatkozik, aminek a bal felső cellája (a viszonyítási pontja) pont az A1. Éppen ezért lehet megadni neki pl ("B3")-at, ami így tényleg a B3-as cellát fogja jelenteni.
De ha "balra mutató" (negatív offset) relatív nevet akarok használni, akkor meg kell adnom, hogy mihez képest.. Mindjárt megnézem. (vagy majd holanp
) -
Pampipapi
tag
Sziasztok!
Azt szeretném megoldani, hogy ha beírok bármit egy cellába, akkor a mellette lévő cellában automatikusan megjelenjen a dátum, ami nem frissül később.
Az ÜRES() és a MOST() függvények felhasználásával próbálkoztam, de minden megnyitáskor az aktuális dátum jelenik meg... -
Fferi50
Topikgazda
Szia!
A "relatív" névadás szerintem roppant mód veszélyes dolog - legalábbis a 2010-es excelben biztosan, 2003-as excelben pedig egész egyszerűen körkörös hivatkozást "képes" eredményezni.
Gondolj bele: a relatív hivatkozással "elhúzod" az alapcella címét is, amikor egy új cellába helyezed a képletet (ugyanúgy, mint más képletttel), csak itt "megy vele" a viszonyítási alap is. Erre aztán "el is veszti" a fejét a VBA.
Hogy ez aztán "bug", vagy csak "elfelejtették" megírni, hogy ne adjunk nevet relatív címzéssel azt nem tudom.
Szerintem nem véletlen, hogy a névkezelő állandóan abszolut módon adja meg a címeket.Üdv.
-
#24295
Wyll
őstag
Fire/SOUL/CD
#24294
Wyll
őstag
válasz
Fire/SOUL/CD
#24294
üzenetére
Az előző képet még a melóban csináltam. De nyugodtan elhiheted, hogy ott is csak két név volt
Viszont az azért ezen is látható, hogy az E3:F10 cellákban, de legalábbis a képen az F7 cellában proba (aosz-szal azonos) van, és helyesen az A7 értékét adja (illetve E3:F10-en belül A-nak azonos sorában lévő cella értékét adja) eredményül.
És azt gondolom, hogy a VBA Range("proba").Address -nek is ugyanezt kéne visszaadnia, ha ugyanazon a cellán állva futtatom. Az MSDN szerint ez teljesen legális használat. ("Similarly, you can use a named cell instead of A1..."). Bár relatív hivatkozásra ott sincs példa.
Btw. sajnos nem lehet egyszerre láttatni a névjegyzéket, a VBA szerkesztőt meg a messagebox-ot is.
-
#24294
Fire/SOUL/CD
félisten
Wyll
#24293
Ez egy teljesen új kép... Annak jobban örültem volna, ha a korábbi állapotban(amiről a korábbi képet beraktad) készült névjegyzéket láttam volna, mert itt az újnál már aosz sincs stb...
Maradva akkor ennél az új állapotnál, ha elmented a táblázatot, majd (biztos, ami biztos) nyomsz egy F9-t, azt követően a makró nem írhatja ki az $A$1-t, hanem az $A$7-t, mint a proba tartomány címét.
(Amúgy itt már helyes a címzés, mert az F7 cellában valóban a próba tartomány (ami az A7) értéke jelenik meg, nem mint korábban) -
#24293
Wyll
őstag
Fire/SOUL/CD
#24292
Wyll
őstag
válasz
Fire/SOUL/CD
#24292
üzenetére
De nincs semmilyen átfedés:
Itt ugyanúgy $A$1 lesz a végeredmény....
-
#24292
Fire/SOUL/CD
félisten
Wyll
#24291
Biztosan nem így van (max így gondolod, hogy kellene lennie) mert a makród MsgBox Range("aosz").Address egyértelműen az A1 cella címét adja meg, mint aosz néven elnevezett tartomány címét. Szóval ebből kell kiindulni.
Ehhez ellenőrizd a tartományokat és elnevezésüket, Képletek/Névkezelő segítségével. 1 tartományt ha többször próbáltál más névvel ellátni(lehet, csak figyelmetlenségből stb), akkor 1 tartományhoz több cím is tartozik és mindig a legutolsó az érvényes(bizonyos műveleteknél), pl legyártottam most direkt egy hibás megközelítés: [link]. Értelem szerűen csak 1 elnevezése lehet 1 tartománynak egyébként keveredés lesz. (Lehet 1 tartománynak több neve is, csak akkor a programozónak szándékosan kell ezt kiviteleznie, és tudnia, hogy ő maga hozott létre több nevet 1 tartományhoz) -
#24291
Wyll
őstag
Fire/SOUL/CD
#24290
Wyll
őstag
válasz
Fire/SOUL/CD
#24290
üzenetére
Csakhogy nem neveztem el sem A1-et, sem $A$1-et semminek.
$A$3-at elneveztem aoszlop-nak, ez van a C3:D10-ben,
és $A3-at pedig elneveztem az E3-on állva(!) aosz-nak, ez van az E3:F10-ben.
Látszik, hogy mindkettő működik a cellákban.Viszont a vba kódot ActiveCell.Address = C7 mellett futtatva $A7-et kellett volna hogy kapjak.
-
#24290
Fire/SOUL/CD
félisten
Wyll
#24287
-
Wyll
őstag
válasz
Fferi50
#24288
üzenetére
Az, hogy aosz egy relatív (részben $ nélküli) cellahivatkozás. (A oszlop azonos sorban lévő cellája.)
És cellákban használva jól működik, ahogy az látható is,
viszont VBA-ból szemmel láthatóan más címre oldódik fel, mint a worksheet celláiban. $A7-et kellett volna kapni végeredményül $A$1 helyett.De mondd, hogy elnézek valamit
-
#24286
Wyll
őstag
LordVader80
#24284
Wyll
őstag
válasz
LordVader80
#24284
üzenetére
Pont így gondoltam én is! Örülök, hogy sikerült!
-
#24285
Mutt
senior tag
LordVader80
#24269
Mutt
senior tag
válasz
LordVader80
#24269
üzenetére
Felteteles formazasban a fuggveny =párose(A1/4)
-
#24284
LordVader80
őstag
Wyll
#24283
LordVader80
őstag
Közben felhasználtam az általad javasoltat, és szuperül működik.
Annyit módosítottam, hogy negyedéves ciklust kell nézni, ezért a nyolcból 6, a 4-ből pedig 3 lett. A másik színt, hogy azt is én határozzam meg, ugyanazzal a képlettel, de ellentétes relációval, plusz mellé egy egyenlőség jellel oldottam meg.
=MARADÉK(T23;6)>=3 ez lett az egyik szín
=MARADÉK(T23;6)<3 ez lett a másik színSzuperül működik, köszönöm még egyszer
-
#24280
LordVader80
őstag
Wyll
#24275
LordVader80
őstag
öÖö ezt most hirtelen nem látom át, pláne miután bevittem az 50 feltételt
hogy működik ez?egyébként ha a háttér is érdekel: adott 4 havi munkaidőkeret, amit a belépés napjától kell megjeleníteni.
A sorok a jövő évi naptári napok egymás alatt, az értékek képlettel kerekítve az az érték, ahány hónapja itt dolgozik az illető, és ehhez kell, hogy 4 havonként lássuk (a belépés dátumához igazodva, ami változhat, ha valaki kilép és új kerül a táblába a helyére), mikor telik le az aktuális munkaidőkeret. -
Wyll
őstag
válasz
Delila_1
#24276
üzenetére
[link]: "Természetesen elég két szín összesen, csak egymás után négyesével különüljenek el."
Természetesen lehetséges hogy létre kell hozni még egy - komplementer - feltételt is az előbb említett módon, ha nem jó az alap fehér:
=MARADÉK(V17;8)>=4Bár elkülönülni enélkül is elkülönül.
megj: Amióta a neveknél felfedeztem, hogy milyen oltári szuper, hogy lehetnek relatívak, azóta már mindenre ezt gondolom, és lám, tényleg
-
Wyll
őstag
válasz
Delila_1
#24273
üzenetére
Mégis meg lehet csinálni egyetlen szabállyal!!!!!!!!
Egy cellára megcsinálod a szabályt, figyelve hogy az önhivatkozás relaítv legyen (tehát $-ek nélkül), leokézod, majd a formátummásolóval továbbviszed a többi cellára is.
Ahogy te is mondod, a formázáskezelő a bal felsőre vonatkozót fogja mutatni, de mégis működik:
Elnézést, a sorok számai lemaradtak, az 1-es a 17-esben van, az alsó 16-os pedig a 32-esben.
Meg még dupla is lett. -
Delila_1
veterán
2007-től elég lükén oldották meg. Kijelölöd a formázandó tartományt, ez lesz az érvényesség címe.
Megadod a formátumot. Ezután ha az érvényességen belüli cellán állva behívod a feltételes formázást, azt a képletet mutatja, ami az érvényesség bal felső cellájára vonatkozik.Régebbi verzióban még az adott (aktív) cellára vonatkoztatott képletet látod.
-
Wyll
őstag
válasz
Delila_1
#24268
üzenetére
Én meg ezen gondolkozom itt nagy erőkkel, hogy vajon a feltételes formázás hogyan lesz relatív a létrehozás helyéhez?!
Vagy miért csak a cellaértéken tud alapulni, miért nem tud a cellaértékre alkalmazott függvény eredményén alapulni?A feltételt már ki is találtam: =MARADÉK(<önmaga>;8)<4
(cella értékének 8-cal vett maradéka kisebb négynél)LordVader: nem fogalmaztál rosszul, én már elsőre is értettem
-
#24271
m.zmrzlina
senior tag
LordVader80
#24267
m.zmrzlina
senior tag
válasz
LordVader80
#24267
üzenetére
Akkor szerintem nem úszod meg.
Feltételes formázás >Cellakijelölési szabályok>Két érték között
Itt megadod a határértékeket és a határokhoz tartozó stílusokat.
-
#24270
Delila_1
veterán
LordVader80
#24269
Delila_1
veterán
válasz
LordVader80
#24269
üzenetére
Szívesen.
Gyorsan megy a másolásos módszerrel, egy-kettőre bevittem 10 feltételt. -
#24268
Delila_1
veterán
LordVader80
#24264
Delila_1
veterán
válasz
LordVader80
#24264
üzenetére
Rossz hírem van, egyenként kell bevinned az 50 formátumot. Könnyebbség, hogy beírod az elsőt, Ctrl+c-vel másolod a képletet, ezután fogadtatod el a formátumot.
Új szabály, a képletet bemásolod Ctrl+v-vel, átírod a 2 számot, és mehet tovább.
-
#24267
LordVader80
őstag
m.zmrzlina
#24265
LordVader80
őstag
válasz
m.zmrzlina
#24265
üzenetére
Rosszul fogalmaztam, pont a cellaértékre kell, hogy figyeljen, ami változhat. A számok pedig nem soronként növekednek, hanem pl:
1
1
1
2
3
3
4
4
és így tovább. A számok képletekkel jönnek. Az 1-3 számokhoz szeretnék egy színt rendelni, a 4-7-ig egy másikat, és így tovább egészen 197-200-ig. Csak lusta vagyok ennyi feltételes formázást bevinni, meg nem is tudom, 50-et lehet-e egy cellára. -
#24265
m.zmrzlina
senior tag
LordVader80
#24264
m.zmrzlina
senior tag
válasz
LordVader80
#24264
üzenetére
Ha folyamatos a táblázatod (egyenként növekednek a számok) ahogy a kérdésben írod akkor nem kell feltételes formázással bajlódnod.
Formázás táblázatként>Új táblázatstílus előhozza a képen lévő ablakot és itt beállíthatod a kívánt stílust.
Az első és második sorsávnál 4-re állítod a sávméretet a formátumnál megadod a színt.Aztán kijelölöd a táblázatodat majd Formázás táblázatként és a legfelső sorban az Egyéni közt ott lesz az előbb létrehozott stílusod.
Ez a megoldás nem lesz tekintettel a cellaértékekre mint a feltételes formázás.
-
#24264
LordVader80
őstag
LordVader80
őstag
Sziasztok!
Hogyan tudom feltételesen formázni egy oszlop celláit, aminek értékei számok, növekvő sorrendben: a 0-3 közötti számokat szeretném egyfajta színre festeni, míg a 4-7-ig a következőre, és így tovább, négyesével. Természetesen elég két szín összesen, csak egymás után négyesével különüljenek el.
1-3 kék
4-7 zöld
8-11 kék
12-15 zöld
16-19 kékstb stb...
-
zhari
csendes tag
-
katsi
tag
Sziasztok!
Van egy Excel táblám, segítséget szeretnék kérni rendezésben:
- a tábla első oszlopa egyedi azonosítókat tartalmaz
- a tábla többi oszlopa egyéb adatokat tartalmaz (név, telefonszám, stb)Most jön a trükk:
- az egész tábla elé beszúrtam egy olyan oszlopot, ami szintén tartalmazza az egyedi azonosítókat, DE egy saját sorrend szerint, ami nem növekvő, csökkenő, hanem egyedi.Lehetséges úgy rendezni a táblát, hogy az Excel összerendelje az első oszlophoz tartozó ugyanolyan, második oszlophoz tartozó értékeket?
Példa:
1. 2. 3.
ID2, ID3, Béla
ID5, ID2, Józsi
ID3, ID5, DávidEbből lenne:
ID2, ID2, Józsi
ID5, ID5, Dávid
ID3, ID3, BélaTehát az első oszlop szerinti egyedi sorrendben rendezné, az lenne a mérvadó.
Hálásan köszönöm előre is, ha van rá módszer! -
Delila_1
veterán
Makróval gyorsan előállítható.
Sub Periodusok()
Dim sor As Long, sor1 As Long
Munka1.Select
For sor = 1 To Application.WorksheetFunction.CountA(Munka1.Columns(1))
For sor1 = 1 To Application.WorksheetFunction.CountA(Munka2.Columns(1))
If Cells(sor, "A") >= Munka2.Cells(sor1, "A") And Cells(sor, "A") <= Munka2.Cells(sor1, "B") Then
Cells(sor, Cells(sor, Columns.Count).End(xlToLeft).Column + 1) = Munka2.Cells(sor1, "C")
End If
Next
Next
End Sub -
Wyll
őstag
A Munka1-be beszúrnék legfelülre egy új üres sort, és ide a B, C, D stb oszlopokba beírnám rendre az 1, 2, 3 stb számokat annak megfelelően, hogy hány periódus van. Így kialakulna egy olyan táblázat, aminek a baloldalán a keresett dátum található, a tetején meg a keresett periódus (Munka2-beli) sora. A többit a vizsgálófüggvény teszi hozzá, a következőképpen:
A táblázat B2 cellájába a következő függvényt írnám:
=HA(ÉS(INDIREKT("Munka2!A"&B$1)<=$A2;$A2<=INDIREKT("Munka2!B"&B$1));INDIREKT("Munka2!C"&B$1);"")
És ezt kitolnám a teljes táblázatra. Így szépen fel lesz írva egy dátum mellé, hogy mely periódusokba esik bele.
Tehát így:
Ez a megoldás viszont nem igazodik automatikusan a periódusok számához.
-
zhari
csendes tag
Ha a munka1 munkalap A oszlopán vannak az adott dátumok, a munka2 munkalap A oszlopán periódus kezdő, B oszlopán a periódus záró dátumai C oszlopán a periódusok nevei. Ha a periódusok fedhetik egymást és egy dátum több periódusban is szerepelhet, hogy gyűjtenétek össze, hogy egyes munka1 A oszlop dátumai mely periódusokba esnek bele. Hozzászólásokat előre köszönöm.
-
#24248
m.zmrzlina
senior tag
ritterkrisz
#24247
m.zmrzlina
senior tag
válasz
ritterkrisz
#24247
üzenetére
Grat...
-
#24247
ritterkrisz
tag
ritterkrisz
tag
Siker
-
#24246
m.zmrzlina
senior tag
ritterkrisz
#24245
m.zmrzlina
senior tag
válasz
ritterkrisz
#24245
üzenetére
A válaszomban a képen a szerkesztőlécen lévő mintát kövesd:
=A3&" "&B3&" "&.....stb stb
Az idézőjelek közötti szóközöket fogja beilleszteni a cellaértékek közé.
-
ritterkrisz
tag
válasz
m.zmrzlina
#24243
üzenetére
Annyi probléma merült még fel, hogy ezt a szöveget egybe fűzi. Nem lehet beállítani, hogy az összefűzött cellák között maradjon szóköz?
-
#24243
m.zmrzlina
senior tag
ritterkrisz
#24241
m.zmrzlina
senior tag
válasz
ritterkrisz
#24241
üzenetére
Próbáld az ÖSSZEFŰZ() fv-t (angolban CONCATENATE())
Vagy egyszerűen a & karaktert
Ha ettől bonyolultabb a dolog akkor adj egy kicsit több részletet!
-
#24242
Wyll
őstag
ritterkrisz
#24241
Wyll
őstag
válasz
ritterkrisz
#24241
üzenetére
ÖSSZEFŰZ() függvény, vagy az ezzel egyenértékű & operátor.
-
#24241
ritterkrisz
tag
ritterkrisz
tag
Sziasztok!
Létezik valamilyen módszer arra, hogy több cella tartalmát betudom másolni egy cellába és mindezt tömegesen??
-
Fferi50
Topikgazda
válasz
tgumis
#24237
üzenetére
Szia!
Biztos, hogy számok vannak abban az oszlopban mindenütt, ahol a <>0 kritériummal szeretnél szűrni? Próbáld ki a szűrést "kézzel" a menüből, akkor kiderül a turpisság.
Mert egyébként nálam szépen szűri a számokat azzal a feltétellel is.Ha másolni akarsz, egyszerübb a
range("AY2:BD" & usor).specialcells(xlcelltypevisible).copy range.akármi
ahol az akármi helyébe írod a másolás célértékét. A szűrés után a látszó cellákat ezzel a módszerrel másolhatod át.
Nem kell a select....Sokszor hibát is okoz.Üdv.
-
tgumis
tag
sziasztok tudtok segíteni?
Selection.AutoFilter Field:=4, Criteria1:=">0"
usor = Range("AY2").End(xlDown).Row
Range("AY2:BD" & usor).Select
Selection.Copynem tudom megoldani hogy a nem 0 értékeket szűrje mert ha a criteia-hoz <>0 írok akkor nem csinál semmit hanem az egész tartományt kijelöli viszont a >0 val az a baj hogy vannak negatív értékek is. és azt nem hozza.
ötlet? mit lehet tenni, hogy a nem nulla értékeket szűrje -
Wyll
őstag
Először is nagyon köszönöm az eddigi segítséget, ami itt kaptam, főleg Delila-tól és Fferi-től, sokat segítettetek!
Most újabb kérdésem volna, vajon miért dob hibát erre a soromra:
y = Range("rel_ev")
y az egy Long, rel_ev pedig egy név, mégpedig relatív:
=ÉV(Munka1!$G19)G19-ben pedig egy dátum van. Azazhogy minden sor G oszlopában egy dátum van.
-
#24233
lacy86
addikt
m.zmrzlina
#24232
lacy86
addikt
válasz
m.zmrzlina
#24232
üzenetére
Bazz ....
Koszonom szepen!
-
lacy86
addikt
Sziasztok!
Segitseget szeretnek kerni!
Jovoevi szabi riportot szeretnek csinalni es egyszeruen nem tudok rajonni milyen fuggvennyel csinaljam meg!
Az eves szabibol vonja ki azokat amiket en beirok. ( ahogy a kepen is latszik )( Szegyellem magam mert 5 evig tanultam az excelt de annyira regen hasznaltam hogy nem jut eszembe
)Elore is koszonom a segitseget!
-
#24229
tgumis
tag
m.zmrzlina
#24224
tgumis
tag
válasz
m.zmrzlina
#24224
üzenetére
Hálás köszönet èrte. Majd ha asztali gép közelébe jutok lepróbálom. Mégegyszer köszi.
-
#24228
Delila_1
veterán
Axe Miskolc
#24227
Delila_1
veterán
válasz
Axe Miskolc
#24227
üzenetére
Szívesen.
Annyi kiegészítés hozzá, hogy addig másolja a képletet, ameddig a mellette lévő oszlopban bármilyen adatot (akár képletet) talál. Foghíjas oszlop mellett az első üres cella fölötti sorig másol.
-
#24226
m.zmrzlina
senior tag
m.zmrzlina
#24225
m.zmrzlina
senior tag
válasz
m.zmrzlina
#24225
üzenetére
Úgy látszik már késő van (vagy már korán)
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)Helyesen:
Vagy minden eredmeny-t átírsz a munkalapod nevére vagy csak az idézőjelben lévőt.
Vagy csinálsz egy eredmeny nevű munkalapot és hagyod az egész makrót a fenébe úgy ahogy van. -
#24225
m.zmrzlina
senior tag
m.zmrzlina
#24224
m.zmrzlina
senior tag
válasz
m.zmrzlina
#24224
üzenetére
Na szóval:Itt is kijavítod az "eredmeny"-t a munkalap nevére és ha nem az A:D tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb) -
#24224
m.zmrzlina
senior tag
tgumis
#24223
m.zmrzlina
senior tag
válasz
tgumis
#24223
üzenetére
Ennél a sornál az idézőjelbe annak a munkalapnak a nevét írod amelyikre az eredményt másolni szeretnéd.
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")Itt is kijavítod az eredmeny-t a munkalap nevére és ha nem az A
tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)Option Base 1
Sub nagyobbnulla()
Dim tomb()
ReDim tomb(4, 1)
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
j = 1
For Each ws In Worksheets
For Each cella In ws.Range("AO1:AO49")
If cella.Value > 0 Then
For i = 1 To 4
tomb(i, j) = ws.Cells(cella.Row, cella.Column - (4 - i)).Value
Next
ReDim Preserve tomb(4, j + 1)
j = j + 1
End If
Next
Next
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)
End Sub -
tgumis
tag
Sziasztok
Segítsetek! Meg lehet azt oldani makróval,hogy:
Adott egy x(pl: 60 munkalapból àlló munkafüzet
Meg kellene oldani, hogy az összes munkalapon a AL1:AO49 tartományban az utolsó oszlop 0nàl nagyobb ra szűr majd a szűrt erednényt màsol majd egy tetszőleges munkalapra beilleszti (irányított) csak értéket. De ezt kérdès nélkül a munkafüzet összes lapjára tegye meg -
#24222
Delila_1
veterán
Axe Miskolc
#24221
Delila_1
veterán
válasz
Axe Miskolc
#24221
üzenetére
A képletet tartalmazó cella jobb alján lévő kis fekete négyzetre duplán kattintasz, és kész.
-
#24221
Axe Miskolc
tag
Axe Miskolc
tag
Üdv!
Excel 2010-ben hogyan lehet egész oszlopra érvényes képletet a leggyorsabban beírni?
Új nagyker táblázat jön(gyakran) és a szorzásokat eddig lehúzással másoltam át,de már nagyon unom,nagy a termékszám,hosszadalmas (pl.: C1=A1*X, a megoldás után a C55000 is be legyen szorozva X-el).
Lehet,hogy ez banális kérdés de nem leltem barátra a googleben erre -
Delila_1
veterán
válasz
géeles
#24217
üzenetére
Lapfülön jobb klikk, Kód megjelenítése.
Már ott is vagy, ahol kell. Bal oldalon látszanak a lapjaid, és az van kijelölve, amelyikhez a makrót akarod rendelni. Jobb oldalon szép nagy üres lap, oda másold be a 3 sort, amit írtam.
Nyomás vissza az Excelbe. Duplaklikk egy cellán, ott az aktuális idő. -
kopogo
tag
azt
szeretném, hogy amikor egy cellában létrehozok egy egyéni számformátumot,
abban legyen felsőindexben a mértékegység megfelelő része.
Addig megvan, hogy Formátum/Cellák.../Szám/Egyéni... Itt beírom, Hogy
0"cm2", no ebből hogy lesz "négyzetcentiméter"?köszönöm
Illetve hogyan lehet cellába 0 írni amivel tudok számolni
-
-
Fferi50
Topikgazda
válasz
RootRulez
#24202
üzenetére
Szia!
Ha már C241 van a végén, akkor az elején is annak kellene lennie az A1 helyén!
De miért nem használod a KEREKÍTÉS függvényt, az kapásból jól kerekít le és fel:
=KEREKÍTÉS(C241*1,2;-2)-10
Ha pedig 30-tól szeretnél már felfelé kerekíteni, akkor
=KEREKÍTÉS(C241*1,2+30;-2)-10
Üdv.
)
Ez egy teljesen új kép... Annak jobban örültem volna, ha a korábbi állapotban(amiről a korábbi képet beraktad) készült névjegyzéket láttam volna, mert itt az újnál már aosz sincs stb...
Na szóval:
Új hozzászólás Aktív témák
Hirdetés
- bitpork: Augusztus 2- szombat jelen állás szerint.
- Sorozatok
- Napelem
- Hobby elektronika
- Ízléses, masszív és praktikus mikrotorony jött a Jonsbo műhelyéből
- Tőzsde és gazdaság
- eMAG vélemények - tapasztalatok
- BestBuy topik
- Hővezető paszták
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- Bomba ár! Dell Latitude E6420 - i5-2GEN I 4GB I 250GB I HDMI I 14" HD I W10 I Gari!
- BESZÁMÍTÁS! Asus Prime A320M R5 1600 16GB DDR4 512GB SSD GTX 1050 Ti 4GB Rampage SHIVA TT 500W
- Telefon felvásárlás!! Xiaomi Redmi Note 12, Xiaomi Redmi Note 12 Pro, Xiaomi Redmi Note 12 Pro+
- BESZÁMÍTÁS! SAPPHIRE VEGA 64 8GB HBM2 videokártya garanciával hibátlan működéssel
- Laptop felvásárlás , egy darab, több darab, új , használt ! Korrekt áron !
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged