Hirdetés
- Xiaomi 15T Pro - a téma nincs lezárva
- Vivo X200 Pro - a kétszázát!
- Mit várunk 2026-ban a mobilpiacon?
- Samsung Galaxy S25 - végre van kicsi!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Rugalmas OLED panelre válthat a Samsung Galaxy A57
- iPhone topik
- Azonnali navigációs kérdések órája
- OnePlus 15 - van plusz energia
- Bemutatkozott a Poco X7 és X7 Pro
-
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
-
mdk01
addikt
Sziasztok, feltételes formázásnál meglehet olyat adni, hogy soronként figyelje a cellákat és szinezzen?
Gondolok itt olyanra hogy, pl.ha B1>0 akkor A1 cella legyen zölddel kitöltött és ez így megy tovább, ha B2>0 akkor A2 legyen zölddek kötöltött.
Ez így megy folyamatosan.
A B oszlopba képlet számolja az összeget, oda nem írnék be semmit. Köszönöm -
Mutt
senior tag
Szia,
Legördülő menüt az Adatok -> Érvényesítés opcióval tudsz csinálni.
Megjelenítésben az INDEX és HOL.VAN páros kell. A HOL.VAN megmondja, hogy a kiválasztott elem hányadik sorban van az eredeti táblázatban és az INDEX pedig egy tartományból a megadott sor és oszlop elemét tudja visszaadni.üdv
-
Mutt
senior tag
-
Mutt
senior tag
Szia,
Ha a felhasználó hozzáfér egy munkalaphoz, akkor már nehezen lehet leszabályozni hogy melyik sorhoz férjen hozzá. Talán az lehetne egy megoldás, hogy mindig az első 2 sorba írnád bele a felhasználóra tartozó adatokat egy másik helyről és a Worksheet_SelectionChange eseménnyel próbálnád meg leblokkolni hogy ne mászkáljon el.
Én inkább egy másik megoldást javaslok, ami kicsit bolondbiztosabb és bonyolultabb is.
Userform-ot, amin keresztül a beléptetjük a felhasználót és megjelenítjük az adott sor adatait, amit ott tud módosítani és visszamenteni az eredeti lapra.
Az előnye ennek, hogy mindegyik lapot el tudod rejteni (akár VeryHidden-ként), így középszintű Excel felhasználóktól is megtudod védeni az adatokat.
Egy csontvázat mutatok be, ami alapján el tudsz indulni.
1. A fájlodban van két munkalap, az egyiken vannak az adatok, a másikon pedig a felhasználói azonosítók és jelszavak. Ezen lapokat nyugodtan elrejtheted.
2. VBA-ban szúrj be egy formot és kezd el rá dobálni az alábbi vezérlőket:
- egy combobox a felhasználói neveknek (ezzel egy legördülő listát lehet csinálni)
- egy textbox kell a jelszóhoz,
- 2 gomb a belépéshez és kilépéshez a programból.Lehet még felrakni labeleket, hogy tudjuk mi mire való, illetve én tettem fel egy pluszat is ahova ki lehet írni a sikeres belépés vagy a hibás felhasználó üzeneteket.
3. Legyen pár globális változónk, hogy tudjuk rájuk minden helyen gyorsan hivatkozni.
Option Explicit
Dim wsUsers As Worksheet, wsData As Worksheet, lastrowUsers As Long, lastrowData As Long
Dim activeRow As Long 'control which row should be displayedA wsUsers és WsData egy változó lesz azon munkalapokhoz ahol vannak az adatok és a felhasználók, illetve megjegyezzük hogy ezen lapokon hol vannak az utolsó sorok.
Az activeRow pedig mindig mutatni fog arra a sorra, ami a belépett felhasználóhoz van rendelve.4. A Userform indulásával feltöltjük a username comboboxot, aminek én a cbUserName azonosítót adtam.
Beállítjuk a többi változót.Private Sub UserForm_Initialize()
Dim i As Long
Const UserSheet = "Users" 'worksheet name with user ids, passwords etc
Const DataSheet = "Data" 'worksheet name with actual data
Set wsData = Worksheets(DataSheet) 'assign data sheet to a variable
Set wsUsers = Worksheets(UserSheet) 'assign user id sheet to a variable
lastrowData = wsData.Range("A" & Rows.Count).End(xlUp).Row 'find the last row on data sheet
lastrowUsers = wsUsers.Range("A" & Rows.Count).End(xlUp).Row 'find the last row on user sheet
'load valid users to username controlbox
For i = 2 To lastrowUsers
Me.cbUserName.AddItem wsUsers.Range("A" & i)
Next i
End Sub5. Ha van felhasználói név és jelszó megadva, akkor lehet csak belépni. Ehhez én figyelem ennek a két doboznak (cbUserName -ről már írtam, a jelszó pedig a txPassword textbox-ban van) a change eseményét nézem, de lehetne az AfterUpdate-t is. A lényeg, hogy a form indulásakor a Login nevű gomb inaktív (ez az alapértelemezett értéke) és csak akkor lesz kattintható ha van név és jelszó megadva.
Private Sub cbUserName_Change()
'if both username and password is filled then enable login button
If cbUserName <> "" And txPassword <> "*" Then
btLogin.Enabled = True
lbComment.Visible = False
End If
End Sub
Private Sub txPassword_Change()
'if both username and password is filled then enable login button
If cbUserName <> "" And txPassword <> "*" Then
btLogin.Enabled = True
lbComment.Visible = False
End If
End Sub6. Ha kattintanak a Login gombra, akkor megnézzük hogy a megadott felhasználó és jelszópáros egyezik-e a menttettel. Ha igen, akkor
- van egy hely (LoginComment) ahova kiírjuk hogy sikeres a belépés
- megkeressük hogy a felhasználóhoz melyik sorban van adat rendelve és az activeRow változóba ezt beállítjuk,
- láthatóvá tesszük azokat a vezérlőket, amelyekben megjelenítjük a felhasználóhoz tartozó adatokat .Ehhez a formra felvittem még pár mezőt, így néz ki a teljes form:
Hibás belépésnél lényegében csak kiírjuk a hibát és töröljük a megadott jelszót.
Private Sub btLogin_Click()
Dim cell As Range
Dim i As Long
For Each cell In wsUsers.Range("A2:A" & lastrowUsers)
'find the selected username on user id sheet
If UCase(cell) = UCase(cbUserName) Then
'if password matches then print out a notification and display the data
If cell.Offset(, 1) = txPassword Then
lbComment = "Successful login"
lbComment.Visible = True
txPassword = "*" 'password is visible on the form, so after a valid login hide it
btSave.Visible = True 'make visible the save button
'find the correct line for the selected user on data sheet
If UCase(cbUserName) = "ADMIN" Then
activeRow = 2
spinRecord.Visible = True
spinRecord.Min = activeRow
spinRecord.Max = lastrowData
Else
For i = 2 To lastrowData
If UCase(wsData.Range("A" & i)) = UCase(cbUserName) Then
activeRow = i
End If
Next i
End If
Call DisplayData
Else
'wrong password was given
lbComment = "Invalid username or password"
lbComment.Visible = True
txPassword = "*"
End If
End If
Next cell
End Sub7. A cancel (kilépés) gombnak egyszerű az eseménye, bezárja a formot.
Private Sub btCancel_Click()
Unload Me
End Sub8. A felhasználóhoz rendelt adatok megjelenítésére csináltam egy külön szubrutint, DisplayData névvel, Ez most nagyon minimalista.
Sub DisplayData()
With wsData
If Len(.Cells(activeRow, 2)) > 0 Then
txRecord1 = .Cells(activeRow, 2)
Else
txRecord1 = ""
End If
If Len(.Cells(activeRow, 3)) > 0 Then
txRecord2 = .Cells(activeRow, 3)
Else
txRecord2 = ""
End If
If Len(.Cells(activeRow, 4)) > 0 Then
txRecord3 = .Cells(activeRow, 4)
Else
txRecord3 = ""
End If
End With
End Sub9. Ha a felhasználó átírja a formon az adatot, akkor a Save gombbal visszaírjuk a munkalapra.
Private Sub btSave_Click()
With wsData
.Cells(activeRow, 2) = txRecord1
.Cells(activeRow, 3) = txRecord2
.Cells(activeRow, 4) = txRecord3
End With
End Sub10. Végül az ADMIN-ra kell egy kicsit rágyúrni, mivel ő látja az összes adatot.
Neki az a megoldás, hogy van egy görgető sáv (én most a spinbutton vezérlőt használom, a spinRecord nevet adtam neki), amin tud lépkedni az egyes mezők között. Ezt a görgető sávot a belépéskor teszem láthatóvá neki és beállítom hogy a 2-es sortól (1-esben a fejléc van), csak az utolsóig mehet. A léptetést a vezérlő change eseménye oldja meg, mert módosítja az activeRow értéket és egyből meghívja a DisplayData-t.Private Sub spinRecord_Change()
activeRow = spinRecord.Value
Call DisplayData
End SubA végeredmény így néz ki Admin-al belépve:
A UserForm-nak nagy előnye, hogy áttekinthető formában tálalni a felhasználó felé azokat az adatokat amiket te választasz ki, illetve ha sok adatot kell bekérni akkor ott is tud segíteni, mert mentés előtt tudsz validálást csinálni.
Ha akarod akkor automatikusan indíthatóvá teheted.
Private Sub Workbook_Open()
MainForm.Show
End Subüdv
-
-KP-
veterán
Üdv,
https://data-bass.com/systems
Ezeket az adatokat importáltam be excelbe. Szeretnék 2-3 sort csinálni, amit összehasonlításra használnék. Semmi másra nincs szükségem, csak egy legördülő menüből kiválasztani, melyik sor adatait mutassa, hogy egymás alatt lássak 2-3 típust, mert a 126 sort lehetetlen átlátni egybe. Ezt milyen elemmel, milyen trükkel tudnám megcsinálni?
-
RAiN91
őstag
Sziasztok
Egy munkafüzetben 0:00:00 - 0:30:00-ig vannak idő formátumban adatok. Elvileg másodpercenként, de van hogy ez nem jön össze, ilyenkor hibás a képlet ha hiányzik az adott adat. Példaként hiányzik a 0:04:00 időpont.Azt szeretném megcsinálni, hogy ha hiányzik (erre van függvényem, tudom, hogy hol hiányzik), akkor az ahhoz legközelebbi időpontot írja át 0:04:00 -ra (. 0:03:59)-et cserélje ki.
Van erre valami egyszerű megoldás, akár VBA-ban?
Köszönöm!
-
lappy
őstag
Private Sub CommandButton1_Click()
Dim objTargetWorksheet As Worksheet
If (TextBox1.Value = "John" And TextBox2.Value = "234") _
Or (TextBox1.Value = "Amy" And TextBox2.Value = "345") _
Or (TextBox1.Value = "Paul" And TextBox2.Value = "456") Then
Me.Hide: Application.Visible = True
For Each objTargetWorksheet In ActiveWorkbook.Worksheets
If objTargetWorksheet.Name = TextBox1.Value Then
objTargetWorksheet.Unprotect Password:=12345
Else
objTargetWorksheet.Protect Password:=12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
Else
MsgBox "Please input the right user name and the right password"
End If
End Sub
Private Sub CommandButton2_Click()
ThisWorkbook.Application.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Application.Quit
End SubEz a kód már majdnem jó!
Csak annyi a probléma hogy itt munkalapokat enged, de nekem csak sor kellene
Pl.:
John csak a 1-2. sort látja
Amy csak 1-3. sort látja
Paul csak 1-4 sort látja
Admin az összes sort látja -
lappy
őstag
Sziasztok!
Olyan segítség kellene nekem hogy van egy munkalap. A munkalapon adatok szerepelnek. Azt szeretném, hogy amikor megnyitom a munkafüzetet akkor kér egy felhasználói nevet és kódot (ebből lenne vagy 30 db). Amikor beüti a kódját akkor az hozzárendeli egy adott sorhoz amiben a neve szerepel és az adatait tudja változtatni. De a többi felhasználó adatait nem látja!
Viszont van egy fejléc (1 sor) amit minden esetben lát. -
#39090
kutga
félisten
dellfanboy
#39088
kutga
félisten
válasz
dellfanboy
#39088
üzenetére
Lehet. 1-2 tételnél van csak, majd megnézem őket. A többi kb száz darab okés.
-
#39087
kutga
félisten
dellfanboy
#39086
kutga
félisten
válasz
dellfanboy
#39086
üzenetére
Köszi meg is csináltam. Érdekes hogy pár tételnél rossz értéket ad, azokat kézzel javítottam.
-
kutga
félisten
Hölgyek/Urak!
Van két excel táblám egyedi tételszámokkal és a hozzájuk kapcsolódó egységárakkal.
Az elsőben referencia árak szerepelnek, a másodikban ugyanezen tételekhez tartozó konkrét árajánlatok. Azt kellene igazolnom, hogy a másodikban szereplő árak azonosak vagy kedvezőbbek az elsőben szereplőnél (a referenciánál).
Elkezdtem egyenként bepötyögni őket de így elég nehézkes. Nincs erre valami automatikus megoldás? Az egyedi tételszámok mindkét táblában azonosak.
-
Mutt
senior tag
Sziasztok,
Érdemes megnézni, pár Excel MVP háziversenyét a Youtube-on.
Mr. Excel inkább a tartalomra (ami nagyon érdekes) ment rá, mint a látványra/megoldásra. A lányok vizuálisan szép megoldásokat adtak, Mike Girvin képletei még mindig ütősek, Oz szerintem gyenge volt. Nálam Jon Acampor volt a legjobb, mert egy interaktív dashboard alapjait mutatta be.
üdv
-
#39083
Mutt
senior tag
szricsi_0917
#39072
Mutt
senior tag
válasz
szricsi_0917
#39072
üzenetére
Szia,
Nézd meg előbb, hogy Power Query-vel meg tudod-e csinálni a kért feladatot.
Javaslom, hogy a Power Query segítségével "fűzd" össze a sok fájlt és arra már lehet FKERES/VLOOKUP.
üdv
-
#39081
Mutt
senior tag
dellfanboy
#39080
Mutt
senior tag
válasz
dellfanboy
#39080
üzenetére
Szia,
Az ikonkészlettel nem fog menni, ezt a kerülő megoldást javaslom.
1. Keress egy olyan betűkészletet, amelyben van a neked tetsző pipa és kereszt. pl. a Wingdings betűtípusokban vannak ilyenek.
Én a "HoloLens MDL2 Assets" betűtípust használom, mert abban egyszerűbbek ezek az ikonok.
Egy cellába rakd be a két ikont (Symbol -> Insert), hogy onnan ki tudd másolni, mert sokszor olyan karakterhez vannak ezek rendelve amelyeket billentyűzetről nehéz bevinni.
2. Az adatsorod mellé kell egy segédoszlop, ebben a képlet ennyi:
=IF(vmiadat=0;pipaikon;keresztikon)
3. Most már csak színformázást kell adnod ehhez a tartományhoz.
A példában zöld illetve piros hátteret és fehér betűszínt választottam.
üdv
-
#39080
dellfanboy
őstag
dellfanboy
őstag
kond. formazasnak pontosan hogy kell beallitani a feltetelrendszert hogyha azt akarom:
amennyiben a kalkulat cella erteke 0 zold pipa minden mas esetben piros x?
-
-
Üdv!
Azt szeretném megoldani hogy ha az A1 cellában 1-es szám van akkor mellé a B1 cellába automatikusan kerüljön beírásra hogy "szép"
Ha az A2 cellában egy 2-es szám szerepel akkor a B2 cellába automatikusan kerüljön bele hogy "csúnya"
Ha az A3 cellában egy 3-as szerepel akkor pedig automatikusan kerüljön a B3 cellába hogy "kedves"Ezt meg lehet oldani?
-
#39072
szricsi_0917
tag
szricsi_0917
tag
Sziasztok
Egy kis segítséget szeretnék kérni makróval kapcsolatban. Van egy minta táblázatom aminek az egyik munkalapján két oszlop van az első cikkszámok a mellette lévő pedig azok elnevezése.
A kérdés, hogy van egy mappa amiben nagyon sok excel fájl van de mind azonos felépítésű de csak az egyik munkalapja érdekel. Azt szeretném, hogy minden fájlnak nyissa meg az adott munkalapját majd a minta tábla alapján keresse meg a cikkszámokat és ahol egyezést talál ott írja felül a mellette lévő oszlopban az elnevezést -
#39070
ccs2929
senior tag
garga pista
#39060
ccs2929
senior tag
válasz
garga pista
#39060
üzenetére
Köszönöm neked is, és Mutt-nak is. A napokban kipróbálom majd mindegyik megoldást, tudom, hogy a névben, meg az adószámban is lehet eltérés, szóval nem 100%-os az eredmény, de azért így biztosan jóval kisebb lesz a duplikáltak aránya.
-
ny.janos
tag
válasz
qpakcovboy
#39068
üzenetére
A képletek menüben a számolási beállítások alatt állítsd automatikusra az értéket (minden bizonnyal manuális a beállításod).
-
#39068
qpakcovboy
őstag
qpakcovboy
őstag
Nagyon fura dolog történt az egyik táblázatommal, szerintem véletlenül átkapcsoltam valamit és most nem tudom visszaállítani.
Az a hibajelenség, hogy ctrl+c; ctrl+v módon másolok egy képletet. A másolás sikerül, de azt az eredményt írja be a cellába, amit másoltam és nem azt ami jó lenne. Ha rámegyek a cellára és nyomok egy entert, akkor utána átjavítja a jó eredményre.
-
Mutt
senior tag
válasz
Agostino
#39064
üzenetére
Szia,
Ha a képen látható módon rendezed az adatodat, akkor megkapod a kívánt eredményt.
Lépések:
1. Kijelölöd az adattartományod, majd grafikon beszúrásakor kiválasztod a halmozott oszlop diagrammot.
2. Excel próbál okos lenni és 3 oszlopot tesz egymás mellé, de te kattints a sorok/oszlopok felcserélésére.üdv
-
Mutt
senior tag
válasz
ccs2929
#39059
üzenetére
Szia,
"...sorokat összehasonlítsunk legalább 2 oszlop figyelembe vételével és az azonosokat valamilyen módon kiemeljük, pld. színnel..""
Ilyen esetre, használható a DARABHATÖBB (COUNTIFS) függvény, amely megszámolja hogy a feltételként megadott érték a kiválasztott oszlopban hányszor szerepel.
pl. A-oszlopban név, G-oszlopban adószám, és van fejléced, akkor
=DARABHATÖBB(A:A;A2;G:G;G2) megmondja hogy adott névvel és adószámmal hány találatod van a második sorban lévő partnerre, ezt csak le kell húznod és megkapod az eredményt az összes cégre.Feltételes formázásban is lehet használni.
üdv
ps. A névre való keresés nem olyan biztos megoldás, mert lehet hogy az egyik rendszerben használtak ékezeteket vagy rovidítéseket és a másikban nem. Az adószámnál pedig bonyodalmat az okozhat, ha EU-s változatban vagy magyar formátumban került felvitelre az adószám.
-
#39065
Mutt
senior tag
thomas50.000
#39062
Mutt
senior tag
válasz
thomas50.000
#39062
üzenetére
Szia,
"...whatsmycolor függvény sajnos nem frissíti önmagát...."
A tippem azt lett volna, hogy elég egy Application.Volatile parancsot tenni az UDF-be, de az Excel-ben a cella szinének megváltozásakor nincs esemény indítás, azért ez sem megoldás.
A legjobb megoldás, hogy azon munkalap selectionchange eseményéhez, ahol használod a függvényt rendelsz egy Application.CalculateFull parancsot.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CalculateFull
End SubEnnek a hátránya ugyebár, hogy MINDEN értéket újraszámol a munkalapon ami lassabbá teszi a műkődést.
üdv
-
Agostino
addikt
sziasztok
olyan cikket keresek vagy leírást, ahol rá tudnék jönni a következőre: kellene egy darab diagram három értékből. kettő értéket szeretnék halmozott oszlopban, mellette a harmadik értéket egy sima oszlopban. tehát mondjuk alma és körte 20 db 30 db, ezek együtt egy oszlopban, két színnel, mellette banán egyetlen oszlopban, egy színnel. nem tudom mennyire voltam érthető : ) próbáltam keresni megoldást, de szerintem rossz keresőszavakat használok.
-
#39062
thomas50.000
csendes tag
thomas50.000
csendes tag
Sziasztok!
Az lenne még a problémám, hogy a whatsmycolor függvény sajnos nem frissíti önmagát.
Ezt valahogy meglehetne oldani, hogy automatikusan, amint szín változás történik a cellában, ő rögtön változtassa a számot is?
Function whatsmycolor(melyikcella) As Long
whatsmycolor = [melyikcella].Interior.Color
End FunctionA válaszokat előre is köszönöm!
-
#39060
garga pista
őstag
ccs2929
#39059
garga pista
őstag
válasz
ccs2929
#39059
üzenetére
Szia!
Van szebb megoldás is, de hirtelen így csinálnám:
Berakok egy segédoszlopot, ahol ÖSSZEFŰZ függvénnyel összerakom a két azonosítót, majd az így létrejött teljes oszlopon Feltételes formázás->Cellakijelölési szabályok-> Ismétlődő értékek... majd ok. Így pirossal színezi ahol duplikátum van. Persze ha van plusz szóköz, stb. akkor már nem működik. -
ccs2929
senior tag
Sziasztok!
Nem vagyok Excel guru, biztos leírtátok már a megoldást 100x is, de most nincs időm visszaolvasni, segítsetek kérlek:
2 különböző programból exportálok ki Excelbe partnertörzset, amit egy 3. programba kellene beimportálnom. Vannak a partnerek közt átfedések, és nem szeretném, ha az új programunkba duplázva lennének a partnerek.
A kérdésem az lenne, hogy megoldható-e, hogy sorokat összehasonlítsunk legalább 2 oszlop figyelembe vételével és az azonosokat valamilyen módon kiemeljük, pld. színnel, az sem lenne baj, ha különböző színnel.
Mondjuk a név oszlop és az adószám oszlop lenne ami alapján egyezőségeket kellene keresni.
Előre is köszönet. -
#39057
Delila_1
veterán
dellfanboy
#39056
Delila_1
veterán
válasz
dellfanboy
#39056
üzenetére
Állj a megjelenítendő (cím)sor alá, majd kattints a Nézet | Panelek rögzítése menüpontra.
Mit szeretnél még megjeleníteni a hivatkozásban?
-
#39056
dellfanboy
őstag
dellfanboy
őstag
van olyan beallitas excelben ami:
- mindig az elso sorra mutat? jelen esetben ha legorgetek, a150. sorra es elmentem, akkor amikor ujbol megnyitom a file-t a 150. sor fel mint default.
Azt szeretnem ha mindig az elso sorok latszodnanak.
- kizarja hogy adott cellaba mas excel file-bol linkeljek adatot. csak ertekek, vagy excel fv szerepelhet. ilyen letezik? -
#39051
Fferi50
Topikgazda
szabonorbkk
#39039
Fferi50
Topikgazda
válasz
szabonorbkk
#39039
üzenetére
Szia!
Esetleg próbáld ki az alábbi képletet egy segédoszlopban:
=DÁTUM(ÉV(A1);HÓNAP(A1);NAP(A1))
Ha működik, végighúzod az oszlopon, majd másolás - irányított beillesztés értéket a segédoszlopra. Utána átmásolhatod az eredeti helyre, segédoszlopot törölheted.Üdv.
-
Fferi50
Topikgazda
Szia!
"Esetleg még azt hogy a keresés beírásakor oda is ugorjon. ( több ezer sornál gyorsabb lenne )"
Ezt hogyan gondolod? Ha talál három egyezőt, mindháromra nem tud ugrani egyszerre. Vagy egyesével ugrál és megvárja, hogy csinálj vele valamit, vagy a legelsőre esetleg a legutolsó találatra tud ugrani.
Az ugrás maga:Rng.Activate
mondjuk ez elé:Rng.Interior.Color=vbYellow ' sárgára színezi a cellátÜdv.
-
Mutt
senior tag
Szia,
A gondot az okozza, hogy ugyanazok az azonosítók és értékek más nappal is bekerülnek a táblába, viszont a jelenlegi képletet csak a legkorábbi nap érdekli.
pl. a 21-es sorban a 4455-ös azonosítóhoz az elvégezve dátum augusztus 4, miközben a 2-es sorban van már egy elvégezve augusztus 2-vel. A MIN függvény augusztus 2-át fog vissza adni, és mivel a 4-es sorban meg van a párja ugyanarról a napról, így minden további eset amikor a 4455-ös azonosító fel van sorolva már duplikáció lesz.
A feladatodat érzésem szerint bővíteni kell és téged azok az esetek érdekelnek, amikor:
1. ugyanazon a napon van az azonosítónál ELVÉGEZVE és LEHETŐSÉG és
2. csak azokat a sorokat akarod megjelölni, ahol több lehetőség van és azok napja egyezik az elvégezve napjával.A megoldás, hogy nem keressük meg a legkorábbi napot, hanem megszámoljuk hogy az adott napon hányszor van ELVÉGEZVE és LEHETŐSÉG:
=HA(HA(DARABHATÖBB($E:$E;$E2;$F:$F;"elvégezve";$N:$N;$N2)*DARABHATÖBB($E:$E;$E2;$F:$F;"lehetőség*";$N:$N;$N2);DARABHATÖBB($E$2:$E2;$E2;$F$2:$F2;"lehetőség*";$N$2:$N2;$N2)>1;HAMIS);"x";"")Ennek a megoldásnak a számodra még annyi előnye van, hogy a nap oszlopnak nem kell innenől dátumnak lennie, visszarakhatod a korábbi állapotába.
üdv
-
ny.janos
tag
válasz
szabonorbkk
#39039
üzenetére
Szia!
A korábban már javasolt jegyzettömbös trükköt javaslom neked is.
-
Teejay83
tag
-
Delila_1
veterán
Táblázattá alakítod az adataidat. Beszúrás, Táblázat. Ebből készíted el a kimutatást.
Mikor bővíted a sorokat, a táblázatod mérete automatikusan az új tartományhoz idomul. Ekkor annyi a teendő, hogy a kimutatást frissíted (kimutatásban állva jobb klikk, frissítés). Minden alkalommal az aktuális tartomány lesz az alap a feldolgozáshoz.
Ilyen sok terméknél talán célszerűbb, átláthatóbb elrendezés a sorokhoz a megrendelőt ÉS a cikkszámot behúzni, az értékekhez menjen a mennyiség.
-
-
#39039
szabonorbkk
csendes tag
szabonorbkk
csendes tag
sziasztok!
ismét segítségetekre lenne szükségem
Születési dátum cellaformátuma "általános", nekem dátum formátumra lenne szükségem, ha módosítom akkor nem állítja át dátum formátumra csak abban az esetben ha belépek az adott cellába és nyomok egy entert. Ezzel nem is lenne baj de kb 5000 sorról van szó és mire egyesével a végére érek..
Van erre valami egyszerű megoldás?
Az alábbi képen az első sor általános a második a dátum formátum amire szükségem van.
Remélem érthetően írtam le. Köszönöm előre is
-
Delila_1
veterán
válasz
Teejay83
#39033
üzenetére
Ha csak 1 ilyen sorod van, az Adatok | Szövegből oszlopok menüponttal egymás mellé írathatod az egyes tagokat, majd a másolás, irányított beillesztés, transzformálva menüponttal egymás alá rendezheted a szétválasztott adatokat.
Több sornál futtathatod a lenti makrót.
Sub trans()
Dim sor As Long, usor As Long, ide As Long
Dim szoveg As String, hossz As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
szoveg = Cells(sor, 1)
Do While InStr(szoveg, ",") > 0
hossz = InStr(szoveg, ",")
Cells(ide, "B") = Left(szoveg, hossz - 1)
szoveg = Mid(szoveg, hossz + 1, 100)
ide = ide + 1
Loop
Cells(ide, "B") = szoveg
ide = ide + 1
Next
End Sub -
oke
senior tag
-
lcdtv
tag
válasz
Teejay83
#39033
üzenetére
Nekem is kellett ilyen de kicsit másképp. Szerintem tudod használni. Ez azt csinálja hogy pl. A oszlop az mindig egy fix szöveg a B oszlopba vannak a vesszővel szeparált szövegek, és a D oszlopba szétszedi őket egymás alá de a fix szöveggel együtt.
Sub vesszovel_szetszedett()
Dim rng As Range, Lstrw As Long, c As Range
Dim SpltRng As Range
Dim i As Integer
Dim Orig As Variant
Dim txt As String
Lstrw = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A2:A" & Lstrw)
For Each c In rng.Cells
Set SpltRng = c.Offset(, 1)
txt = SpltRng.Value
Orig = Split(txt, ",")
For i = 0 To UBound(Orig)
Cells(Rows.Count, "D").End(xlUp).Offset(1) = c
Cells(Rows.Count, "D").End(xlUp).Offset(, 1) = Orig(i)
Next i
Next c
End Sub
A kód elindítása után így néz ki.
-
lcdtv
tag
Sziasztok!
Milyen megoldás van arra, hogy több ezer soros adatból, pl vonalkód olvasóval beírt adat után megkeresse az egyezőket ugorjon is oda arra a sorra és emelje is ki színnel. Találtam egy vba kódot de az csak megmutatja a sor sorszámát.Sub hanyadiksorbanvan()
Dim Prompt As String
Dim RetValue As String
Dim Rng As Range
Dim RowCrnt As Long
Prompt = ""
With Sheets("Munka1")
Do While True
RetValue = InputBox(Prompt & "Give me a value to look for")
'RetValue will be empty if you click cancel
If RetValue = "" Then
Exit Do
End If
Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Rng Is Nothing Then
Prompt = "I could not find """ & RetValue & """"
Else
RowCrnt = Rng.Row
Prompt = "I found """ & RetValue & """ on row " & RowCrnt
End If
Prompt = Prompt & vbLf
Loop
End With
End Sub -
Mutt
senior tag
Szia,
Megis adtad a problémá indokát: a szöveg függvény eredménye szöveg lesz, amin a MINHA függvény szépen "elhasal" (0-t ad vissza, hiszen a betűknek nincs minimuma).
A gyors megoldás, hogy akkor kell egy segédoszlop, amiben a dátumnak látszó szöveget dátumra alakítod vissza és azon már menni fog. =DÁTUMÉRTÉK(N2) kell neked.
A Kimutatásban a Mező csoportosítása opciót nézd meg, mert az jobb megoldás mint a szöveggé alakítás.
üdv
-
oke
senior tag
Szerintem a dátumommal van gond. Ugyanis azt egy másik oszlopból képeztem le az eredeti táblámban, mivel az évet órát, percet, másodpercet is tartalmaz, nekem pedig csak a hónap nap kell. Lehet ezt kellene máshogy megoldanom. Most így működik:
2018.08.29 18:47:37 --> ebből ezzel a függvénnyel nyerem ki: a hónap.napot:
=TNÉV(SZÖVEG(C2;"hh.nn"))Valószínűleg ezt nem tudja értelmezni, viszont van egy kimutatásom belőle, ami napon belül összesíti az adatokat, így kell ez a formátum.
-
Mutt
senior tag
Szia,
Ellenőrízd le a képletet, mert nálam ezen adatsorokra is jónak tűnik.
Q12-es cellában ez a képlet:
=HA(HA(MINHA($N:$N;$E:$E;$E12;$F:$F;"elvégezve")=MINHA($N:$N;$E:$E;$E12;$F:$F;"lehetőség*");DARABHATÖBB($E$2:$E12;$E12;$F$2:$F12;"lehetőség*")>1;HAMIS);"x";"")Az O-oszlopra nincs ezen képlethez szükséged.
üdv
-
oke
senior tag
Szia!
Úgy tűnik mégsem működik tökéletesen, ha az egyik azonosító egy másik napon is szerepel, akkor annál is berakja az X-et mellé, hiába van csak esetleg egy belőle azon a napon.
A sárgával jelzett sorból másoltam be egyet az utolsó sorba, és megjelölte, holott üresnek kellene lennie
.
Mi lehet a gond?
-
GreenIT
tag
válasz
dellfanboy
#39023
üzenetére
Vegre valami, amire en is tudok valaszolni.
Tipikus hardver hiba, hdd vagy pendrive szektora hibas es a fajlt hibasan olvassa be a program.
Adott hardveres forumokban (pendrive vagy merevlemez) bongeszve rengeteg javaslatot talalsz a megoldasra, evtizedek ota ismetlodo problema.
-
#39023
dellfanboy
őstag
dellfanboy
őstag
ilyen hibauzenettel talalkozott mar valaki? vegignyalazva a google talalatait nem jutottam megoldasra
ha megnyitom az excel-t, eloszor jon egy olyan uzenet hogy: we found a proble with some content xxx.xlsx, do you want to recover as much as we can?
yes
utana pedig
excel was able to open the file by repairing or removing the unreadable contentlinkek/formazas eltuni, pedig nekem szuksegem lenne ra.
-
nihill
őstag
Sziasztok,
Adatbázisos pivot lekérdezés összerakásánál ezt kapom:
"a forrásadatok egyik mezőjében több egyedi tétel szerepel, mint amennyi egy kimutatásban használható..."
A konkrét szűrés alapján 736db tételt kellene kilistáznia. Ez már tényleg sok neki, vagy valamit rosszul csinálok? Vagy van valami beállítás erre hogy mi a korlát? Office 365 a program. -
Mutt
senior tag
Szia,
1.
Lehet egy lépésközöd, ami alapján szeretnéd szétszedni a két szám közötti tartományt.
Ez esetben a = induló szám + lépésköz * lépésszám függvény -el tudsz számolni egy köztes értéket.pl. a harmadik értéked = 10 + 0,1 *3 = 10,3
A lépészámban a =SOROK(fixtartomány:futótartomány) tud segíteni.
pl. a = SOROK($C$2:$C4) 3-at ad eredményül.
2.
Ha mindig csak adott számú köztes elemet akarsz (pl. 10 egyenlő részre osztani),
akkor a lépésközöd = (végső - induló)/lépésszám
A többi lépés ugyanaz mint előbb.üdv
-
-
Traxx
őstag
Sziasztok!
Van 2 cellám, legyen pl A1 és B1, 10 és 11 bennük az érték. Megoldható valahogy, hogy a C oszlopban a 2 közötti értékek legyenek feltüntetve? Pl C1-ben 10, C2-ben 10,05, stb.
Diagram készítéséhez szeretném ezt használni, feltüntetve, hogy az adott tartományban hány érték szerepel.
Köszönöm a segítséget!
-
#39013
Peterhappy
addikt
Peterhappy
#39008
válasz
Peterhappy
#39008
üzenetére
Tárgytalan a kérdésem, megoldotta egy gép újraindítás
-
EmberXY
veterán
Sziasztok!
A következő lenne a kérdésem: adott egy terméklista, ami két oszlopból áll, az egyikben a cikkszám, a másikban pedig a termék neve található. A lista hossza változhat aszerint, hogy jönnek-e új termékek, vagy esetleg kikerülnek a listából bizonyos régebbiek.
Azt szeretném elérni, hogy egy tetszőleges másik munkalapon lévő táblázatban úgy tudjak hivatkozni a termékekre, hogy a cikkszámot beírva megjelenjen a termék neve a cikkszám melletti oszlopban. Ez a táblázat folyamatosan bővülne, egyfajta készletmozgás nyilvántartás lenne, de egyszerűbbé szeretném tenni azzal, hogy a termék nevét az említett listából automatikusan betenné. Ezt az FKERES függvénnyel tudom megtenni valahogyan, vagy más módja van?
Köszönöm előre is. -
#39008
Peterhappy
addikt
Sziasztok,
Elnézést, hogy ide, de ahogy néztem, többen is itt jártak sikerrel Google Sheet-es kérdésükkel.
Gyanítom, hogy én bénázok, vagy valami rosszul lehet nálam beállítva. Egy primitív képletet szeretnék szerkeszteni (ilyenekkel van tele a táblázat) és sehogy sem tudom szimplán csak kiegészíteni, "mintha be lenne nyomva az insert billentyű", ráugrál a számokra, cellamegnevezésekre, kijelöli egy részét, de pl. elé gépelni nem tudok csak úgy, jobb esetben sikerül, de inkább átírja a számot/hivatkozást. És nem is látszik a kurzor, hiába kattintok pl. az egyenlőség jel után, ha eggyel jobbra mozgok nyíllal, már nem látszik.
Jól sejtem, hogy ez nem így működik alapesetben? Excelben soha nem találkoztam még hasonló problémával.
Előre is köszönöm a segítséget, remélem nem vagyok nagyon láma
-
Mutt
senior tag
válasz
csiben1
#39004
üzenetére
Szia,
Részlet a súgóból:
"Akkor használjon százalékértéket, ha minden értéket egymáshoz arányítva kíván megjeleníteni, mert a százalékérték alkalmazásakor az értékek eloszlása egymással arányos."Vagyis nem csak a cella értékét, hanem a többihez képest az elhelyezkedését is figyelmbe veszi.
Az alábbi képletet használja: = minimum + százalék(maximum-minimum)Az alábbi képernyő talán jobban elmagyarázza ezt:
Javasolt kerülni a százalékos beállítást. Tisztán a cella értéke a "szám" beállítással lehet szinezni.
üdv.
-
Mutt
senior tag
Ezzel menni fog segédoszlop nélkül:
=HA(HA(MINHA($N:$N;$E:$E;$E2;$F:$F;"elvégezve")=MINHA($N:$N;$E:$E;$E2;$F:$F;"lehetőség*");DARABHATÖBB($E$2:$E2;$E2;$F$2:$F2;"lehetőség*")>1;HAMIS);"x";"")Kérdés:
A mintádban a P12-es sorban van X, pedig az elvégezve és a lehetőség napja nem azonos.
A napot nem is kell akkor figyelni? -
Mutt
senior tag
Szia,
Arra lenne szükségem, ha egy "azonosítóból" több is van és ... a kritérium oszlopban az „elvégezve” szó, akkor ... csak egynél jelölje meg az utolsó oszlopban a sort mondjuk egy x-el. És csak azok közül, ahol a „lehetőség 1-6” megnevezés van. A „nem érdekes”-t ne figyelje.Illetve még azt is figyelni kellene, hogy azonos napon történjen.
A
=MINHA($N:$N;$E:$E;$E2;$F:$F;"elvégezve")képlet megmondja, hogy egy azonosítónál melyik napon került beírásra az "elvégezve" szó.A
=MINHA($N:$N;$E:$E;$E2;$F:$F;"lehetőség*")képlet pedig megadja a napot az azonosítóhozHa ez a kettő érték azonos, akkor már csak a duplikációt kell megjelőlni. Mivel csak 1x szeretnéd az azonosítónál a jelőlést, a
DARABTELI($E$2:$E2;$E2)=1képlettel megkeressük az első előfordulását az azonosítónak és oda teszünk egy x-et.A fenti három képlet egybe gyúrva és O2-es celléba írva:
=HA(HA(MINHA($N:$N;$E:$E;$E2;$F:$F;"elvégezve")=MINHA($N:$N;$E:$E;$E2;$F:$F;"lehetőség*");DARABTELI($E$2:$E2;$E2)=1;HAMIS);"x";"")
Ps. Ha az azonosítónál nincs se elvégezve, se lehetőség akkor is egyezés lesz. Ha ilyen eseted van, akkor
még egy plusz ellenőrzést kell betennünk ÉS függvénybe csomagolva:MINHA($N:$N;$E:$E;$E2;$F:$F;"elvégezve")>0 -
csiben1
tag
Sziasztok!
Légyszi tisztázzátok a fejemben a következő problémát:
Excel 2016-ban az A2:A11 cellák formátumát százalékra állítom és feltételes formázásban az ikonkészleteknél be szeretném állítani, hogy melyik százalék tartományban milyen ikont jelenítsen meg a cellákban. Amint a csatolt 2db képen látszik, ha a feltételes formázásban számot hagyok, akkor helyesen működik, ha százalékot, akkor nem. Ez miért van?
Előre is köszi a segítséget! -
#39003
Delila_1
veterán
Flowtation
#39002
Delila_1
veterán
válasz
Flowtation
#39002
üzenetére
Kezded beírni a függvényt
=ha(
A zárójel után rákattintasz a szerkesztőlécen lévő fx ikonra, mire feljön a képletszerkesztő ablak.
Beírod a példa szerinti következő függvényt
=ha(hibás(
Újabb fx-re ennek a függvénynek a segítő ablaka jelenik meg. -
#39002
Flowtation
őstag
Delila_1
#38998
Flowtation
őstag
válasz
Delila_1
#38998
üzenetére
Nagyon köszönöm a segítségedet, végül sikerült megoldanom. Eleinte kínlódtam a képlettel, mert eltartott egy darabig, mire rájöttem, hogy elnevezett táblánál nem kell a munka2! hivatkozás (másik munkalapra való hivatkozás), de ebből tanul az ember. Ezután már ment minden, csináltam egy kis feltételes formázást is, most már nagyon passzent. A logikát még kicsit értelmeznem kell, de azért nagyjából vágom melyik képlet miért ott van, ahol.
A képletek beágyazásánál, ha pl. van egy HA függvény, akkor annak az értékét ami egy másik függvény azt már kézzel kell beírni vagy van valami képlet szerkesztő eszköz?
Nagyon jó ez az excel, nem is értem miért nem foglalkoztam vele eddig. Az ilyen alap dolgok megvannak, de egy komolyabb képlet már elgondolkodtat. Már meg is van a következő projektem, egy ügyes iktató táblát kellene összehoznom, szerintem abban is kérek majd segítséget.
Van erre valami egyszerű megoldás?
Új hozzászólás Aktív témák
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.20.)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- iPhone XR 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3993, 100% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Telefon felvásárlás!! Honor 400 Lite, Honor 400, Honor 400 Pro
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4052, 94% Akkumulátor
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest