- Kezdő fotósok digitális fényképei
- Apple asztali gépek
- Milyen billentyűzetet vegyek?
- AMD Navi Radeon™ RX 9xxx sorozat
- Fokozatosan erősít majd a szerverpiacon az Intel
- Projektor topic
- Kiterjesztett valóság ASUS ROG és XREAL recept szerint
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- Apple MacBook
- Azonnali informatikai kérdések órája
-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Elöbbi hsz-em kiegészíteném példával:
neveket írtam be, és látni, hogy kékkel felhozta azt a nevet ami már volt: "Zoltán"
-
DrTechnoid
őstag
Szia!
"ki lehet e íratni úgy , hogy a cikkszám helyett egy más elnevezést használok"
Ha az Excelnek megmondod, melyik cikkszám milyen nevű terméket takar, természetesen.
Ehhez kell csinálnod egy kis "szótárt" 2 oszlopban, első oszlop cikkszám, második oszlop megnevezés.
Utána az Fkeres függvénnyel megkeresed a cikkszámnak megfelelő megnevezést és azt írod a cellába. Vagyis a cellába egy Fkerest tartalmazó képlet kerül.Üdv.
Ps. Megjegyzést adhatsz a cellákhoz, de azt nem lehet képlettel megjeleníteni. -
Üdv. Kollégák nem boldogulok, mit cseszek el? 1 cellába be akarom függvénnyel írni, a sheet nevét:
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,32)
ez ugye nekem nem jó, mert magyarul kell:=KÖZÉP(CELLA("filenév";A1);KERES("]";CELLA("filenév";A1))+1;32)A vesszőket pontos vesszőre cseréltem, mert nálunk ugye úgy kell, de valamiért nem jó. Képletkiértékelővel a keres-el megtalálja, de a következő lépésnél már
#ÉRTÉK-et ad vissza. Köszi! -
KaiotEch
nagyúr
Üdv. Kollégák nem boldogulok, mit cseszek el? 1 cellába be akarom függvénnyel írni, a sheet nevét:
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,32)
ez ugye nekem nem jó, mert magyarul kell:=KÖZÉP(CELLA("filenév";A1);KERES("]";CELLA("filenév";A1))+1;32)A vesszőket pontos vesszőre cseréltem, mert nálunk ugye úgy kell, de valamiért nem jó. Képletkiértékelővel a keres-el megtalálja, de a következő lépésnél már
#ÉRTÉK-et ad vissza. Köszi! -
Mostanság úgy tűnik, nem működik jól a távolbalátásom.
Kérlek, tedd fel a fájlt egy elérhető helyre. A nem publikus adatok helyett írj egyebet, de NE olyanokat, hogy minden cellában 1111 szerepel, hanem hogy lehessen követni az egésznek az értelmét.
Biztos egyszerűbbé is lehetne tenni, összevonni műveleteket (pl kiválasztás+rögzítés stb). Nem tudom.
Urlap1 -> beviszi a táblába az adatokat
Urlap-> kiveszi, amire rákeresünk (és módosítjuk ha szükséges) Ezt a módosítást színezhetné ki a táblázatban, és írná át a nevet.
Az se lenne egy hátrány, ha több sorom lehetne. Csak a táblán kívüli részek fixek, meg van fejléc, lábléc is. Az aláírás meg mindig a lap alján lenne. Nekem nem lenne probléma, mindig kijelölni a nyomtatási területet minden egyes aktuális lapnál, de nem én fogom használni.
Köszönöm.
-
Pontosítok.
Kezdem az elejéről, nehogy kihagyjak valamit.
Az Urlap kinézete
A kép annyiban hibás, hogy nem a B8-nál van a név, hanem a D8 egyesített cellába, legördülő menüben.
Ami eddig működik és frankó. Kiválasztom a nevet majd beírom a rublikákba az adatokat. Majd ezek az adatok a következő fülre mentésre kerülnek egy makróval egy táblázatba, olyan elrendezésbe, amit a fenti képen linkeltem.
Igen ám, de kitalálták, hogy szükség lenne módosításra könnyen és gyorsan, ha nem éppen az az illető jön a dolgokért, aki előzőleg rögzítésre került. Erre írt nekem Mutt egy makrót, amit (#39630)-as hsz-ban linket.
Ez csinálja azt, hogy az adatbázisból kikeresi a név és dátum egyezésnél az alatta lévő adatokat, amit egy generált adatlapra ment el. A keresés nem az Urlapon történik, hanem az Urlap1-en. A generált adatlapot meg elnevezi a keresés alapján. Itt már elég lesz csak a nevet átírni, majd nyomtatni, menteni stb. Ezzel volt az a problémám, hogy a generált adatlap nem veszi át a formátumot, fej láblécet, oldalbeállítást stb.
És itt jön a kérésem. Az új Urlapon (a generálton) már kitöltve szerepnek az adatok (ahol módosítják a nevet) Ez alapján megkeresné a Mentes lapon lévőket és a változást (ami csak név változás) át kéne vezetnem az az összesítő táblázatba. Egyrészt beszínezheti azt a név, dátum és a hozzá tartozó adatokat pl: lilára.
De az is jó, ha kicseréli a nevet, bár ez lehet nem fontos, hanem egy megjegyzés rublikába majd beírják a másik nevet. Tehát ez egy oda-vissza működős dolog, ahol én inkább külön szedtem az eredeti Urlapot, és a módosító (Urlap1) ürlapot és ezek dolgoznak a Mentésen lévő táblázatból. -
Laciahegyrol
csendes tag
Szia,
Van még lehetőség akár a Windows Registry-ben is tárolni az eredményt.
Call SaveSetting("Valami", "Érték", "Változóm", SajatEgesz)Előhívni pedig így lehet:
SajatEgesz = GetSetting("Valami", "Érték", "Változóm")Kérdés, hogy pontosan mire kell neked a korábbi állapot mentése? Egyáltalán milyen gyakran változik amit írtál?
üdv
-
Pontosítanod kellene.
A kép szerint a Mentes lap C oszlopában megkeresi az Urlap!D8-ban megadott nevet. Kiderül, hogy hányadik sorban van. Ezután???
Pontosítok.
Kezdem az elejéről, nehogy kihagyjak valamit.
Az Urlap kinézete
A kép annyiban hibás, hogy nem a B8-nál van a név, hanem a D8 egyesített cellába, legördülő menüben.
Ami eddig működik és frankó. Kiválasztom a nevet majd beírom a rublikákba az adatokat. Majd ezek az adatok a következő fülre mentésre kerülnek egy makróval egy táblázatba, olyan elrendezésbe, amit a fenti képen linkeltem.
Igen ám, de kitalálták, hogy szükség lenne módosításra könnyen és gyorsan, ha nem éppen az az illető jön a dolgokért, aki előzőleg rögzítésre került. Erre írt nekem Mutt egy makrót, amit (#39630)-as hsz-ban linket.
Ez csinálja azt, hogy az adatbázisból kikeresi a név és dátum egyezésnél az alatta lévő adatokat, amit egy generált adatlapra ment el. A keresés nem az Urlapon történik, hanem az Urlap1-en. A generált adatlapot meg elnevezi a keresés alapján. Itt már elég lesz csak a nevet átírni, majd nyomtatni, menteni stb. Ezzel volt az a problémám, hogy a generált adatlap nem veszi át a formátumot, fej láblécet, oldalbeállítást stb.
És itt jön a kérésem. Az új Urlapon (a generálton) már kitöltve szerepnek az adatok (ahol módosítják a nevet) Ez alapján megkeresné a Mentes lapon lévőket és a változást (ami csak név változás) át kéne vezetnem az az összesítő táblázatba. Egyrészt beszínezheti azt a név, dátum és a hozzá tartozó adatokat pl: lilára.
De az is jó, ha kicseréli a nevet, bár ez lehet nem fontos, hanem egy megjegyzés rublikába majd beírják a másik nevet. Tehát ez egy oda-vissza működős dolog, ahol én inkább külön szedtem az eredeti Urlapot, és a módosító (Urlap1) ürlapot és ezek dolgoznak a Mentésen lévő táblázatból. -
andreas49
senior tag
Szia!
Egy ötlet:
A darab függvény megszámolja, hány cella van a tartományban, ami számot tartalmaz.
A darab2 függvény megszámolja hány nem üres cella van a tartományban.
Hány szám: darab függvény.
Hány betű: összesből (darab2 függvény) kivonod a számok (darab függvény) számát.Üdv: Laci
Ilyenre gondoltam:
-
Nagyon köszönöm.
Most már csak egy színező makróra lenne szükségem.
Indítson keresést az "Urlap"-on lévő D8 és D15-ös cellákba beírt név és dátum egyezésére, a "Mentes" adatlapon. Ha megtalálta az egyezést, a nevet a dátumot a hozzá tartozó adatokat színezze be a másik fülön lévő táblázatban, mondjuk lilára. Innen majd megtudom, hogy mi került módosításra.
a Táblázat elrendezése meg ilyen: A táblázat nem színes, csak személtetés miatt, hogy mi hova tartozik.
Pontosítanod kellene.
A kép szerint a Mentes lap C oszlopában megkeresi az Urlap!D8-ban megadott nevet. Kiderül, hogy hányadik sorban van. Ezután??? -
Laciahegyrol
csendes tag
-
-
Sziasztok!
Ismét segítségért fordulok hozzátok.
Van egy cellánk A1 amiben zsákok száma van megadva, A2 amiben az van megadva hány zsák fér el egy raklapon. A3-ba kiszámoljuk az előző kettő hányadosaként hogy mennyi raklapunk van. például A1:125 A2:20 akkor A3:6,25. Az a kérdés hogy létezik e olyan lehetőség hogy ez speciális számformátummal legyen megadva. pl: 6,25= 6rl és 5zs (rl=raklap zs=zsák).Előre is köszönöm ha valaki tud segíteni.
-
Laciahegyrol
csendes tag
Sziasztok!
Ismét segítségért fordulok hozzátok.
Van egy cellánk A1 amiben zsákok száma van megadva, A2 amiben az van megadva hány zsák fér el egy raklapon. A3-ba kiszámoljuk az előző kettő hányadosaként hogy mennyi raklapunk van. például A1:125 A2:20 akkor A3:6,25. Az a kérdés hogy létezik e olyan lehetőség hogy ez speciális számformátummal legyen megadva. pl: 6,25= 6rl és 5zs (rl=raklap zs=zsák).Előre is köszönöm ha valaki tud segíteni.
-
Sub LapMasolas()
Dim lookup_name As String, lookup_date As Date
lookup_name = "ÚjLapNeve" 'Cellahivatkozás is adhatsz nevet-> lookup_name = Range("A3")
lookup_date = Date 'Mai dátum. Cellahivatkozással-> lookup_date =Range("C10")
Sheets(1).Copy Before:=Sheets(2)
'A lap másolása után az új lap lesz aktív
ActiveSheet.Name = lookup_name & "_" & Format(lookup_date, "YYYYMMDD")
'Ha a fenti, megjegyzések szerinti hivatkozás alapján akarsz nevet adni, az ActiveSheet.Name kezdetű
'sor helyett legyen ActiveSheet.Name = Range("A3") & "_" & Format(Range("C10"), "YYYYMMDD")
'Az új lap D8 és D15 cellájából törli az értékeket
Range("D8,D15") = ""
End SubNagyon köszönöm.
Most már csak egy színező makróra lenne szükségem.
Indítson keresést az "Urlap"-on lévő D8 és D15-ös cellákba beírt név és dátum egyezésére, a "Mentes" adatlapon. Ha megtalálta az egyezést, a nevet a dátumot a hozzá tartozó adatokat színezze be a másik fülön lévő táblázatban, mondjuk lilára. Innen majd megtudom, hogy mi került módosításra.
a Táblázat elrendezése meg ilyen: A táblázat nem színes, csak személtetés miatt, hogy mi hova tartozik.
-
Mutt
senior tag
Egyik oldalon találtam ezt:
"Az előző értékek megtartásához a változót a Static típusúnak kell definiálni: Static SajatEgesz As Integer."
Ebből gondoltam, hogy mégis van mód, hogy ne kelljen az értéket újra számítással meghatározni. Nálam sehogy nem működik, vagy nem azt csinálja, ami nekem kell.A névadásnak annyi köze van hozzá, hogy az alábbi módszerrel sem kell a munkalap celláiban tárolni az értékeket:
Pl. létrehozol egy hétnapjai tömböt 7 elemmel, a hét napjaival, majd pl. egy fkeres függvény második argumentumába nem kell a munkalapon levő táblát kijelölni, hanem megadod neki, hogy a hétnapjai tömböt használja.Üdv: Laci
-
Delila_1
veterán
Egyik oldalon találtam ezt:
"Az előző értékek megtartásához a változót a Static típusúnak kell definiálni: Static SajatEgesz As Integer."
Ebből gondoltam, hogy mégis van mód, hogy ne kelljen az értéket újra számítással meghatározni. Nálam sehogy nem működik, vagy nem azt csinálja, ami nekem kell.A névadásnak annyi köze van hozzá, hogy az alábbi módszerrel sem kell a munkalap celláiban tárolni az értékeket:
Pl. létrehozol egy hétnapjai tömböt 7 elemmel, a hét napjaival, majd pl. egy fkeres függvény második argumentumába nem kell a munkalapon levő táblát kijelölni, hanem megadod neki, hogy a hétnapjai tömböt használja.Üdv: Laci
-
Laciahegyrol
csendes tag
-
Delila_1
veterán
Egyik oldalon találtam ezt:
"Az előző értékek megtartásához a változót a Static típusúnak kell definiálni: Static SajatEgesz As Integer."
Ebből gondoltam, hogy mégis van mód, hogy ne kelljen az értéket újra számítással meghatározni. Nálam sehogy nem működik, vagy nem azt csinálja, ami nekem kell.A névadásnak annyi köze van hozzá, hogy az alábbi módszerrel sem kell a munkalap celláiban tárolni az értékeket:
Pl. létrehozol egy hétnapjai tömböt 7 elemmel, a hét napjaival, majd pl. egy fkeres függvény második argumentumába nem kell a munkalapon levő táblát kijelölni, hanem megadod neki, hogy a hétnapjai tömböt használja.Üdv: Laci
-
Laciahegyrol
csendes tag
A füzet bezárásakor a makró változóinak értéke lenullázódik.
Nem értem, mi köze a névadásnak az egyes értékek tárolásához.A lenti makróban is egy cella tartalmazza az értéket, amit beolvashatsz egy változóba, csak itt egy újonnan létrehozott tartomány egy bizonyos cellájáról van szó.
Sub mm()
Dim valtozo As Variant
'Nevet adunk a Data lapon lévő B2:K20 tartománynak
Sheets("Data").Names.Add Name:="Tartomany", RefersToR1C1:="=Data!R2C2:R20C11"
'betesszük a valtozo-ba a megadott tartomány 2. sorában, 3. oszlopában lévő értéket
valtozo = Sheets("Data").Range("Tartomany")(2, 3)
MsgBox valtozo
End Sub -
Delila_1
veterán
Köszönöm ismét a válaszod!
Ha nem szeretném a változó tartalmát munkalapon elhelyezni, vagy egyáltalán bármely munkalapon elérhetővé tenni?
Nekem is megfordult a fejemben, hogy cellában tároljam. Múltkor láttam például, hogy lehet tömböt készíteni a névkezelőben. Az ilyen megoldást szeretném megtudni.
Üdv: Laci -
Laciahegyrol
csendes tag
-
Delila_1
veterán
Sziasztok,
Szeretnék segítséget kérni: hogy tudom megoldani, hogy a makróban egy változó értékét a futás után, sőt mentés, kilépés után is eltárolja?
Köszönöm előre is!
Üdv: Laci -
Köszi.
Ugye az a probléma, hogy a Sheets neve is generálódik. A nevet és dátumot kapja meg.
If wsOut Is Nothing Then
'hozzon létre egy új lapot a formanyomtatvány alapján és nevezze át
Set wsOut = Sheets.Add
wsOut.Move after:=Sheets(Data)
wsOut.Name = lookup_name & "_" & Format(lookup_date, "YYYYMMDD")
End IfwsForm.Range("A1
100").Copy wsOut.Range("A1")
wsOut.Range("D8").Validation.Delete
wsOut.Range("D15").Validation.DeleteEz a teljes makró. Nem tudom ezt hova tehetném be. Ehhez sajnos amatőr vagyok.
-
Laciahegyrol
csendes tag
-
A
Sheets(1).Copy Before:=Sheets(2)sor másolatot készít az első lapról, a második elé. Ha akarod, a törlés gombbal törölheted a kitöltött cellák értékét.Köszi.
Ugye az a probléma, hogy a Sheets neve is generálódik. A nevet és dátumot kapja meg.
If wsOut Is Nothing Then
'hozzon létre egy új lapot a formanyomtatvány alapján és nevezze át
Set wsOut = Sheets.Add
wsOut.Move after:=Sheets(Data)
wsOut.Name = lookup_name & "_" & Format(lookup_date, "YYYYMMDD")
End IfwsForm.Range("A1
100").Copy wsOut.Range("A1")
wsOut.Range("D8").Validation.Delete
wsOut.Range("D15").Validation.DeleteEz a teljes makró. Nem tudom ezt hova tehetném be. Ehhez sajnos amatőr vagyok.
-
-
Szia,
Felraktam ide egy változatot, amely tudja azokat a dolgokat amiket kértél.
Plusz dolog a részemről, hogy tettem adatvalidációt az űrlapon a név és dátum mezőkre, mert simán lehet hogy vki olyan komibinációt választ amihez nincs adat. Ha vki választ egy nevet, akkor VBA kikeresi hogy mely dátumok valósak hozzá. Ez fordítva is igaz, vagyis dátum alapján leszűkíti a VBA a neveket is.
Ha új keresést akar vki, akkor át kell váltani egy másik lapra és visszajönni az űrlapra.üdv
-
Sziasztok!
Azt szeretném megoldani, ha 6-nál több sorra lenne szükségem, akkor az új sorok új oldalra kerüljenek, de a táblázaton kívüli szövegek a legvégére kerüljenek? Nincs valami opció, hogy bizonyos területet csak a végére szúrjon be nyomtatásnál vagy pdf generálnál? Ez nem lábléc lenne, az külön kell.
-
wednesday
őstag
Sziasztok!
Azt szeretném megoldani, ha 6-nál több sorra lenne szükségem, akkor az új sorok új oldalra kerüljenek, de a táblázaton kívüli szövegek a legvégére kerüljenek? Nincs valami opció, hogy bizonyos területet csak a végére szúrjon be nyomtatásnál vagy pdf generálnál? Ez nem lábléc lenne, az külön kell.
-
sziasztok,
Van egy Excel táblám, aminek a Munka1 fülén vannak a szabadságigénylő lapon megjelenítendő adatok a munkavállalókról,
rendre egymás alatti sorokban jelennek meg az alábbiak: név, beosztás, cím, TAJ, telefonszám.
Az összes adat a Munka2 fülön van felvéve. Az oszlopok rendre ugyanazok mint a Munka1-ben de itt egymás mellett vannak.Szeretném megkönnyíteni a helyzetet, hogy a Munka1 lapon elég legyen a név mezőt legördíteni, és a kiválasztott munkavállaló többi adatát másolja be a program az alatta lévő cellákba.
Ezt szeretném megvalósítani, kérem segítsetek.
Köszönöm! -
Szia,
Makróval lehet megoldani automatikusan amit írtál/kértél. A munkalap SelectionChange eseménye segít ebben.
Jobb klikk a lap nevén és Kód megjelenítése opciót válaszd, majd másold be ezt a szerkesztő ablakba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
If Target.Column >= 5 And Target.Column <= 8 Then
Columns("F:H").EntireColumn.Hidden = False
Else
Columns("F:H").EntireColumn.Hidden = True
End If
End If
End SubKézi megoldás pedig, hogy F:H tartomány csoportba foglalod, ekkor az oszlop nevek felett megjelenik egy gomb amivel szintén el tudod érni amit kértél egy plusz kattintással.
üdv
Szia!
Köszönöm szépen! Kipróbáltam, tökéletesen működik a makró
@Delila_1: Köszönöm neked is, hogy foglalkoztál a problémámmal. Próbáltam amit írtál. Ezzel is újat tanultam az excel berkein belül, mert nem ismertem a funkciót.
-
Sziasztok!
Az megoldható valahogy, hogy az F, G és H oszlopok legyenek rejtve, és automatikusan jelenjenek meg, ha az E oszlop bármely cellájába "kattintok"(Bocsi, de a szakszavakkal nem vagyok tisztában). Ameddig az E, F, G vagy H oszlopok valamelyikében dolgozok, addig maradjanak is láthatók az F, G és H oszlopok. Ha végeztem és az előbb említett oszlopokon kívül bármelyik cellába "kattintok", akkor automatikusan legyen újra rejtett az F, G és H oszlop.
(Excel2016, magyar)
Előre is köszönöm a segítséget! -
Sziasztok!
Az megoldható valahogy, hogy az F, G és H oszlopok legyenek rejtve, és automatikusan jelenjenek meg, ha az E oszlop bármely cellájába "kattintok"(Bocsi, de a szakszavakkal nem vagyok tisztában). Ameddig az E, F, G vagy H oszlopok valamelyikében dolgozok, addig maradjanak is láthatók az F, G és H oszlopok. Ha végeztem és az előbb említett oszlopokon kívül bármelyik cellába "kattintok", akkor automatikusan legyen újra rejtett az F, G és H oszlop.
(Excel2016, magyar)
Előre is köszönöm a segítséget!Szia,
Makróval lehet megoldani automatikusan amit írtál/kértél. A munkalap SelectionChange eseménye segít ebben.
Jobb klikk a lap nevén és Kód megjelenítése opciót válaszd, majd másold be ezt a szerkesztő ablakba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
If Target.Column >= 5 And Target.Column <= 8 Then
Columns("F:H").EntireColumn.Hidden = False
Else
Columns("F:H").EntireColumn.Hidden = True
End If
End If
End SubKézi megoldás pedig, hogy F:H tartomány csoportba foglalod, ekkor az oszlop nevek felett megjelenik egy gomb amivel szintén el tudod érni amit kértél egy plusz kattintással.
üdv
-
mcwizard
tag
Sziasztok!
Az megoldható valahogy, hogy az F, G és H oszlopok legyenek rejtve, és automatikusan jelenjenek meg, ha az E oszlop bármely cellájába "kattintok"(Bocsi, de a szakszavakkal nem vagyok tisztában). Ameddig az E, F, G vagy H oszlopok valamelyikében dolgozok, addig maradjanak is láthatók az F, G és H oszlopok. Ha végeztem és az előbb említett oszlopokon kívül bármelyik cellába "kattintok", akkor automatikusan legyen újra rejtett az F, G és H oszlop.
(Excel2016, magyar)
Előre is köszönöm a segítséget! -
-
Laciahegyrol
csendes tag
Szia,
Próbáld ki, hogy ez a minta megy-e nálad?
Ha igen, akkor a nálad lévő fájlban más a felépítés. Több infó kell.
üdv
-
Sziasztok!
2019es Magyar excelben hogyan lehet beállítani,hogy az adott oszlopban már egyszer szereplő szavakat ne kelljen újból végig kiírni, hanem a kezdő betű leütésekor felajánlja a szót? Jelenleg csak akkor ajánlja fel ha az adott oszopban nincs az egymás alatt lévő cellák között üres cella.
Köszi a választ!
-
Mutt
senior tag
Nagyon szépen köszönöm! A logikát értem.
Ellenben nem működik az "ActiveSheet.Shapes(Application.Caller).AlternativeText. Sem a Tag, sem a muvelet nem kapja meg az értéket. Ha én adom meg neki, hiba nélkül fut.
Hibaüzenet: type mismatch.
(Office 2010) -
Először meg kell találni a sort, amelyik a kiválasztott azonosítóhoz tartozik. Ezt a HOL.VAN függvénnyel keresheted ki.
=HOL.VAN(Munka2!H1;$A:$A;0)Ezt használhatod az INDEX függvényben.
=INDEX(Munka2!$A:$BO;HOL.VAN(Munka2!H1;$A:$A;0);1)ahol az első paraméter, a Munka2!$A:$BO határozza meg a tartományt, amiben keresel,
a második paraméter a tartományban lévő keresett sor, amit fentebb már írtam,
az utolsó paraméter (1) adja meg, hogy a tartomány melyik oszlopából kéred az adatod. Az 1 az A oszlopból, a 2 a B-ből, stb...Ha a másik lap egyes oszlopaiba a Munka2 lap előző oszlopának az értékét akarod beilleszteni – B-be a Munka2 lap A oszlopát –, akkor az oszlopszám helyére kerülhet a képletben OSZLOP()-1 . Az OSZLOP() függvény az aktuális oszlop számát adja meg.
Tehát a kigyűjtendő lapon kell az egyes cellákba beírni az INDEX-HOL.VAN párost. Törlésre nincs feltétlenül szükség, hiszen az üres cellák értékei is felülíródnak a képletek által.
Köszönöm segítséged!
Megpróbálkozom vele
-
Laciahegyrol
csendes tag
Szia,
2 megoldási javaslat:
1. A formon az OK gomb Tag tulajdonságának a használata.
2. Globális változó, amelyet a form is elér.A példában van 3 gombom (Összeadás, Kivonás és Szorzás) mindegyikhez a "Kattintas" makró van társítva.
Sub Kattintas()
'1-es változat - ahol Sajat a form neve, amelyen bOK a gomb
Sajat.bOK.Tag = ActiveSheet.Shapes(Application.Caller).AlternativeText
'2-es változat - ahol a muvelet egy globális változó
muvelet = ActiveSheet.Shapes(Application.Caller).AlternativeText
Sajat.Show
End SubVan egy form "Sajat" név alatt, amin van egy OK és egy Mégsem gomb (bOK és bCancel).
Az OK gomb eseménye ennyi:Private Sub bOK_Click()
Dim a As Long, b As Long
Randomize 3
a = Int(Rnd() * 100) + 1
b = Int(Rnd() * 100) + 1
Select Case bOK.Tag '1-es változat
'Select Case muvelet '2-es változat
Case "Összeadás"
MsgBox a & " + " & b & " = " & a + b
Case "Kivonás"
MsgBox a & " - " & b & " = " & a - b
Case "Szorzás"
MsgBox a & " * " & b & " = " & a * b
End Select
End SubRemélem ezen el tudsz indulni.
üdv
-
Sziasztok!
Szeretnék segítséget kérni az alábbiakban: munkafüzetben 2 munkalap van az egyik "Munka2" adatforrás, amiben ügyfelek adatai szerepelnek, az "a2:a237" oszlop ügyfelek azonosítóját tartalmazza, a többi oszlop "b2:bo237" különféle növénykultúra terület adatait, "b1:bo1" fejlécnek tekintendő.
Ez a táblázat soronként "ügyfelenként" tartalmaz üres cellákat.A másik munkalap "növények" kötött formátumú, nyomtatásra előkészített lap.
Arra van e lehetőség, hogy a növények munkalap legördülő listájából (h1) kiválasztott "ügyfél" azonosítóra az adott ügyfélhez tartozó adatok átkerüljenek a "Munka2" táblából, de úgy, hogy az üres cellák kimaradjanak, csak az adatot tartalmazó cellákat kellene áthoznia a hozzá tartozó fejlécekkel.
A legtöbb átmentendő adat max 15db, a "b2, d2, f2, h2, k2, m2, o2, q2, t2, v2, x2, z2, ac2, ae2, ag2"
összevont cellába kerülne a fejléc, a hozzá tartozó értékek pedig, a "b4, d4, f4......." cellákba, ezek nem összevontcellák.
Mentést követően a feltöltött cellákat üríteni kellene,majd kezdődhetne előröl egy másik üzemet kiválasztva.Remélem jól meg tudtam fogalmazni -és értelmezhető amit írtam.
Előre is köszönöm segítségetek!
Üdv. G.
-
gaben86
csendes tag
Sziasztok!
Szeretnék segítséget kérni az alábbiakban: munkafüzetben 2 munkalap van az egyik "Munka2" adatforrás, amiben ügyfelek adatai szerepelnek, az "a2:a237" oszlop ügyfelek azonosítóját tartalmazza, a többi oszlop "b2:bo237" különféle növénykultúra terület adatait, "b1:bo1" fejlécnek tekintendő.
Ez a táblázat soronként "ügyfelenként" tartalmaz üres cellákat.A másik munkalap "növények" kötött formátumú, nyomtatásra előkészített lap.
Arra van e lehetőség, hogy a növények munkalap legördülő listájából (h1) kiválasztott "ügyfél" azonosítóra az adott ügyfélhez tartozó adatok átkerüljenek a "Munka2" táblából, de úgy, hogy az üres cellák kimaradjanak, csak az adatot tartalmazó cellákat kellene áthoznia a hozzá tartozó fejlécekkel.
A legtöbb átmentendő adat max 15db, a "b2, d2, f2, h2, k2, m2, o2, q2, t2, v2, x2, z2, ac2, ae2, ag2"
összevont cellába kerülne a fejléc, a hozzá tartozó értékek pedig, a "b4, d4, f4......." cellákba, ezek nem összevontcellák.
Mentést követően a feltöltött cellákat üríteni kellene,majd kezdődhetne előröl egy másik üzemet kiválasztva.Remélem jól meg tudtam fogalmazni -és értelmezhető amit írtam.
Előre is köszönöm segítségetek!
Üdv. G.
-
Mutt
senior tag
Sziasztok,
Szeretnék segítséget kérni, hogy lehetne megoldani, hogy egy munkalapon levő különböző gombok ugyanazt az űrlapot nyissák meg, majd az űrlapon levő OK gomb segítségével az először megnyomott gomb függvényében más parancs fusson le?
Köszönöm: LaciSzia,
2 megoldási javaslat:
1. A formon az OK gomb Tag tulajdonságának a használata.
2. Globális változó, amelyet a form is elér.A példában van 3 gombom (Összeadás, Kivonás és Szorzás) mindegyikhez a "Kattintas" makró van társítva.
Sub Kattintas()
'1-es változat - ahol Sajat a form neve, amelyen bOK a gomb
Sajat.bOK.Tag = ActiveSheet.Shapes(Application.Caller).AlternativeText
'2-es változat - ahol a muvelet egy globális változó
muvelet = ActiveSheet.Shapes(Application.Caller).AlternativeText
Sajat.Show
End SubVan egy form "Sajat" név alatt, amin van egy OK és egy Mégsem gomb (bOK és bCancel).
Az OK gomb eseménye ennyi:Private Sub bOK_Click()
Dim a As Long, b As Long
Randomize 3
a = Int(Rnd() * 100) + 1
b = Int(Rnd() * 100) + 1
Select Case bOK.Tag '1-es változat
'Select Case muvelet '2-es változat
Case "Összeadás"
MsgBox a & " + " & b & " = " & a + b
Case "Kivonás"
MsgBox a & " - " & b & " = " & a - b
Case "Szorzás"
MsgBox a & " * " & b & " = " & a * b
End Select
End SubRemélem ezen el tudsz indulni.
üdv
-
Laciahegyrol
csendes tag
-
Szia,
Felraktam ide egy változatot, amely tudja azokat a dolgokat amiket kértél.
Plusz dolog a részemről, hogy tettem adatvalidációt az űrlapon a név és dátum mezőkre, mert simán lehet hogy vki olyan komibinációt választ amihez nincs adat. Ha vki választ egy nevet, akkor VBA kikeresi hogy mely dátumok valósak hozzá. Ez fordítva is igaz, vagyis dátum alapján leszűkíti a VBA a neveket is.
Ha új keresést akar vki, akkor át kell váltani egy másik lapra és visszajönni az űrlapra.üdv
Nagyon köszönöm a segítséget!
-
Na találtam a neten egy egész használható megoldást. Csak a feladathoz kéne igazítanom. Viszont megnyitva nem látom a makrót.
Én is két adat alapján tudnék keresni. Név meg dátum szerint, és hozzá tartalmazó adatokat kéne átmásolnom a megfelelő helyre. A kikeresés után az átmásolandó adatok nem fixek, hanem addig tartanak, ahol a következő név és dátum kezdődik az én példámba. Ezeket az adatokat kéne meghatározott cellákba másolni, azzal a különbséggel, hogy magát a nevet és dátumot (csop. vezetőt és fizetési módot) is másolni kéne.
-
Köszi szépen.
Ezzel remélem kezdhetek valamit. Egyelőre szenvedek ezzel a feltételes másolással.
Valami ilyesmi kéne.
Ha megvan a dátum név kombó, akkor a név alatti adatokat addig másolja amíg egy újabb dátum névhez nem ér (az már egy másik csoport). Bár ez az addig másolja sem állja meg a helyét, hiszen egyelőre fix 6 helyem van. Ha 5-nél több van új adatlapra kerülne. Például munka3 és 7-12ig, munka4 13-18 stb. Nem kell olyan sok. ugyanazon név és dátum.Vagy megoldom, hogy addig generálja a sorokat az űrlapon amíg szükséges.
-
itt van a fájlból a két makró
Private Sub CommandButton1_Click()
b = 1
For a = 9 To 15
If Worksheets("Munka1").Cells(a, 2).Value = TextBox1.Value And Worksheets("Munka1").Cells(a, 3).Value = ComboBox1.Value Then
Worksheets("Munka2").Cells(b, 2).Value = Worksheets("Munka1").Cells(a, 2).Value
Worksheets("Munka2").Cells(b, 3).Value = Worksheets("Munka1").Cells(a, 3).Value
Worksheets("Munka2").Cells(b, 4).Value = Worksheets("Munka1").Cells(a, 4).Value
Worksheets("Munka2").Cells(b, 5).Value = Worksheets("Munka1").Cells(a, 5).Value
Worksheets("Munka2").Cells(b, 6).Value = Worksheets("Munka1").Cells(a, 6).Value
Worksheets("Munka2").Cells(b, 7).Value = Worksheets("Munka1").Cells(a, 7).Value
b = b + 1
End If
Next a
End SubThisWorkbook
Private Sub Workbook_Open()
Munka1.ComboBox1.AddItem "készpénz"
Munka1.ComboBox1.AddItem "utalvány"
Munka1.ComboBox1.AddItem "kártya"
End SubKöszi szépen.
Ezzel remélem kezdhetek valamit. Egyelőre szenvedek ezzel a feltételes másolással.
Valami ilyesmi kéne.
Ha megvan a dátum név kombó, akkor a név alatti adatokat addig másolja amíg egy újabb dátum névhez nem ér (az már egy másik csoport). Bár ez az addig másolja sem állja meg a helyét, hiszen egyelőre fix 6 helyem van. Ha 5-nél több van új adatlapra kerülne. Például munka3 és 7-12ig, munka4 13-18 stb. Nem kell olyan sok. ugyanazon név és dátum.Vagy megoldom, hogy addig generálja a sorokat az űrlapon amíg szükséges.
-
Na találtam a neten egy egész használható megoldást. Csak a feladathoz kéne igazítanom. Viszont megnyitva nem látom a makrót.
Én is két adat alapján tudnék keresni. Név meg dátum szerint, és hozzá tartalmazó adatokat kéne átmásolnom a megfelelő helyre. A kikeresés után az átmásolandó adatok nem fixek, hanem addig tartanak, ahol a következő név és dátum kezdődik az én példámba. Ezeket az adatokat kéne meghatározott cellákba másolni, azzal a különbséggel, hogy magát a nevet és dátumot (csop. vezetőt és fizetési módot) is másolni kéne.
-
Na találtam a neten egy egész használható megoldást. Csak a feladathoz kéne igazítanom. Viszont megnyitva nem látom a makrót.
Én is két adat alapján tudnék keresni. Név meg dátum szerint, és hozzá tartalmazó adatokat kéne átmásolnom a megfelelő helyre. A kikeresés után az átmásolandó adatok nem fixek, hanem addig tartanak, ahol a következő név és dátum kezdődik az én példámba. Ezeket az adatokat kéne meghatározott cellákba másolni, azzal a különbséggel, hogy magát a nevet és dátumot (csop. vezetőt és fizetési módot) is másolni kéne.
És így néz ki ahova kerülnek az adatok.
-
Sziasztok!
Arra van lehetőség, hogy kijelölés után indítsak egy másolás makrót és csak a kijelölt tartományból másol ki bizonyos meghatározott cellákat egy másik fülön lévő meghatározott cellákba? Az űrlap egyesített cellákat tartalmaz.
Az első fülön, a táblázatba sok adat található, mindig csak bizonyos adatokat kéne átmásolnom egy űrlapra. Az űrlapon található cellák (ahova másolunk) mindig fixek. A változó az első fülön lévő adatok, amik a kijelöléstől függnek.
Például kijelölöm A11:G16 ig a cellákat, de lehetne akár A21:G26, A82:G90 stb. (ez a rész okozza a fejtörést)
A11 kerül a másik fülön lévő urlap2 D15 cellába
C11 kerül az urlap 2 D8:L8 egyesített cellábaC12:G16-ig (ameddig tart a kijelölés) másol urlap 2 "B18:L23" azért az idézőjel mert összevont oszlopok vannak benne, ugyanúgy 5 sornyi adatot kell áthozni (vagy amennyi ki van jelölve).
Régebben segítettetek nekem egy Űrlapból mentés táblázatba makróba. Na most itt meg kéne fordítani a dolgot, vagy nem is megfordítani, hanem egy új űrlapra másolni a táblázatból a kijelölt adatokat.
Mondjuk azt ez egy "módosít űrlap", amivel régebbi adatokat másolunk vissza a táblázatból, hogy a egy két rész módosítása után újra ki lehessen nyomtatni stb.
Na találtam a neten egy egész használható megoldást. Csak a feladathoz kéne igazítanom. Viszont megnyitva nem látom a makrót.
Én is két adat alapján tudnék keresni. Név meg dátum szerint, és hozzá tartalmazó adatokat kéne átmásolnom a megfelelő helyre. A kikeresés után az átmásolandó adatok nem fixek, hanem addig tartanak, ahol a következő név és dátum kezdődik az én példámba. Ezeket az adatokat kéne meghatározott cellákba másolni, azzal a különbséggel, hogy magát a nevet és dátumot (csop. vezetőt és fizetési módot) is másolni kéne.
-
Sziasztok!
Olyan dologban kérném a segítségeteket, hogy megoldható-e az egy legördülő lista esetén, hogy a listából több elemet választhassak ki (Pl jelölőnégyzet segítségével), amik aztán vesszővel elválasztva kerülnének az adott cellába.
(Excel 2016, Magyar)Előre is köszönöm az esetleges válaszokat!
Üdv, Zoli! -
Helló Mindenkinek!
Azt hogyan lehet megvalósítani Excellben, hogy ha az egyik cellában levő szám nagyobb a másik cellában levő számnál, akkor a nagyobbnak a kitöltési szine pl. legyen piros?
If A1 > B1 then A1.cell.color:= red
Valszeg nem így kell, de ebből talán érthető, mit is szeretnék.
Válaszotokat előre is köszönöm! -
Mutt
senior tag
Sziasztok. Egy tartomány "végét" hogyan tudnám legegyszerűbben meghatározni, hogy az utolsó sor legyen?
A5:A_utolsó sora.
Dynamic Range-t nem akarok csinálni mert egy VBA-val már meghatároztam egy másik munkalapon az adott utolsó sor értékét, de nem tudom, hogy függvényban hogyan tudnám beilleszteni azt az értéket az adott oszlop jelölő után.
-
Delila_1
veterán
Sziasztok. Egy tartomány "végét" hogyan tudnám legegyszerűbben meghatározni, hogy az utolsó sor legyen?
A5:A_utolsó sora.
Dynamic Range-t nem akarok csinálni mert egy VBA-val már meghatároztam egy másik munkalapon az adott utolsó sor értékét, de nem tudom, hogy függvényban hogyan tudnám beilleszteni azt az értéket az adott oszlop jelölő után.
-
l.skywalker
titán
-
Helló Mindenkinek!
Azt hogyan lehet megvalósítani Excellben, hogy ha az egyik cellában levő szám nagyobb a másik cellában levő számnál, akkor a nagyobbnak a kitöltési szine pl. legyen piros?
If A1 > B1 then A1.cell.color:= red
Valszeg nem így kell, de ebből talán érthető, mit is szeretnék.
Válaszotokat előre is köszönöm!Szia!
Feltételes formázásban új szabály, kijelölés képlettel
oda írd be a szükséges képetet.
-
-
Sziasztok!
A következő dologhoz szeretnék segítséget kérni. Excel 2013. Adott egy lap, 17e sorral ami egy ügyfél lista. Adott a másik lap, amin kb. 20e sor van, az elmúlt pár évben kiállított számlák természetesen az előző ügyféllistából. Szeretném kitörölni az ügyféllistából azokat, akik nem szerepelnek a második lapon, azaz nem állítottunk ki nekik számlát az elmúlt években. Megoldható ez valamiféle egyszerű szűréssel? Előre köszönöm a segítő válaszokat!
Én csinálnék egy segédoszlopot a partnerek listája mellett, amiben egy szerszerű hol.van() függvénnyel keresnék a számlák adatai között. Ahol #hiányzik hibát kapsz, ott nincs találat. Ezután bekapcsolnám az autoszűrőt, kiszűrném az összes #hiányzik hibát és az eredmény táblát kijelölve simán kimásolnám a leszűrt adatokat és egy üres munkalapra érték beillesztéssel bepakolnám.
A-Z 30 másodperces művelet.
üdv, föccer
-
Sziasztok!
A következő dologhoz szeretnék segítséget kérni. Excel 2013. Adott egy lap, 17e sorral ami egy ügyfél lista. Adott a másik lap, amin kb. 20e sor van, az elmúlt pár évben kiállított számlák természetesen az előző ügyféllistából. Szeretném kitörölni az ügyféllistából azokat, akik nem szerepelnek a második lapon, azaz nem állítottunk ki nekik számlát az elmúlt években. Megoldható ez valamiféle egyszerű szűréssel? Előre köszönöm a segítő válaszokat!
-
Szia,
A sorok magassága nyomdai pontokban van megadva, 72 pont = 1 inch = 2,54 cm
Az oszlop szélesség pixelben van és függ a használt betűtípus szélességétől. Bővebben itt.Megoldás:
1. Kapcsolj át Lapelrendezés nézetbe
2. Ekkor azonos mértékegységben (centi, pontok) tudod állítani a magaságot, szélességet.
3. Válts vissza normál nézetbe.üdv
Köszönöm a pontos választ!
-
100").Copy wsOut.Range("A1")
Új hozzászólás Aktív témák
- Forza sorozat (Horizon/Motorsport)
- Kezdő fotósok digitális fényképei
- Lexus, Toyota topik
- Google Pixel topik
- Apple asztali gépek
- Ubuntu Linux
- Háztartási gépek
- One otthoni szolgáltatások (TV, internet, telefon)
- Android alkalmazások - szoftver kibeszélő topik
- Milyen billentyűzetet vegyek?
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- PC Game Pass előfizetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Star Wars The Old Republic Collectors Edition
- BESZÁMÍTÁS! ASRock A520M R5 5600 32GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Adata 600W
- BESZÁMÍTÁS! Gigabyte B360M i5 8400 16GB DDR4 512GB SSD RTX 2070 8GB RAMPAGE Shiva Adata 600W
- Lenovo T14s Gen 2 - 14,1" touch, i5 1145 G7, 16GB RAM, 256-512GB SSD, jó akku, számla, 6 hó gar
- HP EliteBook 840 G5 i5 8.Gen 16GB RAM 256GB SSD Full HD Win11 Pro 6 hó garancia
- BESZÁMÍTÁS! Powercolor RED Devil RX 7900XTX 24GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest