- Xiaomi 11 Lite 5G NE (lisa)
- Megjelentek az első HMD okostelefonok, ezek a magyar áraik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Itt az első kép a 2024-es Nokia 3210-ről
- Készülőben a Xiaomi 2021-es csúcsmodelljeinek HyperOS frissítése
- Redmi Note 13 Pro+ - a fejlődés íve
- Samsung Galaxy A54 - türelemjáték
- Yettel topik
- Oppo Find X5 Pro - megtalálták
- iPhone topik
Hirdetés
-
Saját Redmi Note 13 Pro+ a világbajnok focicsapatnak (és indiai rajongóiknak)
ma Argentína nemzeti válogatottjának mezével díszítik az új Redmi különkiadást.
-
Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
ph A cég megoldása centralizált vezérelhetőséggel, masszív radiátorral és robusztus ventilátorokkal igyekszik vásárlásra csábítani.
-
Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
it Egyre nagyobb probléma az AI hallucinálása – most az osztrák adatvédelmi hatóság veheti elő a ChatGPT miatt az OpenAI-t, alapvetően a GDPR megsértése miatt.
-
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
-
Misi_D
tag
válasz Colin111 #49794 üzenetére
Az xkeres keresési tartománya/tömbje egy oszlopos/soros. Itt most csak félreértésnek tűnik a tömb fogalma, nem azt akarja jelölni, h több oszlopos/soros, ahol keresi az első paraméterben megadottat, hanem szerintem csak arra akar vonatkozni, ha van egy számsor/adatsor, ami pl. szűréssel, képletekkel stb. áll elő (tehát kifejezetten az adatokról szól, nem a cellákról).
HA függvényeket nem is kell, de hasonló módszerrel inkább xkeres-eket ágyaznék egymásba, annyit, ahány oszlopban kell keresni; használva a függvény if_not_found paraméterét (a függvény 4. paraméterét - ott, ahol te nem adtál meg semmit, a két pontosvessző közé), oda tenném mindig egyre beljebb őket. A C1-C2-C3 oszlopjaidra, majd így tovább (az egyeztetési mód és a keresési mód alapértelmezett, ezeket nem is kell megadni a pontos keresésre, ill. az elsőtől az utolsóig típusú keresésnél):
Ha nem tetszik, ahogy vezetek, akkor tünés a járdáról!
-
rvn_10
senior tag
Sziasztok!
Egy kis segtségre lenne szükségem.
Létezik egy adattáblám amiben szerepel az A oszlopban a saját gyártási cikkszámaim. B-C-D-E-F... oszlopan pedig szerepelnek a különböző vevők által használt cikkszámok, ugyan ehhez a cikkhez.
Egy másik fülön szerepel a vevői rendelések az ő cikkszámuk alapján darabszámokkal.
A kérdés az lenne hogyan tudom a második kép D oszlopába befűzni a saját cikkszámomat a hozzá tartozó idegen cikkszám alapján?
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
Fferi50
őstag
válasz rvn_10 #49804 üzenetére
Szia!
Én megfordítanám a saját táblát a könnyű keresés érdekében:
Az A oszlopba tenném az idegen cikkszámokat, a B oszlopba pedig a sajátokat. Azaz 2 oszlopod lenne, ahol minden idegen cikkszám mellett ott lenne a megfelelő saját.
Ezután egy FKERES függvény megadja a keresett saját cikkszámot.
Üdv. -
rvn_10
senior tag
válasz Delila_1 #49806 üzenetére
igazából ráész. Ma már ugy sem foglalkozok vele.
[ Szerkesztve ]
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
Fferi50
őstag
válasz Delila_1 #49806 üzenetére
Szia!
Szerintem pedig azzal nem fog menni. Honnan tudod, hogy melyik oszlopban keresd az idegen cikkszámot?
Ebben a felállásban pedig egyszerű FKERES-sel működik:
Az átalakítás pedig nem nehéz - az idegen cikkszámokat transzponálni az A oszlopba, mellé beírni a sajátot és lehúzni.
Így a kereséshez nem kell tudni, melyik ügyfélé az idegen cikkszám.
Üdv.[ Szerkesztve ]
-
tamas1985
aktív tag
A következőhöz keresnék megoldást:
Adott egy táblázat, amit a későbbiekben kézzel fognak kitölteni.
Sorszámozás szükséges rá, az megoldható e, hogy nyomtatásba folyamatos sorszám legyen, de ne keljen 30-40 szer egymás után bemásolni a táblázatot? -
Fferi50
őstag
válasz tamas1985 #49810 üzenetére
Szia!
Eseménykezelő makróval oldható meg. A táblázat egy celláját "kinevezed" sorszámnak.
A Munkafüzet Before_Print eseménykezelőjében a cellában levő számot növeled eggyel.
VBA nézet (Alt F11) Thisworkbook kódlapjára beírod ezt:Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub
Így minden nyomtatás előtt növeli a sorszámot.
Az is megoldható, hogy a nyomtatás előtt megkérdezze, valóban nyomtatni szeretne-e.Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Valóban nyomtatni szeretne?", vbQuestion + vbYesNo) = vbYes Then
Range("A1").Value = Range("A1").Value + 1
Else
Cancel = True
End If
End Sub
A fájlt makróbarátként kell menteni.
Üdv.[ Szerkesztve ]
-
tamas1985
aktív tag
nem , kicsit rosszul fogalmaztam, adott egy táblázat, ez kerül nyomtatásra, majd kézzel kitöltésre, van benne egy sorszám rész, amit jó lenne úgy megoldanom, hogy ha mondjuk nyomattok belőle 20 oldalt, akkor ne keljen mindet végig sorszámoznom.
Nem egy darab sorszám van, hanem egy oszlopnyi , az lenne jó ha folyamatos lenne[ Szerkesztve ]
-
-
rvn_10
senior tag
válasz Delila_1 #49809 üzenetére
Szia!
https://docs.google.com/spreadsheets/d/1A8alDpWgmnkBHlDyRUmbvF107p2nDWoz/edit?usp=sharing&ouid=112305636705119829969&rtpof=true&sd=true
Igy ok neked?
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
Fferi50
őstag
válasz tamas1985 #49816 üzenetére
Szia!
Még egy kis pontosítás kérése:
"a sorszámozás folyatódjon a 30 oldalon keresztül, ne keljen 30 oldalon keresztül crtl+c crtl+v"
Tehát minden oldalon 1-el kezdődik a sorszám és tart ameddig tart vagy a második oldalon 29-től folytatódik és így tovább (bár ekkor nem értem a Ctr+c, Ctrl+v-t)?
Az előbbi esetben minden nyomtatás ugyanazt a sorszámozást fogja mutatni.
Utóbbi esetben makró szükséges. A nyomtatás előtti eseménykezelő makrót kell átírni.
De jó lenne pontosan tudni a feladatot.
Üdv. -
rvn_10
senior tag
válasz Delila_1 #49820 üzenetére
Szia!
Az Infor szám táblában az eslő oszlopban vannak a saját cikkszámok a B-C-D-E...oszlopban a különböző vevök cikkszámai amik megfelelnek a saját cikkszámnak.
A Rend áll fölün fel vannak sorolva az eslő oszlopba a vevői cikkszámok és a rendelések a D oszlopba kellene az adott vevői cikkszámhoz tartozó saját cikkszámot kikeresni és beilleszteni az Infor számok fülről.
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
Delila_1
Topikgazda
válasz rvn_10 #49821 üzenetére
"Kissé" alakítottam a Rendáll lapon.
Az E2 képletét most csak azE2:O11
-ig másoltam be. A másolások kiterjesztése után az E:AC oszlopokat elrejtheted.
A D oszlop képletét is vidd végig.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rvn_10
senior tag
válasz Delila_1 #49822 üzenetére
Szia, megnézte, már csak az lenne a kérdésem ,hogy Pl a D:3 ban miért nem ad vissza értéket? Ha átmegyek a másik fülre és megkeresem akkor van ilyen cikkszám.
De több cikknél is előfordúl ez.
[ Szerkesztve ]
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
Delila_1
Topikgazda
válasz rvn_10 #49824 üzenetére
A saját magyar Excelemben sikerült megoldanom.
Az E2 cella képlete (amit majd kiegészítesz):
=KARAKTER(64+HA(DARABTELI('Infor számok'!B:B;$A2)>0;2;0)+HA(DARABTELI('Infor számok'!C:C;$A2)>0;3;0)+HA(DARABTELI('Infor számok'!D:D;$A2)>0;4;0)+HA(DARABTELI('Infor számok'!E:E;$A2)>0;5;0)+HA(DARABTELI('Infor számok'!F:F;$A2)>0;6;0)+HA(DARABTELI('Infor számok'!G:G;$A2)>0;7;0)+HA(DARABTELI('Infor számok'!H:H;$A2)>0;8;0))
Így csak 1 segédoszlop kell a Rendáll lapon.
Feltettem ide.
[ 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
-
rvn_10
senior tag
-
lappy
őstag
válasz tamas1985 #49828 üzenetére
az Ffrei50 által megadott makrót használva
pl A1 sorozatszám
a többi általad kért sorszám pedig ehhez a cellához van hozzárendelve azaz 1 példány esetén 1x 2. példány esetén 2x és így tovább
az A1 cella fehér színű legyen és nem fog látszani nyomtatáskor semBámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz tamas1985 #49828 üzenetére
Szia!
Ezt a makrót másold be a ThisWorkbook kódlapjára, ahogyan korábban mutattam:Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pld As Variant, xu As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
pld = Application.InputBox("Hány példányt szeretnél nyomtatni?", "Nyomtatás", 1, Type:=1)
If pld > 0 Then
For xu = 1 To pld
Range("A2").Value = 1 + (xu - 1) * 28: Range("A3") = Range("A2").Value + 1
Range("A2:A3").AutoFill Destination:=Range("A2:A29"), Type:=xlFillDefault
ActiveSheet.PrintOut copies:=1, from:=1, to:=1
Next
Range("A2:A29").Formula = "=Row()-1": Range("A2:A29").Value = Range("A2:A29").Value
Else
Cancel = True
End If
Cancel = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Használati javaslat:
A Fájl - nyomtatás panelen a példányszám 1.
A makró megkérdezi, hány példányt szeretnél nyomtatni. Ha meggondoltad magad, akkor 0 beírásával nem indul el a nyomtatás.
Az A2:A29 tartományba kerülnek a sorszámok. Természetesen tovább is sorszámoztathatod, akkor az A29 helyett írd be azt az utolsó cellát, ameddig a sorszám tartson, pld. A31 esetén 30-ig tart a sorszám.
Ha nem 28 sorszám szerepel egy oldalon, akkor az 1 + (xu - 1) * 28 kifejezésben a 28 helyett írd a sorszámok darabszámát, a példában ide 30 kerül.
A nyomtatás végén a munkalapon ismét az 1-től kezdődő sorszámok lesznek.
FIGYELEM: A nyomtatás elindításakor MINDIG 1-től kezdődnek a sorszámok, akármennyit is látsz vagy írsz a munkalapra!!!
Remélem érthető és használható számodra. Bármilyen kérdésed lenne még, kérlek írj bátran.
Üdv. -
Delila_1
Topikgazda
válasz rvn_10 #49827 üzenetére
Szívesen.
Olyan adatot is láttam – már nem emléxem, melyiket, de talán az Inform lap B oszlopában volt –, ami kétszer is szerepelt, két saját cikkszámodhoz rendelve.
Érdemes lenne egy új oszlopban a DARABTELI (Countif) függvénnyel megnézetni oszloponként az ismétlődéseket.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rvn_10
senior tag
válasz Delila_1 #49831 üzenetére
Lényeg hogy átkerültek az adatok, az anomáliákat kiszűrögetem majd, sajnos a rendszerünk amit használunk nem bolondbiztos.
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
-
veterán
sziasztok! régebben meg tudtam oldani ilyen egyszerű feladatokat, de most már annyira se megy, hogy pontosan meg tudjam fogalmazni a keresőben és találjak rá egy egyszerű kódot. egy könyvtárban van ~300 random fájlnevű .csv fájl, mindegyik egy sheet és A:G oszlopokban változó hosszúságú adatok, fejléccel az első sorban. ebből a sok fájlból szeretnék 1 db master fájlt csinálni, 1 db fejléccel. ki tudnátok segíteni egy egyszerű kóddal? a nehézséget főleg az okozza, hogy végiglépdeljen a random fájlneveken egyesével. köszi
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
hentes555
senior tag
Sziasztok!
Olyan kérdésem lenne, hogy azt hogy tudom megoldani, hogy van két munkalapom, legyen mondjuk 1 és 2, az 1-es egy 3 hónappal ezelőtti állapot, első oszlopban telefon nevek, másik oszlopban mellette tulajdonos név, pl. Samsung A52, Kiss Géza. A 2-es munkalapon pedig az aktuális állapot és egy ember többször szerepelhet mindkét munkalapon, de kizárólag más készüléknévvel, tehát kétszer nem lehet "Samsung A52, Kiss Géza" egy munkalapon. A kérdés, hogy milyen függvénnyel tudom azt megvalósítani, hogy az Excel megnézze, hogy a 2-es munkalapon szerepel-e (I-N) ugyanaz a készüléknév-tulajdonos párosítás, mint az első munkalapon?Előre is köszönöm.
"Tiefe Brunnen muss man graben wenn man klares Wasser will"
-
istvankeresz
aktív tag
Üdv!
Egy távollét adminisztrációs VBA projekten dolgozom. Az első dolog amin elakadtam: Combobox-ból lehet kiválasztani azt a személyt, akivel műveletet akarok elvégezni. A comboboxban szépen látszanak a személyek, akik kaptak egy-egy worksheet-t. Ide kerülnek tárolásra majd késöbb az adataik. A tervem az, hogy a combobox-al kiválasztott személy worksheet-re ugrik kiválasztáskor, de sajnos nem akarja az igazságot.
És itt a kód, ami bebálja a comboboxba a worksheet neveit:Private Sub UserForm_Initialize()
Dim x As Integer
For x = 1 To Sheets.Count
ComboBox1.AddItem Sheets(x).Name
Next
End SubElőre is köszi!
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #49839 üzenetére
A ComboBox change eseményébe kell tenned a lapra ugrást.
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
'Cells(5, 1) = "asdf"
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.
-
Delila_1
Topikgazda
válasz istvankeresz #49841 üzenetére
Ha nem fontos a lapra lépni, egy cella módosítását 1 lépésben is elintézheted, pl. egy nyomógombhoz rendelve.
Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Cells(3, 2) = "asdf"
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.
-
istvankeresz
aktív tag
válasz Delila_1 #49842 üzenetére
Most még jó így. Viszont megint elakadtam. A Combobox-ok és textbox-ok értékeit akarom gombnyomással (Távollét rögzítése) az aktív munkalapra sorba egymásután átvinni úgy, hogy minden gombnyomásnál új sort kezdjen. Sajnos csak egy értéket tudok átvinni.
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A1:A999")
If c.Value = "" Then c.Value = TextBox1.Value: Exit Sub
Next
End SubHogyan lehet többet?
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
Delila_1
Topikgazda
válasz istvankeresz #49843 üzenetére
Private Sub CommandButton1_Click()
Dim usor As Long
'Itt annak az oszlopnak a betűjelét add meg, amelyikben biztosan ki van töltve az utolsó sorig minden cella
usor = Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(ComboBox1.Value).Cells(usor, "A") = TextBox1.Value
Sheets(ComboBox1.Value).Cells(usor, "B") = ComboBox1.Value
End SubAz usor képletének jelentése:
A lapon az A oszlop utolsó celláján állva (Rows.Count) mintha Ctrl+fel nyilat nyomnál, ami az utolsó kitöltött sorra ugrik, ehhez adsz 1-et, hogy az első üres cella sorszámát kapd meg.[ 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 istvankeresz #49845 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lenkei83
tag
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!