-
Fototrend
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
-
-
lappy
őstag
Szia
Delila1 szerint itt van egy minta
a munka1 lapon jobb klikk- kód megjelenítése- majd a kapott kódot ahogy a képen látod (másolod, módosítod) a Munka2, Munka3 - saját munkalapod nevei és a jelszavakat is megadod és így tovább
illetve a ThisWorkbokk is beilleszted a makrót
makróbarát munkafüzetbe legyen mentve
Minta -
#49315
lappy
őstag
istvankeresz
#49314
lappy
őstag
válasz
istvankeresz
#49314
üzenetére
ha üres az A akkor ne csináljon semmit különben a képleted
-
#49292
lappy
őstag
z123456789
#49288
lappy
őstag
válasz
z123456789
#49288
üzenetére
na akkor mi hogyan tudunk ebből excelt gyártani
-
#49286
lappy
őstag
z123456789
#49285
lappy
őstag
válasz
z123456789
#49285
üzenetére
és a trello nyers fájl is kellene
-
#49283
lappy
őstag
z123456789
#49282
lappy
őstag
válasz
z123456789
#49282
üzenetére
tegyél fel ide egy nyers fájlt (nem kell valós legyen) és mellé egy másikat (pl. másik munkalapon) hogy mit szeretnél és könnyebb nekünk is
-
#49260
lappy
őstag
istvankeresz
#49259
lappy
őstag
válasz
istvankeresz
#49259
üzenetére
fkeres függvény
az adattábla esetén külön oszlopban a szám, a gyümölcs, a szín
és a függvényben a számra keresel majd a 2. és a 3. oszlop az eredmény -
#49228
lappy
őstag
f(x)=exp(x)
#49227
lappy
őstag
válasz
f(x)=exp(x)
#49227
üzenetére
=BAL(C3;2)&","&JOBB(C3;1)
nálam továbbra is szám marad lehet vele számolni -
lappy
őstag
-
lappy
őstag
válasz
Warton
#49179
üzenetére
Function SingleCellExtract(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim i As Long
Dim Result As String
For i = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(i, 1) = Lookupvalue Then
Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & ","
End If
Next i
SingleCellExtract = Left(Result, Len(Result) - 1)
End Functiona makrót a Module-ba kell helyezni
az alábbi saját függvénnyel =@Singlecellextract(E3;$B$3:$C$7;2) -
lappy
őstag
válasz
Warton
#49179
üzenetére
=INDEX($C$3:$C$7;KICSI(HA(($E$3=$B$3:$B$7);SOR($B$3:$B$7)-MIN(SOR($B$3:$B$7))+1;"");SOROK($A$1:A1)))
Tömbképlettel
C3 : C7 : nevek
B3 : B7 : cikkszám
E3 : keresett cikkszám
következő találathoz a képletben az A1 helyett A2 és így továbbtömbképlet nélkül
=@INDEX($C$3:$C$7;KICSI(INDEX(($E$3=$B$3:$B$7)*(HOL.VAN(SOR($B$3:$B$7); SOR($B$3:$B$7)))+($E$3<>$B$3:$B$7)*1048577;);SOROK($A$1:A2))) -
lappy
őstag
A következő probléma megoldásában kérném a segítségeteket:
Adott egy bemásolt lista az A1 cellától lefelé. A lista elemei legyenek a példa kedvéért sorban
pl.: cikkszám, mennyiség, egység, megnevezés, ár, …. , de a listában egymás után több cikkszám, mennyiség, egység … van
A következőt szeretném az átalakításhoz
A lista elemeit oszlopokba helyezze, de csak azt amelyikre éppen szükségem van – kijelöléssel történne és adom meg mettől meddig. Kijelölök egy tartományt akkor helyezze át a következő üres oszlopba majd a következő tartományt mellé (akár ezek az áthelyezések lehetnek egy munkalapon is). De a csavar az benne, hogy utána újabb listát másolok be és azt is mint az előző kijelölés után tegye az általam megadott oszlop utolsó eleme után. -
#49131
lappy
őstag
aprokaroka87
#49128
lappy
őstag
válasz
aprokaroka87
#49128
üzenetére
Ez a szám x szám szövegként van felvéve ha igen akkor beirod a mm is
-
#49097
lappy
őstag
[DDAY]F4C3
#49095
lappy
őstag
válasz
[DDAY]F4C3
#49095
üzenetére
Google segít ebben
-
lappy
őstag
válasz
andreas49
#49081
üzenetére
nincs olyan függvény csak makróval lehet
Sub HomeAllSheets()
Dim sh As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
For Each sh In ActiveWorkbook.Worksheets
sh.Select
Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Next sh
Sheets(1).Select
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub -
#48945
lappy
őstag
f(x)=exp(x)
#48944
lappy
őstag
válasz
f(x)=exp(x)
#48944
üzenetére
=ha(szám(szöveg.keres("MN";E10MN9));"Igen"; "Nem")
természetesen a megfelelő cellákat kell a szöveg.keres után, illetve lehet kiíratni magát a szöveget ha igen ha nem akkor lehet " " is helyette -
#48938
lappy
őstag
Lasersailing
#48937
lappy
őstag
válasz
Lasersailing
#48937
üzenetére
Szerintem megosztott dokumentumban a Vba nem működik (sajnos)
-
#48926
lappy
őstag
tonermagus
#48925
lappy
őstag
válasz
tonermagus
#48925
üzenetére
manuálisan
-
-
#48897
lappy
őstag
tonermagus
#48896
lappy
őstag
válasz
tonermagus
#48896
üzenetére
vmi hasonló elképzelés
-
-
#48806
lappy
őstag
BigBadPlaYeR
#48805
lappy
őstag
válasz
BigBadPlaYeR
#48805
üzenetére
Igen hasonló az elképzelés, de olyan kellene ami be is ír vmit és mivel céges így korlátozott a telepítési lehetőség
Ráadásul még van egy program ami figyeli a tevékenységedet (nem minden számít aktív munkának) de ha az excelt használod az jó, ezért kellene ebben megoldani -
#48794
lappy
őstag
BigBadPlaYeR
#48793
lappy
őstag
válasz
BigBadPlaYeR
#48793
üzenetére
esetleg ez segít
-
#48790
lappy
őstag
Csuklósbusz
#48789
lappy
őstag
válasz
Csuklósbusz
#48789
üzenetére
https://excelneked.hu/2019/05/09/excel-oszlopdiagram/
Vagy
https://www.excel-easy.com/examples/column-chart.html -
#48749
lappy
őstag
BigBadPlaYeR
#48748
lappy
őstag
válasz
BigBadPlaYeR
#48748
üzenetére
csak makróval lehet
-
#48674
lappy
őstag
Fire/SOUL/CD
#48673
lappy
őstag
válasz
Fire/SOUL/CD
#48673
üzenetére
Gondoltam azért tud egy ha függvény osszerakni meg akkor is ha negatív logikaval kell dolgozni
Meg most a kisbetu jutott eszembe
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- gban: Ingyen kellene, de tegnapra
- aquark: Zsebszámológépek
- Garmin Venu 4 - a nagy ugrás
- AMD Navi Radeon™ RX 9xxx sorozat
- Eredeti játékok OFF topik
- Autós topik
- TCL LCD és LED TV-k
- Okos Otthon / Smart Home
- Linux kezdőknek
- További aktív témák...
- Fallout 4 Pip-Boy Edition eladó
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft és egyéb dobozos retro szoftverek
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Új és régi konzolok Okosítása és Szoftveres szintű javítása - MÁR 13.00-S PS4 IS!
- Samsung Galaxy S23 Ultra 5G 12/512GB zöld használt, megkímélt 6 hónap garancia
- Dobozos ÚJ ASUS TUF 17 Ryzen 9 7940HS 16 GB DDR5 512 SSD RTX 4070 (8 GB) 2.5K 240Hz Garancia
- Gombászkönyvek egyben
- Dell USB-C, Thunderbolt 3, TB3, TB4 dokkolók (K20A) WD19TB / WD19TBS / WD22TB4
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest