- Honor Magic6 Pro - kör közepén számok
- iPhone topik
- Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
- Milyen okostelefont vegyek?
- Hatalmas külső kijelzővel és akkumulátorral érkezett meg a Honor Magic V Flip
- Bivalyerős lett a Poco F6 és F6 Pro
- Samsung Galaxy S23 Ultra - non plus ultra
- Android szakmai topik
- Nem egyedül érkezett a OnePlus 6
- Redmi Watch 4 - olcsó hús, sűrű a leve
Hirdetés
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
it Adatvédelmi panasz érkezett Ausztriában a Google ellen, a vád szerint követik a Chrome böngésző felhasználóit.
-
Steamre tart a Prince of Persia: The Lost Crown
gp Hamarosan a Valve áruházában is elérhetővé válik a játék teljes kiadása.
-
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
-
kokopeti
csendes tag
Sziasztok!
Megpróbálom érthetően elmagyarázni, hogy miben kérném a segítségeteket...(remélem sikerül :-P)
Szóval:
Excel 2003-ban űrlapo(ka)t hoztam létre párbeszédpanelen, mely egy nyilvántartó programhoz használnék. Van egy "Műszaki" elnevezésű panelem, amiben beviteli mezők vannak. (Név,Cím,Telefon...stb) Ezeket a beviteli mezőket a következőképpen neveztem el: (vevo_nev, vevo_cim, vevo_tel). Az űrlap kitöltése után a beviteli mezőkbe írt szöveget, értéket az "Adatok" nevű Munkalapra kellene átmásolni adott cellákba. Pl.: Név = A1 cella Cím=B1 cella Telefonszám=C1. Ha az adatokat átmásolta\helyezte, akkor törölje ki a kitöltött adatokat a beviteli mezőkből.Már a 4. napja szenvedek vele, de nem jövök rá a megoldásra.
Indulásnak itt a makró amit elkezdtem, de nem tudom megoldani a működését :SSub munkalap_Kattintáskor()
Sheets("Adatok").Select
Range("A1").Select
Selection.CurrentRegion.Select
sor = Selection.Rows.Count
hova = sor + 1
datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
nev = Sheets("Műszaki").Cells(3, 2).Value
cim = Sheets("Műszaki").Cells(4, 2).Value
telefon = Sheets("Műszaki").Cells(5, 2).Value
rendszam = Sheets("Műszaki").Cells(8, 2).Value
muszaki = Sheets("Műszaki").Cells(16, 2).Value
munka = Sheets("Műszaki").Cells(19, 2).Value
megrendelo = Sheets("Műszaki").Cells(2, 3).Value
auto = Sheets("Műszaki").Cells(10, 3).Value
potdij = Sheets("Műszaki").Cells(17, 3).Value
kedvezmeny = Sheets("Műszaki").Cells(21, 3).Value
Sheets("Adatok").Cells(hova, 1) = datum
Sheets("Adatok").Cells(hova, 2) = nev
Sheets("Adatok").Cells(hova, 3) = cim
Sheets("Adatok").Cells(hova, 4) = telefon
Sheets("Adatok").Cells(hova, 5) = rendszam
Sheets("Adatok").Cells(hova, 6) = munka
Sheets("Adatok").Cells(hova, 7) = muszaki
Sheets("Adatok").Cells(hova, 8) = megrendelo
Sheets("Adatok").Cells(hova, 9) = auto
Sheets("Adatok").Cells(hova, 10) = potdij
Sheets("Adatok").Cells(hova, 11) = kedvezmeny
Sheets("Munkalap_m").Select
dlgAnswer = Application.Dialogs(xlDialogPrint).Show
Sheets("Műszaki").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
ActiveCell.FormulaR1C1 = ""
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
Range("B6").Select
ActiveCell.FormulaR1C1 = ""
Range("B7").Select
ActiveCell.FormulaR1C1 = ""
Range("B8").Select
ActiveCell.FormulaR1C1 = ""
Range("B9").Select
ActiveCell.FormulaR1C1 = ""
Range("B10").Select
ActiveCell.FormulaR1C1 = ""
Range("B11").Select
ActiveCell.FormulaR1C1 = ""
Range("B12").Select
ActiveCell.FormulaR1C1 = ""
Range("B13").Select
ActiveCell.FormulaR1C1 = ""
Range("B14").Select
ActiveCell.FormulaR1C1 = ""
Range("B15").Select
ActiveCell.FormulaR1C1 = ""
Range("B16").Select
ActiveCell.FormulaR1C1 = ""
Range("B17").Select
ActiveCell.FormulaR1C1 = ""
Range("B18").Select
ActiveCell.FormulaR1C1 = ""
Range("B20").Select
ActiveCell.FormulaR1C1 = ""
Range("B21").Select
ActiveCell.FormulaR1C1 = ""
Sheets("Főoldal").Select
End Sub -
kokopeti
csendes tag
válasz poffsoft #13234 üzenetére
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.[ Szerkesztve ]
-
kokopeti
csendes tag
válasz Delila_1 #13243 üzenetére
Beviteli mezőm lesz majd több. Egy olyan űrlapot szeretnék csinálni, ami egy Autószerviz nyilvántartó programja lenne. Szóval tudnia kell a Műszakiztatás adatainak bevitelét, a Szervizelést, Alkatrész beszerzést/eladást, Egyéb költségek, kiadások, bevételek adatbevitelét, illetve ezek megjelenítését és adatbázisba mentését, illetve statisztika készítését. A legtöbb részt megcsinálni egyszerű még számomra is, de azért vannak benne buktatók a kevéske tudásom miatt.
Megpróbálom akkor a UserForm-ot is belefabrikálni, aztán jelentkezem újra. Köszönöm
-
kokopeti
csendes tag
válasz Delila_1 #13244 üzenetére
Lenne egy kérdésem. Ha létrehoztam egy többoldalas Userformot, aminek az első oldalát nevezzük egy "Főoldalnak". Ezen az oldallal kapcsolatos leírás található illetve pár gomb amik a userformon található másik fülekre hivatkoznak, illetve a munkafüzetben található egyéb munkalapra.
A kérdésem mindössze annyi lenne, hogy mondjuk a CommandButton1-el hogyan tudnék hivatkozni a Userformon található második fülemre, amit akkor nevezzünk "Bevitelnek"?!
Köszönöm a segítséget!
-
kokopeti
csendes tag
válasz Delila_1 #13251 üzenetére
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 SubAmikor 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.
-
kokopeti
csendes tag
válasz Delila_1 #13264 üzenetére
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. -
kokopeti
csendes tag
válasz Fire/SOUL/CD #13267 üzenetére
OK. Nagyon szépen köszönöm!
-
kokopeti
csendes tag
Sziasztok!
Kellene egy kis segítség kimutatás "féle" megjelenítéshez...
A feladat az lenne, hogy van 2 munkalapom (Kiadások, Bevételek). A munkalapokon azonos táblázat van létrehozva (Dátum, Mód, Összeg, Megnevezés). Ennek a 2 munkalap táblázataiból kellene kinyernem adatokat egy másik munkalapon (Napi összesítő), ami úgy történne, hogy A1 cellába megadom az adott dátumot,amire kíváncsi vagyok és ezzel az alatta lévő táblázatban kilistázza nekem a 2 másik munkalapból kinyert adatokat,amelyek az adott napra vonatkoznak.
Ha nem voltam érthető kérlek jelezzétek és töltök fel képet, hogy miről is lenne szó! Előre is köszi a segítséget!!
[ Szerkesztve ]
-
kokopeti
csendes tag
Sziasztok!
Korábban kérdeztelek Titeket, de sajnos nem jött válasz! Valaki esetleg rátudna nézni mégegyszer, hátha tudnátok segíteni nekem. Köszönöm előre is!!
-
kokopeti
csendes tag
válasz Delila_1 #15487 üzenetére
Szia!
A táblázatok "A 2"-től vannak feltöltve "E xyz"-ig!
Az első sorban a táblázat nevek szerepelnek, ahogy itt is látható a Kiadások munkalapon:
A másik munkalapom abban különbözik, hogy a Bevételekben nincs Nettó összeg, csak bruttó. Úgyhogy az csak 4 oszlopos.[ Szerkesztve ]
-
kokopeti
csendes tag
válasz Delila_1 #15506 üzenetére
A harmadik munkalapnak az lenne a lényege,hogy:
A1 cellában beírom azt a dátumot, ami engem érdekelne és ezt listázza ki az alatta lévő táblázatba.
A táblázatban az lenne a jó, ha tartalmazná a Kiadások és Bevételek munkalapokból a Megnevezés, Mód táblázatokat és egy Összeg nevű táblázatot ami tartalmazza a Bevételekből a Bruttó összeget, a Kiadásokból pedig Bruttó kiadás - (mínusz) Nettó Kiadás különbözetét.
(Ha nem sikerült értelmesen megfogalmaznom, akkor az is tökéletes lenne, ha a Kiadásokból is csak a Bruttó kiadás lenne és majd kiokoskodom a többit, mert az alap makró is hatalmas segítség lenne!!)
Ha ez meglenne utána már könnyen tudnék hozzárendelni egy összesítő képletet, amivel kiszámoltathatom a napi eredményt!
-
kokopeti
csendes tag
válasz Delila_1 #15510 üzenetére
Szia!
Üres lapba bemásolva minden jól működik köszönöm. Viszont annyi változás történt, hogy a táblázatom elhelyezkedését muszáj lejjebb helyeznem.
Így az elhelyezkedésük ez lesz:
Mód: B13
Nettó: C13
Bruttó: D13
Megjegyzés: E13A módosuláshoz gondolom ebben kellene szerkeszteni pár értéket:
WS1.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
usorN% = 2
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
usorN% = usorN% + 1
f = True
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 5)
End If
Next
WS2.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
f = True
usorN% = usorN% + 1
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3)
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 4)Próbálom egyedül is hátha sikerül, de egyelőre nehezen értelmezem a deklarálásokat sajnos.