-
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
-
#34059
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Újbólag egy kis segítség kellene:
Adott egy táblázat, mely a következő képpen néz ki, mint a lenti képen(ilyen formában lehet kiexportálni az adatokat egy adatbázisból):
A tábla az A, B, C, D, E oszlopokat tartalmazza.
Meg lehet-e oldani (függvény, makró) valahogy, hogy a táblázatban lévő adatokat - jelen esetben neveket - valahogy kiszedjük egy oszlopba (ahogy a H oszlopban látszik)? A sorrend teljesen mindegy lenne, a lényeg, hogy ne legyen duplikáció és minden név szerepeljen.
-
#32310
lizakattila
senior tag
Delila_1
#32308
lizakattila
senior tag
válasz
Delila_1
#32308
üzenetére
Nem egészen. Item alapján keresek, a többi adat a formon automatikusan töltődik, ha az itemet beírom (végül is minden adat egyezni fog).
Tehát ha rákerestem egy item-re, kitöltődött a form, a felvenni kívánt mennyiséget adom meg és az itt megadott értéket vonja le az OnHand-ből (E oszlop) - abban a sorban, ahol az általam kikeresett item van.
Egy készletcsökkentést szeretnék végrehajtani így, tehát amennyit kiveszek, annyival csökkenjen. -
#32306
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Kellene egy kis segítség, mert problémába ütköztem.
Adott egy exceltábla, mely az alábbi adatokat tartalmazza: LINKAz alábbi form-ot kreáltam hozzá: LINK
E mögött az alábbi makró található:
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Reg1_AfterUpdate()
If WorksheetFunction.CountIf(Sheet2.Range("a:a"), Me.reg1.Value) = 0 Then
MsgBox "Ilyen item nincs az adatbázisban."
Me.reg1.Value = ""
Exit Sub
End If
With Me
.reg2 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 2, 0)
.reg3 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 3, 0)
.reg4 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 4, 0)
.reg5 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 5, 0)
.reg6 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 6, 0)
.reg7 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 7, 0)
.reg8 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 8, 0)
.reg9 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 9, 0)
.reg10 = Application.WorksheetFunction.VLookup(CStr(Me.reg1), Sheet2.Range("Lookup"), 10, 0)
End With
End Sub
Private Sub userform_click()End Sub
Ezt kellene kiegészíteni úgy, hogy amikor a formon a felvenni kívánt mennyiséghez beírok egy tetszőleges mennyiséget (számot) és rákattintok az Adatbázishoz ad gombra, akkor az adatokat tartalmazó lapon keresse meg a hozzá tartozó adatot és a beírt mennyiséget vonja le az E (OnHand) oszlopból.
Ha ez megtörtént, ki is léphet a formból (de ez nem feltétlen szükséges). -
#31273
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Hogyan lehet azt megoldani, hogy egy adott cellába ha adatot írok és ez az adat egy adott csoportnak az eleme, akkor azt kiemelje mondjuk zölddel.
Pl.: Az adott csoport legyen az európai országok. Tehát ha az adott cellába európai ország nevét írom akkor emelje ki, ha nem akkor ne történjen semmi.
Feltételes formázssal próbáltam, de csak egyenként tudtam megoldani, sehogy nem találtam ide vonatkozó függvényt, amivel meg lehetne.
-
#29963
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Van egy makróm, amely a következő képpen néz ki:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 15 Then Exit Sub
If Target.Value <> "" Then
Application.EnableEvents = False
Target.Offset(0, -14).Value = Now()
Application.EnableEvents = True
End If
End SubEz az "A" oszlopba akkor írja be a most függvényt, ha az "O" oszlopban lévő cellába írok be értéket.
Meg lehet azt oldani valahogy, hogy akkor is működjön, ha az "O" oszlopba egyszerre több cellába is írok vagy legfőbbként másolok be adatot?
Mert ez így csak akkor működik, ha az O oszlop celláit egyenként töltöm. -
#29714
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Kicsit visszakeresve megtaláltam a számomra megfelelő megoldást (egy makró formájában, aminek a lényee, hogy, ha egy adott oszlop adott sorában lévő cellát kitöltök, akkor az A oszlop ugyanazon sorába írja be a most függvényt, és azt ne frissítse):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Value <> "" Then
Application.EnableEvents = False
Target.Offset(0, -1).Value = Now()
Application.EnableEvents = True
End If
End SubA kérdésem az lenne, hogy ebben mit kell módosítanom, ha azt akarom, hogy az "A" oszlopba akkor írja be a most függvényt, ha az "O" oszlopban lévő cellába írok be értéket?
-
#24793
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
Egy kis help kellene.
Adott egy táblázat.
Hogyan tudnám azt megcsinálni, hogy ha A1/B1, A2/B2... hányadosa nem egész szám, akkor az A cellában lévő mező vagy váltson színt, vagy ugorjon fel valamilyen hibaüzenet.
Feltételes formázással nem ment, illetve érvényesítésnél csak úgy működött, ha kijelöltem az adott cellát az A oszlopból. Nekem pedig az kellene, hogy ha ez a feltétel valahol nem teljesül, akkor mindenképp figyelmeztessen valahogy.
-
#13995
lizakattila
senior tag
Sweet Lou 6
#13994
lizakattila
senior tag
válasz
Sweet Lou 6
#13994
üzenetére
Köszönöm!
Jó lesz. Csak minden adatból egyet ki kell vennem egy új oszlopba (az lesz, amit keresek) és utána már másolható lesz a függvény is.
Erre nem tudtam rájönni, hogy ne egyenként kelljen keresgélnem. -
#13993
lizakattila
senior tag
lizakattila
senior tag
Sziasztok!
A kérdésem a következő lenne:
Van egy adathalmazom, kb 12000db adat, mely főként számokból áll. Ezek ismétlődnek (van amelyik 100x szerepel benne, van amelyik 5x... stb).
Hogyan/mivel lehetne azt megoldani, hogy megtudjam, hogy melyik adat hányszor szerepel a listában?
Nem szeretném egyenként megszámolni, hogy melyikből hány van, mert kb 6-700 féle adat szerepel benne, melyek ismétlődnek.
Új hozzászólás Aktív témák
- Beszámítás! Asus ROG Strix Scar Edition G533Z notebook-i7 12700H 16GB DDR5 1TB SSD RTX 3060 6GB W11
- HIBÁTLAN iPhone 14 Pro 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3235
- Samsung Galaxy S23 Ultra 8/256GB - Kártyafüggetlen, Fekete - 1 Év Garancia
- DELL LATITUDE 7330 /i5-1245U/16GB/256 GB SDD/13.3/FHD/IPS/Garancia/
- Lenovo ThinkPad T14 Gen1 Ryzen5 4650U Refurbished - Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest