Hirdetés
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- One mobilszolgáltatások
- Redmi Note 14 5G - jól sikerült az alapmodell
- Yettel topik
- iPhone topik
- Poco F3 - a mindenes, de nem mindenkinek
- Azonnali mobilos kérdések órája
- Apple Watch
- Minden a BlackBerry telefonokról és rendszerről
- CES 2026: Új autót mutatott be a Sony Honda Mobility
-
Mobilarena
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
-
amaps
csendes tag
válasz
sztanozs
#18118
üzenetére
Szia!
Köszi még egyszer a fáradtságodat!
Ma különben egész nap azon küzdöttem, hogyan tudnám átrakni a képleteidet a saját táblázatomba. Mondanom sem kell, hogy nem ment
Csak kérdezem, hogy azért, mert levédted, vagy maga a megoldás ragaszkodik ennyire az általad gyártott sheethez?
Egyébként egyetlen dolgot szerettem volna módosítani rajta, méghozzá azt, hogy a rendezett lista ne csak kb. 14 sorra vonatkozzon, mert vannak olyan tételek, ahol nyolcvannál is több altétel van. De persze ez sem sikerült
Tehát csak az a kérdésem lényege, hogy levédted a képleteket, vagy én vagyok rettentő béna?Köszi,
amaps -
A_ScHuLcZ
addikt
válasz
sztanozs
#18121
üzenetére
Csak makróval? Sosem használtam még olyat, írni meg pláne nem írtam, nagyon keveset használok excelt. Sok mindent tudok infóból, de az office alkalmazások nem tartoznak ezek közé, alig használom őket.
Nem csak összegzésnél lenne rá szükség, hanem a bevitelnél is. Tehát szépen beviszem az adatokat egy oszlopba, és lent összegzem, de bevitelnél is pp:mm és összegzésnél is pp:mm formátumra lenne szükség, mivel a forrásomban is így vannak feltüntetve. Tehát ha pl be kell vinnem 74 perc 13 mp-et, akkor ne kelljen számolgatnom, hogy az 1:14:13, mert abba rövid úton bele fogok zavarodni, és nem kevés plusz munka. 2010-ban egy ilyen funkciót igazán elhelyezhetett volna az MS az excelben
-
amaps
csendes tag
válasz
sztanozs
#18115
üzenetére
Szia!
Köszi szépen a megoldást!
Már nézem egy ideje, de még nem sikerült rájönnöm, hogyan csináltad
Ami nem is lenne gond, de a Fajta kitöltése nem jó abban az esetben, ha a Termék1-nél díszfa került kiválasztásra, és gondoltam egy merészet, hogy megpróbálom kijavítaniKöszi mégegyszer
amaps -
amaps
csendes tag
válasz
sztanozs
#18109
üzenetére
Gondolkodtam azon, amit mondtál, hogy két szinten túl már makró kell a függvények helyett.
Az biztos, hogy én makrót nem tudok írni, ezért lehet, hogy feladom a tervemet, és inkább megállnék az első két tétel automatikus kiválasztási lehetőségénél.(pl. ha gyümölcs, akkor az alma, meggy és szilva lista jelenjen meg).
A harmadik oszlopot beáldoznám, és lenne helyette mondjuk egy szabad szöveges mező.Üdv,
amaps -
amaps
csendes tag
válasz
sztanozs
#18109
üzenetére
Szia!
Mindenképpen kíváncsi lennék a javaslatodra!
Most volt időm alaposan megnézni lappy megoldását, és sajnos Ő is fix értékekkel dolgozott a forrás megadásánál, ami az én esetemben nem járható, mivel a tétellistám több, mint 300 különféle termékből állLégy szíves, írd meg az elképzelésedet!
Köszi,
amaps -
BenJoe80
senior tag
válasz
sztanozs
#18053
üzenetére
Ööö beírtam, amit írtál ill. szerintem írtál, de valami nem kóser, mert azt írja ki, hogy hibás a képlet.
Az oszlop B ezért a következőt írtam be:
=SZUMHA(B : B; G2) - ezt most kénytelen volt szóközzel írni, mert amúgy "smiley" lesz belőle!
Megjelent a "Beírt képlet hibás" tábla, <OK>, majd a függvény parancsra kattintva elvesztem. Kritériumnak és összegtartománynak mit adjak meg?
-
D5
aktív tag
válasz
sztanozs
#15954
üzenetére
Sheets("Alap").Range("G9").Copy
bevétel = Sheets("Munka2").Range("E4")Range(bevétel).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseA Debugger a "Range(bevétel).Select" résznél írja a hibát.
Nem értem, hogy miért. -
csferke
senior tag
-
Attas
aktív tag
válasz
sztanozs
#15305
üzenetére
Már kezdem kapirgálni. Sikerült egy másik munkalap nevével megcsinálnom. Az a gondom, hogy ezt az egészet, egy már kész projektben akarom módosítani. (nem gondolkodtam előre, meg hát az első kísérletem az excel programozás területén, és nem is ment volna a fórum nélkül nagyon sok minden) Szóval ennek "Sheets("Diagram adatok") sikerült Publikus változót adnom (WSD). Majd a kereső szolgáltatásban a Replace funkcióval kicseréltem minden Sheets("Diagram adatok") erre WSD. Wáá..és működött. De ezzel már nem "Sheets("Ütemidő műveletenként (2)")" mert vannak olyan makrók amik így néznek ki:
Selection.PasteSpecial Paste:=xlPasteValues
Application.Goto Reference:="egy"
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Add Key _
:=Range("C10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort
.SetRange Range("C10:C70007")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
És ebben is sajna kicseréli ezt:
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Add Key _
Erre:
ActiveWorkbook.WorkWSU.Sort.SortFields.Clear
ActiveWorkbook.WorkWSU.Sort.SortFields.Add Key _
És így már nem működik a makró. Gondolom a WorkWSU értemezhetetlen.) -
Attas
aktív tag
válasz
sztanozs
#15297
üzenetére
Köszönöm a választ!
Még egy kérdés. Publikus változót szeretnék beállítani. Miért nem működik ez?
Public WSU As Worksheet
Set WSU = Sheets("Ütemidő műveletenként (2)")A modul tetejére írtam be (minden modul tetejére ahol előfordul a lap meghívása. De futtatáskor a Set-et besárgítja.
-
Mauzes
addikt
válasz
sztanozs
#15294
üzenetére
Nem, egy Excel workbook-ból egy új workbook-ba. Egy ideig szaroztam vele, aztán manuálisan beállítottam a szélességeket. Ezután egy tök új fülre ctrl+v-vel beillesztve már alapból átmásolta az oszlopszélességet.
Úgyhogy én nem tudom, mi volt a baja először, illetve hogy legközelebb működni fog-e.
-
-
ancarian
csendes tag
válasz
sztanozs
#15240
üzenetére
2003-as excelem van. Valahogy eddig úgy voltam, h egyszerűbb kezelni. Közben meg rengeteget felejtettem
A második kérdés teljesen homály nekem is.Az egyik oszlopban a "sportol-e?" kérdésre vannak a válaszok. A másik oszlop lényegében több oszlop Itt különféle ételek fogyasztási gyakoriságai vannak feltüntetve 1-5 között. De ugye minden étel külön oszlop. Gondolom a kritérium az igen vagy a nem. A kérdés az, hogy melyik diagramnak tudnék megadni kritériumot? -
#15235
MaciLaci68
csendes tag
sztanozs
#15230
MaciLaci68
csendes tag
válasz
sztanozs
#15230
üzenetére
Köszi a próbálkozást. Nem jöttem rá eddig mikor tesz körmöt és mikor nem. Hossztól függ vagy szóköztől, vagy kutyafülétől nem tudom. De mindegy is mert nekem csak olyan jó hosszú szöveg kellene.
A fájl manipulációs megoldásod gondolom nem Exceles ugye?
Hát akkor ennyi. Marad a jó öreg CtrlC+ CtrlV. -
Attas
aktív tag
válasz
sztanozs
#15212
üzenetére
Szia. A makró amit írtál csak egy adathoz tartozó oszlopot ír át pirosra ha 60 nál nagyobb és az érték változásakor, ha esetleg 60 alá esnem nem lesz újra zöld. Vagy mindegyik pontra meg kell ezt csinálni? Ha igen hogy kell egymásba fűzni hogy értelmes legyen a makró?
-
#15223
MaciLaci68
csendes tag
sztanozs
#15220
MaciLaci68
csendes tag
válasz
sztanozs
#15220
üzenetére
Köszi. De ez egy PRN fájlt készít. Nekem TXT kellene.
Érdekes hogy ha a PRN fájlt átnevezem TXT-re, akkor megnézhető és eltűnnek az idézőjelek, de a sorokat kettétördeli valszeg azért mert a prn csak 240 karakterig tud cellából olvasni, az én szövegem pedig 400 felett van. -
Attas
aktív tag
válasz
sztanozs
#15212
üzenetére
Szia Sztanozs!
Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
Sheet1.ChartObjects("Diagram 8").ActivatePedig a Diagram 8 a veve a rajzterületnek.
A hiba pedig: Object requiredSub KimDiagSzín()
'
' KimDiagSzín Makró
Sheet1.ChartObjects("Diagram 8").Activate
Dim val()
val = ActiveChart.SeriesCollection(1).Values
Dim ix
For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
If val(ix) > 60 Then
ActiveChart.SeriesCollection(1).Points(ix).Select
With Selection.Format.Fill
.Solid
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End If
Next
End Sub
Új hozzászólás Aktív témák
Fferi50- 2025 - A Steam legnépszerűbb és legkelendőbb játékai
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- Xbox tulajok OFF topicja
- Klaus Duran: Minden drágul. Vajon a fizetések 2026-ban követi minimálisan?
- Iterálunk, iterálunk? DeepCool AK700 Digital processzorhűtő
- Otthoni hálózat és internet megosztás
- Motoros topic
- HDD probléma (nem adatmentés)
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Diablo IV
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Gyermek PC játékok
- Xiaomi Redmi Note 12 Pro 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 17 Pro 256 GB - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok !!
- DELL PowerEdge R740 rack szerver - 2xGold 6130 (16c/32t, 2.1/3.7GHz), 64GB RAM, 10Gbit HBA330, áfás
- GYÖNYÖRŰ iPhone 15 Pro Max 512GB Blue Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4089
- GYÖNYÖRŰ iPhone 13 mini 256GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3904
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest