- Motorola Edge 40 - jó bőr
- Itt az első kép a 2024-es Nokia 3210-ről
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Na, még egyszer, csak ezúttal OnePlus Open néven
- Honor Magic5 Pro - kamerák bűvöletében
- Poco X6 Pro - ötös alá
- Asus Zenfone 8 - komplett kompakt
- Apple Watch Sport - ez is csak egy okosóra
- Telekom mobilszolgáltatások
- Samsung Galaxy S21 FE 5G - utóirat
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
ph A Kereskedelmi Minisztérium egyelőre csak felméri a helyzetet, egyelőre nem látni, hogy tudnak-e bármit is tenni.
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
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
-
RAiN91
őstag
Az előző már nem aktuális, viszont még lenne egy utolsó kérdés
Ez így működik, viszont szeretném, hogy soronként nézze végig az összes cellát, és ahol (35 oszlop sorai) amelyikben SZÖVEG mező van, írja be az adott sor másik cellájába is (12 oszlop sorai), és maradjon is ott.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(10, 35) = "SZÖVEG" Then
Cells(9, 12) = "SZÖVEG"
End If
End Sub---
Erre próbáltam ezt, de amint beíródik a "SZÖVEG" 35-ös oszlop bármely cellájába, megfagy az excel.Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as integer, k as integer
For i=10 to 100 step 2
For k=9 to 100 step 2If Cells(i, 35) = "SZÖVEG" Then
Cells(k, 12) = "SZÖVEG"
End IfNext
Next
End SubKöszönöm a segítséget előre.
-
Fferi50
őstag
válasz RAiN91 #34103 üzenetére
Szia!
Itt is le kell állítani az eseménykezelést. Az első For elé be kell írni:
Application.EnableEvents=FalseAz End Sub elé pedig:
Application.EnableEvents=True
A második Next elé beírnám DoEvents. Ez arra szolgál, hogy le tudd állítani a programot a Ctrl+Break gombbal, ha már nagyon sokáig menne .Üdv.
-
oke
senior tag
Sziasztok!
Első körben egy elméleti kérdésem lenne, ha megoldható, akkor jövök a részletekkel
Van egy online teszt kitöltő oldal, melyet ha elvégeznek az illetők, akkor az eredmény letölthető excelben. Egy ember eredményei egy sorban szerepelnek. Ebből kellene nekem valami makróval elküldeni az adott személyhez tartozó sort +a "fejlécet" a személyhez hozzárendelt e-mail címre (ez még egy plusz feladat Tehát nem az egész excel-t, hanem csak két sort.
Megoldható így az e-mail elküldés valahogy? -
bsh
őstag
üdv,
keresgéltem a neten de nem találtam jó megoldást arra, hogy copy+paste esetén ne csessze szét az excel a feltételes formázási szabályokat és ne hozzon létre új szabályokat minden másolt cellához. tényleg nem lehet ezt valahogy kikapcsolni? -
lappy
őstag
-
TheProb
veterán
Sziasztok!
Legördülő listához, hogy tudok új elemet hozzáadni?
Én azt hittem, hogy ha az adott oszlop egy cellájában megadok egy olyan értéket ami még nincs, akkor az automat bekerül a listába és szűrhető lesz. De azt írja, hogy az érték nem felel meg az adatérvényesítési korlátoknak. Megnéztem az adatérvényesítés, de ott csak úgy tudom megnézni a beállításokat, ha törli a meglévőket...Mármint tudom, hogy a lista és ez a szűrős dolog nem ugyan az, de a lényeg ugyan az, hogy addig nem kerül be a szűrőbe az új érték, amíg nem tudom beírni az egyik cellába.
[ Szerkesztve ]
"Boba is Mickey, Mickey is Boba" - Finkle Einhorn | PC Rig: https://pcpartpicker.com/b/bBy48d
-
Fferi50
őstag
válasz TheProb #34110 üzenetére
Szia!
Az adatérvényesítési lista pont azért van, hogy ne lehessen más értéket beleírni a cellába , ne csodálkozz, hogy nem engedi.
Először a lista elemei közé kell felvenned - ha kézzel van megadva, akkor a forrás sorba beírni, ha ott képlet van, akkor a képletet kell módosítani, hogy benne legyen az új cella és az új cellába írni az értéket.Üdv.
-
szöszi29
csendes tag
sziasztok!
Kis segítséget kérnék! Adott egy raktárkészlet excelben, állandóan bővül! Folyamatosan végzek benne speciális szűréseket! Egyik kérdésem, hogy ha manuálisan színezem a cellák tartalmát(betűszín), az látszódik szűrésnél, viszont ha feltételes formázással színezném, azt nem mutatja a szűrésnél... van erre valami megoldás? hogy ne kelljen a cellákat egyenként színezni?
Illetve a másik kérdésem, hogy ha a HA függvényt szeretném használni, aminek a feltétele egy olyan cellára mutat, ahol kötőjeles, kettőspontos adatok vannak(1db-6db, itt a db a darab), miért nem működik? Például ha a cellában az van, hogy 1db-6db, akkor szeretném mellé a cellába iratni hogy "kevés", de nem csinálja meg, mindig azt írja hogy hamis.. megpróbáltam úgy is hogy 1db:6db, de így se...
van valami ötletetek?
köszi előre is
üdv.
István -
Lipton
őstag
Sziasztok,
hogyan lehet diagram területre egy "fix vonalat tenni" vízszintesen mint mondjuk egy minimum értéke egy görbének. Elvileg rá tudom rajzolni sima "vonal" rajzolásával de az nagyon gagyi megoldás.
köszi -
m.zmrzlina
senior tag
Hol tudom beállítani hogy az Excel teljes ablakban nyíljon meg és ne a Maximize gombbal kelljen kezdeni a munkát?
Nem makróval gondolom megoldani egy adott munkafüzet esetében (ismerem az Application.WindowState = xlMaximized parancsot) hanem rendszerszintű megoldás kellene.
Az összes többi telepített Microsoft termék (Word, Access, Powerpoint stb) teljes ablakban nyílik meg csak az Excellel van gond.
-
szöszi29
csendes tag
sziasztok!
kérnék még egy kis segítséget!
össze lehet e hozni a HA és ÉS függvényt úgy, hogy van üres cella is, amire hivatkoznék?
arról van szó, hogy szeretnék automatikusan kitölteni cellákat, ha bizonyos feltételek érvényesülnek!
pl. ha E2 cella üres és I2 cella egyenlő "1db-6db"-al, akkor legyen kevés, egyébként pedig sok... illetve ha meg lehet ezt csinálni, akkor össze lehet e több ilyet fűzni valahogy?
két képletem van ami külön működik, ezeket hogyan tudom összefésülni?
a cél az lenne, hogy csak akkor írjon keves-et, ha E2 cella üres és ha a ha függvényből teljesül valamelyik feltétel..=HA(I2="1db-2db";"kevés";HA(I2="3db-4db";"kevés";HA(I2="5db-6db";"kevés";HA(I2="7db-8db";"kevés";"sok"))))
=HA(ÜRES(E2);"kevesüres";"kevesnemüres")
ez a két képletem van, ezeket kellene összehozni
a fontos az lenne, hogy csak akkor teljesüljön a ha függvény, ha üres az E2-es cella..
pl. ha E2 üres és I2=1db-2db, akkor kevés, és ha E2 üres és I2=3db-4db, akkor kevés..... stb egyébként sok..köszi előre is
[ Szerkesztve ]
-
szabonagyur
félisten
Sziasztok,
Van egy megnyitáskor automatikusan frissilő pivot tábla. Azonban a pivot részeit hiába állítom be mondjuk nagyobb betű stb. mégsem marad úgy, hanem visszaugrik.
Van erre valami egyszerű megoldás?
Eladó: iPhone 13Mini 2 év gari, iPhone 6S 32GB
-
veneonee
újonc
Sziasztok!
Nekem lenne egy nem túl bonyolult kérdésem. Eddig Macen a Numberst használtam, viszont ahogy ott használtam a képletet az Excel nem tudja úgy használni
Van egy ilyen képletem: "I9=HA(F9>=0;F9;0)+HA(H9=1;-F9; )
Szóval röviden, van az F oszlop az egy számolt összeg, annak kéne megjelennie az I oszlopban ha 0-nál nagyobb vagy egyenlő a szám az F-ben és itt jön be a gondom a H oszloppal, ami egy ismét fügvényes megoldás és ha beírom hogy "1" akkor törölje a mellete lévő I sorban az értéket vagy tegye egyenlővé 0-val. Viszont van mikor egymás után több sornál egyesíteni kéne a H oszlopban a cellákat és 1db "1"et beírnom, vinszont ilyenkor nem törli csak az egyesített cellák első sora melleti I értéket és a többit otthagyja, ami nekem nem jó...
Remélem érthető
Előre is köszi[ Szerkesztve ]
-
oke
senior tag
válasz szabonagyur #34119 üzenetére
Szia!
Próbáltad a kimutatás jobb gomb --> kimutatás beállításai-->elrendezés és formátum fül -->pipa a 'formázás megőrzése frissítéskor' ?
-
RAiN91
őstag
Szeretném húzni az időt, ezt az egyszerű megoldást találtam. De amíg fut az az 5 másodperc, addig megáll a 200ms-ként frissülő excel tábla. Létezik hasonló egyszerű megoldás, ahol közbe nem áll meg az Excel?
If Range("O" & i).Value = "SZÖVEG" Then _
Application.Wait(Now + TimeValue("00:00:05"))
Range("O" & i).ClearContents
End If
Köszönöm
[ Szerkesztve ]
-
szöszi29
csendes tag
Köszönöm a választ, ilyesmire gondoltam!
tökéletes arra, ha az E2 cella üres, viszont az a gondom, hogy ha az E2 cella nem üres, akkor nem szeretném ha írna bármit is, tehát hagyja üresen a cellát, ahol a függvény van..
ez is megoldható valahogy? vagy ez már bonyolult excel szinten? -
Janaboy
veterán
Sziasztok,
Egy egyszerű IF függvényre lenne szükségem, ami a következőt csinálná.
HA X mezőben lévő név egyezik Y1 - Y41 mező közötti szöveggel, akkor Z(és az egyező mező) számon található szöveget rakná be.
Pl.X1:Béla
Y1:Béla Z1:Nemjo
Y2:Jóska Z2:Dejo
Y3:Haverom: Z3:LegjobbTehát végiggörgetné a tartományt Y-on és ha megvan, akkor dobja be a nevet, ha nincs akkor marad az eredetin.
Köszi előre is.
üdv[ Szerkesztve ]
Janaboy
-
marec1122
senior tag
Sziasztok!
egy számotokra talán egyszerű kérdésem lenne.
van egy cella melynek random szám tartalma van(mondjuk 1-10) és az a1-es cellán
hogy nézne ki a makró kód ami azt tudja hogy gombnyomásra frissíti a cella tartalmát?Csak megfontoltan :D "Öregember nem gyorsvonat!" John McClane
-
oke
senior tag
válasz szabonagyur #34128 üzenetére
Velem a cellarácsok szórakoztak így. Ha többet kijelöltem, és úgy állítottam be a cellarácsot, akkor frissítéskor eltünt. Viszont ha egyesével állítottam át, akkor megmaradt. Prőbálj meg egyszerre egyet átállítani és aztán frissíts.
-
samfishR
senior tag
Sziasztok,
A csatolt képen látható egy kis tábla, 3 színnel, mind a háromnak van 1-1 intervalluma start és finish értékkel. Az alatta lévő oszlopban értékek vannak megadva és azt szeretném, hogy mellé, a B8-B20 tartományba a fenti táblát megvizsgálva a számhoz megfelelő színt rendelje hozzá.
Tehát ha a Date értéke 2, akkor Zöld-et adja. Ha 11, akkor Feketét, stb..
Köszönöm előre is!
-
szőröscica
addikt
Hello!
Hol hibázik a kódom?
A RowCount érték ki van számolva, gyakorlatilag az lenne a célom, hogy ha nem üres a D oszlopban a cella, akkor az adott sor J és D celláját másolja át egy másik sheeten lévő lista aljára. A For ciklus mintha nem menne, csak a legelső nem üres D-ig megy, utána abbahagyja, nem másolja át a többit.
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
Range("J" & i).Select
Selection.Copy
Sheets("Submitter excl. trades").Select
Range("H65000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
l = Selection.Row
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Trading activity_NEW").Select
Range("D" & i).Copy
Sheets("Submitter excl. trades").Select
Range("I" & l).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next i[ Szerkesztve ]
-
Fferi50
őstag
válasz szőröscica #34137 üzenetére
Szia!
Szerintem a legutolsó PasteSpecial után nem mész vissza a forrás munkalapra, hanem a cél munkalapon maradsz, ezért ott vizsgálja a következő "D" oszlopbeli cellát, aminek nagy eséllyel nincs értéke.
Tehát hiányzik egy
Sheets("Trading activity_NEW").Select
sor az End If elé.
Egyébként a rengeteg select teljesen elhagyható, de ezt most másra bízom.Üdv.
[ Szerkesztve ]
-
samfishR
senior tag
válasz m.zmrzlina #34136 üzenetére
köszönöm!!
-
poffsoft
addikt
válasz szőröscica #34140 üzenetére
Option Explicit
Public Sub makro1()
Dim i As Integer
Dim l As Integer
Dim RowCount As Integer
Dim S1 As String
Dim S2 As String
RowCount = 10
S1 = "Submitter excl. trades"
S2 = "Trading activity_NEW"
Worksheets(S1).Select
For i = 3 To RowCount
If Not IsEmpty(Range("D" & i)) Then
l = Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & l) = Range("J" & i)
Range("I" & l) = Sheets(S2).Range("D" & i)
End If
Next i
End Sub[ Szerkesztve ]
[ Szerkesztve ]
-
#25712384
törölt tag
Sziasztok!
Ha van mondjuk ~1000 oszlopom, minden oszlop 2 sorában van adatom (oszlop név), és szeretném, hogy minden oszlop mellé tegyen be plusz egy üres oszlopot, ezt meg lehet csinálni a tartomány teljes kijelölésével és valamilyen speciális beszúrással, vagy csak egyesével lehet minden oszlop mellé egy újat beszúrni? (2013-as office esetében érdekelne a dolog).
-
Lasersailing
senior tag
Sziasztok,
Olyan gondom lenne, hogy van egy makró, ami 1 órával ezelőttig szuperül futott, majd most indításkor hibaüzenet:
"File not found"Ha debug módban F8-at ütök, akkor is, a nélkül, hogy egyáltalán belelépne a makróba! A makrón az utolsó futás óta érdemi változtatást nem csináltam, de szerintem valamit az excelen beállításain babrálhattam el...
Amit változtattam:
átraktam a file-t egy másik mappába (nam használ külső file-okat a makró)
ill. engedélyeztem az összes makró futását excelben, ne kérdezgessenvan ötletetek esetleg?
(Office professional plus 2010)
-->megoldódott, okát nem értem: 5 makró sort inaktívvá tettem, majd egyesével újra aktív és működik
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz #25712384 #34143 üzenetére
A lenti rövid kis makrót másold be egy modulba, ezzel hamar létrehozhatod a beszúrásokat.
Sub OszlopBeszuras()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 2 Step -1
Columns(oszlop).EntireColumn.Insert
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.
-
MODERÁTOR
Üdv!
Adott egy forma Excel táblázat, melyben adatokat kellene egyszerre több felhasználónak időpontra rögzíteni, de ha az egyikük egy hálózati helyről megnyitja , akkor az a többieknek írás védett.Hogy lehetne megoldani hogy többen is tudjanak dolgozni?
20 éve a Prohardveren
-
cekkk
veterán
Sziasztok!
Olyan kérdésem lenne, hogy van egy oszlopom amibe számok vannak pl 12541 vagy 821,257 azt szeretném ha az utolsó két számjegyet vágja le és írjon helyette oda 90-et ezt hogyan lehetne?
Köszönöm!
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Egy lehetséges megoldás (ha az A:A oszlopban vannak a számok):
=LEFT(A1;LEN(A1)-2) & "90"
Ettől persze szöveggé váltak a számok ami nem baj akkor ha pl raktárnyilvántartás azonosítóiról van szó, azokkal rendszerint ui nem kell matematikai műveleteket végezni.
Ha az eredménybe szám kell akkor meg lehet pl szorozni 1-gyel a fv-t:
=(LEFT(A1;LEN(A1)-2) & "90")*1
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Ha egészre szeretnél kerekíteni, akkor:
=KEREK.FEL(A1;-2)-10
Ez független a tizedesvessző mögötti értékektől.
Ha tizedesvessző utáni értékeket is cserélnéd, arra más képlet kellene, de ott soha nem fogsz 90-et látni, mert az utolsó 0 nem íródik ki , kivéve, ha kötelezőnek formázod, illetve az Excel sajátosságai miatt mással számol és mást látsz - meg kell határozni, hány tizedest szeretnél látni.Persze más a kérdés, ha szövegről van szó.
Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Motorola Edge 40 - jó bőr
- Háztartási gépek
- Gumi és felni topik
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Kormányok / autós szimulátorok topicja
- Politika
- LEGO klub
- Azonnali informatikai kérdések órája
- Itt az első kép a 2024-es Nokia 3210-ről
- EA Sports WRC '23
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- World of Warcraft Shadowlands Collectors edition EU EN