- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
-
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
-
Mutt
aktív tag
Szia,
A második sorban ahol a napok sorszámát lehet látni 1-től 31-ig, azok számként formázott dátumok vagy csak sima számok?
Ha dátumok, akkor a végén továbbra is elég a végén lévő rész erre kicserélned erre (az AH oszlopban lévő képletet módosítsd erre):
;HA(HÓNAP.UTOLSÓ.NAP(AH$2;0)=AH$2;"áv";"é");"")
Ha nem dátumok vannak, akkor a füzetben vhol kell rögzíteni hogy melyik évről és hónapról van szó ténylegesen. Én a B2 és C2 cellákba beírtam az évet (2019) és a vizsgált hónapot (3). Ha máshol van ez neked, akkor a lenti képletben cseréld ki a hivatkozásokat.
;HA(NAP(DÁTUM($B$2;$C$2+1;0))=AH$2;"áv";"é");"")
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
atyca
senior tag
Szia!
A kérdéses sor első cellája (D2) egy táblázatból, és az A1 (év),és B1 (hónap) cellákból merít,=DÁTUM($A$1;FKERES($B$1;Táblázat4[#Mind];2;0);1)
a sor cellaformázása egyéni (n).
A többi D2+1,D3+1..... cellaértékű.Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)
-
Mutt
aktív tag
Szia,
Ezek alapján dátum van a második sorban, vagyis használd a fentebb megadott első képletet.
A képletetet, csak a 28-31 napokat tartalmazó oszlopokba írd be, így csak ott fogja figyelni hogy utolsó napról van-e szó.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
sz_abika
addikt
Sziasztok,
egy kis segítséget VBA oldalról hadd kérjek (inkább júzer vagyok mint nem). Adott az alábbi instrukció
ActiveCell.Offset(-2, 0).Value = Worksheets("xxx").Range("A1")
ahol az xxx-re ugyan rákeres a makró és vissza is dobja a kívánt értéket, de sokszor a tényleges név az XXX1, XXX2, stb.
Szóval egyrészt kellene egy olyan parancs bele, hogy ha a worksheet neve tartalmazza azt hogy xxx, akkor vegye az A1 celláját,
illetve ha ez nem megoldható, akkor keressen az xxx worksheetre, ami ha nincs akkor xxx1-re, ha nincs xxx2-re. A számsor nem végtelen, max 4ig megy el, így működhetne ez a feltételes megoldás is.Köszönöm előre is!
PSN: xszabikax
-
Fferi50
őstag
válasz sz_abika #40408 üzenetére
Szia!
Egy munkalapra vagy a pontos nevével vagy a munkafüzetben elfoglalt helyének a sorszámával hivatkozhatsz.
Ha feltételesen keresed a munkalapot, akkor ciklusban kell végignézned azokat.
Pl.Sub keresi()
Dim sh As Worksheet, shvan As Boolean
shvan = False
For Each sh In Worksheets
If Left(sh.Name, 3) = "xxx" Then
ActiveCell.Offset(-2, 0).Value = sh.Range("A1")
shvan = True
Exit For
End If
Next
If Not shvan Then MsgBox "Nincs ilyen munkalap"
End SubÜdv.
-
Mutt
aktív tag
válasz sz_abika #40408 üzenetére
Szia,
Itt az én változatom a problémára:
Dim wsSource As Worksheet
Dim i As Long
Const wsName = " 1234"
i = 0
Do
i = i + 1
On Error Resume Next
Set wsSource = Sheets(Trim("xxx" & Mid(wsName, i, 1)))
On Error GoTo 0
Loop While wsSource Is Nothing And i < Len(wsName)
If wsSource Is Nothing Then
Call MsgBox("A keresett munkalap nem található", vbOKOnly, "Információ")
Else
ActiveCell.Offset(-2, 0).Value = wsSource.Range("A1")
End Ifüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
atyca
senior tag
Tökéletes!
p.s:
Jó ide járni.
53 évesen már egy picit nehezen férnek a dolgok a fejembe, nagy segedelem ha hozzáértő emberek támogatásával megoldódnak az excellel kapcsolatos problémáim.(volt már néhány )
Az pedig külön öröm, ha a Ti tudásotokra támaszkodva sikerül valamit önerőből megoldanom.
Még egyszer mindenkinek!Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)
-
-
Fferi50
őstag
válasz Declare #40412 üzenetére
Szia!
1. Akkor valami nincs rendben nálad, mert ez a parancssorWorksheets.Add(After:=Sheets(Sheets.Count)).Name = newSheetName
mindig az utolsó után szúrja be az új munkalapot. Mindegy, hogy melyik munkalapról indítod.
Esetleg lehagytad az zárójeles paramétert, vagy a Before paramétert használod?2. Ha gond van vele kérdezz bátran.
Üdv.
-
psycroptic
őstag
Sziasztok!
Excel 2010-ben megoldható valahogy, hogy két cellát külön figyelve, ha valamelyik meghalad egy bizonyos értéket, akkor egy a számára kialakított oszloban és helyen egy szöveget megjelenítsen? Például:
A1 vagy A2(ezekbe manuálisan van az adat beírva) meghaladja pl. a 240-es értéket, akkor automatikusan megjelenítene A3-ban egy szöveget, hogy pl.hosszúáru.
Remélem érthetöen fogalmaztam!
PSNID: Tomy83PS
-
Delila_1
Topikgazda
válasz psycroptic #40415 üzenetére
Az A3-ba
=HA(VAGY(A1>240;A2>240);"Túl nagy szám";"")
[ 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.
-
Delila_1
Topikgazda
válasz psycroptic #40417 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
őstag
Meg lehet venni ezt egyben? Mert én havi előfizus vagyok office csomagra, és lehet hogy ha egybe kifizetném akkor olcsóbb lenne.
http://steamcommunity.com/id/DrTechnoid/
-
EmberXY
addikt
Sziasztok!
Feltételes formázással kapcsolatos kérdésem lenne. Azt meg tudom-e oldani, hogy 2 feltételt figyeljen?
Olyasmit szeretnék megoldani, hogy egy adott cella színe váltson pirosra, ha benne a feltételben szereplő adat van, de csak akkor, ha a mellette lévő cellában található dátum már mai naphoz képest régebbi.
Meg lehet ezt oldani feltételes formázással, vagy valamilyen HA, ÉS függvény kombináció kell hozzá, neadjisten makró?
Köszönöm előre is.Up the Irons!
-
Declare
őstag
válasz Fferi50 #40413 üzenetére
Meglett a hiba (kettö gomb volt es az egyiknel atirtam az "After"-os valtozatra, a masiknal nem. AMikor probalgattam a gombokat a masodik gombnal nem müködött, csak ez nem tünt fel, hogy csak az egyikkel van a baj.)
A kereses es kigyüjtesre majdnem megvan a megoldas:
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Const Tab1 = "Bautagebuch"
Const Tab2 = "13.03.19"
Sub suchen()
iZähler = 5
With Worksheets(Tab1).Range("C1:C500")
OK = Application.InputBox("Wonach soll gesucht werden? ")
Set c = .Find(OK, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("A" + Trim(Str$(c.Row)) + ":G" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End SubA baj, hogy en datumot szeretnek keresni, de ha datumot beirom az inputboxba, nem törtenik semmi . Ha mas oszlopban keresek (nem a C ben, hanem mondjuk A ban) es ott beirok egy nevet, azzal tökeletesen müködik. Valami itt a datum formatum dologgal lesz szerintem, de nem tudom, hogy mi
Ötlet valakinek?
-
-
Fferi50
őstag
válasz Declare #40421 üzenetére
Szia!
"ha datumot beirom az inputboxba, nem törtenik semmi"
Történik, annyi, hogy nem találja meg amit keresel. Dátumot csak dátumként lehet keresni. Az inputboxba pedig nem tudsz dátumot beírni közvetlenül.
Szövegként tudod beírni és utána átalakítani dátummá.
Pl.OK = Application.InputBox("Wonach soll gesucht werden? ",type:=2) 'szöveget kell bevinni az érvényes rendszer dátumformátumban, pl. magyarban éééé.hh.nn
Set c = .Find(Datevalue(OK), LookIn:=xlValues)De probléma lehet az is, ha a keresendő oszlopban nem dátumok, hanem dátumnak látszó szöveges értékek vannak! Erről meggyőződhetsz, ha a cella formátumát megváltoztatod számra - ha dátum volt benne, akkor számot fogsz látni, ha nem, akkor az eredeti értéket. Természetesen vissza is lehet változtatni.
Ha dátumnak látszó szöveg van, akkor olyan formátumú szöveg kell legyen a keresés is.Üdv.
-
EmberXY
addikt
válasz Fferi50 #40422 üzenetére
Szia!
Köszönöm szépen, ez tökéletesen működik.Viszont olyan kérdésem lenne, hogy ezt a formázást lehet-e valahogy másolni? A cellák, amiket formázni kellene, egy oszlopban vannak, és mindegyiket szeretném az adott sor adatainak megfelelően formázni, ez megoldható valahogy, vagy csak egyenként?
Up the Irons!
-
BullZeye
veterán
Sziasztok,
Van 2 táblám, mindkettő cikkszám és megnevezés, valamint megvan, hogy a jobb oldali táblában mi minek a megfelelője. Fkeressel párosítanám őket 20%ban működik is, de a jobb oldali listában sok cellában egymás mellett vannak cikkszámok, mert bal oldali listában 1 cikkszám, jobb oldalon többnek is megfelel amit Fkeres nem kezel túl jól.
Nem tudom érthetően leírni, így inkább csatolok egy táblát példákkal.
megfelésbal és jobb lista + megfelelés megvan, és alul kellene összepárosítani őket valamivel.
-
Fferi50
őstag
válasz BullZeye #40428 üzenetére
Szia!
Mind az Fkeres, mind a Hol.van függvénynél használható a keresésre a csillag (*) joker karakter.
Ezzel lehet keresni többszavas cellában is.
Mivel itt a keresési oszlop hátrább van, mint az eredmény oszlop, ezért az INDEX-HOL.VAN páros használható:A C13 cella képlete legyen ez:
=INDEX(E$2:E$6;HOL.VAN("*" & $A13 & "*";$G$2:$G$6;0))
Ezt elhúzhatod lefelé és oldalra is.Figyelj az átírásnál a $ jelekre.
Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz BullZeye #40426 üzenetére
A G4 cellában kétféle narancsot összevontál, ami megakadályozza közös táblázat létrehozását. Új sort vittem fel az E7:G7 tartományba. Az eredményt az A19:D24-ben látod, a képletek háttere zöld.
Ímé.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Paxker315
addikt
Elég zöldfülű kérdés, nem találtam google-el.
Adott egy tartomány, amin belül egy bizonyos szó előfordulását (hány cella tartalmazza azt a kifejezést) szeretném összeszámoltatni.
Probléma: Ha egy cellában több dolog van felsorolva (ie.: "mogyoró, mandula, kesu") s pl. DARABTELI függvénnyel keresek a "mogyoróra", akkor azokat a cellákat, ahol más is szerepel köztük, nem számolja, csak azokat, ahol az egész cella tartalma tökéletesen egyezik.
Hogy lehetne legegyszerűbben megoldani?
teszem fel, így vannak az egymás alatti cellákban
"mogyoró"
"mandula, pisztácia"
"mogyoró, kesu"
"mogyoró, pekán, mandula"
"dió, pekán"hogy tudnám rávenni az excelt, hogy számolja össze azokat a cellákat, amiben előfordul a mogyoró kifejezés? Próbálkoztam többféle függvénnyel, eddig meddő.
segítséget előre is köszönöm
https://dynotech.hu/ - Új, kultúrált környezet, könnyen megközelíthető : )
-
Declare
őstag
válasz Fferi50 #40423 üzenetére
juhuuuu köszi szepen! Müködik.
Viszont van egy anomalia, amire nem tudok rájönni
Ez a kód:
(lenyege röviden: a "Tab1" munkafüzet C oszlopaban a "Tab2" munkafüzet nevenek (mindig egy datum, pl 15.03.19) megfelelö datumokat kikeresi. Ha talalal egy egyezöt, akkor kimasolgatja a "Tab1" munkafüzetben a datum soraban talalhato adatokat a "Tab2" munkafüzet megfelelö cellaiba.A teszt közben, akarmilyen 2019 es datummal teszteltem, lefut szuperül. 2018 as datumok közül viszont a többseggel nem müködik. Van amivel lefut jol, viszont a legtöbb tesztelt datummal egyszerüen nem fut le, mintha nem lenne a keresett datum a cél munkafüzet C oszlopaban. Pedig ott van es ugyan ugy van formazva. Az egesz C oszlop datumkent van formazva.
Egy pl: munkafüzet neve 15.03.19 => lefut es szuper.
10.12.18=> nem fut le (mintha nem talalna, de van)
09.10.18=> lefut es szuperNa erre mondjatok nekem valami magyarazatot es megoldast legyszi, mert total passz a kerdes. Ha viszont a makro hol müködik hol nem, ugy nem sok ertelme volt az egesz eddigi munkamnak vele
Sub Aktualisieren_Tagebuch()
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Dim Tab1 As String
Dim Tab2 As String
Tab1 = "Bautagebuch"
Tab2 = ActiveSheet.Name
OK = Tab2
Application.ScreenUpdating = False
iZähler = 15
With Worksheets(Tab1).Range("C1:C500")
Set c = .Find(DateValue(OK), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(Tab1).Select
Range("B" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("A" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("B" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("I" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("D" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("E" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("E" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Sheets(Tab2).Select
Application.ScreenUpdating = True
End Sub -
Declare
őstag
válasz Declare #40435 üzenetére
egy kis Update:
a összes tesztelt olyan 2018 as datumra lefut, ami 0 val kezdödik ( 02.11.18 ; 06.10.18 stb.). Ha viszont nem 0 val kezdödik akkor a 2018 as datumokkal nem fut a makro (vagy lefut de nem talal semmit). 2019 es evvel semmi problema, akarmilyen datummal lefut
-
Fferi50
őstag
válasz Paxker315 #40434 üzenetére
Szia!
Tételezzük fel, hogy az A1:A5 cellákban van a keresés, a C1 cellában a keresendő szöveg.
A D1 cellába írd be a következő tömbképletet:=SZUM(HA(HIBÁS(SZÖVEG.KERES($C$1;$A$1:$A$5)>0);0;1))
A tömbképletet Ctrl + Shift + Enter billentyűkombóval kell bevinni, az Excel kapcsos zárójelbe teszi.Üdv.
-
3DFan
aktív tag
Sziasztok! Hogyan tudom egy oszlopból az egész számokat tartalmazó cellákat kiválasztani?
Kiszínezni a megtalált cellákat vagy a címüket egy másik oszlopba kiíratni egymás alá. Köszönöm. -
l.skywalker
félisten
Excel Masterclass Udemy Course
Ezzel a kóddal ingyenes:EXCEL_DISC_FEB19
Nem szabad félnem. A félelem az elme gyilkosa. A félelem a kis halál, mely teljes megsemmisüléshez vezet. Szembenézek félelmemmel.
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- Fujifilm X
- További aktív témák...