- Mobilhasználat külföldön
- Honor Magic6 Pro - kör közepén számok
- Google Pixel 6/7/8 topik
- Drágább lett a Pixel 8a
- MG5 menetpróba
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Okosóra lett a Huawei fitnesz karperecéből
- Elkaszálhatja az Apple az iPhone Plust
- Honor Magic5 Pro - kamerák bűvöletében
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
Hirdetés
-
Bemutatta a DisplayHDR 1.2-t a VESA
ph Bővülnek és változnak a követelmények, illetve a hitelesítési teszt is fejlődik.
-
Spyra: akkus, nagynyomású, 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! :)
-
Több stúdiót is bezár költségcsökkentésként a Microsoft Xbox részlege
it Lassul a gamingipar, ennek keretében pedig már a Microsoft Xbox részlege is nagy költségcsökkentéseket eszközöl.
-
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
-
szjoci
őstag
válasz Delila_1 #7243 üzenetére
Mindenkinek köszönöm a segítséget, de a te variációdat volt a legegyszerübb kiviteleznem mivel van egy olyan oszlopom amikbe szerepelnek a hónapok, így csak mellé kellett raknom a számokat.
Egyébként az ÖSSZEFÜZ majd DÁTUMÉRTÉK függvényekkel miért nem hozta azt amit szerettem volna? Elméletileg jónak kellett volna lennie mert kaptam egy pl 2010. jún. 16. értéket, de a dátumérték függvény #érték-et vágott az arcomba... -
félisten
válasz Delila_1 #7259 üzenetére
Hali!
Persze lehet, hogy "gyalog" is ír az oszlopba.
Igen, erre gondoltam, de majd kiderülMilyen eseményhez rendeled?
Mivel textbox1-et írt, így én egyből Userform-ra asszociáltam, így az UserForm_Activate() eseményhez rendelhető...Fire.
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)
-
ALbeeeee
csendes tag
válasz Delila_1 #7257 üzenetére
Szia Delila_1,
Nálam ez valahogy, így néz ki és nem mukodik: (Excel 2007, magyar)
Private Sub Lekerekítetttéglalap9_Kattintás()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End Sub____________________________
Kérdés: Probléma ez az angol magyar keverés?Egyébként jó így, hogy az utolsó helyre pakol elvileg nem lesz közben üres cella.
Köszönöm a segítséget...
:)
-
ALbeeeee
csendes tag
válasz Delila_1 #7266 üzenetére
Nos átírtam és teszteltem magyar / angol 2007-es excelben és egyelőre semmi:
Private Sub Lekerekítetttéglalap9_Click()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End SubHiba üzenet: Cannot run the macro .... The macro may not be available in this workbook or all macros may be disabled.
?
:)
-
ALbeeeee
csendes tag
-
félisten
válasz Delila_1 #7273 üzenetére
Hali!
Már mire érted, hogy összetett kód?
Beletettem mindkét lehetőséget (oda is írtam), ha a végére kell beleírni akkor egyik változat, ha nem a végére, akkor meg a másik...
A többi meg szükséges, ha üres, akkor nem kell, vagy ha már szerepel a D oszlopban a textbox1-be beírt érték, akkor azt is meg kell vizsgálni, vagy nem?#7255 "> Textbox1 tartalmának 'Munka2' Sheet D oszlop első üres cellába történő másolása (ha nincs már ilyen az oszlopban) + Textbox ürítése"
Fire.
UI: Na jó, a textbox ürítése lemaradt...
[ 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)
-
félisten
válasz Delila_1 #7277 üzenetére
Hali!
Pedig már kérdeztem is korábban, de sebaj, ez egy ilyen nap...
Na "leegyszerűsítettem" a kódot valamelyest...Remélem ALbeeeee-nek is sikerül létrehozni a Form-ot...Private Sub CommandButton1_Click()
myCol = "D"
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
ActiveCell = TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
With TextBox1
.Text = ""
.SetFocus
End With
'Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
[ 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)
-
ALbeeeee
csendes tag
válasz Delila_1 #7286 üzenetére
Szia,
pont most sikerült így megoldanom:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.TextBox1.Visible = True
Else
Munka1.TextBox1.Visible = False
End IfIf Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
End IfEnd Sub
Amit írtál azt is próbáltam, de valamiért nem csinálta meg...de még próbálkozom azzal a verzióval is!
Lenyíló: Fejlesztőeszközök > Beszúrás > Beviteli lista (űrlap vezérlőelem)
Ismerem az adatérvényesítést is, csak ott az nem tetszik a listánál, hogy egyszer rá kell kattintani és csak utána látható a lista(fül).
:)
-
ALbeeeee
csendes tag
válasz Delila_1 #7288 üzenetére
Hello,
Gyakorolgattam, módosítottam a kódokat, hogy jobban megértsem miről is van szó...
Elküldtem a végeredményt e-mailben, hogy megmutassam ma meddig jutottam vele... így te is jobban látod mit - miért kérdeztem
Próbáld ki, a gombokat .. stb. Az opció választás (F11) egyelőre még manuálisan megy, nem működik legördülő menüvel!
Köszi! Van mit tanulni tőletek...
[ Szerkesztve ]
:)
-
félisten
válasz Delila_1 #7319 üzenetére
Hali!
Nem kell, mert a vezeték- és keresztnév külön cellában van, így nincs szóköz...
(bár értem mire gondolsz)Fire.
[ 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)
-
félisten
válasz Delila_1 #7339 üzenetére
Hali!
Szerintem úgy írd meg a kódot, hogy lényegtelen hány ország szerepel, ez a legegyszerűbb, mert akkor nem lehet olyan probléma a későbbiekben, hogy Pl egy új ország is bekerül a J oszlopba.
Fire.
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)
-
félisten
válasz Delila_1 #7343 üzenetére
Hali!
"A J oszlop az ország nevén kívül egyebeket is tartalmaz."
Na ezt honnan vetted?tusi74 elég egyértelműen fogalmazott, vagy nem?
"Adott egy táblázat, aminek a J oszlopában országnevek vannak, A-tól I-ig pedig különböző adatok."Fire.
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)
-
félisten
válasz Delila_1 #7346 üzenetére
Hali!
Lehet, hogy Te is frontérzékeny vagy, akárcsak én. Van amikor rám sem szabad bízni semmit... De azért vagyunk itt többen a topic-ban, hogy egymást felhomályosítsuk, ha valaki esetleg valamit félreért...
Fire.
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)
-
-
Integrator
aktív tag
válasz Delila_1 #7378 üzenetére
Bevallom Neked nem igazán értem mit írtál.
Leírnád et úgy, hogy egy egyszerű ember is megértse?
A végét értem, összeilleszteni már tudom a CONCATENATE függvénnyel.De mint említettem angol gépem van, így ehhez mérten kéne segítség, hogy mit keressek.
Szerk.: Közben megoldottam. Köszi a helpet
[ Szerkesztve ]
-
Integrator
aktív tag
válasz Delila_1 #7382 üzenetére
text to colums-szal választottam szét, így lett egy irányítószámom, egy városom, majd a cím, ami 2-től 5 celláig terjedően szedte szét, utcanévtől függetlenül.
Pl. Farkas tanya <-- két cella
Pl. Petőfi S. u. 62. I/3. <-- öt cellaHa erre ráeresztem a "=CONCATENATE(C1;" ";D1;" ";E1;" ";F1;" ";G1)" függvényt, akkor megkapom a címet, de azoknál a soroknál, ahol csak két cellányi adat volt (Pl. Farkas tanya), kaptam a végére még 3 space-t.
(Ez azért, mert mivel használható formába kell egyesítenem egy új táblázatba, azért mikor átmásolom, a cella már nem a "=CONCATENATE(C1;" ";D1;" ";E1;" ";F1;" ";G1)" függvényt tartalmazza, hanem az összesített adatot.És mivel több, mint 2000 sorról van szó, nem akarnám egyenként összeillesztgetni, hogy ne maradjon space a végén, ezzel az erővel manuálisan is széjjel tudnám szedni soronként a 2000+ címet.
Tehát a kérdésem áll: A végén lévő space-eket hogyan lehetne eltűntetni?
Ill. arra van-e megoldás, hogy minden cella végére rakjon egy "."-ot? Házszám után sok esetben nincs ".", és ha már egységesítem, legyen szép, egységes.
Szerk.: Nem szétválasztáskor, hanem mint itt írtam le, összeillesztéskor lesz space.
[ Szerkesztve ]
-
Integrator
aktív tag
válasz Delila_1 #7385 üzenetére
Hmm, ez már jó lesz.
Akkor már csak annyit kell megodjak, hogy ez a képlet egyszerre kezelje aokat a helyzeteket, hogy mit csináljon a talált adatok száma 2, vagy 3 vagy 4 vagy 5.
Mert így sajnos lekorlátoz 2 cellára, ill. a maradék esetben mindent bemásol space nélkül.Ügyeskedem, meglátjuk mi lesz.
-
aktív tag
-
sz.j
nagyúr
válasz Delila_1 #7436 üzenetére
Ugye SUM-ot akartál írni ..., mert úgy már tökéletesen működik.
Nagyon köszönöm a segítségedet és elnézést, hogy "lesrácoztalak", de ugye a nick alapján ezt sose lehet tudni.
UI.
A B3-at tulajdonképp annak is lehetne nevezni, különösebb jelentősége nincs a megnevezésnek. Persze ez az "E" oszlopra nézve is igaz, mert az E5-E17 közötti rész az elfogyott (eladott, felhasznált,stb) mennyiséget tükrözi..[ Szerkesztve ]
Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
maci25
aktív tag
válasz Delila_1 #7432 üzenetére
Köszönöm az eddigi ötleteket. Az én hibámból nem ment át ,hogy mit is szeretnék.
Csináltam egy , az elképzelésem szerinti munkafüzetet /ez már szerintem jobban sikerült és talán érthetőbb is/.
Kérlek titeket ,hogy nézzétek meg és segítsetek a finomításában.[link][ Szerkesztve ]
-
Troy.
addikt
válasz Delila_1 #7455 üzenetére
köszi! Ezt én is ismertem, de nem gondoltam volna, hogy ki tudom jelölni a 24xx darab oszlopot. ( Azt hittem mindig megtoldja egy abc betűvel. (A , AB, ABC, ..stb ))
Viszont ha ezt meg lehet oldani, kíváncsi vagyok az inverzére! Miként tudom előkaparni az elrejtett oszlopokat?
köszi[ Szerkesztve ]
.
-
maci25
aktív tag
válasz Delila_1 #7451 üzenetére
Szia !
Köszönöm szépen , hogy segítettél a táblázatban.
Még annyi kérdésem lenne, hogy hogyan lehetne megoldani , például az E1E5 illetve az F1F5 tartományban(oszlopban)szereplő számok megjelenjenek az A1A5, illetve a B1B5 tartományban.( azaz E1=A1, E2=A2, F1=B1,F2=B2 stb, stb) De ami nagyon fontos lenne, az az, hogy a kitöltést a gép felülről kezdje.Ezzel azt akarom mondani, ha pl. az E1-ben nincs semmi, csak az E2-ben ,illetve az F1 is üres, csak az F2-től van , akkor a másik oszlopban az A1-től és a B1-től kezdje a beírást.( E2=A1,F2=B1) és így tovább.
Ez a kérdés nem a tegnapi táblázatra vonatkozik, hanem ez egy teljesen más kérdés.
Köszi.
Maci felesége -
sz.j
nagyúr
válasz Delila_1 #7463 üzenetére
Úgy látszik, hogy az előbb nagyon érthetetlenül fogalmaztam ...
És félő, hogy most sem tudom jobban leírni ..., ezért inkább linkelek egy újabb képet is.Van egy termék ami műa.-ból és alu-ból is előállítható, de bármelyikből is készül mindegyikhez szükség van pl. "Keret"-re, amiből 5m kell darabonként (5m/db).
Én azt szeretném megvalósítani, hogy akár műanyagból (C oszlop) akár aluból (E oszlop) készül a termék, és ennek megfelelően a "C"-be vagy az "E"-be írom be a darabszámot, a termékhez felhasznált "Keret" mennyisége a "H" oszlopba megjelenjen.
Jelen esetben az alu termék esetén a keret "0" mennyiséget jelez, holott 3db×5m/db=15 kellene lennie.
Persze abban sem vagyok biztos, hogy ezt egyáltalán meglehet-e csinálni .....Remélem, hogy most valamivel érthetőbben írtam ...
Amúgy az eladás előtti készlet most nem érdekes, mert a "H" oszlop végén az oszlopban található össz. mennyiséget kivonom belöle / =H25-SUM(H29:Hx) /
Azaz a H25-ben található a készlet.[ Szerkesztve ]
Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
félisten
-
félisten
válasz Delila_1 #7498 üzenetére
Hali!
Nálad (ugye 2003-as az Excel, amit használsz) a Jobbra az alapbeállítás?
Hmm, nálam az összes Excel-ben(2003/2007/2010) Lefelé... Érdekes.Fire.
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)
-
félisten
-
Retekegér
HARDVERAPRÓD
válasz Delila_1 #7505 üzenetére
Köszi, olyasmi kellene, ahol elég a cellát megadni, mint pl. a VKERES/FKERES függvényeknél (pl. =FKERES(A2;Munkafüzet2!$A$2:$I$30;2;0)).
A keresés alapjául szolgáló argumentumok megvannak 2 munkafüzeten. Az első munkafüzetben kiválasztom az argumentumot tartalmazó cellákat és ráeresztem a keresőfüggvényt a második munkafüzeten található táblázatra, mely függvénynek vissza kellene térnie a metszéspontban talált adattal.A Te példáddal élve: argumentumként megadom a C5 és E2 cellákat, a függvény pedig kiírja a másik munkalapon a 17-et.
Nem tudom érthető-e, hogy mire gondolok?
<< Heimdal >>
-
Retekegér
HARDVERAPRÓD
válasz Delila_1 #7507 üzenetére
Az INDEX jó is lehetne, de nem érek célt vele, legalábbis a =(tömb; sor_száma; oszlop_száma) formula szerint nem, mert pont a sor és az oszlop sorszáma helyett kellene cellatartalmat megadni keresési feltételként. Valahogy egy egybeágyazott VKERES/FKERES fv.-el meg lehet ezt oldani?
<< Heimdal >>
-
Retekegér
HARDVERAPRÓD
válasz Delila_1 #7510 üzenetére
Ezt nem nagyon értem, az INDIREKT fv-el hogyan kellene összefűzni?
Naszóval, az ideális függvény olyan lenne, mint az INDEX, ahol a sor és oszlop számok helyett megadhatnám egy-egy cella tartalmát, hogy azokat a sorokat és oszlopokat nézze, amiben az előbb említett tartalom megtalálható.
=INDEX(Munkafüzet!$A$1:$P$97;sor;oszlop) --> sor; oszlop helyett mondjuk C4 és F4 cellák, amelyben a keresés feltételei vannak és automatikusan hozzárendelné az Excel a sor és oszlop számait...
<< Heimdal >>
Új hozzászólás Aktív témák
- Kecskemét és környéke adok-veszek-beszélgetek
- Vicces képek
- Több stúdiót is bezár költségcsökkentésként a Microsoft Xbox részlege
- Megjött az Arctic Liquid Freezer AIO-k új nemzedéke
- Távcső topik
- Mobilhasználat külföldön
- OLED TV topic
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Gaming notebook topik
- Autós topik
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest