- Új Beats fej- és fülhallgatók jelentek meg
- Yettel topik
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- DIGI Mobil
- Apple Watch Sport - ez is csak egy okosóra
- Motorola Edge 40 neo - színre és formára
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Mobil flották
- Minden a BlackBerry telefonokról és rendszerről
Hirdetés
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
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
-
csferke
senior tag
Sziasztok!
Excel 2007 macróban hogyan lehet megállítani a macró futását adatbevitel céljából?
Futtatok egy macrót amely végig kell, hogy járjon bizonyos cellákon amelyekbe adatokat kellene bevinni. Minden ilyen cellán meg szeretném állítani, beírni az adatot és Enter leütésére folytatódjon a macró futása a következő cellára.köszi
-
csferke
senior tag
=LOOKUP(x,A1:A20,AA1:AA20) ??
Az x értéket megkeresi az A1:A20-ban pl.A10 és eredményként adja az AA10 tartalmát.
Ha x kisebb mint a legkisebb érték az A1:A20 tartományban akkor #N/A hibaüzenetet ad.
Ha x nagyobb mint a legnagyobb érték az A1:A20 tartományban akkor az AA20 tartalmát adja.Én viszont egy olyan funkciót keresek amely #N/A hibaüzenetet ad akkor is ha kisebb és akkor is ha nagyobb az x értéke mint az A1:A20 tartomány legkisebb/legnagyobb értéke.
[ Szerkesztve ]
-
csferke
senior tag
Sziasztok!
Két kérdésem lenne macro parancsokkal kapcsolatban.1. Hogy lehet egy olyan parancsot kiadni, hogy egy bizonyos cellából (pl. A10) lépjen x cellát balra és az legyen az aktív? Ugyanúgy jobba, lefelé vagy felfelé.
2. Ha egy oszlopban vannak adatok (pl. A1:A23) akkor hogy tudom aktívvá tenni az utolsó beírás alatti első sort (A24)? Próbálkoztam a Ctrl+End, Ctrl+PageDown és hasonlókkal de nem jött be.
köszönettel
-
csferke
senior tag
Köszönöm mindkettőtöknek!
Ezzel már elboldogulok.
Egyébként hol lehet a Help-ben megtalálni ezeket a parancsokat?
Nekem nem vagy csak részben sikerült. -
csferke
senior tag
Sziasztok!
Ezt hogyan lehetne kivitelezni?Egy munkafüzet 1.lap A oszlopba íródnak be az értékek (A1, A2....szaporodnak a sorok) a 2.lap B2 cellájába viszont automatikusan meg kellene, hogy jelenjen az utolsó bevitt érték.
Angol Excel 2007.köszi
[ Szerkesztve ]
-
csferke
senior tag
válasz Delila_1 #12207 üzenetére
Nem pontosan erre gondoltam vagy nem fogalmaztam megfelelően.
Így tulajdonképen egy "Linked cell" lesz az eredmény.Nekem viszont a bevitt érték nem a Sheet1A1 cella lesz hanem minden egyes bevitel után egyel növekszik a sorszámláló. Tehát Sheet1A1, Sheet1A2, Sheet1A3 és így tovább és az így utoljára bevitt (Sheet1Axxx) mező értéke kellene, hogy megjelenjen Sheet2A1-ben.
-
csferke
senior tag
válasz Delila_1 #12217 üzenetére
Köszönöm, működik.
DE !?
Most már belátom, kérdezni is tudni kell.
Nem gondoltam, hogy fontos lehet és ezért nem fogalmaztam meg a kérdésemben sem.A D:E oszlopokba nem direkt bevitellel történik az adatbevitel hanem a D oszlop az a B*F az E oszlop pedig C*F és tulajdonképen a D:E az automatikusan számolódik/töltődik amikor értéket kapnak a B, C, F oszlopok.
Az sem zavarna, hogy nem a D:E összegét viszem át a Sheet2-be hanem hozzáadok még egy oszlopot (pl. H) a táblához amiben automatikusan kiszámítódik D:E összege és azt viszem át a Sheet2-be. Tehát a H is képet alapján automatikusan számítódik.üdv
[ Szerkesztve ]
-
csferke
senior tag
válasz Delila_1 #12232 üzenetére
Így nem működött.
Próbálkozások során kialakult a megfelelő megoldás.
Átrendeztem az oszlopokat B,C és D-be viszem be az adatokat, hogy egymás mellet legyenek az adatbeviteli oszlopok.
E=B*D F=C*D
Most már figyeltetem az egymás mellet lévő [B] oszlopokat és értelemszerűen a SUM-ban Row4 -> Row5 és a Row5 -> Row6 lett.Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:D]) Is Nothing Then
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
End If
End Sub[ Szerkesztve ]
-
csferke
senior tag
válasz Delila_1 #12235 üzenetére
Szia!
Mit kell változtatnom ebben a sorban
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))
hogy az E14-be áthozott érték " - " (negatív) legyen?És még egy kérdés.
=IF(F29="kom", (CONCATENATE("fco. naš mag. ",I8," radnih dana od dana prijema uplate")),)
Azt szeretném ha F29="kom" nem ez lenne hanem megvizsgálni, hogy az F29 egy bizonyos szöveggel kezdődik-e F29=begin with "szöveg"köszi
[ Szerkesztve ]
-
csferke
senior tag
Elnézést nem figyeltem oda a "Programkód" beírásánál de remélem így is "olvasható"
-
csferke
senior tag
válasz Fire/SOUL/CD #12485 üzenetére
Ez téma engem is érdekelne olyan formában, hogy amikor a legördülőből kiválasztódik egy NÉV pl. A1-ben akkor legyen A2=VÁROS A3=TELEFONSZÁM mint egy számlán.
Folytatva hogyan lehet elérni, hogy az az a mező amelyben a legördülő van nyomtatáskor csak sima szövegként látszódjon. Eddigi kísérletem során nyomtatáskor is látszott a mezőkeret a lenyitáshoz való nyíllal.
-
csferke
senior tag
válasz Delila_1 #12502 üzenetére
Fkeres = Lookup ??
Ha igen, akkor ezt már használom egy másik táblában.Érvényesítéssel vidd be az adatot az A1-be, akkor nem látszik keret és nyíl a nyomtatásban.
Nem tudom mi az az "Érvényesítéssel". Elmagyaráznád? Esetleg az angol verziós parancsszavakkal.[ Szerkesztve ]
-
csferke
senior tag
válasz Delila_1 #12550 üzenetére
Szia Delila_1!
Pár napig nem követtem a fórumot de most ott folytatnám ahol abbahagytuk.#12549-ben feltett kérdésemre:
Lehetséges-e a legördülő listában, hogy 2 nem egymás melletti oszlop (A, D) tartalma jelenjen meg?#12550-ben válaszoltál is csak én nem igazán arra gondoltam.
Tehát CSAK a legördülő menüben kellene, hogy látszódjon a 2 oszlop A és D de magában az A1 cellában mint eredmény CSAK a kiválasztott alapján az A oszlop megfelelő cellája.Nekem olyasmi kellene mint pl. amikor ki kell egy céget választani és csak a cég neve kell, hogy szerepeljen mint eredmény de sokban megkönnyíti a kiválasztást ha pl. a város neve is szerepel a legördülőben (az adatok a városok szerint vannak rendezve)
köszi
[ Szerkesztve ]
-
csferke
senior tag
Szasztok!
Igen, igaz ez nem Excel téma de sajna a Word fórumon hiába tettem fel a kérdést. Tehát megpróbálom itt is hátha tud valaki segíteni.
Word 2007
A szövegben szerepel 2 dátum óó/nn/hh/éééé formában. Van-e lehetőség és hogyan lehet kivitelezni, hogy ha az 1. dátumot megváltoztatom akkor automatikusa változzon a 2. is.
Az automatikus változás -31 nap kellene, hogy legyen. Értelemszerűen változnia kell a nn/hh/éééé-nek.óó/nn/hh/éééé
1. dátum 07/23/02/2012
2. dátum 18/23/01/2012Az óó a 2.-ban állandó csak az elsőben változik de ezt nem kell figyelembe venni a dátumnál.
köszi
-
csferke
senior tag
válasz Fire/SOUL/CD #13034 üzenetére
Sima szövegként vannak feltüntetve a dátumok, de minden más megoldás is számításba jöhet.
-
csferke
senior tag
Sziasztok!
A #13032-ben feltett Word-al kapcsolatos kérdésemre senkinek nincs ötlete?
-
csferke
senior tag
Sziasztok!
Megakadtam a dátumok, napok számításánál/számolásánál.
A1 (dd.mm.yyyy hh:mm)
A2 (dd.mm.yyyy hh:mm)
ezekből A3=A2-A1 (dd hh) és eddig eljutottam.Hogyan tudnám kiszámítani az A4 (szám) cella tartalmát?
A feltételek a következők:
- az A3-ból a napok száma (dd) és ha A3(hh) kisebb 8-tól akkor nem kell hozzáadni semmit
- az A3-ból a napok száma (dd) és ha A3(hh) 8 és 12 között van akkor hozzá kell adni 0,5-őt
- az A3-ból a napok száma (dd) és ha A3(hh) 12-től nagyobb akkor hozzá kell adni 1-etRemélem érthetően sikerült megfogalmaznom a kérdést.
köszönettel
[ Szerkesztve ]
-
csferke
senior tag
válasz Fire/SOUL/CD #13933 üzenetére
Majdnem
Általában néhány napról (1-7) van szó.
Namármost az A3-ban megjelenik pl. 3 15 (azaz 3nap 15óra). Ehhez a 3 naphoz kellene hozzáadni 1-et ebben az esetben.
Ha az órák száma kisebb mint 8 akkor +0 (3nap 7óra) = 3+0 = 3
Ha az órák száma 8 és 12 között van akkor +0,5 (3nap 9óra) = 3+0,5 = 3,5
Ha az órák száma nagyobb mint 12 akkor +1 (3nap 17óra) = 3+1 = 4
Értelemszerűen az órák száma nem lehet több mint 24 mert akkor már a napok száma emelkedik.Ha megkérhetlek akkor angolul, mert angol Excel-t használok.
[ Szerkesztve ]
-
csferke
senior tag
válasz Fire/SOUL/CD #13935 üzenetére
Köszönöm
Úgy tűnik megfelel a képlet. Tesztelem élesben. -
csferke
senior tag
Sziasztok!
Hogyan lehet Pivot táblázatot készíteni (angol Excel 2007) úgy hogy a pivot-ban csak egy bizonyos szűrőnek megfelelő adatok jelenjenek meg?Konkrétabban. Adott egy táblázat amelyben számlák szerepelnek a sorokban dátum, számlaszám, cég, számlázott összeg, vevő által befizetett összeg és a befizetésre váró maradék összeg.
Ebből kell jelentést csinálnom úgy, hogy ezek az adatok jelenjenek meg cégenként cégenként összegezve és a végén összegezve az egész. Eddig el is jutottam.
A gondom az, hogy a pivotban megjelenik minden számla, az is amelyik már ki van fizetve. Ide kellene egy szűrő amely megszűri az adatokat. Csak azok a tételek kellenek ahol a számlázott összeg nagyobb a vevő által befizetett összegnél. Magyarul, tartozik még a kedves vevő.Remélem sikerült érthetően megfogalmaznom.
-
csferke
senior tag
Szia Delila!
Gondolom nem olvasod/olvastad visszamenőleg a fórumot.
Ezért megkérnélek, hogy vess egy pillantást a #14434-es kérdésemre.köszönöm
-
csferke
senior tag
válasz Delila_1 #14451 üzenetére
Hát valóban, ez túl egyszerű lenne.
Mindenesetre nem ragaszkodom a Pivot-hoz.Feladat:
Egy munkafüzetlap adataiból készíteni egy kimutatást (másik lapot, amit majd esetleg nyomtatok is).
1.LAP adatai
- dátum, számlaszám, cég, fizetési esedékesség dátuma, számlázott összeg, befizetett összeg, számlázott-befizetett összegEzekből kellene egy összesítést készítenem, sorba rendezve 1.cégnév, 2.számlaszám szerint. Összegezve cégek szerint és a végén GrandTotal.
Ebben az összesítésben természetesen nem kell, hogy szerepeljenek azok a számlák amelyek már teljesen megfizettetésre kerültek.Egyszerűbben, adósok listája cégek szerint rendezve, összesítve.
köszönöm
-
csferke
senior tag
válasz Delila_1 #14462 üzenetére
Ez a "soreltüntető" Elrejt() makró működik.
Lenne még egy óhajom ezzel kapcsolatban.
Amikor kiválasztom a lapot akkor mindig az előző állapot látszik.
Frissítem a Pivot-ot.
Megjelennek azok a sorok amelyekre nincs szükségem.
Klikk a gombra, hogy eltűnjenek a felesleges sorok, amelyekre soha nincs szükség.Hozzá lehet-e rendelni az egészet ahhoz az eseményhez, hogy amikor megnyitódik a lap akkor lefusson egy makró automatikusan. Frissítse a Pivot-ot és lefuttassa az Elrejt()-et.
Így nem kell a felhasználóra hagyatkozni, hogy frissítse az adatokat és a gombra kattintva futtassa le az Elrejt()-et, hogy a megfelelő adatok látszódjanak.
köszi
-
csferke
senior tag
Valamikor az őskorban (dbase III, Clipper '87) én is programoztam. Megírtam egy kisebb cég komplett ügyviteli software-ét. Valamennyit konyítok az Excel-hez is.
Sajnos azonban nem sikerült egy kimerítő "bibliához" jutnom, mint annó "Clipper '87 Biblia" amiben részletesen le vannak írva a lehetséges parancsok (pl. Private Sub Worksheet_Activate(), EntireRow.Hidden, Application.ScreenUpdating = False és hasonlók) magyarázattal, példákkal.
Ez vagy Excel makró vagy Visual Basic de mindkettőhöz "tudástár" kellene.Tudtok-e könyvet ajánlani, letölthetőt (pdf) vagy megvásárolhatót Excel 2007-hez?
köszi
[ Szerkesztve ]
-
csferke
senior tag
Szia Delila,
nemrégen volt téma, hogy hogyan tüntessem el a Pivot táblából a nem szükséges sorokat. Ezzel a kóddal működik is.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
Next
End SubFelmerült azonban egy új eset is. Ha az aktuális sor D oszlopában lévő szám negatív előjelű ez a sor meg kellene, hogy maradjon, látszódjon a Pivot-ban.
[ Szerkesztve ]
-
csferke
senior tag
Igazad van
A hiba nálam van. A kódsorból én is úgy értelmeztem, hogy a negatívot sem kellene megjelenítenie.
Nem tudom, hogy miért de néha összekeveri magát a Pivot és nem jól jeleníti meg az adatokat. Újrageneráltam és most jó.köszi
[ Szerkesztve ]
-
-
csferke
senior tag
Elnézést a duplázásért.
-
csferke
senior tag
Delila!
Ezeket a makrókat Tőled kaptam . Jól is működnek, elvégzik a feladatukat.
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("PivotNenapFakt").PivotCache.Refresh
Elrejt
End SubSub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
Next
End SubA gondom a következő. Excel Pivot táblája elrejtett sorokkal amikor frissül akkor és újra Elrejt akkor nem jeleníti meg a pontos adatokat. A Grand Total az stimmel csak hiányzanak sorok a Pivot-ból. Arra gondolok, hogy a Hidden sorok miatt kutyulja össze magát.
Amikor nincsenek eltüntetve a sorok akkor jól frissül a Pivot.Kérlek írj egy új makrót is (Mutat) amelyet meghívnák mielőtt frissítődik a Pivot.
Reményeim szerint akkor jól mutatná az összegzési sorokat is.köszönöm
[ Szerkesztve ]
-
csferke
senior tag
Sziasztok!
Itt mi nem stimmel?Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End SubKiíratáskor nem teszi oda a Filename után a kiterjesztést .xlsm, sőt egyáltalán nem rak kiterjesztést.
[ Szerkesztve ]
-
csferke
senior tag
Találtam egy megoldást de sz.tem nem így kellene lennie.
fName = fName + "xlsm"
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=FalseHogy tovább bonyolítsam a dolgot.
A megnyitott Füzetből (Workbook) csak az éppen aktív Munkalapot (Worksheet) szeretném egy új file-be írni. Ezt hogyan kell?köszi
-
csferke
senior tag
Sziasztok!
Egy megnyitott Füzetből (Workbook) csak az éppen aktív Munkalapot (Worksheet) szeretném makróból egy új Workbook-ba ,file-be (*.xlsm) kiírni.
Ezt hogyan kell?
A workbook 7-8 worksheet-et tartalmaz és ezek közül kellene az éppen aktuálisat file-ba kiírni, a többi lap nem kell, hogy benne legyen az új *.xlsm-ben.
Próbálkoztam az ActiveSheet.SaveAs parancsal de a létrehozott workbook-ban benne van az összes munkalap is.köszi
-
csferke
senior tag
válasz Delila_1 #14687 üzenetére
Delila!
Köszönöm a gyors reagálást, segítséget.
Az eddigi próbálkozásaimból hiányzott az ActiveSheet.CopyPicit azért én is "komplikáltam" az egészen.
Sub LapotMent()
' Ctrl + w
ChDir "C:\Users\Ferke\Desktop\XX"
Do
fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")
Loop Until fName <> False
ActiveSheet.Copy
'ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
ActiveSheet.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
End SubHa nincs ez a sor akkor nem tesz kiterjesztést az újonnan létrehozott file után.
fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")Az ActiveWorkbook.SaveAs... és az ActiveSheet.SaveAs... ugyanazt eredményezi.
Lehetne még automatizálni az egészen csak sajna meghaladja a képességemet
Nem is kellene bekéretni az fName-t ha meg tudnám oldani, hogy a kiírandó aktív lap A17 és K7-es cellájában szereplő adatok adják az fName-et. Valahogy így &A17+"-"+&K7üdvözlettel
[ Szerkesztve ]
-
csferke
senior tag
Sziasztok!
Excel 2007 munkalapja úgy van beállítva, hogy üresen hagyja azokat a mezőket amelyek értéke 0 (nulla).
Egy oszlopban viszont a jobb átláthatóság miatt meg kellene jeleníteni a a null értékeket is.
Ez kivitelezhető?
Hogyan?köszi
-
csferke
senior tag
Sziasztok!
Egy cella mindig 3 jegyű számsorból áll (001 - 999). Ezekre nincs szükség mint szám mert nem kell vele semmilyen műveletet végrehajtani, viszont szerepelnie kell az elmentendő munkalapnévben.
Ha számként formázom a cellát akkor eltűnnek a vezető 0-ok.
Ha szövegként akkor mindig reklamál az excel (2007), hogy a szöveges mezőbe számok vannak.Hogy tudnám úgy formázni a cellát, hogy mindig látszanak a vezető 0-ák és hibajelentést sem kapjak?
köszi
-
csferke
senior tag
Sziasztok!
1.lap adatok (név, ir.szám, város, cím...)
2.lap pl. A1 cellába vlookup-al behozok egy nevet és az A2-ben szeretném összevonva megjeleníteni az ir.számot és várost (ir.szám+" "+város formában). A2-be vlookup ir.szám, B2-be vlookup város, eddig eljutottam.Hogyan kell "összeadni" a két vlookup-ot?
A1 cellába a név kiválasztásánál a legördülőben lehet-e két oszlop (pl. név, város). Az 1.lapon az adatok
város+név szerint vannak rendezve. Nagyban megkönnyítené a kiválasztást ha 2.lap A1-ben is látnám a városokat is.köszi
Új hozzászólás Aktív témák
- Politika
- Kerékpárosok, bringások ide!
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- SSD kibeszélő
- A fociról könnyedén, egy baráti társaságban
- EAFC 24
- Olasz autó topik (Fiat, Lancia, Alfa)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Házimozi belépő szinten
- ASZTALI GÉP / ALKATRÉSZ beárazás
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Canva Pro előfizetés - 1 éves
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24