- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
- Az AI átformálja a Peugeot modelljeit is
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
- Mindenféle környezeti behatásnak ellenállnak az ASUS új TUF tápjai
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Azonnali informatikai kérdések órája
- Kompakt vízhűtés
- 3D nyomtatás
- Bluetooth hangszórók
- iPad topik
- Kormányok / autós szimulátorok topikja
- Shield TV-t csinált a Shieldből az NVIDIA
- Vezeték nélküli fülhallgatók
-
37100 - 37001
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 39901 39900 - 39801 39800 - 39701 39700 - 39601 39600 - 39501 39500 - 39401 39400 - 39301 39300 - 39201 39200 - 39101 39100 - 39001 39000 - 38901 38900 - 38801 38800 - 38701 38700 - 38601 38600 - 38501 38500 - 38401 38400 - 38301 38300 - 38201 38200 - 38101 38100 - 38001 38000 - 37901 37900 - 37801 37800 - 37701 37700 - 37601 37600 - 37501 37500 - 37401 37400 - 37301 37300 - 37201 37200 - 37101 37100 - 37001 37000 - 36901 36900 - 36801 36800 - 36701 36700 - 36601 36600 - 36501 36500 - 36401 36400 - 36301 36300 - 36201 36200 - 36101 36100 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
GreenIT
tag
-
spe88
senior tag
Hello!
Ez tutira működik? Mit rontok el?
az AG oszlopban lévő OK-okra kell rászűrni és az összes ilyen sort törölni!
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
.AutoFilterMode = False
.Range("ag1:ag1").AutoFilter 'Filter bekapcsolása
.Range("ag1:ag1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:bb1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With
End SubKöszönöm
-
Fferi50
Topikgazda
Szia!
A hozzáadás valószínűleg szövegformátumban van (csak kinézetre olyan, mintha dátum lenne...). nem elég ha átállítod a cella formátumot dátumra, dátumot is kell csinálni belőlük a Dátum függvénnyel. (A szöveget a bal, jobb, közép függvényekkel darabolhatod a Dátum paramétereihez). Ezt egy másik oszlopban teheted meg, majd az értéket visszamásolod az eredeti cellákba.
Üdv.
-
G.FeT
tag
Ahoy mindenkinek!
Excel 2010-ben létrehoztam egy olyan táblát, ahol az egyik oszlop dátum (csak hónap, nap). Később egy másik Excel táblából átmásoltam jó néhány sort ugyanilyen adatokkal (a forrásfájl a Chrome Táblázatok bővítményével volt utoljára szerkesztve). Azóta ha rendezni akarom a dátum szerint, két külön kupacként kezeli az eredeti sorokat és a bemásoltakat, tehát külön-külön rendezi őket 1.1.-től 12.31.-ig.
Hogy tudnám megoldani, hogy egybe rendezze őket? Köszönöm előre is! -
Fferi50
Topikgazda
-
mesm
csendes tag
-
Fferi50
Topikgazda
Szia!
De akkor legyen alulvonal mindkét helyen.
Azt javaslom, hogy a keresendő értéket másold át a táblázatba - vagy fordítva. Így biztosan egyforma lesz.
Sokszor szokott problémát okozni, hogy "nem látható" karakterek vannak az egyik vagy a másik cellában pl. szóköz van a végén, vagy nem szóköz, hanem Karakter(160). Ezért a keresésnél a cella Kimetsz vagy Tisztit függvénnyel módosított tartalmát keressük.Próbáld ezeket is.
Üdv.
-
mesm
csendes tag
-
Bazs-
tag
-
Fferi50
Topikgazda
-
mesm
csendes tag
Helló! előre is köszi a segítséget
a D24 egy adatérvényesítés az Anyagok!A1:A20 ra. itt fel is jön a két anyagfajta. Az anyagok A18 ez a "T_szelvény_EN10025" van egy névhivatkozása a CJ
N30 -ra amiben van egy lista és még más adatokat keres ki a Kalkulál táblázat másiknál ugyanígy) Már többször végignéztem, betűröl betüre.(a m
-
lappy
őstag
-
mesm
csendes tag
Sziasztok!
van egy táblázatom Excel 2013 ban (annak idején még Delila_1 útmutatása alapján készült)Bővízezzem, bütyköltem benne zt az azt, de van anyagfajta (HH_Négyzetacél és T_szelvény) ami az E oszlopban az istennek sem akarja feldobni a z Anyagok munkalapon lévő anyagválasztékot , persue így hibát dob a többi helytre. Szintaktikailag szerintem ugyanaz mint de többi de nem működik. Ha valaki tudna segíteni, megvilágítaná az agyamat

-
andreas49
senior tag
-
Delila_1
veterán
-
meke11
aktív tag
-
Delila_1
veterán
-
meke11
aktív tag
Sziasztok!
Olyan problémám van, hogy egy oszlopban hogy tudom megszámolni, hogy hány darab érték van beírva, úgy hogy, az azonosakat csak egyszer vegye figyelembe.
Bocs a túl sok "hogy" ért.
Köszönöm!
-
Delila_1
veterán
-
Delila_1
veterán
Akkor jön a makró, amit modulba kell bemásolnod.
Sub Atrendez()
Dim Innen As Long, Ide As Long, osszeg As Single
Innen = 2: Ide = 2: osszeg = 0
Cells(1, 10) = Cells(2, 1) & " " & Cells(2, 2)
Do While Cells(Innen, 1) <> ""
If Cells(Innen, 1) & " " & Cells(Innen, 2) = Cells(1, 10) Then
Cells(Ide, 6) = Cells(Innen, 1)
Cells(Ide, 7) = "T"
Cells(Ide, 8) = Cells(Innen, 3)
osszeg = osszeg + Cells(Innen, 3)
Else
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
Innen = Innen - 1
osszeg = 0
End If
Innen = Innen + 1: Ide = Ide + 1
Loop
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
End Sub -
föccer
nagyúr
-
andreas49
senior tag
De, megy a másolás és értékbeillesztés, de valószínűleg rosszul fogalmaztam: nekem arra van szükségem, hogyha változik az E oszlop értéke (amely az utána következő f-z oszlopok összesítése), akkor automatikusan változzon a C oszlop értéke és automatikusan Z-A rendezve legyen. A táblázat mintegy 200 sort tartalmaz.
A táblázatban látnom kell mindig a fenti minta B,C,D,E oszlopokat. -
föccer
nagyúr
-
Bazs-
tag
Köszönöm Neked is.
Sajnos egy interfész file lesz a végeredmény, aminek kötött a formátuma. Tehát hiába vannak meg a "K egyenlegek", attól még a file strukturát ki kellene alakítanom. Csak úgy tudja a könyvelő program beolvasni, ha először jönnek a "T" tételek, majd azt követően egy "K" tétel és újból "T" tételek, majd megint egy "K" tétel.
Közel 3000 soros excelről van szó, ami még sok adatot tartalmaz, de azokat már be tudom képletezni. Főként az a problémám, hogy az eredeti excel kevesebb sorból áll, mint majd a végeredmény és itt bukom el a képletezéssel.
-
andreas49
senior tag
-
Delila_1
veterán
-
Bazs-
tag
Köszönöm

SZUMHATÖBB függvény megvan. Nem sz összegzéssel van a problámám.Azt nem tudom megoldani, ,hogy automatikusan létrehozza megadott formátumban a sorokat. Tehát az "A" oszlopban lévő számlaszámokat rakja át az "F"-be, viszont ha a "B" oszlopban már változás következik be, akkor az "F" oszlopba ne az "A" oszlopból vegye a következő egy adatot, hanem a "B"-ből vegyen ki egyet. Utána viszont folytassa az "A" oszlopból.
Példával: Az A2-A6-ig átteszi az adatokat az F2-F6-ba, de ott érzékeli, hogy a B7 már nem egyenlő a B6-al, így az F7-be már a B6 értékét teszi. Majd ezután az F8-F10-be már az A7-A9-ig másolja az adatokat, majd mivel ismét nem azonos a B9 és a B10, ezért az F11-be már a B9 értékét másolja. És így tovább. Több száz soros a teljes excel és nincs ötletem hogy tudnám ezt megvalósítani.Nem tudom mennyire érthető, amit leírtam

Köszönöm
-
föccer
nagyúr
-
föccer
nagyúr
Jelöld ki a az oszlopokat, majd adatok menü, rendezés. Itt a különböző szinteknek tudod beállítani a szükséges sorba rendezési elveket.
Jelen példánál jelöld ki az E és D oszlopokhoz tartozó tartományt, de úgy, hogy az E3-ba kattint esőként és menj a kiejlöléssel a D oszlop végéig. Majd simán nyomj a Z->A ikonra és ha minden igaz akkor a kívánt végeredményt fogod kapni.
üdv, föccer
-
Bazs-
tag
Sziasztok,
Segítséget szeretnék kérni az alábbi problémában:

Lényeg annyi, hogy a bal oldalon lévő táblázatból kellene elkészíteni a jobb oldalit. Amíg ball oldalon a főkönyvi tételek Tartozik és Követel oldala egy sorban van, addig az új táblázatban először jönnének a Tartozik tételek, majd utána egy Követele tétel, aminek az összege megegyezik a a felette lévő Tartozik tételek összegeivel.
Elég sok ilyen tétel van és nem jövök rá, hogy lehetne képletezni.
Köszönöm előre is a segítséget.
-
andreas49
senior tag
Segítséget kérek az alábbi megoldásában:

Adott a D, E oszlop, ezt kellene rendezni úgy, hogy az érték csökkenő legyen a C oszlopban és amennyiben változik a E-ben lévő érték, akkor aszerint változzon az C oszlop sorrendje is, kiírva a hozzátartozó megnevezést is.
Köszi a segítséget előre is. -
Kobe
veterán
Koszi, kiprobalom
Arra esetleg van tipp, hogy ezeket a szurendo torlendo ertekeket hogy lehetne valami kulon, szrrkesztheto formban letarolni? Azt konnyebb lenne karbantartani, mint mindog a kodot atirni, ha pl a userekben vagy a kiszurni kivant statuszok ban valtozas van
Pl elindul a sub egybribbonrol vezerelt gombbal, es a sub elejen rogton bejonne egybform - pl bepipalja melyik statuszokat szurje ki es melyik userre toltse le
-
lappy
őstag
-
GreenIT
tag
-
Delila_1
veterán
Sub Szures_Torles()
Dim usor As Long
'J oszlop szűrése
usor = Range("B" & Rows.Count).End(xlUp).Row '***********
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10, Criteria1:=Array( _
"Befejezett", "Lezárt", "Törölt", "Várakozik"), Operator:=xlFilterValues
Range("A1").CurrentRegion.Offset(1).Delete Shift:=xlUp 'törlés
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10 'szűrő:mind
'B oszlop szűrése
usor = Range("B" & Rows.Count).End(xlUp).Row '***********
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=2, Criteria1:=Array("=/=" _
, "A", "B", "C", "D", "E"), Operator:=xlFilterValues
Range("A1").CurrentRegion.Offset(1).Delete Shift:=xlUp 'törlés
ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=2 'szűrő:mind
End SubAz usor változót olyan oszlopban állítsd be, ahol biztosan minden sorban van adat.
Az A1:K... helyére a szűréshez a saját tartományodat add meg. -
Kobe
veterán
hi
segítség kellene egy tábla adattisztításának autoamtizálásához. van egy makróm ami egy sharepointos felületről letölt táblába (Table1 objectként, már "filterezve") egy listát.
Ebben a táblában 2 db feltétel szerint szeretnék egész sorokat törölni:
1. lépés: a J oszlopban 10 lehetséges érték lehet : aktív, törölt, stb stb. Töröljön ki minden olyan sort a táblából, ahol a J oszlopban Lezárt, Befejezett, Törölt, Várakozik érték van
2. lépés: a fennmaradó adathalmazon a B oszlopban található felhasználónév alapján végezzen még egy törlést: minden olyan sort töröljön ki, ahol a username =/= A, B, C, D, vagy E értékekkel
erre valami ötlet ?
Próbáltam már ahsonlóval, de a Tábla maitt elhasal:With ActiveSheet
.AutoFilterMode = False
With Range("d1", Range("d" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Record Only*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End WithAz egész makró egy xlam-ba van rejtve, egy custom ribbonnal gombokkal vezérelve. Ha esetleg valakinek ötlete van arra, hogy a user neveket, illetve a kitörölendő értékeket hogyan lehetne egy a ribbonról előhívható táblában paraméterezni (pl cehckboxal jelölni mit töröljön ki), az plusz pont

-
Pakliman
tag
-
Fferi50
Topikgazda
Szia!
"az, hogy c1re fixáljuk a cellát nem jó."
Ki és mikor mondta neked, hogy C1-re fixáljuk a cellát. A képletet beírod abba az oszlopba, ahol a vizsgálat eredményét látni szeretnéd, mondjuk az F2 cellába. Ezután szépen lehúzod az adatok végéig és látod, hogy mi nincs.
Vagy nem erről lenne szó?
Üdv.
-
SANYIBP11
csendes tag
-
Fferi50
Topikgazda
-
Pakliman
tag
-
SANYIBP11
csendes tag
-
Pakliman
tag
[Ezt a trükköt találtam].
Én még nem próbáltam, de jónak tűnik.
-
SANYIBP11
csendes tag
-
spe88
senior tag
-
Fferi50
Topikgazda
Szia!
"Ezzel próbálkoztam de itt sajnos fixálni kell a cellát:
=HA($C2="A";HA(HIBÁS(HOL.VAN($A2;$B:$B;0));"nincs meg";" ");" ")"Ebben a képletben nincs fixált cella. Ráadásul pontosan azt teszi, amit elérni szándékoztál a leírásod szerint.
Az más kérdés, ha nem egy betűről van szó, hanem betűcsoportról, azaz pl. ABCD betűk valamelyike van a C oszlopban, akkor kell vizsgálni.
Ebben az esetben a HOL.VAN függvénnyel megnézheted, hogy van-e olyan betű, pl.=HA(HAHIBA(HOL.VAN($C2;{"A";"B";"C";"D"};0);HAMIS);HA(HIBÁS(HOL.VAN($A2;$B:$B;0));"nincs meg";" ");" ")Üdv.
-
SANYIBP11
csendes tag
Sziasztok.
Több kérdésem is lenne majd, sajnos elég alapszinten használom az Excelt.
.jelenleg egy magyar nyelvű 2016-os Excelt használok.Egy olyan összetett képletet szeretnék készíteni ami adott A oszlop számait hasonlítja össze B oszlop számaival és amennyiben ez nem szerepel b oszlopban akkor mellé "nincs" szöveget írjon ki. - eddig megy.
de
Csak abban az esetben vizsgálja ezt ha a c oszlop azonos sorában pl A betű van.A probléma az, hogy nagy több száz soros tábláról van szó és csak oszlopot tudok megadni pontos cellát nem, hogy a c oszlopban az a betű hol lehet.
Ezzel próbálkoztam de itt sajnos fixálni kell a cellát:
=HA($C2="A";HA(HIBÁS(HOL.VAN($A2;$B:$B;0));"nincs meg";" ");" ")
egyéb esetben nem működik tökéletesen..Köszönöm előre is a segítséget.
-
Traxx
őstag
-
lappy
őstag
Szia
két fgv kell hozzá az egyik a HÓNAP fgv a másik meg a darabteli fgv ezekkel
a hónap függvényel megnézed a szabik melyik hónapba esnek a darabteli meg összeszámolja -
lasarus1988
tag
Sziasztok,
egy kis segítséget szeretnék kérni:
Adott mondjuk 'Szabik' nevű munkalap és azon az 'A' oszlopban rögzítek dátumokat 'yyyy-MM-dd' formátumban. 'Eredmeny' nevű munkalapon pedig szintén 'A' oszlopban felírom januártól decemberig a hónapokat és azt szeretném megtudni, hogy adott hónapban hány nap szabi lett kivéve 'Szabik' munkalap alapján.
Egy minta fájlt elérhető az alábbi linken, a könnyebb érthetőség miatt és jó lenne, ha csak függvényt kellene használni.
A segítséget előre is köszönöm.
-
lappy
őstag
körlevélben gondolkodtál
oda olyan adatokat rakhatsz bele ami állandó és változó
én azzal próbálnám, de látatlanba nehéz megmondani hogy ez mennyire válik be mert ugye nem ismerem a táblázatban milyen adatok vannak -
bandus
veterán
-
cskata0513
csendes tag
Sziasztok!
Egy kis segítséget szeretnék kérni az alábbi problémára:
Adott egy excel táblázat ( hivatalos nyomtatnány). olyan 30-40 kitöltendő cellával. Van, ami mindig állandó pl kitöltő neve, elérhetőségei. De van ami változik. Ilyen nyomtatványból le kell gyártanom kb 1500 db-ot. Az egy nyomtatványra kerülő minden adatom megvan egy másik excel táblázatban. 1sor=1 nyomtatványra felírandó minden adat.
Gondolom a probléma megoldható (??), de fogalmam sincs milyen irányban induljak el. Tudna ebben valaki segíteni?
Előre is köszönöm!! -
spe88
senior tag
Az alábbi programkódom van, azt meg lehet oldani, hogy ne kérdezze meg mindig a Word, hogy keressen-e elölről? Van benne egy csere, amit kb. húszszor végre kell hajtani de mindig kidobálja az ablakot a makró.
Nem Excel. de a Word is nagyjából ugyanazokat használja gondolom.[/Sub PDM_1()
'
' PDM_1 Makró
'
'
Selection.WholeStory
Selection.PasteAndFormat (wdFormatPlainText)
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "?"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p"
.Replacement.Text = "*;"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Copy
End SubKöszi
-
bandus
veterán
sziasztok!
akad néhány száz e-mailem lementve a hálóztra, minden emailben 1 vagy több csatolmány található. van esetleg talonban egy makrotok ami egyenként megnyitja ezeket a lementett maileket és elmenti a benne található csatolmányokat, mindenféle névkonvenció nélkül?
köszönöm, nagy segítség lenne 
-
spe88
senior tag
-
repvez
addikt
-
edari
őstag
-
Delila_1
veterán
-
Geryson
addikt
-
Delila_1
veterán
-
Geryson
addikt
-
Delila_1
veterán
-
Geryson
addikt
Sziasztok! Már többször belefutottam, de egyszerűen egy számskálát (pl. 0% és 200% között vannak értékek) nem tudok feltételesen formázni úgy, hogy minden szám, ami 105%-nál kisebb, az legyen piros, ami meg 115%-nál nagyobb, az zöld). Próbáltam úgy, hogy számként adtam meg. Úgy is, hogy százalékként, de egyszerűen valamit nem értek meg a jelek szerint, hogy hogyan működik. Kérhetek egy kis segítséget?
Ez az eredmény, nem is használja a zöld színt, minden piros:
-
Delila_1
veterán
Nevezd el a fényképezőgéppel létrehozott képet Kép-nek.
A laphoz kell rendelned a makrót (lásd a Téma összefoglalót).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Kép").Left = ActiveCell.Left + ActiveCell.Width + 20
ActiveSheet.Shapes("Kép").Top = ActiveCell.Top + 20
End SubA plusz értékeket módosíthatod ízlésed szerint, akár negatív értékre is.
Makróbarátként kell mentened a füzetedet.
-
spe88
senior tag
hello!
hasonló a problémám mint múltkor, makróban hogy tudnám azt elérni, hogy az ok-ra szűrve a B oszlop elemeit vágólapra tegye?
A B C D E
1 12 ok
2 13 ok
3 14 ok
4 15 ok
5 16 ok
6 17 ok
7 18 ok
8 19 ok
9 20 nok
10 21 nok
11 22 nok
12 23 ok
13 24 nok
14 25 okKöszi
-
Zola007
veterán
-
Delila_1
veterán
-
Zola007
veterán
Köszönöm, egyszer már javasoltad egy másik feladat kapcsán, de az a gondom ezzel is, hogy megvan a "másolat", de nem marad egy helyben, hanem mozog a táblázattal, ha valamelyik irányba görgetem.
Nekem az kellene, hogy a táblázat fölött "ússzon", tehát bármerre megyek a táblában, mindig ugyanott lássam a grafikont, úgy mint a panelek rögzítésével első sor/oszlopnál.
-
Delila_1
veterán
-
Chosen
addikt
Sziasztok!
Egy diagram megjelenítésében van problémám. Következők az adataim:
Percentage 100% 76% 62% 56% 36% 0%
Score 2564 2550 2194 1813 1457 1457Amire a beszúrt diagram így néz ki:
A probléma ezzel, hogy az X tengelyen 100-0 egyenletesen szeretném megjeleníteni az értékeket. Ha megnézitek, akkor az 50% most nem középen van, hanem elcsúszva jobbra. Hogyan tudnám elérni, hogy egyenletesen, 100-0-ig terjedjen az x tengely? Az X tengely beállításainál csak ezek az elérhető opciók: [link]
Pl így lenne jó:

-
Zola007
veterán
van egy hosszú táblázatom és belőle egy grafikon, amit szeretném, hogy állandóan a jobb felső sarokban legyen, bármerre görgetek a táblázatban.
.xlsx alapformátumban megoldható? vagy mindenképpen makróbarátba kell átrakni?ezt találtam rá eddig, de nem működik a "lebegés", csak a pozicionálás: [link]
-
Delila_1
veterán
-
Traxx
őstag
Sziasztok!
Van egy elég összetett, makrókra nagyban épülő táblázatom, ami Office 365 alatt nem nagyon akar menni (2007, 2003 alatt hibátlan). A következő hibát kapom:
Rákattintva a Debug-ra, pedig ezt:
Hiányzik valamilyen komponens a 365-ből?
32 bites a szoftver, ha ez lényeges infó.Köszönöm a segítséget!

-
p5quser
tag
Sziasztok!
Hogy tudnék ebben a sorban
ActiveSheet.Cells(2, x + 2).Formula = "=RC[-1]*2222222""2222222" helyett a
=(INDEX('sheet2'!$A$1:$N$400,MATCH(A2,'sheet2'!$B$1:$B$400,0),12),""0"")képlet eredményére hivatkozni? Sheet2 neve változik, azért nem jó, ha csak azt írnám be a makróba.
Run-time 1004
ap-def, or obj-def a hibaüzenet. -
lappy
őstag
-
Delila_1
veterán
-
mesm
csendes tag
Excel 2013 ban bütykölök egy táblázatot. A D oszlopban egy legördülő menüvel kilehet választani anyagtípusaokat. Az E oszlopban meg ennek a méreteit.Ezekből a A F oszloptól kezdve klf adatokat keres ki egy Adatok nevű munkalapfülről. Van két anyag típus ami mindig hibát dob. A szintaxis ugyanaz mint a jól működőknél. A T_szelvény_EM10025 és a HH_Négyzeatcél nem működik.

-
Delila_1
veterán
-
kopogo
tag
-
Delila_1
veterán
-
Delila_1
veterán
-
kopogo
tag
Helló!
kérdés
van 4 db cella 5-dikbe az eredmény a 4 db cellába van érték az ötödikbe pedig minden cella után agyon hozzá 8-at Így az 5 cellába 32 lesz.Persze ha nincs mind a 4 cellába érték akkor csak annyiszor adjon hozzá 8-at.
erre szeretnék megoldást probáltam a darabtelit darab de nem jött össze
köszönöm -
föccer
nagyúr
-
smerch
tag
Sziasztok!
Egy kis segítségre lenne szükségem.
Meg lehet e oldani azt egy diagrammon, hogy ha adott érték alá esik akkor legyen mondjuk piros az oszlop ha pedig fölé akkor pedig zöld? -
lappy
őstag
-
GreenIT
tag
Egy kis segitseget kerek, hogyan tudok masik munkalapon keresni.
Az elso munkalapon van egy tablazat, A-K oszlopok, az adatok 50 sorban.
Ket masik munkalapon van 1-1 tablazat, A-K nevek a C oszlopban szerepelnek.
A feladat annyi, hogy a D oszlopba az A-K adatok melle beirva 1-50 kozotti szamot, az E oszlopban megjelenjenek a hozza tartozo ertekek.
Valamiert nalam nem mukodik.:-( -
FoxiestFox
félisten
-
FoxiestFox
félisten
Ennyire durvát kérdeztem ezzel?
-
Delila_1
veterán
A frissítést "gyalog" kell elvégezni, vagy egy gombbal (a hozzárendelt makróval) tudod egyszerre frissíteni a 3 kimutatást.
Sub Frissites()
ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
ActiveSheet.PivotTables("Kimutatás2").PivotCache.Refresh
ActiveSheet.PivotTables("Kimutatás3").PivotCache.Refresh
End SubAz A2 képlete legyen
=Ha(H2>=0;"Bevétel";"Kiadás")A képletet tartalmazó oszlopot nem érdemes az A-ba tenni, mert új sornál át kell ugranod a bevitelnél. Tedd például a dátumot az első oszlopba. Mikor a Ctrl+0-val beviszed a dátumot, automatikusan másolódik a Kiadás / Bevétel képlete.
Új hozzászólás Aktív témák
-
37100 - 37001
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 39901 39900 - 39801 39800 - 39701 39700 - 39601 39600 - 39501 39500 - 39401 39400 - 39301 39300 - 39201 39200 - 39101 39100 - 39001 39000 - 38901 38900 - 38801 38800 - 38701 38700 - 38601 38600 - 38501 38500 - 38401 38400 - 38301 38300 - 38201 38200 - 38101 38100 - 38001 38000 - 37901 37900 - 37801 37800 - 37701 37700 - 37601 37600 - 37501 37500 - 37401 37400 - 37301 37300 - 37201 37200 - 37101 37100 - 37001 37000 - 36901 36900 - 36801 36800 - 36701 36700 - 36601 36600 - 36501 36500 - 36401 36400 - 36301 36300 - 36201 36200 - 36101 36100 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Hirdetés
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Nintendo Switch V2 32GB játékkonzol garanciával hibátlan működéssel
- 27% - ASUS TUF Gaming VG28UQL1A Monitor! 3840x2160 / 1ms / 144Hz / G-Sync / FreeSync BeszámítOK!
- IFixIt iOpener Toolkit
- M4 iMac 2021 24" - 16GB RAM, 512 GB SSD 27% ÁFÁS
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

N30 -ra amiben van egy lista és még más adatokat keres ki a Kalkulál táblázat másiknál ugyanígy) Már többször végignéztem, betűröl betüre.(a m



2 kattintás.
Nézz utána a használatának, pont az ilyesmire találták ki.


).





