- Az EU szerint kartelleztek az indítóakkumulátorok piacán
- Ha Trump győz, Elon Musk politikai tanácsadó lehet
- Hálózati / IP kamera
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- DIGI kábel TV
- Aliexpress tapasztalatok
- Asustor NAS
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Évente ontja majd magából az új AI-chipeket az NVIDIA
- QNAP hálózati adattárolók (NAS)
-
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
-
karlkani
aktív tag
válasz Fferi50 #45751 üzenetére
Szia!
Azt rögtön módosítottam (a linkekben amúgy / jel van). Sima szöveget nem módosítja, ha az elejéről törlöm az 1*file* részt, akkor sem. Hivatkozást módosít, de csak a kattinthatókat. Próbáltam, hogy bevittem egyet, majd azt lehúztam ameddig kell, a tartalmat töröltem. Beillesztettem a lejátszási listát, de mivel ott az elején mindnek a 1*file*, stb. így semmi sem történik.
-
karlkani
aktív tag
válasz Fferi50 #45753 üzenetére
Szia!
Ott a minta a kettővel ezelőtti hozzászólásomban. Ha a
https://szöveg/szöveg/szám/szám.m3u8
-t beillesztem egy üres lapra, hiperhivatkozásként kerül be, a makró működik. DE nálam így szerepelnek, ahogy előzőleg is leírtam:1*file*https://szöveg/szöveg/szám/szám.m3u8
Nem hivatkozásként jeleníti meg, nem csinál semmit a makró.Itt egy 3 soros minta, nem mintha számítana valamit is.
1*file*https://abcdefg.com/abc/123456789/123456789.m3u8
1*title*1. lista címe
2*file*https://abcdefg.com/abc/23456789/23456789.m3u8
2*title*2. lista címe
3*file*https://abcdefg.com/abc/234567890/234567890.m3u8
3*title*3. lista címe
Nem lehet úgy átírni a makrót, hogy sima, mezei szöveg esetén tegye már oda a
valami_
-t a két számot elválasztó / jel mögé?Excel 2013
[ Szerkesztve ]
-
looser
addikt
Sziasztok!
Keresgéltem már sokat, de olyan oldalt még nem találtam, ami abban segítene, hogy bizonyos napokon mennyi idős lesz az ember. Konkrétan ha azt szeretném megnézni, hogy mikor leszek 20000 napos, szóval ilyen irányban szeretnék számítást. Excelben ezt hogyan oldanátok meg? Tehát két adatot kérne be, a születési dátumot és azt, hogy az ember hány naposan milyen dátumon lesz.
Üdv
Mindent tudok a rákászszakmáról...
-
Fferi50
őstag
válasz karlkani #45754 üzenetére
Szia!
Miért ne lehetne úgy átírni.
Tehát minden második sorban van az a szöveg, amit ki szeretnél cserélni?
Akkor ilyen legyen a makró:Sub modosit()
Dim a As String, cl As Range
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A helyére írd az adataid oszlopát
If InStr(cl.Value, "/") > 0 Then
a = cl.Text
a = Left(a, InStrRev(a, "/")) & "valami_" & Mid(a, InStrRev(a, "\") + 1) ' a valami_ legyen idézőjelek között
cl.Value = a
End If
Next
End Sub
Remélem, így már tényleg működni fog.
Üdv. -
elemeskutya
csendes tag
Sziasztok!
Egy táblázatom A oszlopában, melynek van egy összetett fejléce is, sajnos nem lát minden elemet a szűrő.
Valami oknál fogva a frissen a táblázathoz adott sorokan nem veszi bele a találatokba.
Segítene valaki mi lehet az oka?Hogyan formázzam, hogy minden elem beleessen?
Köszönöm AttilaÜdv: Kis Attila
-
lappy
őstag
-
marec1122
senior tag
Sziasztok!
meg tudnátok mondani , hogy tudok egy ilyen dátum formátumból 2020.11.02 9:12:03 feltételhez való formátumot alakítani? pl A1: 2020.11.02 9:12:03 akkor ha A1>16:00 tehát az idő rész 16 óránál nagyobb akkor valami interakció
köszönöm
Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane
-
Lokids
addikt
Sziasztok!
VBA-ban:
Adott 2 táblázat.
A Oszlopban van n darab (egyedi)név. A többi oszlop fejléce (azonosító)számok.
Második tábla ugyanez, de a nevek sorrendje és az oszlopok sorrendje nem ugyanaz. Sőt a második táblába lettek új oszlopok is beszúrva. A Második táblában a nevek is változhatnak (új ember jött, régi lement)
B oszloptól az ... oszlopig % számokkal van kitöltve az első táblában.
A feladat: Az első táblából az adatokat, ahol van egyezés névre átmásolna a második táblába. Mindezt úgy, hogy jó oszlopba kerüljenek. Szóval ha az elsőben János 20. sorban van és a 40%-os értéke a C Oszlopban volt, aminek 205-s az azonosítója, akkor az kerüljön a második táblába ahol szintén ő van, de 18. sorban és a 205-s azonosítóval rendelkező oszlop a K.Ezt 4 egymásba ágyazott for cikluson kívül meg lehet máshogy oldani?
2 for, hogy a 2 sort megtaláljam és 2 for, hogy a 2 oszlop meglegyen.
Van ennek elegánsabb módja?If you chase two rabbits you will lose them both.
-
Fferi50
őstag
válasz Lokids #45768 üzenetére
Szia!
Szerintem az INDEX/HOL.VAN függvény párossal szépen meg lehet oldani, ha a fejlécek valóban azonosak a két táblában.
Az INDEX függvény első paramétere az első tábla teljes tartalma.
A második paraméter - ami a sor fogja adni:
HOL.VAN (második tábla A oszlop cellája; Első tábla A oszlop;0)
A harmadik paraméter - ami az oszlopot adja:
HOL.VAN (második tábla adott oszlop 1. cellája; Első tábla első sora;0)
Pl. 1. tábla adatai: A1-X30
A 2. tábla B2 cellájának képlete:=INDEX(Elsőtábla!$A$1:$X$30;HOL.VAN( $A2;Elsőtábla!$A$1:$A$30;0);HOL.VAN(B$2;Elsőtábla!$A$1:$X$1;0))
Ez a képlet húzható oldalra és lefelé is. Fontos a megfelelő címzés ($ jelek helye).
Azoknál a neveknél, amelyek az 1. táblában nincsenek benne, Hiányzik hiba kerül a cellába, ezt HAHIBA függvénnyel lehet "elmismásolni".
Üdv.
Ps. tudom, VBA -ban szeretnéd, akkor ezt a képletet írasd be a cellákba, összefüggő tartományba egy menetben is lehet.[ Szerkesztve ]
-
Fferi50
őstag
válasz Lokids #45772 üzenetére
Szia!
Az értékké alakítás természetesen a képletek kiértékelése után történhet. Tehát a képlet helyére másolja ugyanazt az értéket, amit a képlet eredményezett.
A képlet biztosan nem így működik, az megtalálja a megfelelő értékeket. Tehát, ha az első táblán az A5 cellában van a név, a másodikban pedig az A10-ben, akkor az A5-höz tartozó érték biztosan a 10. sorba fog kerülni. Persze ennek feltétele, hogy pontosan azonos legyen a két táblán a név a névlistában (A oszlop) és az azonosító az azonosító listában (1.sor).
Ha mindkét táblában az A oszlopban vannak a nevek, akkor az Fkeres /Hol.van kombináció is jó, hiszen az Fkeres az első oszlopban keres, a Hol.Van pedig az első sorból megtalálja a helyes oszlopot.
Vagyis először a képlettel megkeressük a megfelelő értékeket, majd az így kapott adatot átalakítjuk értékké.
Egyébként azt nem is értem, hogy az A5 (ami név ha jól gondolom), hogyan is kerülhetne a B10-be, mikor az már egy % érték lenne pl.
Üdv.
Ps. Ha mutatsz pl. egy 3x5 méretű táblát tartalmazó mintát, akkor valóságosan is meg tudom adni a képletet hozzá.[ Szerkesztve ]
-
Lokids
addikt
válasz Fferi50 #45773 üzenetére
Ide feltettem egy minta fejlécet. Második sorban lévő random számok az azonosítók.
Képzeld el úgy, hogy a második tábla ugyan ez, csak nincsenek benne a %-ok és mondjuk bekerült egy plusz oszlop a 4-es és 5-s közé az 1-es és a 7-es meg helyet cserélt.Így próbáltam megoldani:
For sor = 4 To s_MainLastRow
s_MainName = Workbooks(MainWBName).Worksheets(s_wsName).Cells(sor, 2).Value
For fteSor = 4 To s_PrevLastRow
s_FteName = Workbooks(FteWBName).Worksheets(1).Cells(fteSor, 2).Value
If s_MainName = s_FteName Then
For oszlop = 6 To s_PrevLastCol
s_mainFteNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(2, oszlop).Value
For fteOszlop = 6 To s_wsnameLastCol
s_FteNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(2, fteOszlop).Value
If s_mainFteNum = s_FteNum Then
Workbooks(FteWBName).Worksheets(1).Range(Col_Letter(fteOszlop) & fteSor).Copy _
Destination:=Workbooks(MainWBName).Worksheets(s_wsName).Range(Col_Letter(oszlop) & sor)
End If
Next fteOszlop
Next oszlop[ Szerkesztve ]
If you chase two rabbits you will lose them both.
-
Salvi22
friss újonc
Sziasztok. Van egy táblázatot, ahol egy iszonyat hosszú képlete van, ebből minden sornak külön képlete van, pontosan egy terméknek a sulyveszteset kell kiszamolni százalék, termek érési kora stb alapján, az alap képlet megvan és működik is, de hogyan tudom pl egyszerre az összes sor számát eggyel növelni, amikor új sort kezdek. Tehát pl a 643.sorban a képletben minden oszlop a 643. sorra utal, ezt szeretném valami gyorsabb módon atvinni új sor kezdesekof a 644. sorra atirni, van erre valami módszer? Remélem érthető ami a kérdésem, ha hülyén magyaráztam el légyszíves bátran kérdezzetek vissza :)
-
Fferi50
őstag
válasz Lokids #45774 üzenetére
Szia!
Próbáld ki ezt a makrót (a munkalap neveket írd át a sajátodnak megfelelően lsz.):Sub atmasol()
Dim alap As Range, masolt As Range
Set alap = Sheets("Munka1").UsedRange
Set masolt = Sheets("Munka2").UsedRange
Application.ScreenUpdating = False
With masolt
Set masolt = .Offset(2, 2).Resize(.Rows.Count - 2, .Columns.Count - 2)
End With
With masolt
.Formula = "=IFERROR(VLOOKUP(" & .Cells(1, 1).Offset(0, -2).Address(rowabsolute:=False, columnabsolute:=True) & "," & alap.Parent.Name & "!" & alap.Address(rowabsolute:=True, columnabsolute:=True) & ",MATCH(" & masolt.Cells(1, 1).Offset(-1, 0).Address(rowabsolute:=True, columnabsolute:=False) & "," & alap.Parent.Name & "!" & alap.Rows(2).Address(rowabsolute:=True) & ",0),0),"""")"
.Value = .Value
.Replace what:=0, replacement:="", lookat:=xlWhole
.NumberFormat = "0%"
End With
masolt.Parent.Activate
Application.ScreenUpdating = True
End Sub
Üdv. -
Fferi50
őstag
válasz Salvi22 #45777 üzenetére
Szia!
A sor száma előtt ne legyen $ jel. Akkor másoláskor az új sor számára fog átíródni.
De ha átalakítod táblázattá az adataidat (kijelölöd majd beszúrás - táblázat -ha van fejléc, akkor fejléc bejelöléssel). Ezután új sor kezdése esetén a képletet automatikusan átviszi, nem kell újra beírnod. De szerintem a sor szám akkor is $ jel nélküli legyen a képletben.
Üdv. -
bela85
aktív tag
válasz ny.janos #45729 üzenetére
Szia!
A korábbi táblás feladathoz egy újabb probléma társult amit nem igazán tudtam megoldani, ahogy korábban is volt hogy több oszlopban krétium van amikben "Igen, nem, talán," részek vannak. Hogy lehetne megoldani, hogy ne csak 1 oszlop kritériumát nézze hanem több oszlopét is.. ez összeágyazott Darabhatöbb függvénnyel megy, de van olyan aki mindkettő feltételbe is megfelel, őket meg összeadja.. pedig csak 1x kéne szerepelnie... ezt ki lehet valahogy küszöbölni?
(remélem érthető amit leírtam..siettem)
-
ny.janos
tag
válasz bela85 #45783 üzenetére
Szia!
Egyetlen cellába írható képletre nincs ötletem, de ha beszúrsz egy segédoszlopot, melyben egyetlen tömbképletben a SZUM függvénybe ágyazva az egyes oszlopokra vonatkozóan külön-külön vizsgálod a DARABTELI függvénnyel, hogy valamely neked megfelelő válasz szerepel-e az adott oszlopban, akkor attól függően hogy hány vizsgálandó oszlopod van vagy 0-át (mindegyik oszlopban "nem" érték szerepel), vagy legfeljebb az oszlopok számának megfelelő számot, illetve e kettő közötti értéket kell kapj. Ha ezt az egész képletet egy HA függvénybe ágyazod, úgy hogy 0 értékre 0, míg ettől eltérő értékre 1 eredményt kapj, akkor már csak összesítened kell a segédoszlopod (a képletet természetesen továbbra is tömbképletként kell lezárd).
(A HA függvény helyett egy szimpla >=1 reláció vizsgálat is használható, ha 1-el való szorzással átalakítod az IGENeket 1-é, a NEMeket 0-vá.)
Ha esetleg nem lenne érthető, akkor dobj fel egy fiktív adatokról készült képernyőképet ahol az oszlop és sorazonosítók is láthatók, úgy tudok konkrétummal is segíteni. -
Don.Corleone
aktív tag
Sziasztok! A cégnél bevezetésre kerülne a "postai iktatókönyv", de az írott formát felváltva lehetőség lenne excelben elkészíteni, viszont és ezt elfogadnák a különböző ellenőrző szervek. Esetleg van valakinek egy sablon excele iktatáshoz?
Más: Lenne egy sor, amelyben szerepelnek információk, ezt esetleg lehet úgy rögzíteni, hogy ha gördítem lefelé akkor mindig a képernyőn szerepel?
-
Delila_1
Topikgazda
válasz Don.Corleone #45785 üzenetére
A második kérdésre:
A Nézet menüben a Panelek rögzítése jó erre. A rögzítendő sor alá 1 sorral, és a rögzítendő oszlop mögé 1 oszloppal állj be, és úgy kattints a menüpontra. Pl. ha a teljes felső sort rögzítenéd, akkor A2-be állj, ha az A oszlopot is látni akarod jobbra görgetéskor, akkor B2-be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
-
Don.Corleone
aktív tag
Köszi szépen srácok!
-
DopeBob
addikt
Sziasztok, nem nagyon találok megoldást a következő problémára. Adott két oszlop, amiből egyet kéne csinálnom, úgy, hogy minden érték szerepel egyszer. Az értékek lehetnek közösek, vagy olyanok is ami csak az egyikben, vagy csak a másikban van. Pl:
A B C
0 0 0
1 2 1
2 5 2
5
Létezik erre valami beépített megoldás?
[ Szerkesztve ]
MZ/X
-
karlkani
aktív tag
Sziasztok!
Azt hogyan lehet megoldani makróval, ha változik egy cella tartalma, akkor a mellette levőbe kiírja az aktuális dátumot (MA függvény mindig frissül az aktuális dátumra)? Konkrétan az adatok a G2:G39 tartományban vannak, a H2:H39-et kellene kitölteni.
pl.: G2 cellába beírok egy számot (Ft, cellaformázással), akkor H2 cellába írja be 2021.1.17
Ha törlöm a cella tartalmát, akkor a mellette levő is üres legyen. -
Delila_1
Topikgazda
válasz karlkani #45793 üzenetére
Szia!
Rendeld a lapodhoz:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G2:G39]) Is Nothing Then
If Target = "" Then
Range(Target.Address).Offset(, 1) = ""
Else
Range(Target.Address).Offset(, 1) = Date
End If
End If
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.
-
karlkani
aktív tag
válasz Delila_1 #45796 üzenetére
Szia!
Ezt a hibát kapom, van a lapon már egy általad készített makró, ha azt törlöm akkor lefut.
Compile error:
Ambiguous name detected: Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
End SubMit kellene átírni, hogy mind a kettő működjön a lapon?
[ Szerkesztve ]
-
karlkani
aktív tag
válasz karlkani #45797 üzenetére
Összeraktam a kettőt, úgy néz ki működik.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
If Not Intersect(Target, [G2:G39]) Is Nothing Then
If Target = "" Then
Range(Target.Address).Offset(, 1) = ""
Else
Range(Target.Address).Offset(, 1) = Date
End If
End If
End Sub#45796 Delila_1
Kedves Kati!
Nagyon szépen köszönöm! -
karlkani
aktív tag
válasz karlkani #45798 üzenetére
Azt megoldható, ha egyszerre több cella tartalmát törlöm, akár az egész F2:G39 tartományt (F oszlopban van az aktuális összeghez tartozó megnevezés), akkor ne fusson hibára? Egyesével szépen törli a G oszlop celláit, de többet kijelölve az alábbi hibaüzenetet kapom.
Run-time error: '13':
Type mismatch
-
Delila_1
Topikgazda
válasz karlkani #45799 üzenetére
Szia Laci!
Nem tökéletes, de valamennyire javul.
Ha új neve(ke)t írsz az F oszlopba, akkor is törli a sor(ok)ban a G és H oszlop megfelelő sora(i)t. A H-t azért adtam a törölni valókhoz, mert akkor már nem kell a dátum.Private Sub Worksheet_Change(ByVal Target As Range)
Dim terulet As String
Application.EnableEvents = False
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
If Not Intersect(Target, [G2:G39]) Is Nothing Then
If Target = "" Then
Range(Target.Address).Offset(, 1) = ""
Else
Range(Target.Address).Offset(, 1) = Date
End If
End If
If Not Intersect(Target, [F2:F39]) Is Nothing Then
terulet = Target.Address
Range("VV1") = terulet: Range("VW1").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""F"",""G"")"
terulet = Range("VW1")
Range(terulet) = ""
Range("VW1").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""F"",""H"")"
terulet = Range("VW1")
Range(terulet) = ""
End If
Application.EnableEvents = True
End Sub[ 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.
Új hozzászólás Aktív témák
- Milyen TV-t vegyek?
- exHWSW - Értünk mindenhez IS
- Elektromos autók - motorok
- Diablo IV
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Kerékpárosok, bringások ide!
- Skoda, VW, Audi, Seat topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Kormányok / autós szimulátorok topicja
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Vírusirtó, Antivirus VPN kulcsok
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen