-
GAMEPOD.hu
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
-
tau83
csendes tag
Sziasztok.
Lenne egy olyan problémám amire nem találok megoldást, pedig biztos egyszerű és valószínű én vagyok a huje is...
Annyi lenne a lényeg, hogy ha teszem azt egy weblapról vagy akárhonnan valamit kimásolok és azt utána beillesztem excelbe akkor ne html meg unicode meg ilyen marhaságokkal illessze be hanem csak sima szövegként. Word-be megtaláltam, illetve az excelbe is irányított beillesztéssel, de az nem jó. CTRL+V -re kellene, mert nincs idő jobbklikkelgetni meg még listából válogatni hogy mit is akarok a beillesztéssel. (Office 2007 amúgy)
Köszönöm!
Panasonic G450 > Siemens M35i > Ericsson T65i > Siemens CXV65 > Samsung X710 > Nokia 2110 (ellopták mindenem...) > SE W800i > Nokia E66 > Motorola Defy (MB525) > Sony Xperia SP > LG G4 > Huawei P20 Pro > Xiaomi Mi 11 lite 5G
-
nimmy001
csendes tag
Sziasztok!
Volna egy kérdésem:
Tegyük fel, hogy van egy 200 soros táblázatom, de nem biztos, hogy végig van adat. Ahol van adat, azokban a sorokban jobboldalon jelöljük a különféle folyamatokat jelölőnégyzettel (több oszlopban), ha valamelyik el van végezve. Ez rendben működik is szépen.
Meg lehet-e azt csinálni, hogy ha leszűrünk néhány sorra (AutoFilter), akkor ezeket a leszűrt sorokat egy kattintásra jelöljük, hogy az adott folyamat el van végezve? Nem akarom az összes folyamatot és az összes sort egyszerre jelölni, ez 1-1 folyamat oszlopához kellene csak, mert van, amit összesítve lehet nézni, de nem mindegyiket, van, amit csak egyenként, viszont amit összesítve lehet jelölni, arra jó lenne egy ilyen. Aztán ha másik sorokat is le akarnék szűrni és együttesen jelölni, akkor ugyanígy csak azokat jelöljük be, ami meg nem látszik, ahhoz ne nyúljon. Én valami gombos megoldásra gondoltam. A táblázatba minden nap más adatok kerülnek, úgyhogy mindig üresen indul és nem lehet tudni, hogy hányféle azonos típusú sor kerül bele és azokból hány sor lesz a végén. 200 sornál nincs több, de van, amikor pont ennyi, van, amikor kevesebb. Ha üres sor van, azt nyilván nem akarjuk jelölni sehol.
Szóval az a lényeg, hogy ha leszűrnénk azonos típusú sorokat, azokat egy kattintásra be lehessen jelölni, mondjuk elsőre csak az egyik oszlopban (de ha több oszlopba is kell, akkor oszloponként) és mindig csak a láthatókat.Remélem, érthetően írtam. :-)
-
basaharc502
aktív tag
Hali!
Van egy excel táblázatom, amibe folyamatosan írkálok adatokat. Azt meg tudom nézni, hogy egy cellába, vagy sorba az adott adatot mikor (tehát dátum szerint) írtam be? Vagy ilyenre esély sincs...
[ Szerkesztve ]
-
kopogo
tag
válasz basaharc502 #18903 üzenetére
hello
az nem elég hogy maga a doksi mikor lett utoljára mentve,és ki mentette?
-
Delila_1
Topikgazda
válasz basaharc502 #18903 üzenetére
Akkor tudod megnézni, ha a beíráskor rögzítetted a dátumot. Ezt megteheted billentyűzetről, de a laphoz rendelt makró be is írhatja.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'A oszlop változása
Range("B" & Target.Row) = Date 'dátum a B oszlop azonos sorába
End If
End SubEz a makró az A oszlop – Columns(1) – változását figyeli, és a B oszlop azonos sorába írja be az aktuális dátumot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rii
nagyúr
ügyfél volt szives elb.szni az excel-t
rossz oszlopot osztottak rossz oszloppal
hogy lehet átírni a Q-t R-re 570 soron át egyszerre?
piros-kapszula: https://www.youtube.com/watch?v=oW-VZVYohRg
-
brumollis
csendes tag
Sziasztok! A következőkben szeretnék segítséget kérni.
Van egy excel tábla: az első oszlop a képeké, a második a kódoké, a harmadik a megnevezéseké. Szeretném, ha minden kódhoz a megfelelő képet illesztené be a cellába. A képek hálózaton vannak, de a képek elnevezései azonosak a kódokkal.A kép elérési útvonala ilyesmi( ActiveSheet.Pictures.Insert( _
"L:\XXXXX\YYYY\ZZZZZ\WWWW\300049.jpg").Select
Selection.ShapeRange.ScaleHeight 0.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeftHa tudtok segíteni az megköszönöm, ha nem hát kutakodok tovább.
-
rtom
senior tag
Szevasztok!
Egy makróm nem akar működni, de nem értem miért áll meg a debug a Range("B21:B" & usor). Select sornál.
A kód:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim usor As Long
Dim lapnev As String
If Range("A2") <> Empty And Range("A4") = "OK" Then
Range("D2").Select
Selection.Copy
lapnev = Range("F2")
Sheets(lapnev).Select
usor = ThisWorkbook.Sheets(lapnev).Range("B21:B" & Rows.Count).End(xlDown).Row + 1
Range("B21:B" & usor).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("beolvas").Select
Range("A2").Select
Selection.Clear
End If
End SubSzerk.: a kiemelés nem látszik programkódban...
[ Szerkesztve ]
-
Mutt
aktív tag
Hello,
...miért áll meg a debug a Range("B21:B" & usor). Select sornál....
Az egyik probléma, hogy az usor-t rosszul határozod meg.
A .Range("B21:B" & Rows.Count).End(xlDown).Row + 1 azt mondja, hogy menjen el az utolsó sorba és használja a következőt, az utolsó után már nincs sor.Ha a B21 után használt utolsó cella sora kell, akkor xlDown helyett xlUp-ot használj.
A másik probléma itt, hogy a .Range("B21:B" & Rows.Count).End nem jó, mivel azt csinálod hogy B21:B1048576-os tartományt kijelölöd, a kurzor továbbra is B21-ben van, de nyomsz egy END-et vagyis elugorsz végre B1048576-re. Ez így felesleges, egy lépésben csináld: Range("B" & Rows.Count).End
A kódban a Selectek miatt nem lehet követni, hogy éppen hova akarsz dolgozni. Valójában az aktív lapod nem változik, maradsz a beolvas-on, ezért javaslom, hogy rendesen írd ki, hogy éppen hol akarsz módosítani.
pl. Range("B21:B" & usor).Select helyett
ThisWorkbook.Sheets(lapnev).Range("B21:B" & usor).SelectVégül pedig lehet pár dolgot egylépésben is csinálni.
Range("D2").Select
Selection.Copyhelyette:
Range("D2").CopyVagy a végén:
Sheets("beolvas").Select
Range("A2").Select
Selection.Clearhelyette:
Sheets("beolvas").Range("A2").ClearItt van a javított változat:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim usor As Long
Dim lapnev As String
If Range("A2") <> Empty And Range("A4") = "OK" Then
Range("D2").Copy
lapnev = Range("F2")
Sheets(lapnev).Select
usor = ThisWorkbook.Sheets(lapnev).Range("B" & Rows.Count).End(xlUp).Row + 1
ThisWorkbook.Sheets(lapnev).Range("B21:B" & usor).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("beolvas").Range("A2").Clear
End If
End Subüdv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
atila4
senior tag
Sziasztok! Segítséget szeretnék kérni.
Van egy excel táblázatom. Nem nagy dologról van szó, csak vezetek egy nyeremény listát napi bontásban.
1 cella: tét
2 cella: a szorzó
3. cella: a nyeremény
4. cella: nyereség
5 cella: nyert/vesztett
6 cella: +-ba vagy -ba sikerült a nap
7 cella: eddig nyert pénzNa már most ez megvan oldva úgy, hogy beírom a tétet és a szorzót akkor kiszámolja a napi nyereséget és a nyereményt. Itt akarok egy olyant, hogy csak akkor számolja ki ezeket az adatokat ha én az 5-ös cellába beírom azt, hogy Nyert. Ha vesztett akkor ne számoljon semmit csak vonja le a tét-et az eddig nyert pénzből(7 cella)
Remélem értitek is és tudtok is segíteni!
Előre is köszönöm!
Üdv!Windows 10 / Galaxy S 7 / Asus ROG
-
atila4
senior tag
Köszi! Sokat segítettél
Windows 10 / Galaxy S 7 / Asus ROG
-
vioo
csendes tag
Kedves ExcelGuruk!
Segítségeteket szeretném kérni a következő problémámra: hogyan lehet megoldani egy másolás során, hogy az relatív legyen, vagyis minden következő beillesztés eggyel több legyen az előzőnél?
Konkrétan: vagy egy 56 munkalapos excel fájlom. Az első, Havi leolvasás fülön az U oszlopban 30-tól 84-ig azok a számok, melyeket az összes többi munkalap (L22, L23, L24, .... L55) M33-as cellájába szeretném átmásolni úgy, hogy az
L22 munkalap M33-ba a Havi leolvasás fül U30-as összegét, az
L23 munkalap M33-ba az U31, a
L24 munkalap M33-ba az U32... és így tovább, az utolsó, vagyis
L79 munkalap M33-ba az U84 cella tartalma.Tkp. azt szeretném, hogy az L22 lap M33-ba beírom, hogy ='Havi leolvasás'!U30 és a következő lapon, az L23 M33 cellájába bemásolom ugyanezt a képletet, de már U31 legyen és így tovább.
Azt nem írhatom, hogy =('Havi leolvasás'!U30)+1, mert azt az U30 cella értékéhez adja hozzá és nem a képlethez.
Eddig azt csináltam, hogy a fenti képletet bemásoltam az összes lap M33 cellájába, majd manuálisan javítottam minden egyes lapon az U30-at 31-re, 32-re, stb., de ez így nagyon hosszadalmas, ráadásul sokszor van rá szükség. Biztosan van rá okos megoldás, esetleg függvény; netán lehet variálni valamit a S1O1 formátummal?[ Szerkesztve ]
-
Delila_1
Topikgazda
Ahogy Föccer írta, indirekt függvénnyel oldható meg.
Az L... lapjaidon használd segédcellaként a T1 és T2 cellákat.
T2-be az egyes lapokon azt a számot írd be, ahonnan a sorszámot kell vennie az M34-nek, tehát az L22 lapon 30, L23-ban 31 legyen.
A T1 cella mindegyik lapon az első lapod neve, Havi leolvasás. Ezt egyszerűen, egyszerre beviheted az összes lapra. Kijelölöd az L lapjaidat együtt – L22-re katt, Shiftet nyomva tartva L55 fülére katt –, és az éppen aktuálisba beírod a lapnevet.
Még mindig együttes kijelölésben az M34 cellába írd be a képletet: =INDIREKT("'" & T1&"'!U"&T2)
Leírom szóközökkel, úgy jobban látszik.
=INDIREKT(" ' " & T1 & " ' !U" & T2)Ezzel kész, de feltétlenül oldd fel az együttes kijelölést úgy, hogy a jelöletlen, Havi leolvasás lap fülére kattintasz, másképp minden beírás, törlés az összes L lapodon végrehajtódik.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
markusok
csendes tag
Sziasztok!
Szakdolgozatomhoz egy makrós Magyarország térképet szeretnék elkészíteni Excelben. Angol oldalon láttam hozzá elkészítési vázlatot, meg is tudtam csinálni, de nekem a makró futtatásánál hibát ír ki Run-time error '-2147024809 (80070057)'. Erre a sorra ír hibát: ActiveSheet.Shapes(Range("actReg").Value).Select
Kezdő vagyok makrók terén, ha valaki meg tudná oldani ez a hibát vagy megoldási javaslata van, akkor azt szívesen venném.
A fájl publikus, itt érhető el: [link]Köszönöm előre is!
-
m.zmrzlina
senior tag
Létezik a ThisWorkbook.Path ami visszaadja makrót tartalmazó munkafüzet elérési útját.
Nekem azonban az eggyel felljebb lévő alkönyvtár elérési útjára lenne szükségem, illetve egy abban az alkönyvtárban lévő fájlra szeretnék hivatkozni. Az nem megoldás, hogy fixen megadom az elérési utat mert az mindig változik.
Az a kérdésem, hogy van-e a képletek relatív hivatkozásához hasonló módszer erre a célra, vagy bűvészkedjek azzal, hogy a ThisWorkbook.Path által visszaadott sztringben az utolsó "\" utáni részt lecserélem a hivatkozni kívánt munkafüzet nevére?
-
Delila_1
Topikgazda
válasz m.zmrzlina #18922 üzenetére
Mit szólsz ahhoz, ha kitallózhatod a megnyitandó fájlt?
Private Sub Megnyit()
Dim FN As String
FN = Application.GetOpenFilename(filefilter:="Microsoft Office Excel 97-2003 munkalap(*.xls),*.xls", FilterIndex:=2, Title:="Select Database file", MultiSelect:=False)
If Not FN = "False" Then
Workbooks.Open Filename:=FN
MsgBox "Megnyitottad a fájlt, és aktív"
Else
MsgBox "Nem nyitottad meg a fájlt"
End If
End SubNem tudom, melyik verziót használod, a 2003-as, xls kiterjesztésűt tettem bele.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
m.zmrzlina
senior tag
válasz Delila_1 #18924 üzenetére
Köszi a választ.
Időközben született egy megoldás ami úgy látszik működik:
Workbooks.Open Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "forrásadatok.xlsx"
Mostmár csak az a kérdés, hogy mindenképpen meg kell-e nyitnom ezt a fájlt ahhoz, hogy definiáljak benne egy tartományt,
Set rngTartomány = ActiveWorkbook.Worksheets(2).Range("C1:C51")
vagy lehet-e másképp is?
-
Delila_1
Topikgazda
válasz m.zmrzlina #18925 üzenetére
próbáld meg, hogy az
ActiveWorkbook.Worksheets(2).Range("C1:C51")
sorban az aktív füzet helyett a másikra hivatkozol, útvonallal és kiterjesztéssel.
Nem hiszem, hogy sikerülne, mert a nevet a másik fájlban kell bejegyezni, ahhoz pedig meg kell nyitnod.
Egy megnyitatlan fájlból lehet olvasni, de írni bele nem valószínű.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
nimmy001
csendes tag
Sziasztok!
Excel makróban lehet olyat csinálni, hogy egy cellába beírt értéktől függően fusson le egy makró (pl. megnyit egy másik fájlt attól függően, mi a cella értéke)? Nem akarunk gombokat meg billentyűkódot használni, automatikusan kéne működnie, ha nincs a cellának tartalma, ne csináljon semmit, ha kerül oda tartalom, akkor meg csináljon.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz nimmy001 #18929 üzenetére
A laphoz kell rendelned az eseménykezelő makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "pityipalkó" Then
'Másik fájl megnyitása, stb.
End If
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.
-
Poctar
senior tag
Sziasztok!
Rég használtam már az excelt és szükségem lenne egy kis segítségre .
A problémám a következő:
Adott 3 oszlop több száz sor fix adattal.
B oszlopban szöveges adatok találhatóak, míg a C-ben számok (Ezek a B-hez vannak "társítva" értelemszerűen...).
A oszlop egyezik B oszloppal annyi különbséggel, hogy jó néhány adatsor eltávolításra került.
A feladat az lenne, hogy a C oszlopban található számokat kellene társítani az A oszlopban található adatokkal (a B-nek megfelelően).Azaz ha B-ben xy=100 akkor írja ki A oszlop xy adata mellé, hogy 100 (pl D oszlopba).
-
Poctar
senior tag
m.zmrzlina
Készítettem egy példa táblázatot, ahol az A és B oszlopban található szöveges adatott szövegként tüntettem fel (a gyorsabb kitöltés miatt).
Íme a kép.A lényeg, hogy az A oszlop frissebb, mint B. Azaz a B-ben régi adatok (sorok) vannak, melyek már A-ban nincsenek. De a megmaradt adatok ugyanazok. Ez érthető?
lappy:
Az Fkeres függvénnyel nem sikerült megoldani, ahogy a képen is látszik.[ Szerkesztve ]
-
kovalasz
újonc
Sziasztok!
Vonalkód olvasó vs Excel 2003 laptopon! Symbol vonalkód olvasó USB csatlakozással bármely asztali gépen többféle op. rendszeren több féle excel verzión is tökéletesen olvassa a vonalkódokat, a kereső ablakba is, majd utána a találati cellára kerül a fókusz. De laptopon (eddig már 6 különböző eszközön) ha az excel aktuális cellájába jól is olvassa be a vonalkódot, a keresőablakban már nem. Pl. 326Y000715 helyett csak ennyit: 326715. De, hogy cifrázzam, a laptopokon notepad, wordpad és bármilyen egyéb szövegbeviteli mezőben tökéletesen olvas, csak az excel keresés mezőjébe nem.
Ha valaki tud erre megoldást, nagyon megköszönöm, mert többen vagyunk a témán már napok óta... -
-
rtom
senior tag
Sziasztok,
újfent elakadtam, van egy makrós excel táblám, ami a bevitt adat függvényében választja meg, hogy melyik sheetre kell másolni. Mivel előtte pár dolgot lecsekkolnék, így szükségem lenne egy fkeres-re is, de azt nem tudom, hogy lehet hivatkozni a függvényben egy sheetnévre.
Tehát e helyett
=HA(HIBÁS(FKERES(D2;'Munka3'!B21:B34;1;HAMIS));"OK";"NOK")
lenne szükségem egy olyan megoldásra, ahol a sheet nevét ami jelenleg Munka3 mondjuk a G2 cellából veszi a függvény. Remélem érthető.
[ Szerkesztve ]
-
rtom
senior tag
Még egy kérdés: makróból lehet a nyomtatást úgy paraméterezni, hogy egy bizonyos nevű hálózati nyomtatóra printeljen?
-
rtom
senior tag
-
hallgat
csendes tag
Sziasztok!
Segítséget szeretnék kérni egy egyszerűbb makróban, ami mégis kifogott rajtam
Van egy 190 oszlopból és 1422 sorból álló Excel 2010 táblám.
Minden harmadik sora tartalmaz, vagy nem tartalmaz adatot.Törölni szeretném az adatot nem tartalmazó cellákat a fölöttük lévő további két cellával egyetemben úgy, hogy a fennmaradó cellákat tolja el balra.
Úgy indultam el, hogy egy ciklusba betettem i= utolsó sornak az ellenőrizendő utolsó sort (1422), végnek a 3. sort (azaz az utoljára ellenőrizendőt), lépésköznek pedig -3-at, mert csak minden 3. sorban kell cellákat ellenőrizni.
Ezt követően ellenőriztetem az értékét 1422.sor, GH cellájának (190. oszlop), ami ha üres, vagy nulla, akkor törölni kellene cellák balra tolásával GH1422:GH1420 3 cellát, majg ugrani a következő ellenőrizendő cellára, azaz GG1422-re.
Ha ezzel a sorral végzett, kéne kezdenie GH1419 ellenőrzésével és szépen végig az egész soron és felfelé a táblázatban.Sajnos a szintaktikán elvéreztem, nagyon béna vagyok...
A segítséget előre is köszönöm!!!!!!!!!!!!!!!!!!!!
[ Szerkesztve ]
Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
rtom
senior tag
válasz kovalasz #18939 üzenetére
Nem biztos, hogy segít, de nálam a nyelv/karaktertábla állítgatásával teljesen más karaktersort olvas be a kódolvasó, mivel ezeket az eszközöket billentyűzetként kezelik a PC-k.
Egyébként furcsa élményeim vannak scanner-ekkel, az egyik típusnál beolvasok A1-be, akkor a karaktersort automatikusan másolja B1-be is, illetve gondolom, ha az excel lefelé léptetésre lenne beállítva, akkor az A2-be kerülne. A fele annyiba kerülő, "buta" típussal viszont vígan, gond nélkül dolgoznak. Ugyanez az olvasó ma lepett meg azzal, hogy a lapvédett oldalamon a cellát, amibe beolvastam, zárolta és így a következő beolvasás persze már nem működik
-
superecneB
őstag
Üdv,
Kifogytam az ötletekből.
Hogyan tudnám a képen illusztrált "parancsot" kiadni?
Szeretném a jelenleg a "B" oszlopban lévő nevek mellet ("C" oszlop) lévő számokat a nevek alá a "B" oszlopba illeszteni. Lényegében össze szeretném fűzni a két oszlopot, vagy összefésülni, ha úgy jobban tetszik.
Van erre Excelen belül valami parancs, vagy valami egyéb "kényelmes" megoldás? -
detroitrw
addikt
válasz superecneB #18949 üzenetére
irányított beillesztés az üresek átugrása funkcióval
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!