- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Milyen okostelefont vegyek?
- Samsung Galaxy Watch6 Classic - tekerd!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Poco F3 - a mindenes, de nem mindenkinek
- Honor Magic V5 - méret a kamera mögött
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Yettel topik
- Samsung Galaxy A52s 5G - jó S-tehetség
Hirdetés
-
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
-
nordican
tag
válasz
nordican
#33984
üzenetére
Hú, úgy tűnik, működik!
Ez k...a jó!
Ide raktam be:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("C65"), Range("C69"))) Is Nothing Then
Rows(Target.Row).AutoFit
If Not Intersect(Target, Range("C65")) Is Nothing Then
With Sheets("Munka1").Range("B14")
.Value = Target.Value
Sheets("Munka2").Range("B14").MergeArea.UnMerge
Sheets("Munka2").Range("B14").Rows.AutoFit
Sheets("Munka2").Range("B14:E14").Merge
End With
End If
If Not Intersect(Target, Range("C69")) Is Nothing Then
With Sheets("ajánlat1").Range("B26")
.Value = Target.Value
.Rows.AutoFit
End With
End If
End If
End Sub -
nordican
tag
válasz
Fferi50
#33981
üzenetére
Igen, de ha egy oszlopot szélesebbre veszek, akkor a tőle jobbra lévő oszlopokban lévő cuccok is csúsznak (vagy keskenyebbre kéne vennem őket, de ezt meg a bennük lévő adatok miatt nem tudom). Elég kötött munkalapokkal dolgozom, szinte minden mindennel összefügg, ami ilyen szempontból elég szerencsétlen megoldás.
-
nordican
tag
-
nordican
tag
válasz
Fferi50
#33974
üzenetére
Fantasztikus vagy, köszönöm!
Így már sikerült a meglévő munkafüzetemre alkalmaznom, egy bökkenő van, és itt fel is adom ezt a történetet. Ha a sorban van összevont cella (és nekem sajnos van), ott nem működik, és hiába szedem szét a cellákat, a szöveg nem megy át a következő cellába. Ha leveszem a Sortöréssel több sorba opciót, akkor átfolyik a másik sorba, de a lista elemei egymás mögött jelennek meg. Magyarul kellene egy jó széles oszlop, ahová kompletten beférnek a lista elemei (amik egyébként fájlnevek), ehhez meg újra kellene csinálnom az összes munkalapot. 
-
nordican
tag
válasz
Fferi50
#33964
üzenetére
Fiúk-lányok, tök rendesek vagytok, hogy ennyi időt beleöltök más problémájába, de nekem ez még mindig túl elvont. Még azt kérhetném, hogy egy konkrét példára fordítsátok le ezeket a kódokat?
Szóval tegyük fel, hogy a Munka1 lapom a főlap, itt az A1 és az A3 cellában készül két különböző (többtételes) lista, és a Munka2 lapon a B2 és B4 cellában kellene megjelennie automatikusan az A1 és A3 listának, és egyúttal automatikusan át is kellene méreteződnie a Munka2 lap 2 és 4-es sormagasságának. Én pedig megfogom a kódot és egy az egyben beszúrom a Worksheet/Change lapra, és beszámolok az eredményről. Ha működik, akkor már csak a cellák meg a lapok nevét kell lecserélnem, ami elvileg még nekem is menni fog. -
nordican
tag
Sziasztok, volt már itt korábban szó a sormagasság automatikus átállítódásáról, és sok biztatót nem mondtatok, de lehet, nem tudom megkerülni. Van egy összesítő munkalapom, ahol néhány cellában listát szoktam készíteni (aminek a hossza, tehát a lista tételeinek száma változó), ennek megfelelően a sormagasság is változik. Ehhez az összesítő munkalaphoz tartozik több párhuzamos munkalap, ahol automatikusan kellene módosulnia a sorok magasságának az összesítő munkalapon lévő lista hosszának megfelelően (mert a cella tartalma ugyanaz). Van erre ötletetek? Sajnos most egyenként kell végignéznem a munkalapokat, hogy melyiken kell átállítanom a sormagasságot, ami elég macerás.
-
nordican
tag
válasz
poffsoft
#33896
üzenetére
Köszi, ez az! Szerinted olyat bele lehet építeni, hogy az éppen aktív vagy a kijelölt munkalapokon végezze el a cserét? Próbáltam az ActiveSheet-tel, de ezzel nem működik.
Sub Makro1()
Dim list() As String
Dim liste As String
Dim i As Integer
Dim c As Range
Dim rng As Rangeliste = "ActiveSheet" 'a munkalapok nevei, ahol keresni kell, vesszővel elválasztva
list() = Split(liste, ",")
For i = 0 To UBound(list)
Set rng = Sheets(list(i)).Range("A1
100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
Next i
End Sub -
nordican
tag
válasz
nordican
#33885
üzenetére
Összebarkácsoltam egy ilyet, de ez még nem tökéletes, mert minden hátteret eltüntet, én meg csak a sárga hátteret szeretném kiszedni, és a Range-hez is az adott munkalapot kellene beírni.
Sub Makro1()
Range("A1", "F100").Select
With Selection.Interior
.ColorIndex = None
.Pattern = xlNone
End With
End Sub -
nordican
tag
Sziasztok, az internetről van egy ilyen parancsom, amivel elvileg meg lehet változtatni a sárga hátterű cellák hátterét átlátszóra (vannak zöld hátterűek is, azokat nem szeretném megváltoztatni):
Range("F" & y).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End WithVBA-n belül ezt hová kell beszúrnom?
Próbáltam Modullal és a ThisWorkbook-ra kattintva is, beírni sikerül, de nem jelenik meg a Makrók között, így lefuttatni sem tudom. -
nordican
tag
válasz
nordican
#33823
üzenetére
De megint eszembe jutott valami:
Az automatikus kitöltés csak egy munkalapon belül működik? (arra gondolok, hogyha elkezdek gépelni valamit egy oszlopban, és az már korábban előfordult, akkor az Excel felajánlja a kiegészítést). Na, ez tök jó funkció lenne Munkalapok között vagy akár másik fájlban lévő Munkalapok között. Tudom, lehetne legördülő listát is csinálni, de ha van 100 tétel, nem olyan jó móka, kiválasztani egy adott tételt egy hosszú listáról, jobb lenne az automatikus kiegészítés. Ez sem létszükséglet, de ha van rá egyszerű megoldás, érdekelne. -
-
-
nordican
tag
válasz
Fferi50
#33790
üzenetére
Sziasztok, nagyon köszönöm, ehhez kell egy kis idő, hogy feldolgozzam, de igyekszem.
Ez pedig, remélem, az utolsó kérdésem (nem gondoltam, hogy az Excel függőséget tud okozni).
A munkafüzetem sok munkalapból áll, amelyek egy részét nem mindig használom, így elrejtettem. Ha viszont kellenek, szeretném őket felfedni, és nem egyenként. A neten találtam is egy ilyen makrót, amivel mindet fel lehet fedni egyszerre (talán másnak is hasznos lehet, bocs, ha nagyon banális):Sub Minden_munkalapot_felfed()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End SubKiválóan működik, de: Hogyan lehetne úgy átírni, hogy csak meghatározott munkalapokat fedjen fel? Két munkalapot mindig rejteni szeretnék, mert képletek vannak rajta.
-
nordican
tag
válasz
poffsoft
#33782
üzenetére
Basszus, nem értem, miért fejlécet írtam. Szóval az élőfejre gondoltam. Beraktam oda egy azonosító kódot, aminek a munkalap egyik cellájában automatikusan meg kellene ismétlődnie, de sehogyse tudok rá hivatkozni. Sőt ezt még meg kéne fejelnem azzal, hogy az élőfejben lévő kód mindig annak a mappának a nevét kapja automatikusan, ahol a munkafüzetet tárolom (magyarul a kód egyúttal a mappa neve lenne), mert a munkafüzet egy sablon, amit mindig egy adott mappába teszek, és ott testre szabok. Ha ez utóbbira lenne megoldás, az is nagy könnyebbség lenne, akkor még a hivatkozásról is lemondanék.
-
-
nordican
tag
válasz
poffsoft
#33777
üzenetére
Köszi, ez az! Igen, munkalapokra gondoltam.
A 10-zel nekem sortörést is csinált, lecseréltem hasraütésszerűen 9-re, és most már egymás mellé mennek a tételek. Újabb kérdés: Ha sok tételből áll az összesített cella, és több sorra csúsznak át, jó lenne, ha automatikusan átméreteződne a cella magassága. próbáltam már az automatikus sormagassággal, sortöréssel és anélkül, de meg se kottyan neki. Erre van ötleted? (Ja, most olvasom, hogy a sortörést írtad is.) -
nordican
tag
Sziasztok, még mindig ugyanazon az adatbázison dolgozom, lassan kész is vagyok. Még egy kérdésem felmerült: Szeretném, ha két különböző (és két külön munkafüzeten lévő) cella tartalma (a példában A1, B3) automatikusan átmásolódna egy harmadik cellába (a példában D4), de úgy hogy a két cella szövege vesszővel legyen elválasztva.
Pl.
(Munkafüzet1) A1: alma
(Munkafüzet2) B3: körte(Munkafüzet3) D4: alma, körte
A =Munkafüzet1!A1&Munkafüzet2!B3 képlet működik is, csak nekem még egy vessző és egy szóköz is kellene a két elem közé.
Erre van valami képlet? -
nordican
tag
Még egy kérdés jöhet?
Olyan legördülő listát szeretnék, amelyiknél ha a lista nevére kattintok, a hozzátartozó elemek is betöltődnek a listanév alatti cellákba. Szóval van pl.A menü
húsleves
rántott hús
somlóiB menü
tojásleves
szilvás gombóc
almás rétesA legördülő menüben választok A és B menü közül, de egyúttal a hozzátartozó elemek is betöltődnek az alatta lévő cellákba.
-
nordican
tag
válasz
Fferi50
#33705
üzenetére
No, képlet elfogadva, a háttér megváltozott, de nem úgy ahogy én szeretném. Nekem az kéne, hogy üres cellánál legyen háttérszíne a cellának, de ha írunk bele, akkor tűnjön el a háttérszín. Ha pedig van háttérszín, az nyomtatásnál ne látszódjon. Szóval hogy rögtön lehessen látni, hogy milyen cellákat kell kitölteni, de ha ki vannak töltve, akkor már olyan legyen, mint a többi cella. Azt gondoltam, erre sokkal gyakrabban szükség van, semmint hogy az egész internetet feltúrjam a megoldásért.
A fenti angol linken így működik a dolog. Nekem most simán kitöltötte a hátteret, ha van venne szöveg, ha nincs, amit a Kitöltéssel is meg tudok csinálni. Vagy még mindig én b...ok el valamit? -
nordican
tag
Sziasztok, zárolt munkalapon szeretnék kiemelni valamilyen színű háttérrel nem zárolt (szóval kitöltendő) cellákat, van valakinek ötlete, hogy hogyan lehet? Itt pont ezt tárgyalják: http://www.extendoffice.com/documents/excel/2604-excel-highlight-color-unlocked-cells.html
De az első opció nekem nem működik, a Kutools működik, de ha olyan gépen nyitják meg a fájlt, ahol nincs Kutools, nem látszódik a kiemelés.
Ez k...a jó!
Ezt az előbbi kódhoz kell beszúrni End Sub fölé?
100")
Új hozzászólás Aktív témák
Hirdetés
- Samsung Galaxy A54 - türelemjáték
- sziku69: Szólánc.
- Milyen autót vegyek?
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Milyen okostelefont vegyek?
- Jogász topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- Amlogic S905, S912 processzoros készülékek
- Vezetékes FEJhallgatók
- Xbox Game Pass [2025] - Az augusztusi lista
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok a legjobb áron: Steam
- Assassin's Creed Shadows Collector's Edition PC
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Vírusirtó, Antivirus, VPN kulcsok
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- Samsung Galaxy A55 5G / 8RAM 256 GB /Gyárifüggetlen / 12Hó Garancia
- Villámgyors teljesítmény és 10 év nyugalom!
- iKing.Hu Samsung Galaxy S25 Plus Navy 12/256 GB Használt, karcmentes állapotban 3 hónap garanciával!
- DELL PowerEdge R730xd 16LFF 160TB+400GB 2U rack - 2xE5-2683v4 (16c/32t),256GB RAM,2x10G NET,HBA330
Állásajánlatok
Cég: FOTC
Város: Budapest