-
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
-
Delila_1
Topikgazda
válasz macilaci78 #21351 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sasos
senior tag
válasz macilaci78 #21349 üzenetére
Vagy: =HA(SZÁM(E8);TÖBBSZ.KEREKÍT((E8*I5*I6+2000); 500);"")
[ Szerkesztve ]
-
Zomb€€
őstag
Sziasztok!
Egy oylan makrón dolgozok, ami különféle kódokat generál, és utolsó lépésként meghív egy QR kód generáló oldalt.
Szeretném minden szempontból optimalizálni a dolgot, elképzelhető, hogy a weboldalon is mahináljak valamit VBA-ból? Mondjuk a konkrét stringet beadni a felhíváskor.Erről az oldalról lenne szó: [link]
"Egyszer fent...egyszer fent!"
-
gyros3
csendes tag
Sziasztok!
Tudtok megoldást az említett 3 kérdéshez?
Köszönöm
-
gyros3
csendes tag
Bocsánat! Ahogy nézem nem látszik, hogy mire gondolok. Az eredeti kérdés a 21289-es bejegyzésben látható.
köszönöm! -
takos
tag
Sziasztok!
Egy olyan excel makroban kérném a segítségetek, amely alkalmas lenne arra, hogy ha lefuttatom az adott excel fájlban akkor elküldi adott(mindig ugyanarra) az e-mail címre a teljes munkafüzetet.
A tárgy mezőt pedig 4-5 mező tartalmából generálná össze hivatkozással.
A levél tartalma fix szöveg lenne és nem is olyan érdekes.
A környezet magyar office 2010 és outlook 2010.
A vasam? Lenovo S400U, Intel Core i5-3337M,524HDD+24SSD, 8GB DDR3 1600MHZ
-
Vladek83
tag
Sziasztok!
Elakadtam egy kicsit.... van egy Textbox amibe elkezdek írni, akkor a Listbox-ban keresi az adott értéket, ez idáig működik is. Viszont azt meg lehetne oldani, hogy ha olyan értékek kerülnek beírásba ami nem szerepel a Listbox-ba, akkor semmi se látszódjon benne? Mondjuk ez már csak "kozmetika" lenne...
Private Sub TextBox1_Change()
'Cikkszám szerinti keresés
Dim i As Long
Dim sFind As StringsFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.lbArlista.ListIndex = -1
Me.lbArlista.TopIndex = 0
Else
For i = 0 To Me.lbArlista.ListCount - 1
If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
Me.lbArlista.TopIndex = i
Me.lbArlista.ListIndex = i
Exit For
End If
Next i
End IfEnd Sub
-
Louro
őstag
Szia,
szívesen segítenék, de nem tartok még azon a szinten. Amit találtam: [link]
De elnézve nem lenne olyan egyszerű a megoldás.Szerintem ez már a makrók magasiskolája. Bár jó feladat született nálam is, bár én lépésről lépésre tűzök ki magamnak célokat és úgy tanulgatom.
Remélem tudnak segíteni neked a többiek.
Mess with the best / Die like the rest
-
takos
tag
Sziasztok!
Készítettem egy kis makrot, ami elküldi magát az excel fájlt levélként.
Amit nem tudok megoldani, hogy a tárgy mezőben egyszerre több értéket jelenítsen meg és küldjön el a levélben.
Más működik.Pl. szeretném, ha C1, D1, E1 cella tartalma is bekerülne a levél tárgyába.
ez a makro:
Sub level()
Dim OutApp As Object
Dim OutMail As ObjectSet OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)On Error Resume Next
With OutMail
.to = "xy@xy.hu"
.CC = ""
.BCC = ""
.Subject = ThisWorkbook.Sheets("Munka1").Range("C1").Value
.Body = "Teszt uzemmod"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0Set OutMail = Nothing
Set OutApp = Nothing
End SubÜdv:
takosA vasam? Lenovo S400U, Intel Core i5-3337M,524HDD+24SSD, 8GB DDR3 1600MHZ
-
Sasos
senior tag
Így esetleg?
.Subject= ThisWorkbook.Sheets("Munka1").Range("C1").Value & ThisWorkbook.Sheets("Munka1").Range("D1").Value & ThisWorkbook.Sheets("Munka1").Range("E1").Value
Vagy ha el kell választani akkor:
.Subject= ThisWorkbook.Sheets("Munka1").Range("C1").Value & "," & ThisWorkbook.Sheets("Munka1").Range("D1").Value & ", " & ThisWorkbook.Sheets("Munka1").Range("E1").Value
Akkor lekéstem...
[ Szerkesztve ]
-
Pulay
csendes tag
Sziasztok!
Egy összetett problémám van, nagyon hálás lennék érte ha valaki válaszolni tudna rá.
Szituáció:
Van egy excel file-om amit pendrive-on szeretnék megmutatni valakinek. Viszont és itt - jön az első kérdés - meg tudom-e oldani, hogy a pendriveról ne tudja átmásolni a file-t a saját gépére? Ha igen, akkor hogyan?Második kérdés: meg tudom-e oldani, hogy ha megnyitotta a file-t akkor se tudja lementeni a gépére? Az írásvédettség védelem a mentés ellen, de a Mentés máskénttel simán kijátszható. Találtam egy scriptet amit ha bemásolok a fejlesztő módba (alt+f11) a ThisWorkbook alá akkor "kiiktatja" a mentés másként funkciót de ha bezárom és újra megnyitom az excel-t akkor elfelejti ezt a scriptet és megint lehet menteni. Erre van valakinek ötlete?
Itt a script:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True 'Cancels any request to save the file
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ThisWorkbook.Saved = True 'Tells Excel that the file has already been saved (this prevents Excel from requesting that you save the file when you close it)
End SubHarmadik kérdés: meg lehet-e oldani, hogy az adott munkafüzetből ne tudja kimásolni az adatokat egy üres excelbe? Ha igen, hogy?
Összességében olyan megoldás kellene, hogy ne lehessen sehogy az adatokat kimenteni (persze tudom, hogy a print screen ellen nincs mit tenni, de azt leszámítva sehogy)
Kérem aki tud segítsen Előre is köszi!
-
Delila_1
Topikgazda
válasz ritterkrisz #21370 üzenetére
A h2 cella képlete =fkeres(g2;b:d;3;0), ezt kell lemásolnod a h oszlopban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
nebulo0128
csendes tag
Sziasztok!
Kellene a segítségetek.
Az lenne a probléma, hogy több különálló ablakban nyitom meg az excel táblákat, úgy hogy ne 1 excelben nyissa meg, mert akkor nem tudok gyorsan több ablakot kitenni a monitorra. Ezt egy Open Excel nevű programmal oldottam meg. Ez így frankón működik hogy gyorsan tudok több táblában dolgozni.
A problem viszont ott van, hogy így nem tudok hivatkozni egyik táblából a másikba, + a munkalap áthelyezés vagy másolás sem látja a többi megnyitott munkafüzetet.Van lehetőség arra, hogy egyszerre használjam ezeket a funkciókat?
szal ha megnyitok exceleket azokat ne egy ablakba mutassa hanem több különálló, és működjön a hivatkozás egyik táblából a másikba. Mind a kettő dolog fontos lenne mert naponta többször használom.https://www.flickr.com/gp/128093251@N07/6q2B04
-
Delila_1
Topikgazda
válasz nebulo0128 #21372 üzenetére
Nézet menü, Új ablak, Elrendezés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
nebulo0128
csendes tag
válasz Delila_1 #21373 üzenetére
Az úgy nekem nem megfelelő, mert 8-10 excellel dolgozok egyszerre, nagyon macerás 1 excel táblában váltogatni, ezért van úgy hogy külön excel programként nyitogatja meg és nem mindig ugyan abban.
A gond ott van hogy így nem működik a hivatkozás egyikből a másikba.(Persze ha megnyitom excelből és úgy csinálom akkor működik, de ha már dolgozok valamiben akkor rohadtul macerás több táblázatot lementegetni és úgy megnyitni, betallózni újra)
office 2010-et használok
[ Szerkesztve ]
https://www.flickr.com/gp/128093251@N07/6q2B04
-
Delila_1
Topikgazda
válasz nebulo0128 #21374 üzenetére
Mikor megnyitottad a több fájlt az új ablak menüben, egyenként lecsukhatod kis méretűre, és ebből az ikon állapotból azt nyitod fel az eredeti méretre, amelyiket éppen használni akarod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
nebulo0128
csendes tag
válasz Delila_1 #21375 üzenetére
azt én így értem is, de gáz, így most megnyitom, win7 kihúzom az egyiket jobb szélre ott van, megnyitom másikat kihúzom balszélre ott van, egyszerű, átlátható. ugyanez nem annyira átlátható ha egy excelben dolgozok. főleg ha mondom már több mint 2 tábla van megnyitva.
itt alapvetően a kezelhetőséggel van a probléma, minek +5 kattintás ha meg tudom csinálni 1 mozudlattal szutyok az excel...
úgy érzem a problémámra vagy az egyik verzió vagy a másik a lehetőség, a két verzió együtt meg lehetetlen.(a gáz csak az h ezt főnököm rohadtul nem érti meg és ezzel baszogat)
https://www.flickr.com/gp/128093251@N07/6q2B04
-
alfa20
senior tag
Hát nem tudom, mozaik elrendezésben felosztva úgy osztod szét ahogy akarod, én is dolgozom több táblával, de nekem még nem okozott problémát a mozaik elrendezés, még akkor sem, ha egy táblát fülekre rendezek.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
huan
őstag
Sziasztok!
Melyik az a függvény ami megszámolja egy 2 oszlopból álló táblázat több ezer eleme közül, az egyik oszlopában található kb.20 féle előfordulások számát?
Tehát az egyik oszlopban kb.20 elem össze vissza van külömböző darabszámmal. Amit szeretnék tudni, miből mennyi van. -
alfa20
senior tag
válasz ritterkrisz #21379 üzenetére
a cella formátumát állíts álltalánosra, majd nyomj egy F2-t és ENTER-t.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Sasos
senior tag
válasz ritterkrisz #21381 üzenetére
Beillesztés-->Érték
Jobb klikk, és a beillesztés menüből kiválasztod az "Érték" ikonkáját.
Akkor csak az értékeket viszi át.[ Szerkesztve ]
-
Sasos
senior tag
-
Zomb€€
őstag
Köszi a választ, időközben megoldottam.
Beírom ide is, hátha valakinek jól jön.
Találtam egy oldalt, amit meg lehet hívni getparameterrel, és egyből kész a qr kód.
http://api.qrserver.com/v1/create-qr-code/?data=
Értelem szerűen a "=" jel után kell írni a kódolandó szöveget."Egyszer fent...egyszer fent!"
-
Sasos
senior tag
Lehet. Ha - az előző példánál maradunk - az A1 cellára teszel egy szűrőt. Majd az "Adatok" fülön "Rendezés és szűrés" opciónál kiválasztod a "speciális" lehetőséget. A "Csak az egyedi rekordok megjelenítése" előtti jelölőnégyzetbe pipa, és már jó is. Így az A oszlopban nincs ismétlődés és közben a C-ben látod, hogy melyik hányszor szerepel az A-ban.
-
Garffi
tag
Sziasztok.
Excel 2013-ban ha egy alakzathoz vagy szövegdobozhoz hivatkoztatok egy képet /ami pl. D meghajtó képek mappájában van/, akkor a képet hogy tudom "összeolvasztani" az excel fájlba?
Mert most ha elmentem az excel fájlt és egy másik gépen megnyitom akkor a hivatkozás hiányolja az útvonalat ahol a kép van. /remélem érthető /. -
Sasos
senior tag
válasz Garffi #21393 üzenetére
Én az XLS-t bedobnám egy üres könyvtárba, ebben létrehoznék egy "képek" mappát, és abba dobálnám a hivatkozott képeket. Ha így hivatkozol rá, akkor az Excel hivatkozásában csak ennyi lesz "képek/akármi.jpg" Így ha a képek mappával együtt másolod a XLS-t, akkor a képek hivatkozása is élni fog.
Másik lehetőség, hogy feldobod őket egy szerverre, és webcímmel hivatkozol rájuk. Pl: kepfeltoltes-re feldobod, majd a direkt linket használva hivatkozol az adott képre. Így a hivatkozás mindenhol él (ha van netkapcsolat).
Hogy lehet-e belementeni az XLS-be a képet azt nem tudom, de akkor inkább a könyvtáras megoldást javaslom. A belementett képek miatt (ha lehet) úgyis megnőne az XLS mérete, így viszont külön vannak a fájlok. -
PindurAnna
Közösségépítő
Sziasztok.
Van egy táblázatom 1666 sorral.
De ebből nekem ki kellene azokat a sorokat törölni, ahol egy sorra nézve a AA vagy AJ vagy AS oszlopban azonos van írva a háromból valamelyikben, mint az N oszlopban.Tehát csak azokat a sorokat kellene meghagyni ahol az N oszlop nem egyezik, vagy az AA, vagy az AJ, vagy az AS oszlopban lévővel.
Hogy tudnám ez valahogy gyorsabban megcsinálni, mint egyesével átellenőrizve törölgetni?
[ Szerkesztve ]
Galaxy S9+;Lenovo yoga 500;Gigabyte H77-DS3HPentium 840 4GB DDR3-1066, 4820GB+10000GB HDD;27"Lg W2753;TP-LINK WDL4300 router;SAMSUNG ML-1520,Epson Stylus OFFICE BX300F,Samsung Note 10.1, S7 edge
-
Delila_1
Topikgazda
válasz PindurAnna #21395 üzenetére
Címsort feltételezve a 2. sorban kezdjük a képletet. Ha az AT oszlop üres, akkor az AT2-be, ha nem, az első üres oszlopba írd be:
=HA(VAGY(N2=AA2;N2=AJ2;N2=AS2);1;0)
Ezt lemásolva azokban a sorokban, ahol a 3 jelzett oszlop valamelyike megegyezik a N oszlop értékével, 1 lesz az eredmény, a többiben nulla.
Most már csak szűrnöd kell a képletet tartalmazó oszlopot 1-re, és törölheted a sorokat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sasos
senior tag
válasz PindurAnna #21395 üzenetére
Ha az 1. sorba, egy szabad oszlop első cellájába bedobod ezt: =HA(AA1=N1;"AA";HA(AJ1=N1;"AJ";HA(AS1=N1;"AS";""))), majd végighúzod a kellő sorig (1666).
Ezután teszel egy szűrőt az oszlop fölé, és kiszűrheted az egyezéseket tartalmazókat. -
PindurAnna
Közösségépítő
Új hozzászólás Aktív témák
- Xbox Series X|S
- Asus Zenfone 10 - kicsit más az új kicsi
- A fociról könnyedén, egy baráti társaságban
- Gumi és felni topik
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Elkészült Oroszország első litográfiai berendezése
- Nvidia GPU-k jövője - amit tudni vélünk
- Otthoni hálózat és internet megosztás
- Mini-ITX
- Skoda, VW, Audi, Seat topik
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Canva Pro előfizetés - 1 éves
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs