-
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
-
kuszal
tag
válasz poffsoft #2387 üzenetére
Ögödej!
Köszönöm szépen!
Kipróbáltam de sajnos nem jártam sikerrel Mondjuk volt egy pár benne ami el sem indult, de ezt a Vista miatt tette.
poffsoft!
Köszi a tippet, kipróbálom! Igaz a levédett lapokon makrók is vannak és azok is érdekesek lennének, mert ha átírok az alaptáblán valamit akkor azok miatt lehet, sőt biztos, hogy módosítani kellene a makrót is. arról nem is beszélve, hogy ha nem tudom feltörni akkor újra kell írni őket.
Makró írásban pedig elég láma vagyok. A függvényekkel, munkalapokkal való varázslás szerintem elég jól megy, de a makrók
De kipróbálom, hátha összejön!
bár van egy olyan érzésem ,hogy ezt be fogom bukniAzt tudjuk, hogy mi lesz, de addig mi lesz!?
-
Achilles
csendes tag
válasz poffsoft #2388 üzenetére
Konkrétan ha az egyik fülön beírok egy számot ami kisebb 20nál, akkor egy új fülön lévő cellába másolja be azt a számot, mivel oda csak a 20 alatti mennyiségek kellenek nekem, pont ahogy írtad, ki kell szűrnöm egy másik lapra.
Soha nem halasztom holnapra, amit holnaputánra is halaszthatok.
-
Delila_1
Topikgazda
válasz poffsoft #12441 üzenetére
Ha 10 alatt van a LAPok száma, ez is megoldás lehet:
ActiveCell.Select
x = "LAP" & Right(ActiveSheet.Name, 1) - 1
ActiveCell.FormulaR1C1 = "=" & x & "!RC[34]"
ActiveCell.Offset(1, 0).Range("A1").Selectde biztosan van egyszerűbb kivitel. Minden esetben az A2 cellára kell állni a futtatás után?
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_1
Topikgazda
válasz poffsoft #12449 üzenetére
Az előző lap kódnevét pl. így kaphatod meg:
lap = ActiveSheet.CodeName
lap = "Munka" & Right(lap, Len(lap) - 5) - 1
MsgBox lapNem szerencsés dolog aktív cellára hivatkozni makróban, mert ha véletlenül másik cellára kattintasz a makró indítása előtt, hamis eredményt kapsz.
Írd le pontosan, mit szeretnél elérni a makróval.
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_1
Topikgazda
válasz poffsoft #12480 üzenetére
Makróíráshoz, ami figyeli a bevitel helyét, tudnom kellene, melyik oszlopról van szó, de ezt nem adtad meg. Őszintén szólva az egész leírás kicsit zavaros nekem.
Írtam egy makrót, ami a 2. laptól (az első lap a januári adatokat tartalmazza) a 12-ig a C2:C30 tartományba beírja az előző lap C2:C30 értékeit hivatkozással. Hátha hasznodra válik.
Sub keplet()
Dim lap%
For lap% = 2 To 12
Sheets(lap%).Select
Range("C2:C30") = "=" & Sheets(lap% - 1).Name & "!C2"
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
-
félisten
válasz poffsoft #12555 üzenetére
Ez most csak a példa kedvéért C1 cellával hasonlítja össze az A1:B10 tartományt és egy MsgBox fogja kiírni, hogy hány megegyező van a tartományban. Én egy Command Button-hoz rendeltem most, de természetesen ez már lényegtelen, utólag lehet módosítani a saját kedved szerint.
Private Sub CommandButton1_Click()
Dim MySrcRange As Range
Dim MyDestRange As Range
Dim MyCell As Range
Dim MyCounter As Integer
Set MySrcRange = Range("C1")
Set MyDestRange = Range("A1:B10")
MyCounter = 0
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) And _
.Value = MySrcRange.Value And _
.Interior.Color = MySrcRange.Interior.Color And _
.Font.Color = MySrcRange.Font.Color And _
.Font.Name = MySrcRange.Font.Name Then MyCounter = MyCounter + 1
End With
Next MyCell
Set MySrcRange = Nothing
Set MyDestRange = Nothing
MsgBox (MyCounter)
End SubMindenki 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)
-
plaschil
aktív tag
válasz poffsoft #12565 üzenetére
Tartomány kijelölés után a pipa alapból bent van. Ha ráteszem a lapvédelmet, akkor ha módosítani szeretnék, ezt az üzit kapom (bárhol a lapon): [link]
Tehát levédi az egész lapot, de nekem csak a tartományt kellene.
(Office 2007)[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
plaschil
aktív tag
válasz poffsoft #12565 üzenetére
Találtam egy megoldást:
1. Korrektúra fül -> tartomány módosításának engedélyezése->Megadás
Itt kell kijelölni azokat a cellákat, amiket "felmentek" a korlátozás alól, tehát minden cellát kijelölök, amire szeretném, hogy érvényes maradjon a módosítás joga. A felugró ablakban megadok egy nevet, a lényegi rész a tartomány megadása. Ha megadtam -> Ok -> Ok.
2.Korrektúra fül -> Lapvédelem -> Felugró ablakon Ok.
Ezután a ki nem jelölt cellákba írni nem tudunk, csak a lapvédelem feloldásával. Természetesen, jelszóval érdemes ezt levédeni, mert a lapvédelmet bárki feloldhatja, aki használja a fájlt. (Vagy csak a tulajdonos? Nem tudom.)
3. Örülünk.Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
ArchElf
addikt
válasz poffsoft #12646 üzenetére
Nem kell makró, megoldható concat, len, fkeres függvényekkel (vagy egyszerű hivatkozásokkal, ha a rövidítések olyan sorrendben vannak, mint a nevek).
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
Delila_1
Topikgazda
válasz poffsoft #12685 üzenetére
Azt hiszem, rosszul címezted a kérdést. A változók elnevezéséből úgy látom, Fire foglalkozott a kérdéseddel. Visszalapoztam pár napot, de nem találtam az eredetit.
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
MyFormul$=Right(MyFormul$, Len(MyFormul$)-1)Így levághatod a kezdő aposztrófot.
Másik lapra állás: Sheets("Másik").Select
Kijelölés megszüntetése másolás után: Application.CutCopyMode = False
B20-ra állás: Range("B20").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.
-
félisten
válasz poffsoft #12698 üzenetére
Képletet nem Value-val viszünk be, hanem FormulaArray-el, pl ahogy itt is láthatod.
(Már ha jól értem, hogy mit is szeretnél, mert nem olvastam el az összes HSZ-od...)[ 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 poffsoft #12698 üzenetére
Bocs, hülyeséget írtam. Most, hogy megittam a liter kávémat és újra ránéztem, megvilágosodtam a feketétől.
Szóval nem FormulaArray (miért is tömbképletet írtam..) csak Formula a Value helyett...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)
-
poffsoft
addikt
válasz poffsoft #12702 üzenetére
Megvan, nem formula, hanem formulalocal:
Range("AM20").FormulaLocal = MyFormul$
Persze ezzel állítólag akkor lesz gond, ha nem magyar excelben nyitják meg a füzetet (mert előfordulhat sajnos)
p.s.: én már a 3. kv-n vagyok túl, de rajtam nem segített
[ Szerkesztve ]
[ Szerkesztve ]
-
félisten
válasz poffsoft #12703 üzenetére
Makróban mindig a függvények angol nevét kell használni, akkor a Formula is jó lesz, minden esetben. Ez esetedben annyit jelent, hogy nem DARABTELI, hanem COUNTIF
UI: Azt hittem a kávéhiány, de úgy látszik le fogok padlózni(fáj e fejem, ver a wasser), valami vírus garázdálkodik bennem. Sebaj, kell vírusirtót szereznem, az majd helyretesz (3dl forraltbor, 1 dl pálinkával)
[ 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)
-
Delila_1
Topikgazda
válasz poffsoft #12702 üzenetére
Makrólap:
Megírod a szép, működő képletet. Lapfülön jobb klikk, Beszúrás | Nemzetközi makrólap.
A képletet, és az(oka)t a cellá(ka)t, ami(k)re hivatkozik, átmásolod a makró lapra.
A képletet tartalmazó cellán állva a cellában a magyar, a szerkesztőlécen az angol megfelelője látszik.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_1
Topikgazda
válasz poffsoft #12710 üzenetére
Tulajdonképpen a függvények nevét szeretnéd két nyelven ismerni. Ahhoz itt egy segítség
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bugizozi
őstag
-
Ripitxx
csendes tag
válasz poffsoft #12775 üzenetére
Hali!! A kérdéseidre a következőket tudom mondani
Az első kérdésedre a válaszom az hogy nem mivel kiderült hogy az Oo-nak a program nyelve hasonlít M.office de a VBA nem használja ennek magam is utána jártam (de ha úgy kérdezed hogy voltam e akkora hü..... akkor a válasz az igen )
A második kérdésedre a válaszom úgy szint nem ugyanis az Oo-nak a saját alap makróját próbáltam átírni hátha beveszi de nem jött össze[ Szerkesztve ]
-
Pá
addikt
válasz poffsoft #12820 üzenetére
ezt a funkciót nem ismertem. Jó lenne, de szerintem valamit rosszul csinálok.
Elvileg felosztom az ablaktáblát, a táblázatom mellett megjelenik egy nagy függőleges csík, de ha scrollozok, akkor mindkét oldal mozog.
Érdekes, mert ha vízszintesen osztom fel az ablakok, akkor mindig csak az aktív ablakot scrollozza, de függőlegesnél valamiért nem megy nekem.''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
válasz poffsoft #12832 üzenetére
Csak úgy tudod, hogy makróval végig lépkedsz a tartományon, ugyanazokat a feltételeket adod meg, amik a feltételes formázásban voltak, és megadod a formátumot.
A feltételes formázással színezett cellák színét lekérdezve az eredeti (felt. formázás nélküli) értékeket kapod, és valószínűleg igaz ez a szegélyre, fékövér karakterre, stb. beállításra is. Ki lehet próbálni.
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_1
Topikgazda
-
Delila_1
Topikgazda
válasz poffsoft #12841 üzenetére
A naptár vezérlő teljes dátumot ad, amiből még külön ki kellene nyerned az évet. Érdemes egy egyszerű ComboBoxot bevinni. A tartományt, ami a bevihető éveket tartalmazza, elnevezheted például éveknek, és akkor a ListFillRange tulajdonsághoz ezt írhatod 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.
-
-
Delila_1
Topikgazda
válasz poffsoft #12864 üzenetére
Az évben a húsvét vasárnapját ez a makró számítja ki:
Function Húsvét(Év As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Év Mod 19)) - 21) Mod 30) + 21
Húsvét = DateSerial(Év, 3, 1) + D + (D > 48) + 6 - ((Év + Év / 4 + D + (D > 48) + 1) Mod 7)
End FunctionA feltételes formázásba bevettem a húsvét hétfőjét is. A képlet:
=VAGY(A1=Húsvét(ÉV(MA()));A1=Húsvét(ÉV(MA()))+1)Ennél egyszerűbb, ha évente felveszel két tartományt. Az egyiket nevezd el Ünnepnek, a másikat MNnak. Az első tartalmazza az év összes ünnepnapi dátumát, a másik a munkanappá lefokozott szombatokat (az idén 5-öt). A feltételes formázások:
=NEM(HIBÁS(FKERES(A1;MN;1;0))) a szomorú szombatokra, és=ÉS(NEM(ÜRES(A1));VAGY(HÉT.NAPJA(A1;2)=6;HÉT.NAPJA(A1;2)=7;NEM(HIBÁS(FKERES(A1;Ünnep;1;0)))))
a hétvégékre és ünnepnapokra.Külön is veheted a szombatot, vasárnapot, és az ünnepnapokat, ha az Excel verziód megengedi.
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_1
Topikgazda
válasz poffsoft #12866 üzenetére
A .FormatConditions.Delete nem szünteti meg az eredeti formázásokat, csakis a feltételes formázással megadottakat. Kipróbáltam.
A formátum egyszerűbb másolása:
Selection.Copy
Range("A1:B5").PasteSpecial Paste:=xlPasteFormatsA Gauss funkciót is beviheted a feltételes formázásba.
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_1
Topikgazda
válasz poffsoft #12882 üzenetére
A görbe szájú ikonból nem találtam ki, hogy az :F-et takar. Ezért adtam meg egy nagyobb tartományt.
A feladatot úgy értelmeztem, hogy az egyes futtatások eredményeként a másolt tartományok lépcsőzetes elrendezésben kerüljenek a másik lapra."Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat." Itt elakadtam, mert az F2:F9 tartomány semmiképp sem lehet 4 db cella.
Cufter!
Jó lenne egy kép, ami megmutatná, mit hova másoljunk az első-, és az azt követő esetekben.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Faterkam
addikt
válasz poffsoft #12922 üzenetére
Nem csak egy táblánál csinálja, hanem többnél, arra ráéjöttünk, hogy ezekből linket nyit meg a Chrome-al. De hétfőn megnézetem vele. Közössé nem tette szerintem, de nem tudom ...
"Ha nem válaszolok PÜ-re 1 nap alatt, akkor lehet, hogy az a 5 ember között vagy, akit letiltottam a 13 év alatt!" https://tinyurl.hu/LdG3
-
Faterkam
addikt
válasz poffsoft #12929 üzenetére
Ez egy egyszerű táblázat, partner neve, címe, elérhetőségei és a weboldal linkje, megjegyzés. Ezeken ellenőrzi hogy a cég kitette e a bannerünket. A megjegyzésbe meg beírja igen vagy nem. Pár rekordonként menteni. és ekkor dobja ezt a hibát. A gépén lehet valami gond, mert nekem átküldte a táblát, és én nem tudtam előhozni a hibát...
[ Szerkesztve ]
"Ha nem válaszolok PÜ-re 1 nap alatt, akkor lehet, hogy az a 5 ember között vagy, akit letiltottam a 13 év alatt!" https://tinyurl.hu/LdG3
-
Faterkam
addikt
válasz poffsoft #12937 üzenetére
Én nem mondtam, hogy nincs NET, távmunkában dolgozunk mindketten. Hálózat nincs nála. Egyedül 1 gépe van. Mindkettőnknél van élő internet kapcsolat, a hibát ami nála jelentkezik én azt nem tudtam reprodukálni.
"Ha nem válaszolok PÜ-re 1 nap alatt, akkor lehet, hogy az a 5 ember között vagy, akit letiltottam a 13 év alatt!" https://tinyurl.hu/LdG3
Új hozzászólás Aktív témák
- Fejhallgató erősítő és DAC topik
- Autós topik
- Milyen billentyűzetet vegyek?
- Gitáros topic
- Facebook és Messenger
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Android alkalmazások - szoftver kibeszélő topik
- Energiaital topic
- Kamionok, fuvarozás, logisztika topik
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office