-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
krisztian7
tag
-
poffsoft
veterán
én mondjuk nem értem mit szeretnél
.Az mondjuk majdnem biztos, hogy megoldható....
-
krisztian7
tag
-
#74459392
törölt tag
Sziasztok!
Ismét szeretném a segítségeteket kérni. Van 2 excel táblázatom. Az egyikben rengeteg termék van a hozzá tartozó cikkszámmal. A másikban a termékek aktuális mennyisége van és a hozzá tartozó cikkszám, ami ugye megegyezik az első táblázatban levő cikkszámmal, de sajnos nem ugyan az a sorrend és ebben a 2. táblázatban sokkal több sor is van és nincs is mindre szükségem.
Meg lehet-e azt oldani, hogy a 2. táblázat adatait az 1. táblázathoz rendeljem a cikkszám alapján. Tehát pl. ha 1. táblázat A oszlopának száma megegyezik a 2. táblázat H oszlopának számával, akkor a 2. táblázat F oszlopának adatát bemásolja az 1. táblázat megfelelő sorába. Amik nem szerepelnek, azok figyelmen kívül hagyja.
Remélem érhetően írtam le és remélem tud valaki segíteni
-
Nem szerencsés dolog a fórumon egy személyhez intézni a kérdést. Jó esetben itt van a megszólított, tud, és akar is válaszolni. Ha a 3 feltétel közül valamelyik hiányzik, nem kapsz választ. A címzett nélküli kérdésre nagyobb eséllyel kaphatsz megoldást.
Töröld a törölhető sorokat, majd írd be a VBE-be a lenti két funkciót.
Function fent(Keres As Long, WS$, hol$)
Dim CV, oszlop%, ter$
oszlop% = Asc(hol$) - 64
ter = hol$ & ":" & hol$
For Each CV In Sheets(WS$).Range(ter$)
If CV > Keres Then
fent = Sheets(WS$).Cells(CV.Row - 1, oszlop%)
Exit Function
End If
Next
End Function
Function lent(Keres As Long, WS$, hol$)
Dim CV, oszlop%, ter$
oszlop% = Asc(hol$) - 64
ter = hol$ & ":" & hol$
For Each CV In Sheets(WS$).Range(ter$)
If CV > Keres Then
lent = Sheets(WS$).Cells(CV.Row + 1, oszlop%)
Exit Function
End If
Next
End FunctionA cellába, ahova a keresett érték fölötti sort akarod megkapni, így add meg a függvényt:
=fent(A1;"Munka2";"A")
Az A1 az a cella, ahova a kérdésben példaként írt 203958-at írod. A "Munka2" annak a lapnak a neve idézőjelek között, ahol a keresést végre akarod hajtatni, az "A" a keresés oszlopának a betűjele.A másik képlet =lent(A1;"Munka2";"A"), ez a keresett érték alatti cella értékét hozza eredményül.
-
kokopeti
csendes tag
-
Fire/SOUL/CD
félisten
-
Lenne még 1 gondom :S
Elkezdem beírni a bejárási sorrendet (Tabindex) az adatok kitöltéséhez és folyamatosan felülírja magát és nem akarja "bevenni" azt a sorrendet amit megadok neki.
Maga a kitöltendő oldal így néz ki:
A legelső Textbox-ból lefelé haladva kellene lépkednie a tabulátor nyomásonként.
Tabindexbe elkezdtem megadni: 0-1-2-3-4-5, aztán amikor a 7. Textbox Tabindex értékének beírom a 6-ot, akkor felülírja az előző Textbox értékét 4-re az 5 helyett. Remélem érthetően letudtam írni, hogy mivel is van gondom. Remélem tudsz segíteni. -
Fire/SOUL/CD
félisten
-
Az a textbox az tuti texbox, nem mondjuk editbox?
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").EditBoxes("datum_d").Text
vagy
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes("datum_d").Text
(#13236): az jó.
És melyik soron hasal el? (debug)
- amúgy, ha gyanús, hogy ez a rossz, debug idejére miért nem kommenteled ki?
ja, most nézem, nem range-t neveztél el, hanem objektet.
Akkor marad az előző verziók közül az egyik, és értelem szerint a datum_d helyére mehet a vevo_nev .... stb...Mondtam, sajna nem értek hozzá, de most rákerestem, editboxes lesz az
-
A bemásolt makró vége már működött korábban olyan formában, hogy cella adatainak értékét másoltam át másik munkalap adott cellájába, illetve a nyomtatás is indult megfelelően...
Most az nem működik, hogy a beviteli mezőkbe írt szövegemet nem másolja át sehova és\vagy a beviteli mező értékét üresnek veszi miközben van bele írva. A datum= soromig minden rendben van, de ebben a sorban már nagyon beteg valami
Mindárt kipróbálom az általad írt sorral.Az általad írt sem fut le :S, de az 100%-hogy az általam írt
datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value alapjaiban rossz szerintem. -
Fire/SOUL/CD
félisten
-
Delila_1
veterán
Szívesen.
-
Solar_Wind
senior tag
Köszönöm!
-
Egy segédoszlop segítségével megoldható
.
amint lehet kipróbálom.
Új hozzászólás Aktív témák
Fferi50- The Elder Scrolls Online Imperial Collector s Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- MS SQL Server 2016, 2017, 2019
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Samsung LH55CSPLBC 55" LCD monitor
- Honor X5c Plus 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bontatlan! Playstation Portal 2 év garancia 2028.04.09-ig számlával!
- Bomba ár! HP 250 G7 - Intel N4020 I 4GB I 128SSD I HDMI I 15,6" HD I HDMI I W11 I Cam I Garancia!
- Honor Magic V2 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest