Hirdetés
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- sziku69: Fűzzük össze a szavakat :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
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
-
#20157
the radish
senior tag
Delila_1
#20136
the radish
senior tag
válasz
Delila_1
#20136
üzenetére
Sub Feltetel()
Dim sor As Long
For sor = 1 To 18
If Cells(sor, "A") = 1 Then Cells(sor, "B").Copy Sheets("MásikLap").Cells(sor, "I")
Next
End SubEzen kéne úgy módosítani, hogy a "MásikLap" A1 cellájába másolódjon minden, nyomtatás és jöhet a következő másolás.
Megoldható ?
Előre is köszi. -
#20131
the radish
senior tag
Delila_1
#20129
the radish
senior tag
válasz
Delila_1
#20129
üzenetére
Hopsz, tényleg egy kicsit pontatlanul fogalmaztam, ráadásul egy konkrét makrót másoltam be, ami nem ide kell, az csak példa.
Tegyük fel:
Ha A1 = 1, akkor a makró a B1 cella tartalmát átmásolja valahova.
Ha A1 = 0, akkor a makró a B1 cella tartalmát nem másolja sehova, hanem
végrehajtódik a következő utasítás, mely:Ha A2 = 1, akkor a makró a B2 cella tartalmát átmásolja valahova (2).
Ha A2 = 0, akkor a makró a B2 cella tartalmát nem másolja sehova, hanem
végrehajtódik a következő utasítás, mely:Ha A3 = 1, akkor a makró a B3 cella tartalmát átmásolja valahova (3).
Ha A3 = 0, akkor a makró a B3 cella tartalmát nem másolja sehova, hanem
végrehajtódik a következő utasítás, mely:ez kb. 18x majd vége.
Még egyszer bocs a pontatlanságért.
-
-
-
wrox
őstag
válasz
Delila_1
#20042
üzenetére
De melyik tartományt jelöljem ki?
Meg akármelyik cella vagy cellák kijelölésénél beírom a képletet, nem marad meg, nem történik semmi.A számaim a C5:I30 tartományban vannak, az 5 szám pedig az O7: O11-ben.
Melyik számtartományokat jelöljem ki? Vagy mindegyik cellára külön külön kell beírni? -
wrox
őstag
válasz
Delila_1
#20040
üzenetére
Köszi, de nem igazán értem.
Azt szeretném, hogy az A1:e21 tartományban szineződjenek a cellák, ha az 5 szám közül valamelyik jelen van.
Egyébként hova kell ezt beírni, amit megadtál? Mert a feltételes formázásnál nem találom, illetve találtam olyat, hogy feltételes formázás>új szabály>formázandó cellák kijelölése képlettel De ha ide beírom, amit adtál, nem történik semmi, meg se marad,ha megnézem újra. Tényleg hülye vagyok hozzá.
-
#20021
the radish
senior tag
Delila_1
#20019
the radish
senior tag
válasz
Delila_1
#20019
üzenetére
Szóval ugye az lenne a kézenfekvő, hogy HA a cellában szerepel a Horváth, akkor legyen pl. 1, ha nem szerepel legyen 0.
Ugye ez működik teljes cellaegyezésnél, de az adott cellában a "Horváth" után még más is szerepel, ami más és más.
A szövegegyezőséget így értettem.
A képlet valamiért nem működik. Megnéznéd?
Köszönöm. -
Mittu88
senior tag
válasz
Delila_1
#19990
üzenetére
Fúúú köszi, végül a BeforeSave-re esett a választásom, jobb lenne, ha még mentés előtt lefutna a dolog.
Még egy olyan kérdésem lenne (bocsánat a mohóságomért), hogy ha van egy vizsgálatom (pl. egyik cella üres-e) és If függvénnyel vizsgálom makróban, akkor csak akkor hajtsa végre a mentést, ha igaz az eredménye (különben ne mentsen).
Eddig így néz ki a dolog:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Igénylő").Range("C8").Value = 0 Then
Worksheets("Igénylő").Range("C8").Activate
MsgBox ("Először add meg a kitöltő nevét!")
End IfEnd Sub
Szerk.: Azt hiszem sikerült. a Cancel-nek kellett True értéket adni, ugye?
-
#19987
WildBoarTeam
senior tag
Delila_1
#19982
WildBoarTeam
senior tag
válasz
Delila_1
#19982
üzenetére
Sajnos ez így nem veszi figyelmebe a típust, ami alapján lenne az összegzés.
A baj ott kezdődik, hogy kaptam a táblát és totál felesleges sorok vannak benne összevont cellákkal, ami miatt rengeteg képet nem működik (Pl, ha két egymást követő sorban ugyanolyan típus van, vagy összevonták a cellákat, vagy a másodikba nem írták bele).
Szóval úgy néz ki, hogy előbb ezt a többszázsoros állományt át kell bogarásznom és megszűntetni minden hátráltató tényezőt...Természetesen köszi, ha sikerült kiszűrtnöm mindent, lehet újra kérdezek.
-
csferke
senior tag
válasz
Delila_1
#19925
üzenetére
Háát, nem pontosan erre gondoltam.
Szeretném ha a makróval ugrálhatnák celláról cellára (c1 -> c2 -> d3 -> m1 -> d6...). Aktívvá tudom tenni a Range("???").Select-el csak nem tudom az adott cellában megállítani a makró futását, hogy adatot írjak be és az Enter-el lépjek tovább a makróban.
Mint ahogyan írtam is, nem szeretnék InputBox vagy valami hasonlót használni, hanem csak simán a cellákba írni -
-
tPedro_
őstag
válasz
Delila_1
#19905
üzenetére
Ez nem teljesen vilagos, pontosabban egyaltalan nem az.
Azt a tablazatot alakitsam tablazatta, ami alapjan a pivot tabla kleszult?
A ctrl+r az a fill right parancs.Megprobalom kicsit reszletesebben elmagyarazni, hatha nem jol irtam:
A "nagy" tablazat elso oszlopa egy ID, a tobbi oszlop pedig az adott bejegyzes ertekei, szamok, nevek, datumok vegyesen, van vagy 20 db.
A kis pivot tablak egy adott ertekre szurnek ra, pl a datum oszlopban (honap/nap) azonos datummal szereplo bejegyzesek darabszama es hasonlok.A nagy tablazatban van mundjuk 300 sor. Ha hozzaadok/elveszek belole akkor kene frissiteni.
Ezt a Change Data Source-szal probalom megoldani (ctrl+a a forras tablan allva), ami bizonyos pivot tablak eseteben mukodik (tenyleg annyi cellat jelol ki a lapon, amiben adatok vannak), masok eseteben viszont kijeloli az egesz lapot lapot ures cellakkal egyutt. -
válasz
Delila_1
#19897
üzenetére
igen, de az akkor lenne jó, ha ugyanarra a cellára alkalmaznék több esetet. mindegy végülis, megoldottam if-fel, jól működik így is.
a másik dolog, amivel gondban vagyok az a dátumok kezelése vba alól. cask az év és a hét száma van meg, ebből kellene 7 cellába legenerálnom az adott héthez tartozó 7 db dátumot, de nem akar sehogysem összejönni, pedig a google is a barátom, de valahogy nem sikerül a dolog
ebben tudna-e valaki segíteni?
leginkább a szokásos yyyy.mm.dd. formátumban kellene a dolog.
-
#19868
Dark Archon
addikt
Delila_1
#19866
válasz
Delila_1
#19866
üzenetére
Ez egy távközlési mérés feladat, nem nézhet ki máshogy a grafikon, pont ilyennek kell lennie. Valamennyire sikerült megcsinálni, ami elfogadható. Az értékeket nem lehet átírni? Pl. az 1,00E-2 helyére szöveg kellene. Jó volna, ha a vízszintes tengely 128-ról indulna és 128,3-ig tartana, de azt csak pont (x,y) grafikon esetén sikerült beállítanom, itt már nem engedi.
-
bulanjoe
tag
válasz
Delila_1
#19843
üzenetére
Köszönöm szépen! Így már megy!
=ÓRA(A1)+PERCEK(A1)/60
Örök hálaMiután kiagyalom a legbonyolultabb függvényeket, mindig kiderül, hogy van rá már egy megírt függvény. Láttad volna a tegnap mennyit agyaltam, hogy egy dátum alapján kiszámolja nekem egy hét számát egy adott(nem naptári évben) mire rájöttem, hogy van olyan hogy HÉT.SZÁMA()
-
Beri
addikt
válasz
Delila_1
#19833
üzenetére
Amikor azt írtam, hogy "Szerencsére a VBS azt csinálja, amit elmagyaráz neki az ember, tehát már nem kell pivot-izélnem.", azt úgy értettem, hogy már kész van, működik. Csak azért kíváncsiskodtam, mert én ezt egy nem túl bonyolult feladatnak hittem alapból, excel-ül, tekintve, hogy egy oszlopban csodálatosan lehet számoltatni.
Azért az súlyos, hogy a magyar verzióban nem csak a képletek neve lett lefordítva... nem megy a fejembe, hogy ez mért jó. Oké, magyar billentyűzettel máshogy kell pontosvesszőt írni, de ez mióta probléma bárkinek, aki eljut addig, hogy kézzel akar beírni egy ilyet mindenestül?
-
Beri
addikt
válasz
Delila_1
#19825
üzenetére
Tudod, nekem ez az egész még mindig olyan, mint a zsiráf. Szép, szép, de otthonra nem kéne. Szerencsére a VBS azt csinálja, amit elmagyaráz neki az ember, tehát már nem kell pivot-izélnem. Köszönöm a supportot, kár is rám ennyi időt pazarolni, amikor ennyire nem vagyok nyitott az új dolgok (hogy majd a májkrémszoft megmondja, hogy fog kinézni a táblám) iránt
Pláne hogy az ofisöl online excel support (vagy help vagy mittomén) vonatkozó article-jeiben a példáknál rendre vessző van pontosvessző helyett (pl. [link] - innen ki is másolgattam ezeket egy az egyben, hogy kipróbáljam, egyáltalán működnek-e, mert nem értettem, mit csinálok rosszul) és ELEVE nem működik a kód.Csak a kíváncsiság hajt, amikor újra megkérdezem, de mégis megoldható lett volna ez excel-ül? Tehát le lehet azt írni egy mezőbe függvényekkel, hogy ha a dátum aktuális hó ÉS azonos sorban a szám mezőben mondjuk 4 van mellette, akkor számláló++?
-
Beri
addikt
válasz
Delila_1
#19816
üzenetére
Nem akarom szétdarabolni az egészet és 3847563845346 új mezőt létrehozni, már így is eléggé favágó a táblám (az épp aktuális hónapot és az az előttit kiíró mezővel, meg a másik táblából átlinkelttel). Amit leírtam, azzal mi a baj?
Most nézem a megoldásod. Ez konkrétan megoldja soronként azt, amit én egyetlen összesítésben szeretnék látni.
-
T.Lacci
csendes tag
válasz
Delila_1
#19757
üzenetére
Bocs, hogy megint alkalmatlankodom, de szeretnék kérdezni tőled valamit. A múltkor segítettél nekem a szorzo makró elkészítésében, ami ugye teljesen jól működik, de.. De nagyon lassan dolgozik és ezzel kapcsolatban lenne kérdésem. Megfigyeltem (persze lehet, hogy nem jól) ,hogy azok a makrók ahol nekem kell kézzel kijelölnöm a műveleti területet, sokkal gyorsabban dolgoznak, mint azok, ahol előre beállított terület van. Tehát amikor a makróm úgy kezdődik, hogy: Dim TER As Range Set TER = Application.InputBox(PROMPT:="JELÖLD KI A TARTOMÁNYT", Type:=8), akkor azok lényegesen hamarabb végeznek, mint pl. amit a szorzo makróban leírtál. Kérdésem az volna, hogy jól látom ezt vagy semmi köze a gyorsaságnak ehhez?
-
-
fila
senior tag
válasz
Delila_1
#19720
üzenetére
Szia!
Meg lehet azt oldani, hogy akkor összesítse csak az adatokat, ha az érték ami a cellákba van egy értéknél nagyobb?
pl.
"B" értékhez tartozó adatok 5,6,7,8,9,10
"C" értékhez tartozó adatok 4,7,8,100,200,300
akkor összesítse a szövegnek megfelelő adatokat, ha az 8 nál több?jelen esetben 19 és 600 legyen az összeg amit kapok?
Köszi előre is.
-
T.Lacci
csendes tag
válasz
Delila_1
#19727
üzenetére
Köszönöm a segítségedet, teljesen tökéletes!!! 2 apró gondom van már csak. Az egyik az, hogy a táblázatomnak szöveges fejléce van ezért ha azt nem cserélem ki egy akármilyen számra, akkor nem működik a Makró. A másik csak annyi hogy az utolsó értékem az 50.000 feletti. Oda jelenleg azt írtam, hogy Case 50001 To 999999. Van erre valami más (mármint a 999999 helyett)? Köszi előre is!
-
T.Lacci
csendes tag
válasz
Delila_1
#19674
üzenetére
Szeretném újra a segítségedet kérni egy újabb megoldandó problémában, :
Egy táblázat egyik oszlopában (mondjuk a D oszlopban) árak vannak. Ezeket az árakat szeretném felszorozni, de eltérő mértékben. Tehát az 1-től 10.000-ig értékeket 1,4-el, a 10.001-től 20.000-ig értékeket 1,3-al, a 20.001-től 30.000-ig értékeket pedig 1,2-vel és így tovább. Tudnál nekem ebben segíteni, hogy ezt hogy tudom végrehajtatni egy makróval? Köszönöm előre is a segítségedet! -
morgusz
csendes tag
válasz
Delila_1
#19695
üzenetére
Helló!
Köszi, majd próbálkozom!
Még egy probléma!
Mitől lehet az, hogy ha egy XLS fájl-t elmentek CSV.-ként, (pontosvesszővel tagolt) akkor az adatot tartalmazó terület alatti üres cellák helyén, -jegyzettömb társításnál- több ezer sor pontosvessző látszik, és a CSV. fájlt használó program hibaüzenetet ad, amíg ki nem törlöm a pontosvesszőket.
Hogy kerülnek oda -az ezek szerint csak látszólag- üres cellák? (Az XLS.-be másolással kerültek be az adatok!?) -
válasz
Delila_1
#19651
üzenetére
igen, de vannak olyan esetek (példában az 5-ös szám), amikor az A oszlop számai mellett érték nem szerepel a B oszlopban. ilyenkor is szeretném, ha maradna egy sor, 5-ös számmal (a példában látható 4 helyett), és így összesen 105 sorom lenne, és vagy van bennük szám vagy nincs.
az jutott eszembe, hogy törlöm az üres sorokat. aztán egymás után összehasonlítom az A oszlop egymást követő értékeit. és amekkora a különbség, annyi sort szúrok be a két érték közé.
pl:
3
6itt (6-3)-1 sor beszúrása szükséges
-
baderoli
tag
válasz
Delila_1
#19576
üzenetére
Sajnos nem jutottam vele előrébb
, az nekem megoldás lenne ha egy új munkafüzetben összesíteném a dolgokat. Odáig eljutottam hogy az összesítő gomb után betallózom a kívánt filet, de utána nem működik a darabteli függvény amit előzőleg írtál ha beírom. Esetleg erre van megoldás? -
#19596
atillaahun
veterán
Delila_1
#19585
atillaahun
veterán
válasz
Delila_1
#19585
üzenetére
Köszönöm.
Gondolom ezt a Parancsgombot az Active-X vezérlők közül kellene kiválasztanom, de ott minden szürke.
Nincs fent az Analysis Toolpak - VBA. Gondolom ez a baja, de sajnos arra meg hibát dob ahogy raknám fel, hogy a fájl nem elérhető/megnyitható, pedig ott virít ahol kell.
Ez van 2010-ben, 2003-ban viszont már egy órája keresem a tetves fejlesztőeszközöket, meg gombokat de sehol sincsenek.
De köszi, akkor nem is küzdök, ha nem lehet. 
Sikerült is 
Mit csináltam rosszul? 
Köszönöm de igy nem tudom használni normálisan.
Új hozzászólás Aktív témák
Fferi50- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 256GB SSD 1TB HDD GTX 1660 SUPER 6GB Zalman T4 Plus 450W
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5600X / RX 7600 / 32GB DDR4 / 1TB M.2 SSD
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 Pro Max 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3722, 100% Akksi
- Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest