-
IT café
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
-
Attas
aktív tag
Üdv!
Egy ComboBox1 RowSource tulajdonságába beírom, hogy Diagram adatok!A10:A20
Ezt miért nem fogadja el? Van még valami amit ki kell töltenem? A fül létezik természetesen.Köszönöm előre is.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Mittu88
senior tag
Sziasztok!
Ki lehet valahogy kapcsolni makróval, hogy ha történt egy fájlon változtatás, bezáráskor ne kérdezzen rá, hogy akarja-e menteni a változásokat, hanem alapértelmezetten a Nem aktiválódjon?
Előre is köszi a választ
Üdv,
Ádám -
Salex1
senior tag
Tudnátok segíteni? Adott egy lista a B oszlopban és ezt szeretném autoSzűrővel leszűrni, úgy, hogy egy másik cella (K1) értéket "tartalmazza" Meg lehet valahogy oldani?
(Esetleg azt, hogy nem egy cella értéket keres, hanem egy szövegdoboz értékét?) -
Attas
aktív tag
Sziasztok.
Még egy kérdés felmerült bennem. (persze kitudja mennyi van még a víz alatt)
Van egy makró, ami igazából csak makrókat hív meg pl:
Sub Össz()
Első
Második
Harmadik
Negyedik
End subAhoz kellene segítség, hogy ha pl a "Második" makró lefutásakor valamilyen feltétel nem teljesül, hogy tudom befejeztetni a "Össz" makró lefutását. Az megvan, hogy ha a másodikban if feltételekbe írt valami nincs meg akkor end sub. De sajna ettől még a Harmadik és Negyedik lefut.
Köszönöm a helpet"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Geryson
addikt
Sziasztok!
Adott egy 4000 sor hosszú lista, ami A és B oszlopokból áll. A sok-sok adatbevitel miatt az A oszlopban nagyon sokszor 2-5-10 ismétlés is található, ezeket szeretném kitakarítani.
- Hogy oldható meg az, hogy ezeket jelölje nekem? Tehát, hogy ne nekem kelljen végiggörgetni és jojózó szemmel kiszűrni, ha ismétlés van?
- Hogyan oldanátok meg azt, hogy ha ilyen van, akkor a B oszlopban található értékeket átlagolja (merthogy ez néha eltér)?Köszönöm előre is!
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Salex1 #20355 üzenetére
Rögzíts egy makrót úgy, hogy "gyalog" beviszed a kritériumot a megfelelő oszlophoz, majd a makróban írd át a feltételt a szövegdoboz értékére. Criteria1:=TextBox1.Text
Ilyesmi lesz:
Dim tartomany As Range
Set tartomany = Range("A1:D12")
tartomany.AutoFilter Field:=1, Criteria1:=TextBox1.TextItt a megadott tartomány első oszlopát (Field:=1) szűrtem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Geryson #20358 üzenetére
Szia!
A C2 képlete legyen =ÁTLAGHA(A:A;A2;B:B), ezt másold végig.
Adhatsz feltételes formázást az A2:C4000 tartományra.
A képlet legyen =DARABTELI($A:$A;$A2)>1, és adj neki valami feltűnő formátumot.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
xPraetoriaNx
senior tag
Sziasztok!
Egy olyan táblázattal van dolgom, ahol bár egész számokkal dolgozok, végeredmények (pl átlag) nem egész szám lesz, hogy konkrét példát említsek, valamire átlagnak "2,17 óra" jött ki. Ha csak átváltom idő formátumba, akkor Excel azt mondja, 4:03, ami azért "kicsit off". Van valami módja annak, hogy Excel nekem ebből a "2,17 órából" magától 02:10 jellegű formátumot adjon ki?[ Szerkesztve ]
There is no war. Only the harvest.
-
Tiboy86
tag
Sziasztok!
Kérdésem a következő:Van egy excel fájl, van X sor és az első pár oszlopba szöveget kell írni, 4 oszlopba pedig képeket beilleszteni. Meg lehet valahogy oldani, hogy a képeket ne egyenként cseréljem le, hanem ha kijelölöm pl. sorrendben a beillesztendő képeket, akkor berakja a régi képek helyére a megfelelő sorrendben?
Köszönöm!
-
Attas
aktív tag
válasz Delila_1 #20361 üzenetére
Köszönöm A segedelmet!
Majdnem így jártam el. Ha hibásan fut le a számítás egy cellába 1-est írok. A főágba tettem egy if-et, Ha 1-es a tartalma eme cellának akkor goto végére és exit sub."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
xPraetoriaNx
senior tag
válasz xPraetoriaNx #20362 üzenetére
Megoldottam
=SZÖVEG(<kívánt átkonvertálandó mező, vagy képlet>/24;"[ó]:pp")
És akkor így 24 óránál nagyobb időintervallumokkal is működik.
There is no war. Only the harvest.
-
Attas
aktív tag
Üdv!
Az lenne a feladatom, hogy egy munkafüzet1 GEN nevü lapját szeretném átmásolni egy munkafüzet2-be. Ezt megoldottam, de olyasmi kellene, (merthogy ezt hetente kellene megcsinálnom, ugyanazzal a lappal csak persze más adatokkal), hogy mikor legközelebb is átmásolom a munkafüzet2 -be kapjon egy új nevet. Mondjuk KW2 . Majd legközelebb KW3 ...stb
Így kapnék egy munkafüzetet KW1, KW2, KW3..stb nevü munkalapokkal.
Köszönöm a segítséget.."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
vigyori78
őstag
Sziasztok.
Tudna valaki segíteni abban,hogy van egy táblázatom ami egyszerre 13 PC-n fut kb óránként töltik és mentik viszont van egy pc amin előjön egy olyan "hiba" ,hogy beír egy cellába akkor meg kéne jelennie a többi cellában egy értéknek de ez nem jelenik meg és ha ráment az excel-re akkor a többi pc-n is rossz leszOffice 2007
[ Szerkesztve ]
-
misa479
csendes tag
Sziasztok egy nagy segítséget szeretnék kérni.Van egy számomra nem megoldható feladat.
A lényege az lenne, hogy van egy adatbázis. A második oszlop alapján leszűrve szeretném az értékeket külön fájlokba,vagy külön munkafüzetekbe menteni. Tehát a példánál maradva lenne Alma Körte és Barack.
Az alma csak egy sort tartalmazna, a körte 23 sort , a barack pedig a maradékot.
Próbáltam megoldani makrófelvétellel, de nem sikerült átírnom a kódot.
Előre is köszönöm a segítségeteket! -
Delila_1
Topikgazda
válasz misa479 #20371 üzenetére
A makróban a csillagokkal megjelölt sorban írd át a Munka1-et a saját lapod nevére, ami az adatokat tartalmazza.
Sub KulonLapra()
Dim felso As Long, also As Long, nev As String
Dim WF As WorksheetFunction, WS As Worksheet
Set WF = Application.WorksheetFunction
Set WS = Sheets("Munka1") '**************
WS.Activate
'Rendezés a B oszlop szerint
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
felso = 2
Do While Cells(felso, 1) <> ""
nev = Range("B" & felso)
also = WF.Match(nev, Columns("B"), 1)
Sheets.Add.Name = nev
WS.Activate
Rows(1).Copy Sheets(nev).Range("A1")
Rows(also & ":" & felso).Copy Sheets(nev).Range("A2")
felso = also + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ebben a másolt füzetben csakis a másolt lapok vannak?
Ha igen, az új lap beszúrása
Sheets.Add.Name = "KW" & Worksheets.Count +1Beteheted egy változóba is a nevet
nev = "KW" & Worksheets.Count +1
Sheets.Add.Name = nevEbben az esetben a nev változóval hivatkozhatsz másoláskor a lapra.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zso85
tag
Sziasztok.
Szükségem lenne excel-ben egy kis segítségre.Havi munkaidőt szeretnék összeadni de csak 24 óráig számol.
Tudnátok segíteni benne??
Előre is köszönöm!Aki szivárványt akar látni, annak el kell viselnie az esőt is.
-
the radish
senior tag
Sziasztok!
Meg lehet azt oldani, hogy a helyette függvénnyel két, vagy több szót is kicseréljek egy menetben?
Például:
A1: 56 alma 64 banán
B2: =HELYETTE(A1;"alma";"magyar");HELYETTE(A1;"banán";"déli")
-
konyi79
addikt
Hali,
ismét itt kötöttem ki, de túl jók vagytok, ne kérjek segítséget!
Egy munkafüzet "E" lapjának "AB" oszlopát szeretném kitölteni a következő adatokból:
"E" lap "B" oszlopának adott cellájának tartalmát vizsgálja meg az "M" lap "F" oszlopában megtalálható-e. Fontos, lehet nem csak egy találat van, lehet több is. Ha van találat (egy), akkor a találati sor "K" oszlopának tartalmát kellene ide bemásolni. Erre kaptam már megoldást innen, de közben kiderült lehet több találat is. Ha több találat van, ez esetben a találati sorok "A" cellájának értékeit kellene vizsgálni, és amiben a legmagasabb az érték, annak a sornak a "K" értéke kell. Ha nincs találat, egyszerűen "nincs" szöveg.
Nem tudom ebből érthető-e mit akarok szűrni, ha van ötlet köszönöm előre is a segítséget. -
-
psg5
veterán
Sziasztok!
Létezik-e megoldás (akár képlet, akár makró, akár külső program) arra, hogy:
Adott egy munkafüzetben többszáz sor, melyeket egyesével kellene (minden sort külön) egy új, excel munkafüzetbe menteni,de ne kézzel keljen kimásolgatni és elnevezni az új létrehozott fájlt.[ Szerkesztve ]
F.K.T.
-
Delila_1
Topikgazda
válasz antikomcsi #20382 üzenetére
Itt válaszoltam, kitettem egy füzetet hozzá.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
benito86
csendes tag
Sziasztok,
Excel 2010-ben a következő feladatot szeretném megoldani:
Ha egy üres oszlop tetszőlegesen kiválasztott cellájába 0-t írok az alatta lévő cellákba mindig 1-el nagyobb számot írjon be automatikusan. Pl: A oszlp: 10-es sorába 0-t írok töltse fel az A oszloop 11es sorát 1-el, 12es sorát 2-vel etc.Ezt a feladatot hogyan tudom megoldani a legegyszerűbben?
Köszönöm:
-
Salex1
senior tag
válasz Delila_1 #20359 üzenetére
Köszi! kicsit átalakítva tudtam csak működésre bírni, biztos van egyszerűbb mód, de legalább működik.
Range("K1").Value = ActiveSheet.Shapes("Text Box 558").TextFrame.Characters.Text
Range("L1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""*"",RC[-1],""*"")"
Selection.AutoFilter Field:=2, Criteria1:=Range("L1").TextLehetséges valahogy a makrót hozzárendelni a textbox elhagyásához, vagy a textboxban az enter megnyomásához?
[ Szerkesztve ]
-
Delila_1
Topikgazda
A lenti makróval megoldható.
A Const utvonal = "C:\Temp\" sort írd át a saját mentési útvonaladra.A makrót arról a lapról kell indítanod, ahol a másolandó sorok vannak. Az utvonal változóba beírt mappába menti a fájlokat, mindegyiket azon a néven, ahányadik sorban megtalálta az adatokat.
Gondolom, fejléc is van a lapodon, ezért minden új füzet első sora a fejléc lesz, második pedig a kiválasztott adatsor. Addig fut a makró, míg az A oszlopban talál adatot.Sub UjFuzetek()
Dim sor As Long, WB As Workbook, WSE As Worksheet, WSM As Worksheet
Const utvonal = "C:\Temp\"
Application.ScreenUpdating = False
Set WB = Workbooks(ActiveWorkbook.Name)
Set WSE = WB.Sheets("Munka1")
sor = 2
Do While Cells(sor, "A") <> ""
Workbooks.Add
Set WSM = ActiveWorkbook.Sheets("Munka1")
WSE.Rows(1).Copy WSM.Range("A1")
WSE.Rows(sor).Copy WSM.Range("A2")
ActiveWorkbook.SaveAs Filename:=utvonal & sor & ".xlsx"
ActiveWorkbook.Close
sor = sor + 1
Loop
Application.ScreenUpdating = True
MsgBox "Kész van a soronkénti mentés", vbOKOnly + vbInformation
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Salex1 #20390 üzenetére
Duplaklikk a textboxon. Ad egy makrót Private Sub TextBox1_Change() címmel, és End Sub-bal. A lap tetején jobbra a legördülőben a Change esemény látszik, ahelyett kiválasztod az AfterUpdate eseményt. A Sub és End Sub sorok közé másolod át a kész makródat, a Change eseményhez adott két sort törölheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Salex1 #20386 üzenetére
Nem néztem kellő figyelemmel a haloványan bevitt makródat, amiből kiderül, hogy nem külön userformon, hanem a füzet egy lapján van a textbox. Ebben az esetben a textboxon jobb klikk, makró hozzárendelése. Megjelenik a makróidat tartalmazó párbeszéd ablak, ahonnan kiválasztod a megfelelőt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Melack
veterán
Helló! Excel 2010 kapcsán kérdezném: hol lehet azt beállítani, hogy alapból külön "ablakba" nyissa a filokat, és ne egy programba, külön fülre. Sokszor kell dolgoznom 2 -3 táblával, és két monitoron könnyebb lenne külön kezelnem őket. Win7 64 bit az alap
Ex-Informatikai Szolgáltató Asztali Munkatárs
Új hozzászólás Aktív témák
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- PHP programozás
- [SoP] Bemutatkozott a Dynasty Warriors Origins
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Telekom TV SmartBox: szolgáltatói set-top box alacsony korlátokkal
- Diablo IV
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Samsung Galaxy A52s 5G - jó S-tehetség
- Milyen légkondit a lakásba?
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Lemezes Retro PC Játékok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs