- Luck Dragon: Asszociációs játék. :)
- Argos: Az vagy, amit megeszel
- sziku69: Fűzzük össze a szavakat :)
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- sziku69: Szólánc.
- Mr Dini: Mindent a StreamSharkról!
- gban: Ingyen kellene, de tegnapra
- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
- sh4d0w: Árnyékos sarok
- MaxxDamage: Vizes Laptop Hűtés? Lehetséges? Igen!
-
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
-
glocker
tag
Sziasztok.
Feltételes formázást szeretnék, de (ez a része) nem jön össze...
Van két lapom:
Lap1 (dátumok)
--------------------
2014.01.01
2014.01.02
2014.01.03
...
2014.12.31Lap2 (ünnepek)
--------------------
2014.03.15
2014.04.21
2014.08.20
2014.11.01
2014.12.24
2014.12.251. kérdés
Szeretném azt, hogy a Lap1-en az olyan dátumok amely szerepelnek Lap2-n (azaz az ünnepek) pirossal legyenek kiemelve2. kérdés
Szeretném azt, ha Lap1-en a dátumok közül a szombatra és vasárnapra eső dátumok más háttérrel lennének jelezveelőre is kösz
-
nimmy001
csendes tag
Sziasztok,
Adott 4-5 gép, amiken 2 excel fájlt használnánk közösen. Az egyik egy makrós excel sablon, amiben egy gomb segítségével frissítik a felhasználók az újonan bevitt adatokat a saját másolat excelükben (nem mentik el, ebben van egy nagy adatbázis, ahova egy ember visz be adatokat, a többiek pedig ezek alapján nyomtatnak a fájl egy másik lapján keresztül, ahova ebből a nagy adatbázisból hívják be az adatokat hivatkozásokkal). Most egy másik excel is bekerült a képbe, az egy szimpla makrós excel, de ez is hivatkozik a sablon adatbázisára. A felhasználók többnyire egyszerre használják ezt a két fájlt.
A gépeken nem egyforma az excelek verziója. Van, ahol 2007-es, és van, ahol 2010-es, illetve a makrókat fejlesztő felhasználó gépén 2010-es excel van, ez adott, esetleg a 2007-eseket lehet mód lecserélni.
A probléma a következő, eddig még csak az egyik 2007-es gépen néztük, mivel az a felhasználó volt épp bent, de folyamatban van a többi ellenőrzése is. Az történik, hogy amikor egyszerre van bent mindkét excelben, és frissíti a sablont, akkor az egész excel összeomlik, de csak akkor, ha mindkettőben benne van. Külön-külön mindkét excel jól működik. A 2010-es fejlesztői gépen ez a hiba nem jelentkezik.
Még egy dolog, a 2007-es excel elfelejti a jó hivatkozásokat, ha nem kényszerítjük bele duplán makróval (vagyis az elején egyszer auto_open, illetve egy plusz frissítés gomb segítségével használat közben), a 2010-es excelnek elég az elején is megmondani, honnan hivatkozzon.
Még le lesz ellenőrizve a többi gép is, ahol a kettőt egyszerre szokták használni, de máris felmerült a kérdés. Okozhat-e ilyen galibákat, hogy nem egyforma az excel verzió minden gépen? -
Delila_1
veterán
válasz
bteebi
#21292
üzenetére
A Select Case utasítás a többirányú, tetszőleges számú elágazásokat teszi lehetővé az összetett, egymásba ágyazott If feltételek helyett, átláthatóbban.
Pontosan kell meghatároznod az értékeket.
Sub forma()
Select Case Sheets("Adatok").Range("B17")
Case 0.0011 To 0.0099
Selection.NumberFormat = "0.00000"
Case 0.011 To 0.099
Selection.NumberFormat = "0.0000"
' Case ...
' ...
End Select
End SubA feltételes formázás színét nem lehet alapul venni, mert akár teljesül a feltétel, akár nem, a szín lekérdezése a cella alapbeállításának megfelelő színkódot adja.
-
bteebi
veterán
Sziasztok!
Van egy nagyon sok lapból álló munkafüzetem. A munkalapok adott tartományaiba fixre szeretném beállítani a megjelenített tizedesjegyek számát, attól függően, hogy egy adott cella (B17) értéke milyen nagyságrendbe esik. Az első kérdésem: meg lehet ezt az alábbi makrónál egyszerűbben oldani? Nekem elsősorban az "And"-es összevonás nem tetszik, de azt valószínűleg nem lehet megkerülni.
Sub tizedesszam()
If 0.001 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 0.01 Then
Selection.NumberFormat = "0.00000"
ElseIf 0.01 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 0.1 Then
Selection.NumberFormat = "0.0000"
ElseIf 0.1 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 1 Then
Selection.NumberFormat = "0.000"
ElseIf 1 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 10 Then
Selection.NumberFormat = "0.00"
ElseIf 10 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 100 Then
Selection.NumberFormat = "0.0"
End If
End SubAz a gond, hogy azok a tartományok, amelyekre a szűrést szeretném elvégezni, a munkalapok különböző részein vannak, ráadásul több tartományban. Van arra ötletetek, hogy hogy lehetne azt viszonylag egyszerűen megoldani, hogy csak a kívánt cellákban állítsam át a formátumot? Esetemben van (lehet) egy viszonylag egyszerű megoldás, mert ezek a cellák feltételes formázással kék színűre vannak állítva (kék színűek, amíg üresek, ha van bennük érték, akkor már nincs háttérszín) - szóval az elvileg működhetne, hogy az összes lapon végigfutva az adott színű cellák formátumát átállítsam.
Ezen kívül még egy gondom van: hogy tudnám azt elérni, hogy a tizedesjegyek száma ne változzon akkor se, ha máshonnan adatokat illesztek be? Ha irányított beillesztést használnék (akár makróval), az szerintem viszonylag kényelmetlen lenne, úgyhogy nagyon örülnék neki, ha nem lenne muszáj azt használni.
Előre is köszönöm a segítségeteket!
-
pmheros
őstag
Okos kis program a Coretemp, a naplózását .csv be menti, de olyan hülye módon, hogy egy (A)oszlopba zsúfolja az összes adatot. Van arra mód, hogy valami beépített excel eszközzel az emberfia külön oszlopba sorolja a vesszővel elválasztott értékeket?
Aki tudja megoldást , írja meg legyen szíves !Előre is köszönöm
-
lallalla
újonc
leginkább hajózásnál még használják a Bft. skálát a szélre.
ennek minden értékéhez, melyek 0-tól 12-ig terjednek, km/órában min és max érték van rendelve. tágak a határok, ezért ezt a skálát komoly helyeken már nem is nagyon használják.
ha excelben táblázatba viszem ezeket a km/ó értékeket, és melléteszem az y=x exp2 függvényt, mint hasonló görbét adót, az csal.
az alsóbb értékeken kisebb, a nagyobb értékeknél (x>9) nagyobb értékeket ad.
segítséget kérek, hogy egy adott esetben meglévő -ezesetben12 cellás- adathalmazhoz hogyan lehetne egy ahhoz jól illeszkedő függvényt rendelni? így nem kellene számhalmazokat fejben tartani...
köszönöm a segítséget! -
gyros3
csendes tag
Sziasztok!
Az lenne a kérdésem, hogy hogyan tudok az excel alapértelmezett dolgain módosítani:
Pár példa:
1) Ha beszúrok egy téglalapot, akkor az kék szinű sötétkék kerettel, de én fehéret szeretnék fekete kerettel (itt már próbáltam a jobb gomb beállítás alapértelmezett alakzatként, de az csak bezárásig marad érvényben)
2) Pivot táblánál mindig be kell pipálnom, hogy klasszikus kimutatásnézet és az oszlopokat ne frissítse automatikusan
3) Ha szám formátumot választok egy mezőre, akkor az alap a 0 tizedesjegy és aktív ezres elválasztó legyen.Office 2010-em van.
Köszönöm
-
-
válasz
Delila_1
#21280
üzenetére
Köszi szépen
Ám elkeserítettek, hogy a kiinduló érték csak év (azaz 2008.04. helyett csak 2008 van), így viszont eleve hülyeség, csak kb értékre lehet számolni. Arra viszont nem jöttem rá, hogy a cellaformátumot ÉV-re lehessen állítani, hogy 2008-at beírva 2008-as (vagy spec 2008.06-nak) évnek tekintse a dolgot.
-
Delila_1
veterán
Szép hosszú képlet adja meg az értéket.
=HA(HÓNAP(MA())>=HÓNAP(A1);(ÉV(MA())-ÉV(A1))*12+HÓNAP(MA())-HÓNAP(A1);12-HÓNAP(A1)+(ÉV(MA())-1-ÉV(A1))*12+HÓNAP(MA()))
Az A1 tartalmazza az eszköz beszerzési idejét. Ez a cella dátumot tartalmazzon, a formátum lehet éééé.hh, hogy a napot ne mutassa.
Az eredmény (képlet) formátuma szám, vagy általános lehet. -
Szép napot
Olyan kérdésem lenne, hogy adott egy évjáratú eszköz (pl. 2008.04. havi) ezt egy adott cellában nyilvántartom, és ebből kellene kiszámolnom egy másik cellában, hogy hány hónapos éppen (pl. most 72 hónap). Milyen fügvény kellene hozzá ?
Előre is köszönöm a segítséget. -
ZsizsiZsozsó
tag
Szia!Köszönöm a segítséget az online viewerrel gond nélkül megjelenik a táblázat, van 2007-es officem, és ott is gond nélkül megtudom nyitni a programot. De nekem az lenne a fontos, hogy a 2013-as officeban tudjam megnyitni 100%-osan az office 2007-ben szerkesztett excel fájlokat, ugyanis munkahelyen csak az van. Tehát nekem azért lenne fontos, hogy a 2013-as office nyissa meg. Ne kelljen konvertálnom stb, ezért gondoltam valami alapbeállításra először, mert a mostani excel fájlomon kívül van még vagy 30db 2007-es excel fájl amit hasonló módon hibásan nyit meg a program.
-
#21277
Sasos
senior tag
ZsizsiZsozsó
#21276
Sasos
senior tag
válasz
ZsizsiZsozsó
#21276
üzenetére
Esetleg nyisd be online viewerrel. Ha ott megjelenik rendesen, akkor a kívánt excel formátumban mentheted. Ha ott is szétcsúszik, akkor lehet, hogy a fájl sérült. 2007 nincs kéznél, hogy visszanyisd vele?
-
#21276
ZsizsiZsozsó
tag
ZsizsiZsozsó
tag
Valakinek esetleg valami ötlete?
-
#21274
alfa20
senior tag
ZsizsiZsozsó
#21273
alfa20
senior tag
válasz
ZsizsiZsozsó
#21273
üzenetére
írd át a kiterjesztést xlsx-re.
-
#21273
ZsizsiZsozsó
tag
ZsizsiZsozsó
tag
Sziasztok!
Egy olyan kérdésem volna, miért van az hogy Office 2013 programcsomagban, azon belül is az Excelben miért nem tudok tökéletesen megnyitni Excel 2007-ben szerkesztett xls. fájlt. Az összes létező kompatibilitási csomagot letöltöttem az Office 2013-hoz. Ami office 97-2003-as fájl formátumú azt gond nélkül megnyitja a program ami Office 2007 kiterjesztésű, azt nem tudja 100%-osan megnyitni/konvertálni a sorok elvannak csúszva excelben stb. és mindig ezzel az üzenettel indít az excel: "Nem egyezik meg a(z) ...nevű.dokumentum.xls fájlformátuma és kiterjesztése. Lehet, hogy a fájl sérült vagy nem biztonságos. Ne nyissa meg a fájlt, ha nem bízik meg a forrásban. Megnyitja a fájlt?" Természetesen megnyitom a fájlt mivel egy 2007-es Office Professional programcsomagban lett szerkesztve, megnyitom és a sorok elvannak csúszva betűk nem olvashatóak rendesen. Valakinek valami ötlete esetleg? Előre is köszönöm. -
akyyy
senior tag
Szűrést szeretnék használni a következő módon.
Adott egy lista, az A oszlopban. pl ez.
a/1/x
a/2/y
b/1/x
b/2/x
b/2/yBeállítom a legelső sorba a szűrőt, és beírom a kritériumot:
*a*1*
Szépen kilistázza az a kezdetűeket. Kikeresem a kiirtól azt amire szükségem van, rendben, viszont ezután szeretnék ismét szúrni a következő képpen
*a*2*
A gondom az, hogy a szürőnél nem "mentette" el amit beírtam, sőt ki se írja nagyon sehol. Hogyan lehetne megcsinálni, hogy könnyen, csupán a kurzorral odamennék az 1-eshez és átírom 2-esre, ahelyett hogy az egészet kéne beírnom újból?Példám túl van egyszerüsítve, amire szükségem lenne, ott persze hoszabb szűrő van, és elég szar beírni az egészet mindíg, mikor csak kis változtatás lenne
Vágólapra másolás nem jó, mivel azzal a cellák melletti értékeket másolom ki.
-
bteebi
veterán
Ahhoz a laphoz rendeld a makrót, amelyiken a legördülő lista van, a $A$1 helyére pedig a legördülő listát tartalmazó cellát írd.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Worksheets(Range("B3").Value).Activate
ActiveSheet.PrintOut
End If
End Sub -
Delila_1
veterán
válasz
Esterka
#21259
üzenetére
Sikerült összehozni a véletlen helyeket.
A makró szazalek = 14.8 sorában a 14.8 helyett beírod azt a számot, ahány százalékban legyen 1-es a kijelölésedben. Tizedes törtet is írhatsz, tizedes ponttal, mint most.
Kijelölöd a tartományt, és indítod a makrót.
Sub XEgy()
Dim Cellaszam As Long, sor As Long, oszlop As Long, Db As Long
Dim CV, szazalek As Single
Selection = ""
Cellaszam = Selection.Cells.Count
sor = Selection.Rows.Count
oszlop = Selection.Columns.Count
szazalek = 14.8
Db = 1
Do While Db <= Round(szazalek * Cellaszam / 100, 0)
sor = Int(Selection.Rows.Count * Rnd) + 1
oszlop = Int(Selection.Columns.Count * Rnd) + 1
If Selection(sor, oszlop) <> 1 Then
Selection(sor, oszlop) = 1
Db = Db + 1
End If
Loop
For Each CV In Selection
If CV <> 1 Then Range(CV.Address) = 0
Next
End Sub -
lappy
őstag
Sziasztok!
Hogy tudom a nyomtatást megoldani úgy, hogy ha:
- van egy fő oldalam (1 oldalas), amin belül az egyik cellában van egy legördülő lista
- ha a listából kiválasztok egy adatot akkor a hozzá tartozó munkalapot is nyomtassa ki (akár .pdf formátumban is jó) ez oldalszámban változó nagyságú
minden oldal mérete A4-es.
Köszönöm! -
#21261
szarajevo1
csendes tag
szarajevo1
csendes tag
Sziasztok!
A következőben kérném a segítségeteket.
Adott a mellékelt képen lévő táblához hasonló adatbázis.
Amit én szeretnék, hogy a B oszlopban lévő egyes kimenetelek esetén megkapjam, hogy a további oszlopokban lévő termék kategóriák alatt az egyes termék típusokból hány darab van.
pl. a minta alapján rendel esetén Termék 1 oszlopban van 1db alma eladás, 1db alma raktár, Termék 2 oszlopban: 1db Sajt eladás, Termék 3 oszlop: 1db bicikli vétel.Eddig úgy oldottam meg a kimutatásokat, hogy beszűrőztem a megfelelő kimenetel kategóriát, aztán az egyes termék oszlopokra csináltam egy kimutatást. Mivel a termékek/rekordok/kimenetelek száma kezdi meghaladni a kezelhető mértéket ezért kéne valami olyan csodás megoldás, hogy fogom kijelölöm az egész kócerájt kattintok kettőt és csoda mód kész is van minden
Valami olyasmi tökéletes lenne mint a sima kimutatás, csak nem sikerült kiokoskodnom, hogy ezt, hogyan is kell excelen belül lekérdezni, hogy az egyes oszlopokhoz tartozóan jelenjenek meg a különböző típusú termék kategóriák szépen egymás alatt felsorolva.
Pl.:
Termék1
1 db alma eladás
1db alma raktár
3 db alma rothadt
Termék2
1 db sajt marad
3 db plazma Tv
4db nem tom mit találjak kiElőre is köszi a segítséget.
Ps.:
rem sikerült valamennyire érthetően fogalmazni
-
Delila_1
veterán
válasz
Esterka
#21259
üzenetére
A makró beírja a kijelölt területre a nullákat, majd az egyeseket. Azt majd valaki kitalálja, hogyan legyen ebből véletlenszerű elrendezés.
Sub Nulla_Egy()
sorok = Selection.Rows.Count
oszlopok = Selection.Columns.Count
ter = sorok * oszlopok
egyDb = Round(ter / 100 * 12, 0)
nullaDb = ter - egyDb
For Each CV In Selection
Range(CV.Address) = 0
Db = Db + 1
If Db >= nullaDb Then Exit For
Next
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection = 1
End Sub -
#21258
lappy
őstag
the radish
#21257
lappy
őstag
válasz
the radish
#21257
üzenetére
Talán az a megoldás járható hogy írsz egy saját függvényt ami félkövérbe állítja a ( ) közötti részt.
-
#21257
the radish
senior tag
the radish
senior tag
Sziasztok!
Megoldható az összefűz függvény segítségével, hogy a végeredmény "valamelyest" különböző formátumú legyen egyazon cellán belül?
A1: 12
B1: 35
C1: = Összefűz(A1&"("&B1&")"), azaz 12(35)
Tehát a B1 értéknek kéne dőltnek és félkövérnek lenni, sőt nem ártana, ha egy kicsit kisebb is lenne. (OFFICE 2003)Előre is köszönöm.
-
Delila_1
veterán
válasz
benkez
#21253
üzenetére
Az első kérdésedre (P oszlopba 1 dátum) írtam egy makrót, amit a lapodhoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
Cells(Target.Row, Application.Match(Target, Rows(11), 0)).Activate
End If
End SubMiért OFFban írsz? Ide tartozik a kérdésed, a szürke karakterek rosszul olvashatóak.
A 11. sorban dátumok legyenek, a cellaformátum n.
A T10 cella képlete: =HÓNAP(T11)
-
benkez
újonc
Sziasztok! A segítségeteket szeretném kérni!
Csatoltam képet. Jelenleg az N:40 cella van kijelölve. Az első sorban ugyan nem láthatóak, de január elsejétől december 31-ig vannak dátumok. Azt szeretném elérni, hogy mindig annak a sornak és dátumnak a metszéspontjában lévő cellára kerüljön át a kijelölés, amely sor P oszlopába írom a dátumot. Vagyis ha a P:40 cellába beírom, hogy 01.23., akkor jelölje ki az AP:40 cellát. Ha a 01.23 dátumot a P:68-as cellába írom be, akkor az AP:68-as cellára ugorjon a kurzor.
Ki lehet ebből még hozni azt, ha egy sor két egymás melletti cellájába beírok két különböző dátumot, akkor azon sor két dátumhoz tartozó, és közöttük található cellákat jelöli ki?
-
Delila_1
veterán
válasz
user112
#21248
üzenetére
A Munka1 lapon elvégzi a makró a kigyűjtést a K oszloptól kezdődően, majd a kigyűjtött tatrományt áthelyezi a Munka2 lap A2 cellájától kezdve. A Munka2 lap címsorát egyszer kell beírni.
A makróban többször szerepel a két lap neve, ezeket írd át a saját lapjaid nevére.
Sub valami()
Dim sor As Long, usor As Long, ertek As String, jel As String
Dim sor1 As Long
Sheets("Munka1").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
'A oszlop adatainak másolása az K oszlopba
Range("A2:A" & usor).Copy Range("K1")
'Ismétlődések eltávolítása a K oszlopból
ActiveSheet.Range("$K$1:$K$" & usor - 1).RemoveDuplicates Columns:=1, Header:=xlNo
For sor = 2 To usor
ertek = Cells(sor, "A")
jel = Cells(sor, "F")
sor1 = Application.WorksheetFunction.Match(ertek, Columns(11), 0)
Cells(sor1, Cells(sor1, Columns.Count).End(xlToLeft).Column + 1) = jel
Next
'Munka2 lapon előző adatok törlése
Sheets("Munka2").Range("A2:Z5000") = ""
'Kigyűjtött adatok kivágása és másolása a Munka2 lap A2 cellájába
Range("K1").Select
Selection.CurrentRegion.Cut Sheets("Munka2").Range("A2")
Sheets("Munka2").Activate
End Sub -
bteebi
veterán
válasz
mulli86
#21240
üzenetére
Törölni kell az üres (y) értékekhez tartozó adatcellák (x) értékét. Vegyük úgy, hogy az A sorban vannak az x értékek, a B-ben pedig az y értékek. Ez a makró megoldja a gondot:
Sub diagram()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 1 To usor
If Range("B" & sor) = "" Then
Range("A" & sor) = ""
End If
Next sor
End SubAnnyi, hogy csak akkor működik, ha már ábrázoltad a diagramot, mivel ha az ábrázolás előtt futtatod le, akkor nem lesz egybefüggő az ábrázolandó tartomány, több tartományt pedig (tudtommal) nem tudsz egyben ábrázolni. Ha esetleg valamiért a jövőben még szükséged lenne az üres y értékekhez tartalmazó x értékekre, akkor (a fenti példánál maradva) érdemes az A oszlopot átmásolnod a B-be, elkészíteni a diagramot a B és a C oszloppal, majd a B oszlopon elvégezni a szűrést a makróval.
-
user112
senior tag
válasz
Delila_1
#21246
üzenetére
Az adatok különböző, de ugyanolyan szerkezetű forrásból jönnek, melyeket egy táblázatba másolok: öt oszlopban ugyanazon adatok vannak (pl. megrendelő adatai) és csak a 6. különbözik (pl. rendelésszám). Ebből szeretnék olyant, hogy mindenki csak egyszer lenne benne és a sor végén legyenek a rendelésszámai, akárhány is volt.
Az is nagyon jó lenne, ha kapásból valami TOTAL szerű dolgot tudnék csinálni a másik munkalapra. Pl. a rendelés adatok ugyanazok csak pl. a rendelés értéke változik és erre a mező kellene egy összesen. Tudom, hogy van kimutatás meg részösszeg, de nekem így kényelmesebb lenne. Lenne erre is valami megoldásod? -
Delila_1
veterán
válasz
Gandalf80
#21244
üzenetére
Előfordulhat, hogy a megkezdett műszakot másnap fejezi be valaki. Ennek megfelelően kibővítettem a táblázatot.
C és D oszlop képlete marad, ahogy volt,E2 –> =HA(HOSSZ(D2)=0;"";INDIREKT("A"&HOL.VAN(D2;C:C;0)))
F2 –> =HA(HOSSZ(D2)=0;"";INDIREKT("A"&HOL.VAN(D2;D:D;0)))G2 képlete látszik a képen.
Kissé valószínűtlenek az adatok, pl. az 502-es azonosítójú embernél.
-
Gandalf80
csendes tag
Sziasztok!
Milyen képlettel lehetne megoldani a következő számítást. Van egy be- és kiléptetőrendszer, ez azt jelenti, hogy egy azonosító mellett van egy belépési idő, majd később lesz egy kilépési idő is. Sajnos, az idő egymás alatt egy oszlopban és nem rendezetten található. Arra kellene megoldást találni, hogy a kilépés melletti oszlopba számolja ki a bent töltött időt. Megoldható?
Példa a mellékelt képeb található
Köszönöm!
-
user112
senior tag
válasz
Delila_1
#21239
üzenetére
Kedves Delila_1!
Neked is nagyon köszönöm, tökéletesen működik ez is. Most már két módszerem is van.
Szükséges hozzá az eredeti táblát rendezni? Ahogy próbáltam, rendezés nélkül is megy. Még azon agyalok, hogy több oszlopos táblázattal is menne e, hogy ne kelljen utána már semmit sem csinálni. De majd próbálkozom vele, hátha sikerül nekem is rájönnöm.
-
Sasos
senior tag
Sziasztok!
Egy munkafűzeben, gombhoz rendelt makróval történik a nyomtatás egy keresési folyamat végén. Viszont nem az alapértelmezettre kellene nyomtatnia. Makróban megadható-e a nyomtató? Illetve mitől válik inaktívvá az "egyéni nézetek" opció? Gondoltam, ha makróban nem találok megoldást, elmentem a munkafüzetbe egyéni nézetként a nyomtatót, de ez az opció inaktív. Védelmeket leszedtem (lap- és füzet védelem), de továbbra is inaktív ez a lehetőség.
-
Delila_1
veterán
válasz
user112
#21232
üzenetére
Szia!
Bár kaptál már választ, adok egy makrós megoldást, ami 3-nál több változat esetén is működik.
A makró lényege, hogy az A oszlop adatait az F oszlopba másolja, majd ebből eltávolítja az ismétlődéseket.
Egy ciklusban az F mellé, az első üres oszlopba írja a hozzá tartozó B értéket.A makró végén ***-os sorok közé írt rész törli az eredeti A és B oszlop tartalmát, helyére írja a kigyűjtött adatokat, majd a kigyűjtött részt is törli. Ha erre nincs szükséged, töröld a makróból ezeket a sorokat.
Azért javasolom a makrós megoldást, mert az összetett képletekkel nem terheli a memóriát, és nem növeli a fájl méretét ezekkel.
Sub valami()
Dim sor As Long, usor As Long, ertek As String, jel As String
Dim sor1 As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
'A oszlop adatainak másolása az F oszlopba
Range("A1:A" & usor).Copy Range("F1")
'Ismétlődések eltávolítása az F oszlopból
ActiveSheet.Range("$F$1:$F$" & usor).RemoveDuplicates Columns:=1, Header:=xlNo
For sor = 1 To usor
ertek = Cells(sor, "A")
jel = Cells(sor, "B")
sor1 = Application.WorksheetFunction.Match(ertek, Columns(6), 0)
Cells(sor1, Cells(sor1, Columns.Count).End(xlToLeft).Column + 1) = jel
Next
'**************************************************
Range("A1:B" & usor) = ""
Range("F1").Select
Selection.CurrentRegion.Copy Range("A1")
Range("F:Z") = ""
'**************************************************
End Sub -
válasz
user112
#21232
üzenetére
F2 cella értéke:
=HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"")J2 cella értéke:
=ÖSSZEFŰZ(E2;" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");G$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");H$1);SOR($A$1:$A$10);0);2);""))ezek ctrl+shift+enter kombinációval használhatók/aktiválhatók
-
user112
senior tag
Sziasztok!
Szeretném megkérdezni, hogy milyen, egyszerű automatizmussal lehetne ebből az adatsorból:
AAA-001 A
AAA-001 B
AAA-001 D
AAA-002 B
AAA-003 C
AAA-003 D
AAA-003 E
AAA-004 B
AAA-005 A
AAA-005 Bilyen adatsort készíteni:
AAA-001 A B D
AAA-002 B
AAA-003 C D E
AAA-004 B
AAA-005 A Bvagy esetleg ilyent:
AAA-001 A B D
AAA-002 B
AAA-003 C D E
AAA-004 B
AAA-005 A BKöszönöm!
(az eredeti táblában 2 oszlop van) -
mulli86
tag
Sziasztok !
Van egy több éve nem megoldott gondom excel függvényábrázolásakor.
A mostani excel diagramban, amit használok, már beállítható, hogy mit tegyen az üres cellák ábrázolásakor (hagyja ki, nullának vegye, kösse össze egyenessel a nem üres értékűeket).
Igen ám, de ha az ábrázolandó cellák függvényt tartalmaznak, akkor hiába tűnik üresnek a cella, a diagramban beállítástól függetlenül nullának veszi a diagram -> és így nagyon vacakul néz ki a diagram (a folytonos vonal kiugrik a nullához).
A szokásos megoldás az, hogy a függvény értéke dupla macskaköröm -> nem jó
középső diagram jól mutatja, de csak azért, mert tényleg kitöröltem a cellákból a függvényeket (ez nem megoldás
)
a jobb oldalon kipróbáltam egy konstanst -ami üres cella- használatát -> nem jó(ráadásul van egy üres() nevű függvény, ami szerint tényleg csak akkor üres a teszt-cella, ha kitörlöm a függvényeket onnan)
Valakinek valami ötlete van erre?
Válaszokat előre is köszi! -
van egy outlookot használó fájlküldő makróm, amely minden adatot (címzett, másolat, csatolmány, levél szövege) 1-1 cellából vesz. tudtok-e esetleg valami megoldást arra, hogy ezen makró segítségével formázott szöveget tudjak megadni a levél szövegeként? esetleg, hogy a szöveget már egy előre elkészített outlook sablonból vegye?
-
#21229
Delila_1
veterán
Metathrone
#21225
Delila_1
veterán
válasz
Metathrone
#21225
üzenetére
Mindegyik makró modulba kerül.
Private Leallitando As Boolean
Private Xlsnev As String
Private Munkalapnev As String
Private Cellasor As Integer
Private Cellaoszlop As Integer
Sub Pontosidő()
If Leallitando Then Exit Sub
Application.OnTime Now() + TimeSerial(0, 0, 1), "Pontosidő"
Workbooks(Xlsnev).Sheets(Munkalapnev).Cells(Cellasor, Cellaoszlop) = Format(Now(), "yyyy.mm.dd. hh:nn:ss")
End Sub
Sub leallítás()
Leallitando = True
End Sub
Sub Inditás()
Xlsnev = ActiveWorkbook.Name
Munkalapnev = ActiveSheet.Name
Cellasor = 1
Cellaoszlop = 1
Leallitando = False
Pontosidő
End Sub -
#21228
alfa20
senior tag
Crystalheart
#21227
alfa20
senior tag
válasz
Crystalheart
#21227
üzenetére
én megpróbálkoznék egy irányitott szüréssel erre készítenék egy makrót amit meg beállítanék, hogy akkor fusson le, ha aktiv a Print munkafüzet.
-
#21227
Crystalheart
őstag
Crystalheart
#21199
Crystalheart
őstag
válasz
Crystalheart
#21199
üzenetére
Enyémre valaki?
Kösz! -
alfa20
senior tag
sziasztok,
van egy táblám, "A" oszlopban vannak a cikkcsoportok "B" oszlopban termékek a "C"-ben meg a megjegyzések találhatóak + további oszlopok.
A feladat az lenne, hogy a kiválsaztott cikkcsoportokat egy másik munkafüzetbe kellene átmásolni, de csak azokat ahol szerepel megjegyzés a "C" oszlopban.
Mivel nem mindig ugyanazokra a cikkcsoportokra van szükség így az lenne a jó ha előbb bekérné, hogy a listában szereplő cikkcsoportok közül mire van szükség (és mivel a tábla több száz soros így jó lenne, ha egy cikkcsoport csak egyszer szerepelne) .Probálkoztam az irányitott szűréssel is, de mivel ott elakadtam, hogy adjam meg a nem üres cella feltételt, és nem is minden oszlopra van szükség az alaptáblából, így próbálok más lehetőséget keresni.
A szürő lenne a legjobb megoldás, mert akkor csak másolni kellene a megfelelő oszlopokat, de azt nem tudom hogyan kérje be a makró a szűrési keltételeket az "A" oszlophoz.
ebben tudna valaki sehíteni?
-
#21225
Metathrone
csendes tag
Delila_1
#21224
Metathrone
csendes tag
válasz
Delila_1
#21224
üzenetére
Mégsem jó
Ez lett volna munka1-be, a thisworkbook rész helyett:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Recalc
Else
Range("A1").Value = ""
End If
End SubDe sajna nem jó, mert a recalc nem deaktiválódik. Azt hogy tudom megoldani, hogy az else után a recalc leálljon?
-
#21224
Delila_1
veterán
Metathrone
#21223
Delila_1
veterán
válasz
Metathrone
#21223
üzenetére
Tedd ki, hogy más is tudja hasznosítani.
-
#21223
Metathrone
csendes tag
Metathrone
#21222
Metathrone
csendes tag
válasz
Metathrone
#21222
üzenetére
Megvan, köszi
-
#21221
Delila_1
veterán
Metathrone
#21220
Delila_1
veterán
válasz
Metathrone
#21220
üzenetére
Nem én írtam, és már nem emlékszem, honnan spájzoltam be. A füzet megnyitásakor az aktuális lap A1 cellájába írja az időt, és másodpercenként módosítja.
A ThisWorkbook-hoz rendeld:
Private Sub Workbook_Open()
Recalc
End SubModulba:
Dim SchedRecalc As Date
Sub Recalc()
Range("A1").Value = Format(Time, "hh:mm:ss")
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub -
#21220
Metathrone
csendes tag
Metathrone
csendes tag
Sziasztok!
Meg lehet valahogy oldani, hogy cellában stopperszerűen számláljunk időt? Óra perc másodperc formátumban.
Köszi
-
Delila_1
veterán
válasz
jaja1981
#21218
üzenetére
Nem kell a sok változó, a kritériumnál megadhatod a csillagokat.
A szűrt tartományt a Munka2 lap A1-be másolja.Sub Szur_Masol()
ActiveSheet.Range("$A$3:$N$15000").AutoFilter Field:=1, Criteria1:="*" & Range("I1") & "*"
Range("A3").Select
Selection.CurrentRegion.Copy Sheets("Munka2").Range("A1")
End Sub -
jaja1981
addikt
válasz
Delila_1
#21217
üzenetére
Most van egy ilyen kereső makróm:
Sub keres()
Dim keres As String
Dim csillag As String
Dim szo As String'
' keres Macro
''
csillag = "*"
szo = Range("l1")
keres = csillag + szo + csillagActiveSheet.Range("$A$3:$g$15000").AutoFilter Field:=1
Range("l1").Select
ActiveCell.FormulaR1C1 = keres
ActiveSheet.Range("$A$3:$N$15000").AutoFilter Field:=1, Criteria1:=keres, Operator:=xlAnd
Range("l1") = szoEnd Sub
Az a gond, hogy ami így kijön találat, azt át kellene másolni egy másik sheet megfelelő cellájába.
Az hogy oldható meg, hogy ami így kijön találat, azt átmásolja egy másik sheet celláiba?
Köszi.
-
Delila_1
veterán
válasz
jaja1981
#21216
üzenetére
A laphoz kell rendelned a makrót.
A makró a H1 cella változására szűri, vagy nem az A oszlopot.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
If Range("H1") > "" Then
Selection.AutoFilter Field:=1, Criteria1:=Range("H1")
Else
Selection.AutoFilter Field:=1
End If
End If
End SubBeírod a H1-be a keresett értéket, indul a szűrés. Ha kitörlöd a cella értékét, minden sorod látható lesz.
A Field:=1 határozza meg, hogy a tartományod első oszlopát akarod szűrni.
A saját igényeidhez a H1 és a Field értékei kell módosítanod. -
jaja1981
addikt
Sziasztok!
Hogy tudom azt megoldani, hogy van egy cellám, amit keresek egy másik táblázatban ahol többször szerepel. Az kellene, hogy ha megtalálja ne csak az első cella tartalmát írja ki amit megtalál, hanem az összeset, amiben szerepel.
Nem tudom értitek-e.Szóval keresek egy rendelés számot egy táblázatban. De ehhez a rendelés számhoz több mérés is tartozik. Ugye a Vlookup csak az első talált rendelésszámhoz tartozó mérést írja ki, a többit alatta nem.
Na most nekem az összes kéne, ami ahhoz a rendeléshez tartozik.Köszönöm.
-
#21209
Delila_1
veterán
Metathrone
#21208
Delila_1
veterán
válasz
Metathrone
#21208
üzenetére
A gombok Click eseményében tudod állítani az engedélyezést.
gomb_neve.enabled=true, vagy gomb_neve.enabled=false. -
#21208
Metathrone
csendes tag
Metathrone
csendes tag
Sziasztok!
Szeretnék megoldást kérni az alábbi problémámra.
Van két darab activeX váltógombom, azt szeretném ha az egyik állapotát megváltoztatom igaz értékre, akkor a másik addig inaktív legyen, míg az első értéke igaz, ha mindkettő hamis, akkor legyen mindkettő aktív.
Tehát ha az egyik benyomva van, akkor a másikat ne lehessen benyomni.Előre is köszönöm a segítséget.
-
Delila_1
veterán
válasz
raynen
#21205
üzenetére
Makróval gyorsan megy.
Nálam a másolandó lap a Munka1, ahova másolsz, Munka2. Ezeket írd át a makróban a saját lapjaid nevére.
Az előző adatok törlésénél az A:F helyett a saját törlendő oszlopaidat írd be.
Írtam megjegyzéseket a makróba.Sub Masol()
Dim sor As Long, usor As Long, ujsor As Long
'Előző adatok törlése a Munka2 lapon
Sheets("Munka2").Columns("A:F").Delete
Sheets("Munka1").Select
'Címsor másolása
Rows(1).Copy Sheets("Munka2").Range("A1")
'Alsó sor a másolandó lapon
usor = Application.CountA(Columns(1))
'Ebbe a sorba másoljon
ujsor = 2
'Minden 5. sor másolása
For sor = 2 To usor Step 5
Rows(sor).Copy Sheets("Munka2").Range("A" & ujsor)
ujsor = ujsor + 1
Next
End Sub -
-
raynen
csendes tag
Sziasztok segítségeteket kérném van egy több ezer soros és oszlopos táblázatom tele számokkal nekem minden 5-ik sort ki kellene másolnom 1 másik fülre , egyesével sokáig tart valami más megoldás van rá ? ja és a kimásolandó szám folyamatosan változik
segítségeteket előre is köszi -
#75376384
törölt tag
sziasztok
most lehet butaságot kérdezek, de sehol se találom. hogyan tudok e értékével számolni? az kellene beírnom egy képlet részeként, hogy "e" a pi-szer tangens fi-ediken (jaj de szép magyaros lett
). vagy jobban járok, ha egyszerűen csak beírom, hogy 2,71828182845904523536?
)
.
Új hozzászólás Aktív témák
Fferi50- Canon MILC: EOS R és M topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Formula-1
- Melyik tápegységet vegyem?
- iPhone topik
- BestBuy topik
- Luck Dragon: Asszociációs játék. :)
- Androidos tablet topic
- Kertészet, mezőgazdaság topik
- IFA 2025: Körömnyi SSD-k videózáshoz
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- GYÖNYÖRŰ iPhone 11 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3265, 100% Akkumulátor
- BESZÁMÍTÁS! Asus ROG STRIX Z490-G Gaming alaplap garanciával hibátlan működéssel
- AKCIÓ! Dell Latitude 5550 notebook - Intel Ultra 7 165U 16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
- ÁRGARANCIA! Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- Új Dell 13 XPS 9315 FHD+ IPS i7-1250U 4.7Ghz 10mag 16GB RAM 512GB SSD Intel Iris XE Win11 Garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest