Fire megadta a választ.

Egyszerűsítheted az adatok felírását az Adatok lapra, valamint a TextBoxok tartalmának a lenullázását, ha a beszédes nevek – vevo_nev, vevo_cim – helyett kivételesen a nehezebben követhető TB1, TB2 ... TB11 nevet adsz.

Private Sub Bevisz_Click()
Dim WSA As Worksheet, hova As Long, oszlop%, nev As String

Set WSA = Sheets("Adatok")
hova = WSA.Range("A65536").End(xlUp).Row + 1
For oszlop% = 1 To 11
nev = "TB" & oszlop%
WSA.Cells(hova, oszlop) = Controls(nev).Text
Controls(nev).Text = ""
Next
End Sub

Megjegyzésben beírhatod a makróba, melyik TextBox milyen értéket tartalmaz.

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 Delila_1 !

Tényleg banális, de hát az újszülöttnek...

Üdv!
Segítenétek légyszi! Olyan kérdésem lenne, hogy van egy táblázatom több munkalappal, és azt szeretném megcsinálni, hogy az egyik lapon lévő 9 jegyű számot a másik lapon lévő cellába 6 számjegyre kerekítve (értéknek megfelelően felfelé, vagy lefelé) beírom. Pl: "X" nevű munkalap E9 cellájában lévő 446 781 640 az "Y" munkalap G22 cellájában 446 782-ként szerepeljen! Ill. mi van akkor ha az "Y" lap adott cellájába kerülő kerekített összeg a másik munkalap több cellájából adódik össze? Ez esetben mi a képlet?
Előre is köszönöm a segítséget!

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.

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.

Az Y lap G22 cellája legyen =KEREKÍTÉS(X!E9/1000;0).

Több cella, pl. X!E5 és X!E9 összegének 1000-rel való osztása kerekítve =KEREKÍTÉS((X!E5+X!E9)/1000;0)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkü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.

Delila egyszerűen nem bírom megcsinálni...

Private Sub Workbook_Open()
Do
felh_nev = InputBox("Üdvözöllek a BMP CAR Kft. vállalatirányítási rendszerében! A továbblépéshez kérlek írd be a rendszergazdától kapott felhasználónevet!", "Bejelentkezés")
Loop Until felh_nev = "bmpcarkft"
Sheets("Adatok").Select
UserForm1.Show False
MultiPage1.Value = 0
End Sub

Amikor indítom addig lefut a programom, hogy bejön a bejelentkező oldal, beírom azt a "felhasználónevet" amit előre megadtam. Aztán ezután a program dolga az lenne, hogy nyissa meg nekem az elkészített Userform multipage oldalai közül a legelsőt ami a "Főoldal" nevet viseli. Csak ezzel a MultiPage1.Value = 0 sorral van problémája, de ez már a 10. verzió amit beírtam és halvány fogalmam sincs, hogy hogyan hivatkozhatnék rá, mivel a Főoldalról gombok segítségével is szeretnék hivatkozni a Multipage oldalaihoz külön-külön.

Még dolgozok rajta, de ez megint egy olyan probléma ami egy teljesen egyszerű kis parancs lehet, viszont nem jövök rá, hogy mi az a parancssor amivel hivatkozhatok rá. Amennyiben még nem akasztottalak ki titeket a tudatlanságommal, akkor ismét megköszönném a segítséget.

UserForm1.Show False
MultiPage1.Page("Főoldal").Select

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

Runtime error "424"-et ír ki és hogy Object required a futtatáskor :S

Elnézést, rosszul írtam. Helyesen

UserForm1.Show False
UserForm1.MultiPage1.Value = 0

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

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.

Szia. Rá érnél egy kicsit segíteni?

Röviden: kereső függvényt kellene kreálni ami a munka1 oldalon beírt összeghez kikeresi a munka2 oldalon az A oszlopban a beírt számtól egyel nagyobb összeget és kiírja a kikeresett szám feletti összeget, (az A oszlopban rendezetlen vannak az adatok, nem szabad módosítani, csak ami törölhető)

pl:

munka 2 A oszlopa így néz ki:

1 1502
2 201452
3 199586 nemfontos adat törölhető
4 2506 nem fontos adat törölhető
5 1905
6
7 1902
8 205654
9 200568 nemfontos adat törölhető
10 2500 nemfontos adat törölhető
11 2000

A munka1 lapon ha beírok pl: 203958-at akkor az a8 érték feletti összeget írja ki tehát a keresendő érték csak nagyobb vagy egyenlő lehet mint a beírt összeg. A másik képlet pedig az a8 alatt kettővel lentebbi a11-es értéket írja ki.

[ Szerkesztve ]

A kisebbség is számíít, teszkó.

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.

Group-on belül megy a TabIndex, azaz esetedben minden Frame-en belül kezdődik újra 0-tól. Magyarul a 7. textbox tabindex-e ismét 0, mert az egy másik Frame-ben van már.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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 Function

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

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

Jogos. És köszönöm. Szép kis kódot hoztál össze amint lehet kipróbálom.

A kisebbség is számíít, teszkó.

Sziasztok

Azt hogyan lehet megoldani, hogy van egy oszlop diagramom amiben havonta van egy-egy oszlop, és a diagram felett van a tábla amiből jelenleg minden hónapban kézzel beírom az adott hónap összesített értékét a diagramban lévő hónapnak megfelelő oszlop fölé egy szövegdobozba, és ezt szeretném, ha magától venné át?!

PC

Kattints a szövegdobozra, és a szerkesztőlécen írd be hozzá a hivatkozást, ami az aktuális összeget tartalmazza. Pl. =L15

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 puding próbája...

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

Ez nem működik, érvénytelen hivatkozás!

[ Szerkesztve ]

PC

#NEV? ezt adja ki. Mondjuk kutyafuttában dobtam össze lehet elnéztem vmit ... most még időm sincs rá hogy jobban megfigyeljem mert rohanok :S majd este...

A kisebbség is számíít, teszkó.

Ehh nem működik, de lehet én vagyok balfsz. Ezt melyik munka lap hoz kell beírni? mert van még 10 lap vagy elég a thisworkbook hoz ?

A kisebbség is számíít, teszkó.

Sziasztok.Készítek egy verseny nyilvántartó programot amiben segítségre lenne szükségem.

A verseny a következő képpen fog kinézni:
Versenyzők külön súlykategóriákban indulva fognak súlyt húzni, két hibalehetőség van adott súly elhúzására. Választhatnak hogy milyen súllyal akarnak kezdeni, onnantól pedig sikeres húzás után két következő súlyt kihagyhatnak, a harmadikat meg kell próbálni elhúzni.

Kiindulásként három füllel kezdek, első lap egy adatfelvitel ahol három adatot viszek be:
versenyző neve
versenyző súlya
első elhúzandó súly

Ezek az adatok listaszerűen felkerülnek egy másik lapra egymás alá sorban, ami tulajdonképpen csak egy technikai fül. Itt a súly alapján meghatározásra kerül a súlykategória amit beírtam fkeres függvénnyel negyedik oszlopnak

Na eddig vagyok meg.
Innen annak kellene következni, hogy a felvitt versenyzőket automatikusan áttegye a harmadik fülre, ami maga a verseny nyilvántartó fül lesz olyan formában, hogy:
első oszlop legyen a súlykategória, második a név, harmadik a versenyző súlya (lesz még több oszlop de egyelőre most ennyi)
úgy kellene automatikusan besorolja hogy súlykategóriánként, azon belül pedig növekvő súlyba sorrendbe. Az már csak külön hab a tortán lehetne, hogy az adott, egy súlykategória celláját összefűzi, tehát egy adott súlykategória szám csak egyszer látszódjon.

Hogy tudnám ezt megoldani? köszi előre is.

Sziasztok!

Volna egy excel táblám, és benne egy kiíratás. A lényeg, hogy ha lehúzom a képletet, akkor több helyen is #HIÁNYZIK-ot ír ki, de ha megváltoztatom a sorrendet, akkor még több sorban írja ki az adatokat, de még így sem az egészben. Ez mitől lehet?
Lehet, hogy így látatlanban nehéz, szóval, ha kell, elküldöm!

ThisWorkbook. Figyelj a paraméterek helyes megadására.

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

Nem megy sajna, amit írtál kódot be másolom, a képletet is beírom helyes értékkel de #név? hiba jön csak..

A kisebbség is számíít, teszkó.

Küldd el a fájlt, privátban megadom a címet.

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üldd el a fájlt, privátban megadom a címet.

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

elküldve

A kisebbség is számíít, teszkó.

Megkapva, és visszaküldve.

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!

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

1. táblázat üres oszlopába:

=HA(HIBÁS(HOL.VAN(A1;'2. táblázat'!H:H;0));"";INDEX('2. táblázat'!F:H;HOL.VAN(A1;'2. táblázat'!H:H;0);1))

Természetesen a '2. táblázat' helyett a saját lapod nevét írd be.

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

1. tábla : "Munka1"
2. tábla : "Munka2"

Ha csak a mennyiséget akarod átmásolni a 2. tábláról az 1.-re, akkor - a képletet a D1-be beírva, és utána végig másolva a "D" oszlopban lesznek a darabszámok:
=INDEX(Munka2!F:F;HOL.VAN(Munka1!A1;Munka2!H:H;0);1;1)

ha jól értem ez kell neked?

szerk: delila gyorsabb volt....

[ Szerkesztve ]

[ Szerkesztve ]

köszönöm mindkettőtöknek!

Delila_1: nagyon komoly hogy vágod a témát, bármilyen kérdés és pár percen belül jön a válasz!

Hibakezelést tettem be, mert a kayaman szerint "(I)Amik nem szerepelnek, azok figyelmen kívül hagyja(/I)".

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

Be van idomítva a levelezőm, hogy hanggal figyelmeztessen új levél érkezésére. Itt a fórumon pedig értesítést kérek az új hozzászólásokró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.

Be van idomítva a levelezőm, hogy hanggal figyelmeztessen új levél érkezésére. Itt a fórumon pedig értesítést kérek az új hozzászólásokró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.

Megbolondult az egerem. A sima kattintást duplának értelmezi, ezért több esetben kétszer kerül ide 1-1 hozzászólásom, elnézést kérek.

Más helyeken is ezt műveli, rengeteg bosszúságot okozva.

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

(OFF)Köszi, kipróbálom, van másik.(/OFF)

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,
esetleg valaki tudna ebben segíteni?

Szia
Ha egy képet tudnál feltenni ez elképzelésről sokkal egyszer lenne.

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

Munka2!A2 -> =Munka1!A2, ezt jobbra húzod C2-ig.

Munka2!D2 -> =FKERES(C2;$G$1:$H$12;2;0), feltéve, hogy a súlytáblázat a $G$1:$H$12 tartományban van ezen a lapon, G-ben súly, H-ban kategória.

Munka2!E2 -> =D2+SOR()*0,00001

Az A2:E2 tartományt lemásolod addig, ameddig adat van a Munka1 lapon.

Munka3!A2 ->
=INDEX(Munka2!$A:$D;HOL.VAN(KICSI(Munka2!$E:$E;SOR()-1);Munka2!$E:$E;0);4).

Ezt jobbra másolod C2-ig, majd a B2-ben az utolsó paramétert, a 4-et átírod 1-re, C2-ben pedig 2-re. A három cellát lemásolod, ameddig kell.

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

én mondjuk nem értem mit szeretnél .

Az mondjuk majdnem biztos, hogy megoldható....

[ Szerkesztve ]

[ Szerkesztve ]

Egy táblázat felső sorába szeretném ezt kiíratni:
03.19 - 03.25 I 03.26 - 04.01 I .... és így tovább, remélem ez így már egyértelműbb.