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!

A B28 cella képlete (ami a C28-ban látszik) kell neked.
[kép]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Egy másik megoldás ha esetleg több azonos értékű cella is van
[link]

Bámulatos hol tart már a tudomány!

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

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.

Több vevő van más-más cikkszámmal.
Tipikus Index – Hol.van páros kell hozzá, csak most nem érek rá összehozni.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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

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 ]

Tegyél elérhetővé egy füzetet a mutatott két lappal, pár sor adattal. Az értékek lehetnek hamisak is.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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?

Ha jol értem akkor a táblázat kitöltése utan kinyomtatjak majd ujra kitöltésre kerül de ekkor a sorszám már 2 lesz majd újra kitőlt nyomtat stb.?

Bámulatos hol tart már a tudomány!

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 ]

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 ]

Szia!
Egyenlőre így sem világos. Mutatnál egy mintapéldát, hogyan gondolod. Hol van az egyoszlopnyi sorszám? Honnan kell kezdődni a sorszámnak? Ha ismét nyomtatsz újabb 5 példányt, akkor milyen sorszámra van szükséged?
Hány oldalas a táblázat?
Üdv.

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

Ilyesmi lenne,
Lényeg:
ha nyomtatok belőle 30 oldalt például, akkor a sorszámozás folyatódjon a 30 oldalon keresztül, ne keljen 30 oldalon keresztül crtl+c crtl+v.

Akkor ezt tudom neked ajánlani

Bámulatos hol tart már a tudomány!

köszönöm, a probléma megoldása látom sok bonyolultabb mint maga a probléma

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.

Megvan a füzet, most már csak azt lenne jó tudni, hogy melyik táblázat melyik adataiból mit akarsz kihozni.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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

"Kissé" alakítottam a Rendáll lapon.
Az E2 képletét most csak az E2: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.

Köszi, holnap meglesem ;)

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

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

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.

Tovább vittem a tegnapi képletet a P oszlopig.
Vannak hibák a két táblázatban, azokat ki kell javítanod. Újra feltettem, de a felhőben is átírtam.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Örölünk, nagyon szépen köszönöm.

[ 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

a következő oldalon folytatódjon a sorszám.

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 sem

Bámulatos hol tart már a tudomány!

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.

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.

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

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"

https://www.mrexcel.com/board/threads/macro-to-copy-multiple-csv-files-into-single-worksheet.775816/

Bámulatos hol tart már a tudomány!

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"

Darabhatobb függvényt nézd meg

Bámulatos hol tart már a tudomány!

A DARABHATÖBB függvény lesz jó megoldás.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Nyertél.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Ü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 Sub

Előre is köszi!

XBOX ONE GT: istvankereszt79

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 Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm működik. Lesz még kérdésem...sok.

Még csak most ismerkedem ezzel a területtel.

XBOX ONE GT: istvankereszt79

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 Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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 Sub

Hogyan lehet többet?

[ Szerkesztve ]

XBOX ONE GT: istvankereszt79

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 Sub

Az 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.

Nagyon köszi. Tökéletes.

XBOX ONE GT: istvankereszt79

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.

Sziasztok!

Van bárkienk megoldása ide bekérdezni excelből adószám alapján?
[link]

Köszi
P.

Szia!
A captcha miatt szerintem nem nagyon lehet automata lekérdezést indítani.
A NAV-ot kellene megkérdezni, hogy lehet-e exportálni az adatbázist (vagy egy részét).
Üdv.

Hello!

Valahogyan biztosan működik, mert a számlázó programok is bekérdeznek.

Szerintem azok a programok mas csatornán kérdezik le.

Bámulatos hol tart már a tudomány!