-
Fototrend
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
-
paolinho
őstag
válasz
Delila_1
#44483
üzenetére
Bocsi, de ehhez kapcsolódóan lenne még egy kérdésem.
Ha nekem az Induló, és a Záró fogyasztás eredménye megjelenik egy külön cellában, akkor írhatnám azt a képletet is akár, hogy =E*600? Vagy ez így nem működne? Nem akarom a jót abajgatni, ezért inkább megkérdezem, hogy létezik ilyen művelet is szimplán?
-
paolinho
őstag
-
-
bela85
aktív tag
válasz
Delila_1
#44349
üzenetére
Oké! Szuper! Köszönöm!!
De amit nem látok ebben, és a saját makrórögzítővel készített kódban igen, hogy nekem fontos, hogy a munka1 lapon a B3 cellában levő adatot mindig törölje és irányított beillesztés értékkel tegye oda a munka2 lapról az adatot.
Hiába egyszer neki kéne állnom tényleg megtanulni ezt a makró programozást, mert sokszor hasznát venném.
-
Sprite75
tag
válasz
Delila_1
#44343
üzenetére
Az új sor makró van modolba, a sorszámozós amit írtál az pedig a 2020 nevű lapon.
Így kellene lennie?Ha futtatom az új sor makrót akkor kapom ezt a hibát.
De csak abban az esetben ha a sorszámozósban a Target <> "" az egyik feltétel, ha ezt elhagyom akkor nincs ez a hiba.
Viszont működésileg jó lenne ha benne lenne a Target <> "" feltétel, mert ugye ha ez nincs benne akkor bármi kerül a Q uszlop valamelyik sorába (akár véletlenül egy betű szám helyett vagy egy Del gomb) már le is fut a sorszámozás, és ha ezt nem veszi észre aki majd használja akkor a sorzámok nem lesznek megfelelőek.Mivel én még mindíg nem vágom enniyre ezt a makró témát ezért fogalmam sincs, hogy miért van ez a hiba az új sor makró futtatásakor, de ezekre rájöttem amit fentebb írtam
Majdnem biztos vagyok benne, hogy az új sor makró sem tökéletes mert azt is én alakítottam ilyenre egy másik táblázatból kiszedve.
üdv
Gabi -
Fferi50
Topikgazda
válasz
Delila_1
#44334
üzenetére
Szia!
Hát, tapasztalataim szerint a dátum kezelése - legalábbis a magyar verzióban - nem erőssége az Excelnek sajnos. Persze belejátszik ebbe bizonyára az is, hogy az a fránya cella pont úgy néz ki, mintha dátum lenne, aztán pedig eszében sincs annak lenni.... De tény, hogy szűrőknél, feltételeknél hogy úgymondjam, roppantul észnél kell lenni dátumok esetében.
:-(
Üdv.
(Ps. vagy csak én nem tudom kezelni azokat rendesen.... ) -
Sprite75
tag
válasz
Delila_1
#44322
üzenetére
Az And Target <> "" feltételt átírtam erre IsNumeric(Target) mert hibaüzenetet dobott amikor elíndítottam az Újsor makrót.
Az új sor makró ez:
Sub Újsor()Dim usor As Longusor = Range("C" & Rows.Count).End(xlUp).RowActiveSheet.Unprotect Password:="baromfi"Rows(usor).SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=TrueRange("A" & usor).SelectEnd SubÍgy hibaüzenet nincs.
Viszont a Q oszlopba beállítottam érvényesítést, hogy csak számot írhassanak bele, de ha mégis betűt írok véletlenül és jön a hibaüzenet az érvényesítés miatt akkor lefut a sorszámozás.
Ez ki lehet valahogy küszöbölni?Tudod a "bolond boztonság" miatt
-
Sprite75
tag
válasz
Delila_1
#44317
üzenetére
Szia
Ez így működik is köszönöm, de tovább gondoltam a dolgot.
Tudom ott kezdődik a probléma mikor gondolkodomCsak azoknak a soroknak a D oszlopába kell sorszámozni, ahol a Q oszlopban van szám. Elvileg az lehet 0 is de mindenképpen van írva valami a Q oszlopba amikor a D -be soszám szükséges.
Ezért írtam egy ilyet de természetesen nem jól működik Sub Sorszam2()Dim usorC As Long, usorQ As IntegerusorC = Range("C" & Rows.Count).End(xlUp).Row - 1usorQ = Range("Q" & Rows.Count).End(xlUp).Row - 1If usorQ < 0 ThenEndElseRange("D" & usorC) = Application.WorksheetFunction.Max(Range("D2:D" & usorC - 1)) + 1End IfEnd Sub
Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába.
Ha nem írnak semmit az adatbevitelkor a Q oszlopba akkor pedig nem kell új sorszám.Remélem nem bonyolítom a dolgot nagyon
Megint küldök egy képet is a kinézetről.
[kép] -
-
Fecdzo
senior tag
válasz
Delila_1
#44136
üzenetére
Köszi a makrót!
Időközben találtam egy olyan megoldást is, hogy a munkalapoktól balra van egy balra és egy jobbra mutató léptetőnyíl (amivel egyesével lépegethetünk a munkalapok között). Ha a két nyíl között nyomunk egy jobb klikket akkor felugrik egy ablak, ahol kiválaszthatók az egyes munkalapok és rákattintva odaugrik.
Köszi a segítséget!
-
HREH
senior tag
válasz
Delila_1
#44082
üzenetére
Milyen 1-2 hétről beszélsz? Tegnap reggel írtam ki a kérdést, az nálam nagyon nem 1-2 hét, de semmi gond.
Ebben a topikban mindig mindenki örömmel segített (köztük te is), nem értem mi a gondod... Elnézést, hogy pontosítottam a kérdésem.
Mindegy, akkor beszínezem manuálisan. -
HREH
senior tag
válasz
Delila_1
#44057
üzenetére
D-re emlékeztem, de a B a helyes, gondolom elég csak a makróban a 4-eseket 2-esekre cserélni.
A B-be egy szám kerül (a feladat azonosítója), a G-H-I oszlop pedig 3 részfeladatot ír le, a megfelelő cellát színezem/üresen hagyom, annak függvényében, hogy elkezdtem-e az adott részfeladatot csinálni/kész vagyok-e az adott részfeladattal. (üres - nem kezdtem el, narancs - elkezdtem, de még nincs kész, zöld - teljesen kész).
Eddig a számot írtam be először , de ha Neked úgy könnyebb, akkor írhatom a színeket is először.
Itt a példa, hogy hogy néz ki az xls - a nem nyilvános részek kitakarva, de a lényeg látszik.@(#44064) Mutt: köszi, megnézem ezt a megoldást is
ezt hogyan kell használni (nem láttam még ilyen megoldást)? -
HREH
senior tag
válasz
Delila_1
#44054
üzenetére
Köszönöm!
A D oszlopban D3-tól lefelé kezdve fixen mindig egy nyolcjegyű szám van. Üres cella csak addig van, ameddig én kézzel nem írom bele a nyolcjegyű számot.Laphoz lehet rendelni, mint az első példában, vagy csak modulhoz? (van 4-5 munkalap, de csak az egyikre kell ez)
-
HREH
senior tag
válasz
Delila_1
#44051
üzenetére
Összecseréltem a számozást, itt egy példa, hogy mire gondolok.
Tehát ha a G3/H3/I3 cellák mindegyike ki van töltve zölddel, akkor a D3 is legyen zölddel kitöltve, minden más esetben (tehát ha az egyik, vagy akár több cella is nem zölddel van kitöltve vagy egyáltalán nincs kitöltve, akkor pedig narancssárgával.)
Lényeg az lenne, hogy a D3-tól lefelé legyen érvényes a dolog, tehát a D4 akkor legyen zöld, ha a G4/H4/I4-re teljesül ugyanez, a D5 akkor, ha a G5/H5/I5 és így tovább, az egész munkalapon.
Adat csak a D oszlopban lévő cellákban lesz (egyszerű szöveg), a G/H/I oszlopokban nem.
Az első 2 sorra pedig ne vonatkozon (D1 ill. D2 cellák). -
HREH
senior tag
válasz
Delila_1
#44049
üzenetére
Máskor is így szoktam, sosem volt még gond belőle...
De akkor leírom pontosan: az első két sor kivételével, azaz a harmadik sortól kezdve minden sorban töltse ki a C4/D4/E4 stb... cellát zölddel, ha a C8+C9+C10/D8+D9+D10/E8+E9+E10 stb... cellák mindegyike ki van töltve zölddel, ha bármelyik nincs, akkor narancssárgával.
Köszi! -
HREH
senior tag
válasz
Delila_1
#44041
üzenetére
Köszi, a második megoldás jól működött.
Ki lehet egészíteni úgy, hogy a táblázat összes sorára működjön (B4 is legyen kitöltve, ha a B1+B2+B3 is kitöltött), de csak pl. a 3. sortól kezdődően? Az első 2 sor másra lenne használva, a 3. sortól kezdődően lenne mindenhol ugyanolyan formátumú a táblázat felépítése. -
p5quser
tag
válasz
Delila_1
#43917
üzenetére
Köszönöm, a végén így néz ki. A címkét azért raktam oda előzőleg, mert azt hittem így könnyebb lesz megmutatni a módosító scriptnek hogy mit keressen. De okafogyottá vált.(#43919) Fferi50
Van erről valami irodalom? Nem baj ha angol. Néha jól jött volna, függetlenül a jelen helyzettől. Ugyan mindig sikerült megkerülni a problémát, de biztos gyorsabb lehet "röptében" átírni a scriptet. (bár ezt így leírva, világos lett az árnyoldala is)
Neked is köszönöm a választ! -
-
p5quser
tag
válasz
Delila_1
#43911
üzenetére
Igen, bocsi, pongyolán fogalmaztam. Szóval hogy egy eme modulon kívűli comboboxban határoznám meg ezt képletet. Ha áfás megjelenítés kell, akkor módosítja ezt (és csak ezt) a sort.
Lehet ezt így, egyátalán? Bele lehet írni egy makróval egy másik modul, másik makrójának egy sorába? Vagy lemódosítani egy adott, cimkével jelölt sort?
Köszönöm! -
Delila_1
veterán
válasz
Delila_1
#43848
üzenetére
Hopsza! Kimaradt az évenkénti összegző oszlop.
Sub Ev_Elrendezes()
Dim evek As Integer, honapok As Integer, ev As Integer, honap As Integer
Dim kezdoev As Integer, oszlop As Integer
kezdoev = Application.InputBox("Add meg a kezdő évet", "Év bekérése", , , , , , 2)
evek = Year(Date) - kezdoev + 1
oszlop = 1
For ev = 1 To evek
Cells(1, oszlop) = kezdoev
Range(Cells(1, oszlop), Cells(1, oszlop + 11)).HorizontalAlignment = xlCenterAcrossSelection
For honap = 1 To 12
Cells(2, oszlop) = honap
oszlop = oszlop + 1
Next
Cells(1, oszlop) = kezdoev & Chr(10) & "Összesen"
kezdoev = kezdoev + 1
oszlop = oszlop + 1
Next
End Sub -
-
-
chopin42
őstag
válasz
Delila_1
#43811
üzenetére
Szuper, köszönöm! Itt ha jól értem, a A oszloppal kalibrálok. Viszont mi a helyzet akkor, ha tudom az A értékeket, és azt az egyet, ami abból jó, vagy legalább a két végpontot. Ki tudom-e íratni a százalékkülönbségeket? Pl 50 cella, az első 14, az utolsó 0. Ki tudja számolni az arányokat, ami megadja a százalékaimat? (Sajna nagyon kezdő vagyok
) -
Nixon18
senior tag
válasz
Delila_1
#43807
üzenetére
Igen, de akkor változik a bevitt adatok sorrendje is. Ez problémás lehet ha az árajánlatban szereplő tételek termékcsoportonként vannak megadva.
De ha nincs más megoldás, akkor a sum függvény feletti sor mindig üres lesz lezárva és akkor nem gond, ha afölé kell beszúrni a sort.
-
Fferi50
Topikgazda
válasz
Delila_1
#43750
üzenetére
Szia!
Sajnos ez így nem stimmel. Lehet, hogy a formázásban nem okoz galibát, de akkor sem korrekt szerintem. A pont hiánya pedig nem 0. Legalábbis a 2016-os Excelben biztosan nem.
A SZÖVEG.KERES eredménye akkor, ha nem találja a keresett szöveget, ÉRTÉK hiba.
Próbáld ki az ellenkezőjét a formázásban, azaz formázz akkor, ha nem fordul elő benne a pont. A SZÖVEG.KERES(".";A1) értéke soha nem lesz 0. (Sajnos így működik ez a függvény az Excelben.
Ezért gondolom, hogy másként kell a feltételes formázás függvényét megadni.
Üdv. -
bozsozso
őstag
-
BullZeye
veterán
válasz
Delila_1
#43459
üzenetére
Kipróbálom, mert hátha másra jó lesz, de ha jól értem, akkor ez nekem nem lesz jó, vagyis nem egyszerűsít a folyamaton túl sokat
Kiválasztom, hogy narancs, és legördülőbe ott lesz az összes narancshoz köthető megnevezés, amiből csak 1-t tudok kiválasztani, nem?
szerk.: de tényleg inkább megnézem
-
Fferi50
Topikgazda
válasz
Delila_1
#43451
üzenetére
De hol van a bejövő adat és hol a kimutatás? Melyik munkafüzetben és munkalapon? Én úgy értelmeztem, hogy a bejövő adatokat tartalmazó munkafüzetben szeretné az összesítést megcsinálni minden nap. Vagyis minden nap újra kell gyártani....
Vagy még egy ötlet (mert az van ám bőven... ) : az új adatokat másolja be a régiek helyére. Az biztosan menni fog és nem okoz hivatkozási problémákat.
Viszont jó lenne, ha a kérdező is megírná, mire gondolt. -
Fferi50
Topikgazda
válasz
Delila_1
#43448
üzenetére
Igen, szuper, csak akkor valóban kell hozzá a makró, hogy ne kelljen minden nap létrehozni ismételten az új munkafüzetben.
"valahogy át tudom rakni a másnap érkezőbe?"
Nem értem, miért kellene minden nap az új fájlban csinálni az összesítést. De ha így van, akkor mindenképpen makró kell szerintem, a kimutatás létrehozásához is.
Üdv. -
Fferi50
Topikgazda
válasz
Delila_1
#43409
üzenetére
Szia!
Ebben nincs SQL utasítás.
A kérdező QueryTable objektumának a CommandText tulajdonságát kell megváltoztatni. A szerkezetét makrórögzítéssel szerintem valamilyen tulajdonság (pl. a kiválasztás szempontja) megváltoztatásával lehet megkapni.
Régi emlékeimben az élt, hogy a frissítéssel is meg lehet kapni, de ez sajnos nem így volt.
A CommandText-et szépen össze lehet rakni cellákból vagy makróból is.
Üdv. -
#43344
Lasersailing
senior tag
Delila_1
#43343
-
Fferi50
Topikgazda
válasz
Delila_1
#43306
üzenetére
A lapvédelem - amennyiben azt korábban bekapcsoltuk a munkafüzetben - megmarad.
A UserInterfaceOnly lehetővé teszi, hogy másik makróval is írj az adott munkalapra, nem kell minden makróban szerepelnie.
A lap védve marad, ha bezárod és újranyitod a munkafüzetet, de a UserInterfaceOnly beállítás már nem érvényes, ismételten ki kell adni, hogy minden makró használhassa "kedvére" az adott munkalapot. Persze nem kötelező a megnyitáskor beállítani, de a munkalap változtatásra használt makróban benne kell lennie. -
BullZeye
veterán
válasz
Delila_1
#43281
üzenetére
Próbáltam előzőleg, de csak hónapot ír ki a pontos dátum helyett...
Jobb gomb bármelyik dátumra és csoprt bontás.Amúgy mennyiség szerint hogy tudom sorba rendezni? Mert a kimutatás beállításánál nem látok erre opciót, magában a kimutatásban meg az ÖSSZEG/MENNYISÉG nem szűrhető mező csak a "Sorcímkék".
És ez is megvan ez is jobb gomb az értékre.Köszi, haladok!
-
Sesy
aktív tag
válasz
Delila_1
#43231
üzenetére
hát ha nem gond akkor kérdezek tovább:
a korábban cellákra szétbontott adatokat szeretném egy sorba rendezni úgy, hogy az adott érékeket a megfelelő oszlopokba másolom, illetve a különböző sorokban lévő leírásokat egyesítem megadott feltételek szerint (ez minden esetben szerencsére ugyanaz) egy cellába és azt másolom egy megadott oszlopba.
ebben a fájlban mindent részletesen leírtam és a végeredmény is látszik:
csak ez sajnos egyenlőre manuálisan készült, a megfelelő makró nem akar sikerülni
ha segítesz megoldani, kérlek tegyél mellé magyarázatot is, hogy megértsem a miérteket
előre is köszönöm szépen
-
ROBOTER
addikt
válasz
Delila_1
#43204
üzenetére
Egy kérdés még a korábbi ügyhöz kapcsolódóan:
Minden jól működik, de ha új sort szúrok be (nem VBA-ból, hanem simán a lapon), akkor a kód a
If Target.Value = "valami" Thenrésznél Type mismatch hibával leáll. ATarget.Rowaz újonnan beszúrt (üres) sort adja. ATarget.Columnpedig 1-et (mindig). Nekem meg pont az első oszlopban van a vizsgálandó tartalom. Oké, átrakhatom másik oszlopba, de nem túl elegáns. Meg tudom valahogy különböztetni az eseménykezelőben, hogy ez most új sor beszúrása miatt hívódott-e meg, vagy csak sima cellaváltozás miatt? -
ROBOTER
addikt
válasz
Delila_1
#43204
üzenetére
Azt szeretném kérdezni, hogy egy dinamikusan létrehozott új worksheethez hogyan tudom a makrót hozzárendelni? Tehát van egy gombom, megnyomom, létrejön egy új sheet, azt agyba-főbe formázom (eddig jól működik), és a sheethez, és az azon létrehozott gombokhoz szeretnék eseménykezelőket rendelni (Change stb.), runtime.
-
carr
őstag
válasz
Delila_1
#43190
üzenetére
Most már csak számok vannak, de még mindig nem tudom hogyan tudom a sorokat az oszlopokhoz rendelni, ha pl adott az utca, és a hsz. de a hsz. szerint akarom növekvő sorrendbe tenni, akkor ne csak az adott oszlopot rendezze, de vigye magával az összes adott sorhoz tartozó infót?
-
carr
őstag
valamit nagyon ügyesen csináltam...
köszönöm! ;-)
Mentettem, bezártam az excelt és akkor is ez a helyzet. 
Új hozzászólás Aktív témák
Fferi50- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3172
- HIBÁTLAN iPhone 12 Mini 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen,MS3634,94% Akkumulátor
- Azonnali készpénzes Intel i3 i5 i7 i9 12/13/14 gen processzor felvásárlás személyesen / csomagküldés
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő