-
Fototrend
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
-
#51971
istvankeresz
aktív tag
karlkani
#51967
istvankeresz
aktív tag
válasz
karlkani
#51967
üzenetére
Szia!
Köszi a választ. Nem netes gépról írtam át, így nem copy-paste volt, elgépeltem. Sorry.
VBA-ban készült egy gomb, amit ha megnyomok, akkor ezt képletet szövegkként másolja át, úgyhogy ne képletként nézz rá, hanem sima text-ként, de mindegy is. Megoldottam a Chr(34)-el.
-
#51966
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Hogyan tudok egy képletet másolni VBA segítségével egyik cellából a másikba, ha van benne " ?
Ezt szeretném:
ThisWorkbook.Sheets(Textbox11.Value)Range.("A18") = ("=(21+SZUM(F2:J2))-(SZUMHA(M2 200);"SZ";N2 200))")És ugye a "SZ" miatt syntax error van.
Valami változóba kellene beletöltenem, és utána annak az értékét meghívni?
-
#51931
istvankeresz
aktív tag
Delila_1
#51928
istvankeresz
aktív tag
válasz
Delila_1
#51928
üzenetére
Szia!
Na ez már alakul, köszi, de így jobbra lépeget cellánként. De én meg azt szeretném, hogy lefelé lépegessen. Sajnos elírtam a korábbi bejegyzésemben. Nem az a cél, hogy B9, C9 D9, STB:, hanem az, hogy B9, B10, B11, stb. Elnézést a félreinformálásért.
Megcserélem, és módosítom a Cells értékeket és jó lesz.
Köszönöm! Nagy segítség vagy!
-
#51927
istvankeresz
aktív tag
Delila_1
#51926
istvankeresz
aktív tag
válasz
Delila_1
#51926
üzenetére
Hát csak nem sikerül.
Eléggé összekutyultam a sok próbálkozással. Letisztázva ez is azrt csinálja, hogy végiglépked a worksheet-eken és átmásolgatja az A2 értéket a B9-be. Innen hogyan tovább? Hogy a következő ciklusban már B9 helyett C9 legyen?
Private Sub CommandButton7_Click()Dim ws As WorksheetThisWorkbook.Sheets("Maradek_TEMPLATE").CopyActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"For Each ws In ThisWorkbook.WorksheetsActiveWorkbook.Sheets("Maradék szabadságok").Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")Next wsEnd Sub -
#51925
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Készítettem egy gombot, ami egy üres, template táblázatba (Maradek_TEMPLATE) összegyűjti a worksheet-ekből a kívánt értékeket és beírja a táblázatba. Odáig eljutottam, hogy végigmegy az összes worksheet-en, a megfelelő cellából kiveszi az értéket, de sajnos nem ugrik egy cellával lejebb, hanem a B9-be írja felűl mindig az átmásolandó értéket. A célom az lenne, hogy sorban B9, C9, D9...stb. cellákba másolja át a kiolvasott értékeket.
Private Sub CommandButton7_Click()Dim lr As LongDim cell As RangeDim ws As WorksheetThisWorkbook.Sheets("Maradek_TEMPLATE").CopyActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"lr = Sheets(Maradék szabadságok).Range("A" & Rows.Count).End(xlUp).Row + 1For Each ws In ThisWorkbook.WorksheetsFor Each cell In ThisWorkbook.Sheets(ws.Name).Range("B2:B28")ActiveWorkbook.Sheets(ws.Name).Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")cell.Value: lr = lr + 1Next cellNext wsEnd Sub -
#50424
istvankeresz
aktív tag
Delila_1
#50423
istvankeresz
aktív tag
válasz
Delila_1
#50423
üzenetére
Az alapgondolatom az volt, hogy egyszerübb az üres cellát figyelni feltételnek (semmi) mint, ha valamit beleírnak, mert több érték is lehet amit beírnak, nem csak az a három, amit felsoroltam. Vagy akár félreütik és nem ESZ lesz hanem EZS véletlenül a cella (jelen esetben a B4) étéke.
Szóval a képletem teljesen jó ahog csináltam, csak abban az esetben nem működik jól, ha B6 üres valamit C6 és D6 is üres. Ilyenkor ne nullát irjon ki az E6-ba, hanem üres cella legyen.
SzerK:
Gondolatmenetem:
Ha B4 üres akkor munkaórát számpl az igaz ágon. A hamis ágon újabb feltételel vizsgálja, hogy ha a C4 üres, azaz nincs érkezési idő, akkor írjon nyolcat, ha hamis, akkor semmit.De ez így nem jó.
-
#50422
istvankeresz
aktív tag
Delila_1
#50421
istvankeresz
aktív tag
válasz
Delila_1
#50421
üzenetére
Szia!
B4-ben nem csak "SZ" érték lehet. Ott két esetet kell figyelni: vagy semmi, vagy akármi (SZ, ESZ, MSZ, stb) lehet benne.
Munkaóra az direkt numerikus formában van, hogy könnyen számítható legyen az az oszlop alján egy havi összesítésként.
A B7-tól D7-ig pedig nem releváns, mert aki valamilyen távolléten van, az nem dolgozik, tehát B7 kizárja a C7, C8-t és fordítva.
-
#50420
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Készítettem egy képletet, ami kiszámolja a munkaórákat. Ha szabin van a kolléga, akkor nyolc órának számolja a munkaórát. Ha például hétvégén nem dolgozik és nincs például egészségügyi szabadságon, akkor 0 órának számolja a munkaórát. Ez teljesen jó, viszont azt szeretném, ha nulla a munkaóra abban a sorban, ahol nincs valamilyen távolléten, és nincs érkezési idó és távozási idő jelölve, akkor hagyja üresen a mezőt.
Ezt a képletet készítettem:
=HA(ÜRES(B4);(D4-C4)*24;HA(ÜRES(C4);8;" "))Kép hozzá:
Első sor:
Szabadságon van a kolléga, nyolc munkaőrának számolja, rendben
Második sor:
Munkavégzésen van a kolléga, kiszámolja a ledolgozott időt, rendben
Harmadik sor:
Nem dolgozik, nincs semmilyen távolléten, ilyen pl. a hétvége, nulla munkaidót számol, de a nulla eredményre üres cellát szeretnék.
Negyedik sor:
Ilyen nem lehet, szabadságon van és dolgozik is. Viszont itt eltünteti a cella értékétAmi még fontos, hogy lehet munkavégzés hétvégén is, így valami olyan univerzális képlet kell, ami az egész E oszlopra jó.
Köszi!
-
#50401
istvankeresz
aktív tag
Fferi50
#50399
istvankeresz
aktív tag
válasz
Fferi50
#50399
üzenetére
Szia!
Igen, először MsgBox-al ellenőriztem a ciklusban a változó értékeit, észrevettem, hogy szépen kiírja mindet, de egymást felülírva csak az utolsót írta ki.
Köszi megpróbálom összefűzni!
Delila_1: Köszi ez is nagyon jó megoldás. Kipróbálom mindkettőt.
Más:
Olyan képlet van ami idő formátumolkból pl (08.00 és 16.00) -ból kiszámolja, hogy 8 órát dolgozott valaki? Félórás munkarendel is kellene működni, azaz aki 08:30-tól 16:30-ig dolgozik, akkor arra is kiadja a 8 órát? -
#50398
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Ha még emlékeztek, akkor korábban készült a segítségetekkel egy távollét nyilvántartó project, ami egy excel táblát használva VBA megoldásokkal rögzítette a textboxokba beírt adatokat. Tök jól működik, de jött egy felhasználói fejlesztési javaslat, ami jogos is szerintem. Aki rögzíti, az szeretné látni valamilyen megjelenített formában a már korábban rögzített adatokat, mert nem biztos, hogy jót rögzített korábban, megzavarták rögzítés közben, srb.. Ez konkrétan négy oszlop K2,L2,M2,N2 -tól lefelé indulva. Msgboxban ha sok adat van, akkor karakterlimit miatt nem írható ki teljesen a cella értékei. A felhasználói felületbe szépen illeszthető lenne egy Label, amire a Label.Caption-al próbálnám az értékeket kiíratni. A kérdésem az,, hogy lehet olyan ciklust ami véigmegy a négy oszlopon, a cellaértékeket pedig sorba kiírja ugyanarra a Labelre? Nekem eddig nem nagyon sikerült. Ciklussal egy értéket írt ki, az utolsót.
-
#50385
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Ügy tűnik, hogy csak félig jó megoldásom lett az MsgBox-ba kiiratásos problémánnal. Belefutottam az 1023 karakterlimitbe, amint nagyobb tartománnyal teszteltem. Van mód ennek a limitnek a kitolására valami trükkel? Vagy valami pop-up ablakot készítsek?
-
#50382
istvankeresz
aktív tag
Delila_1
#50378
-
#50377
istvankeresz
aktív tag
lappy
#50375
istvankeresz
aktív tag
Szia!
Lehet, hogy kicsit félrefogalmaztam. Ezt az egy cella értéket nekem is sikerült kinyerni, de én több cella értékeit szeretném egyszerre egy MsgBoxba, vagy bármibe, tehát egy
Range("A1:E2").Valueszerűen, lehetőleg megtartva a sorokat, oszlopokat.A cél az lenne, hogy ha a user megnyomja a gombot, akkor az azon az aktív worksheet-en a range-be írt cellák értékeit lássa, mert amúgy neki aworksheet el van rejtve. Ezért, ha nem biztos benne, hogy oda felvitt-e már adatot, akkor egy gombnyomással megnézi, hogy van-e ott érték, illetve, hogy milyen értékek vannak beírva.
Tehát a képen látható értékek vannak a cellákban például, de ezt nem látja a user. Nyom egy gombot, és egy panelen, vagy egy MsgBoxban visszakapja az (A1:E2) tartomány értékeit.TillaT:
Köszönöm! Egyelőre elég csak a cellatartomány értékeit visszakapnom.
-
#50374
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Egy cella range értékeit szertném megjeleníteni valahogy. Van VBA megoldás rá? Akár valamilyen panelen, akár MsgBox-ban. Gombnyomásra kellene működnie.
-
#50023
istvankeresz
aktív tag
istvankeresz
#50022
istvankeresz
aktív tag
válasz
istvankeresz
#50022
üzenetére
User error bocsánat.
IsNumeric(deg) maradt benne az IsNumeric(Textbox11.value) helyett.
Khm, mégsem jó....
A Dr. 1 -et engedi beírni
-
#50022
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv újra!
Ha egy textboxban megtiltom, hogy számokat lehessen beírni, azzal a céllal, hogy elvileg nincs numerikus karakterekből álló nevű ember, akkor a . (pont) karaktert, hogy tudom mégis engedélyezni? Itt a Dr. Valaki esetet akarom megoldani.
Ebből indulok ki:
Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)If Len(TextBox11.Text) > 30 ThenMsgBox "Maximum 30 karakter!"TextBox11.Text = ""ElseIf IsNumeric(deg) = True ThenMsgBox "Csak betüt írj!"TextBox11.Text = ""End IfEnd Sub -
#50017
istvankeresz
aktív tag
Fferi50
#50016
-
#50008
istvankeresz
aktív tag
Fferi50
#50007
istvankeresz
aktív tag
válasz
Fferi50
#50007
üzenetére
Szia!
Azért, mert a bezárás nélkül nem látszik az új berögzített személy, azaz a új worksheet egy másik comboboxban, ahol ezt az új worksheet-t ki lehet választani. Ezt még nem sikerült megoldanom. De rajta vagyok ezen is.
Esetleg valami GoTo megoldás nem lehet jó nekem? Talán ha az egyik feltétel teljesül, akkor ugorjon ide, ha a másik, akkor ugorjon oda.
-
#50004
istvankeresz
aktív tag
andreas49
#50003
istvankeresz
aktív tag
válasz
andreas49
#50003
üzenetére
Üdv!
A megegyező nevű emberek textboxból berögzítésének problémájánál akadtam el.
Az működik, hogy berögzítek egy embert, aminek a neve lesz a worksheet neve, ilyenkor ugye ha még egy ugyanolyan nevű embert rögzittek, akkor az sikertelen.
Ha úgy oldom meg, hogy tegyen mellé egy valamilyen karaktert (Pl.: 2), akkor az is működik(egyszer). Harmadik ugyanilyen nevű embernél már ez is hibázik. Ez már nagyon kis eséllyel fordul elő, de hibás rögzítésnél könnyen előfordulhat.
Erre van kiforrott megoldás, vagy olyasmire gondoltam , hogy egy 2-től növekvő számot tegyen az ilyen esetekben a nevek mögé, és úgy hozzon létre egy új worksheet-t.
Másik problémám pedig ennek a problémának a figyelése. Próbáltam elágazásokkal, Case Select-el, de mindig valami félre ment. A koncepcióm az, hogy a rögzítő gomb megyomásakor egy ciklus végigfut a worksheeteken, ha nem talál egyező worksheetet, akkor létrehozza azzal nével, ami a textboxban van. Ha talál egyezőt, akkor megkérdi, hogy biztos rögzíted? Ez lenne a két megegyező nevű ember esete. Itt ha Igen.t nyom, akkor létrehozza a fent említett módon. Pl. Kovács Béla2. Viszont a ciklusokból nem sikerül jó helyen kilépnem. Mert a feltételek nem úgy teljesűlnek, ahogy én terveztem.
Most ezt faragom, de ez sem működik jól:
Dim answer As IntegerDim wbSearch As Workbook, wsSearch As WorksheetFor Each wsSearch In ActiveWorkbook.SheetsSelect Case wsSearch.NameCase Is <> TextBox11.ValueCase Is = TextBox11.Valueanswer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")If answer = vbYes ThenSheets("Szemely_TEMPLATE").Copy After:=Sheets("Havi_TEMPLATE")ActiveSheet.Name = TextBox11.Value & 2Sheets(TextBox11.Value).Range("A2") = TextBox11.Value & " " & ComboBox7.ValueSheets(TextBox11.Value).Range("B2") = TextBox12.ValueSheets(TextBox11.Value).Range("C2") = TextBox13.ValueSheets(TextBox11.Value).Range("D2") = TextBox14.ValueMsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"TextBox11.Value = ""ComboBox7.Value = ""TextBox12.Value = ""TextBox13.Value = ""TextBox14.Value = ""End IfIf answer = vbNo ThenTextBox11.Value = ""ComboBox7.Value = ""TextBox12.Value = ""TextBox13.Value = ""TextBox14.Value = ""End IfEnd SelectNext wsSearchSzóval ezen az úton indultam el. Ötlet?
-
#49974
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Tesztelem az alábbi kódrészletet, de ha a feltétel a ciklusban másodszor is igaz, akkor az első igaz feltételhez kapcsolódó értéket másolja át és nem a második körben igaz feltételhez kapcsolódóét. Variálgattam, de nem jutottam előre, így a "rosszul" működőt másolom be ide. Esetleg ötlet valakinek?
lr = Sheets(ComboBox5.Value).Range("E" & Rows.Count).End(xlUp).Row + 1For Each ws In ThisWorkbook.WorksheetsFor Each cell In ThisWorkbook.Sheets(ws.Name).Range("K2:K200")If cell.Value Like "2023.01*" ThenActiveWorkbook.Sheets(ComboBox5.Value).Range("B" & lr) = ThisWorkbook.Sheets(ws.Name).Range("A2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("C" & lr) = ThisWorkbook.Sheets(ws.Name).Range("B2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("D" & lr) = ThisWorkbook.Sheets(ws.Name).Range("M2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("F" & lr) = ThisWorkbook.Sheets(ws.Name).Range("L2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("G" & lr) = ThisWorkbook.Sheets(ws.Name).Range("N2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("H" & lr) = ThisWorkbook.Sheets(ws.Name).Range("O2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("I" & lr) = ThisWorkbook.Sheets(ws.Name).Range("P2")ActiveWorkbook.Sheets(ComboBox5.Value).Range("E" & lr) = cell.Value: lr = lr + 1End IfNext cellNext ws -
#49957
istvankeresz
aktív tag
istvankeresz
#49956
istvankeresz
aktív tag
válasz
istvankeresz
#49956
üzenetére
Bocs a sok hozzászólásért. Egy restart megoldotta.
Szerk.:
Azaz mégsem. Második futtatásra az lr már 109-es sorral kezdte. Pedig a 4-es sorral kellett volna folytatnia az E oszlopban, mivel a Az E1-től E3-ig másolt be értéket. -
#49956
istvankeresz
aktív tag
istvankeresz
#49955
istvankeresz
aktív tag
válasz
istvankeresz
#49955
üzenetére
Müködik, viszont az lr egy nagyon nagy értéket kap, így a 1010185 sornál kezdi a beírást. Ez mért lehet? Honnan vesz egy ekkora értéket?
Így néz ki most:
Dim cell As RangeDim ws As WorksheetDim lr As Longlr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1For Each ws In ThisWorkbook.WorksheetsFor Each cell In Sheets(ws.Name).Range("K2:K6")If cell.Value Like "2022.01*" ThenSheets(6).Range("E" & lr) = cell.Value: lr = lr + 1MsgBox (ws.Name & " " & cell.Value & " " & lr)End If' MsgBox (ws.Name & " " & cell.Value)Next cellNext ws -
#49946
istvankeresz
aktív tag
Fferi50
#49944
istvankeresz
aktív tag
válasz
Fferi50
#49944
üzenetére
Szia!
Ez tökéletes. Viszont a kiolvasott cellákat szeretném másolni egymás alá egy másik munkalapra.
Ezt hova kell berakni, hogy jó legyen? Ha egyáltalán helyes.
lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1Ebbe szeretném beletenni, úgy, hogy minden ciklus után ugorjon egy sort.
Dim cell As RangeDim ws As WorksheetDim lr As LongFor Each ws In ThisWorkbook.WorksheetsFor Each cell In Sheets(ws.Name).Range("K2:K6")If cell.Value Like "1234.56*" ThenSheets(6).Range("E10") = cell.Value' MsgBox (ws.Name & " " & cell.Value)End If' MsgBox (ws.Name & " " & cell.Value)Next cellNext wsEnd SubMsgBox-ok, csak ellenörzésnek vannak, hogy lássam, hogy a megfelelő értékekkel dolgozom.
Köszi!
-
#49939
istvankeresz
aktív tag
Fferi50
#49934
istvankeresz
aktív tag
válasz
Fferi50
#49934
üzenetére
Szia!
Jó volt kiindulási alapnak a kódod, Köszönöm! Sikerült összeraknom úgy, ahogy nekem kell.
Következő kérdésem mindenkihez:
Feltételnek szeretném megadni egy cella értékét. Ha az a cella egy karakter sorozattal kezdődik, pl.: 1234.56 , de még vannak mögötte karakterek, akkor a tudok olyan univerzális jelet használni, mint máshol a csillag, azaz ha valami 1234.56-al kezdődik akkor vegye figyelembe, egyébként pedig nem. Magyarul VBA-ban is lehet * karaktert használni? Mert nekem így nem találja meg amit keresek.
-
#49933
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Egy (nekem) eléggé összetett lekérdezést szeretnék csinálni de nem boldogulok.
Cél: Gombnyomásra végig fut egy ciklus az aktuális workbook-ban worksheet-eken. Ezeken a worksheet-eken szintén végigfut egy ciklus ami végignéz egy oszlopban egy range-t, és ha talál egy feltétellnek megfelelő cellaértéket, akkor azt a cellaértéket átmásolja a template-ből létrejövő új workbook-ba.A ciklusban-ciklusban-feltétellel nem boldogulok, azaz az adatkiolvasással.
-
#49917
istvankeresz
aktív tag
lappy
#49916
-
#49915
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Adott három oszlop. Azt szeretném, hogy az I oszlopban csökkenjen az érték a H oszlop értékével csak akkor, amikor a C oszlopban "SZ" szöveg található. Ez sikerült is, viszont abban a sorban ne írjon ki semmit, ahol nincs a C oszlopban érték. Ha más egyéb szöveg van, akkor pedig NE csökkentse az I oszlopot, csak írja oda az utolsó I oszlop értéket.
Ha a képletet módostom arra, hogy:
=HA(C31="SZ";I30-H31;"")
akkor egészen addig jó, míg újra nem lesz "SZ" a C oszlopban, mert akkor a semmiből akarja kivonni H oszlop adott értékét.
Remélem képről érthetőbb.
-
#49906
istvankeresz
aktív tag
istvankeresz
aktív tag
Így már megcsinálja, amit akarok, viszont nyit mellé egy üres excel fájlt, már csak ezt kell valahogy megoldanom.
-
#49905
istvankeresz
aktív tag
Fferi50
#49904
istvankeresz
aktív tag
válasz
Fferi50
#49904
üzenetére
Kettóvel ezelötti hsz-emben, a ??? helyére bemásoltam amit írtál. Ott akadt meg, azt a sort sárgázta ki a debugger.
Szerk:
Kiegészítve amit írtál erre:
ThisWorkbook.Sheets("Nyilvantartolap_TEMPLATE").Copy
Most már legenerálja a fáljt amit akarok üresen, majd generál egy újat amibe beleteszi a template-t.
Jó uton vagyunk, Szerintem innen már összelegózom.
Köszi!
-
#49897
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv! Ismét elakadtam a projektemben.
Adott egy excel fájl aminek a neve változhat, de általában nem változik. Az egyik worksheet egy Temlplate. (Nyilvantartolap_TEMPLATE)
VBA-ban csak ezt az egy worksheet-t szeretném átmásolni egy másik, újonann létrehozott excelbe. Gombnyomásra az új excel-t sikerül létrehoznom abban a mappában ahol szeretném, azon a néven, ahogy szeretném, de nem tudom belemásolni a Template worksheet-t. Tehát megnyitva marad az az excel is amin működik a VBA és mellé nyílik az új excel fájl is.
Sokmindennel próbálkoztam, de nem tudom mit nézek be, mindig hibára fut.
A kódom:
Mi kell a ??? helyére?
Köszi!
-
#49867
istvankeresz
aktív tag
Fferi50
#49866
istvankeresz
aktív tag
válasz
Fferi50
#49866
üzenetére
Köszi mindenkinek, de végül is átgondolva, nincs szükség rá, hogy dátumként kezeljem a textbox értékét. (egyelőre) Sima textbox-ba írt yyyy.mm.dd formátumos szöveg típust kell kimásolnom majd máshova beilleszteni gombnyomásra. Felesleges lépés (most) beíratni majd a felhasználóval / jelekkel, meg több combobox-al megoldani. Max rakok alá egy labelt, hogy ÉÉÉÉ.HH.NN a helyes formátum és ez elég lesz. Lehet, hogy a kimutátoskhoz majd jobb lesz, ha dátumként kezelem, mert úgy könnyebb lesz havi kimutatást csinálni, de most felesleges egyelőre. Azért köszi mindenkinek!
-
#49862
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Textbox-ba írt dátum validálásnál van mód arra, hogy ne yyyy/mm/dd formátumba kelljen beírni, aztán átalakítani yyyy.mm.dd formátumba, hanem a dátum beírásakor egyből megkövetelni a yyyy.mm.dd formátumot?
-
#49843
istvankeresz
aktív tag
Delila_1
#49842
istvankeresz
aktív tag
válasz
Delila_1
#49842
üzenetére
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 SubHogyan lehet többet?
-
#49839
istvankeresz
aktív tag
istvankeresz
aktív tag
Ü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 SubElőre is köszi!
-
#49314
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
B oszlopban szeretném csökkenteni a számokat úgy, hogy annyival csökkenjen, amennyit A oszlop azonos számú cellájába írok, Múködik is, viszont, ha lejebb húzom a B oszlopon a kijelölőnégyzetet, hogy érvényes legyen az alatta lévő cellákra is, akkor az utolsó kivont összeget jelzi ki az összes olyan B oszlop cellája, amelyik elé nem írtam számot, amivel csökkenteni fogom. Lehet olyat, hogy csak akkor írjon ki a B oszlop értéket, ha elötte az A oszlopban érték a megfelelő cellában?
Tehát amíg A5, A6, A7...A20-ba nem írok értéket, addik B5,B6,B7...B20 üres cellának nézzen ki.
Köszi!
-
#49301
istvankeresz
aktív tag
Delila_1
#49299
istvankeresz
aktív tag
válasz
Delila_1
#49299
üzenetére
Jó ötlet, megpróbálom mennyire használható a szűrővel, de még gondolkodom a segédoszlopos megoldáson. Megpróbálom azt, hogy a segédoszlop celláiba a januári dátumokhoz 1-t, februári dátumokhoz 2-t párosítok és így tovább, így FKERES-el vagy XKERES-el talán áttudom rántani a nekem szükséges dátum adatokat szövegként a másik lapfülre.
Köszi az ötleteket!
-
#49294
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Ezt hogyan lehetne megoldani?
Két oszlopban van tárolva kezdeti dátum és vége dátum. Ez egész évben egyre bővül ahogy halad az idő.
A feladat az lenne, hogy ha egy másik lapfülön A1-be 1 -t írok, akkor írja ki mellé a januári dátumokat, ha 2-t, akkor a februári dátumokat és így tovább.
Ezt szeretném.:
Több ilyen dátumtárolós táblázatból is össze lehet szedegetni a kívánt dátumokat?
Előre is köszi!
-
#49277
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
A célom, hogy az aktuális hónap előtti hónapot írassam ki szövegesen.
Az =HÓNAP(MA())-1 képlettel meg kapom helyesen a 6 értéket.
Ezt kombinálom: =SZŐVEG(HÓNAP(MA())-1;”hhhh”) képlettel, hogy szöveggé alakítsam, de így az eredmény: január ami nem jó.
Hol rontom el? -
#49271
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Egy cellában szeretnék egy keltezést, ami így néz ki:
Miskolc, 2022.07.05Sajnos az =“Miskolc, “ & MA() nem ezt adja vissza. Mi a megfelelő formátum?
Köszi
-
#49261
istvankeresz
aktív tag
lappy
#49260
istvankeresz
aktív tag
Szia!
Lehet, hogy nem jól írtam le, de így talán jobban érthető:
Ez az "adatbázisom" az egyes lapfülön:
Ezt szeretném a második lapfülön:
Ha B3-ba beírok egy 2-est akkor C3 és D3 automatikusan kitöltődik, azaz így néz ki:
Ha esetleg letudnád írni erre a példára a konkrét függvényt, akkor azon eltudnék indulni.
Előre is köszi!
-
#49259
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Egyik lapfülön szeretnék sorszámokkal tárolni sorokban adatokat cellánként elválasztva. Pl:
1 Alma Piros
2 Narancs Sárga
3 Kókusz BarnaMásik lapfülön pedig ha egy cellába beírom, hogy 2 akkor mellé irja ki, hogy Narancs Sárga, ugyan úgy cellánként elválasztva. Természetesen, ha más sorszámot írok a cellába, akkor az ahhoz tartozó gyümölcsöt és színt szeretném, ha mellé írná.
Előre is köszi a segítséget
Új hozzászólás Aktív témák
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- AKCIÓ! LENOVO ThinkPad P15 Gen2 munkaállomás - i7 11800H 32GB DDR4 1TB SSD RTX A2000 4GB W
- Asus TUF B760-Plus Wifi (apró hibával)
- REFURBISHED - HP USB-C Universal Dock G1 (DisplayLink)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest