Hirdetés
- TCL LCD és LED TV-k
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- Apple MacBook
- Milyen alaplapot vegyek?
- DUNE médialejátszók topicja
- Kormányok / autós szimulátorok topikja
- Amlogic S905, S912 processzoros készülékek
- Bluetooth hangszórók
- Úgy állhat le a 16 GB-os GeForce RTX 5060 Ti gyártása, hogy közben nem áll le
- Hogy is néznek ki a gépeink?
-
PROHARDVER!
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
-
#29700
coldfirexx
tag
Sziasztok!
Lenne egy kódom:
Sub AUTOMANUAL()
valasz = MsgBox("Automatikusan futtatja a riportot?", vbYesNo)
If valasz = vbNo Then
Sheets("ZUTERT").Visible = TrueElse
Sheets("ZUTERT").Visible = FalseEnd If
End SubMikor futteni akarom a kódot ezt a hibát adja:
expected variable or procedure,not moduleMiért van ez?
-
#29697
deka1
csendes tag
m.zmrzlina
#29696
deka1
csendes tag
válasz
m.zmrzlina
#29696
üzenetére
Úgy kell elképzelni, hogy van egy szállítólevél és azon nem sikerült feltüntetni néhány esetben az utolsó 3 karaktert, ami minden esetben három nulla, mivel technikai akadályba ütközött.
Ha jól értem, akkor csak a HA és az ÖSSZEFŰZ függvényt kombinálom, csak az összefűz nem jutott eszembe.
-
#29696
m.zmrzlina
senior tag
deka1
#29693
m.zmrzlina
senior tag
Úgy értsük, hogy ha 1 karakter a számsor akkor is 3 nullát rakjon meg akkor is ha 6 karakter a számsor?
Esetleg úgy, hogy a 7 karakternél rövidebb számsorokat töltse fel hét karakterre nullákkal?
Az eredménynek ugyanabban a cellában kell megjelennie amiben a rövidebb szám van, vagy mehet másik cellába is?
-
mcwizard
tag
Sziasztok!
A következőben kérném a segítségeteket:
Megoldható-e az valamilyen képlettel, hogy az összes mezőből csak azokat vonódjanak ki, amely értékek mellett valamilyen színnel kitöltött cella van és ezt megkapjam a maradék mezőbe?
Előre is köszönöm az esetleges segítséget!
-
gaben1117
senior tag
Sziasztok!
2010-es excelt használok. Szeretnék adatokat csoportosítani egy adott táblán belül. Nem kell összesítést csinálnia, csak azt szeretném ha összecsukhatóak és kinyithatóak lennének az adatok.
Van arra bármilyen lehetőség, hogy ne csak teljes sorokat/oszlopokat tudjak csoportba rendezni, hanem a tábla közepén pl. egy x cellából álló területet?
Előre is köszönöm!
-
bara17
tag
Sziasztok!
Egy szerintem viszonylag egyszerű kérdéssel fordulnék hozzátok:
Egy oszlopban számok vannak ismétlődésekkel 0-tól 10-ig. Az oszlop mellé szeretném rakni, hogy az adott szám hányadik legnagyobb, de úgy hogy ne legyen "sorszám" kihagyva. Tehát ha pl. van az oszlopban 2 db kettes, 1 db egyes, 2 db hatos és 4 db négyes akkor az egyes mellék kerüljön egyes, a kettes mellé kettes a négyes mellé hármas a hatos mellé meg négyes (felöltöttem egy mintát remélem az alapján érthető).
Köszönöm előre is.
-
Szicskeee
tag
Sziasztok!
Segitsegeteket szeretnem kerni ebben az excelben:
https://onedrive.live.com/redir?resid=78E471405DAD6CA!19296&authkey=!AMbf6FkgFoft_6w&ithint=file%2cxlsx
Igy szertnem megoldani,hogy az adott honap ertekeit atvegye az elso fulrol:
Valaki tud segiteni vagy egy jo otletet adni?
-
#29684
commanDOS
senior tag
batmanéhes
#29683
commanDOS
senior tag
válasz
batmanéhes
#29683
üzenetére
Aha. Akkor jó nyomon haladtam, mert megpróbáltam én is bal függvénnyel és csináltam egy Fkeres táblázatot, de ott v.miért #hiányzik jött be. Az FKERES önmagában működik az adott számmal, de ha a bal függvényből kapja ugyanazt az értéket, mondjuk:3630, akkor #hiányzik-ot ad válaszul.
-
bsh
addikt
válasz
Polllen
#29677
üzenetére
az első sorban a Cells()-ek kontextusa nincs kvalifikálva. helyesen:
Worksheets("Layout").Range(Worksheets("Layout").Cells(1, 1), Worksheets("Layout").Cells(1, wk)).Copy Destination:=Worksheets("Munka2").Range("A1")
hasonlóképpen furcsaságok lehetnek, ha a wk változó sincs az adott kontextusban definiálva.a második verzióban még az eleje is rossz:
Worksheets(ws1).Range(Cells(1, 1), Cells(1, wk)).Copy...
helyesen:
ws1.Range(Cells(1, 1), Cells(1, wk)).Copy... -
commanDOS
senior tag
Sziasztok!
Próbáltam visszakeresni, de nem igazán tudom hogy közelítsem meg a problémát, így nem találtam hasonlót.
Szeretnék készíteni egy olyan képletet, ami a telefonszám első karaktereit felhasználva egy híváslistából besorolja a számokat mobil/helyi/távolsági hívások közé. Magyarán van egy oszlopom telefonszámokkal és a mellette lévő oszlopba egy +3620 kezdetű számhoz hozná a "mobil"-t, egy +36xx-hez a "távolságit" és így tovább.Megoldható ez? FKERES függvénnyel próbálkoztam, de nem jutottam előbbre.
-
Polllen
félisten
Sziasztok!
Ez a sor a változó(k) definiálása után csak akkor nem dob application defined error-t ha a Layout fül ki van választva:
Worksheets("Layout").Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")Ha helyettesítem egy változóval:
Dim ws1 As Worksheet
Set ws1 = Worksheets("Layout")
Worksheets(ws1).Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")Akkor pedig Type missmatch...
Mi a helyes megoldás anélkül, hogy beírnám elé, hogy Worksheets("Layout").select?
Még annyi, hogy az eredeti kód változó nélkül szépen lefut:
Worksheets("Layout").Range("A1:T3").Copy Destination:=Worksheets("Summary").Range("A1") -
haslam
csendes tag
Sziasztok!
Magyar nyelvű office-van telepítve 2010 és 13-is de vmiért az excelben nincsenek magyar mértékegységek és általában a függvények sem működnek pl. ; után sem. Az oprendszer angol win 8.1 de magyar a billentyűzet beállítás. Mi lehet a gond?
Köszönöm,
-
Louro
őstag
válasz
theo_76
#29669
üzenetére
Szia,
ha egy listában akarod megoldani, akkor egy munkalapon gyűjtsd össze az irányítószám-város listát, majd ahol a validáció van, ott csinálj listát.
Ha "egy adatos", elegánsabb listát szeretnél, akkor csinálnék egy városlistát, majd az előtte/utána levő cellába pedig egy VLOOKUP-pal hozzátenném az irányítószámot. ÍGy pivotolni szebb.
Legördülőre egy videó: [link]
Hosszú távon hasznos is lehet akár, hogy az excel képes kapcsolatot teremteni két legördülő között: [link]
Olyanról ÉN nem tudok, hogy lenne olyan funkciója, mint a weben az AJAX, hogy elkezded beírni és már ajánl.
-
theo_76
aktív tag
Egy másik kérdés... olyat lehet csinálni, hogy van egy legördülő listám, amibe irányítószám, és a hozzátartozó város van. Ezt úgy szeretném megoldani, hogy ha elkezdek beírni egy irányítószámot, akkor kezdje szűkíteni, vagy ugorjon a lehetséges elemre, és ne kézzel keljen kikeresnem a teljes listából a kívánt elemet.
-
-
-
bsh
addikt
válasz
Szicskeee
#29656
üzenetére
Sub CommandButton_Szamolj_Click()
Select Case Cells(1, 2).Value
Case 1
Call CommandButton1_Click
Case 2
Call CommandButton2_Click
Case 3
Call CommandButton3_Click
Case 4
Call CommandButton4_Click
'satöbbi...
End Select
End Sub
Sub CommandButton1_Click()
'...
End Sub
Sub CommandButton2_Click()
'...
End Sub
Sub CommandButton3_Click()
'...
End Sub
Sub CommandButton4_Click()
'...
End Sub
'satöbbi... -
Fferi50
Topikgazda
válasz
bobsys
#29652
üzenetére
Szia!
'"akkor mikor mar szetszedtem az osszes raklapot akkor a kor fele ilyen a fele olyan, tehat 200 a teljes a kor"
Ez a természetes, hiszen az A1 celládban mindig 100 marad az érték, csak a B1 cellában változtatod...
Ahhoz, hogy mindig 100 maradjon az összeg, egy harmadik cellába (C1) a maradékot is be kell tenned (A1-B1), a kördiagramot pedig a B1-C1 cellákra kell csinálnod.Üdv.
-
bobsys
veterán
Lehet bena kerdes, de hogyan oldom meg, hogy egy pie-chart mutassa, hogy hogyan is all a ket cella %-ban?
A1 - 100 (mitudomen ennyi raklapom van)
B1 - 10 (ennyit mar eltuzeltem)A kordiagrammnak pedig mutatnia kene, hogy 90 meg van 10 el lett tuzelve es a teljes kor adja ki a 100
Ha csak siman kivalasztom a kordiagramot akkor mikor mar szetszedtem az osszes raklapot akkor a kor fele ilyen a fele olyan, tehat 200 a teljes a kor. -
#29651
maggi1886076
addikt
maggi1886076
addikt
Sziasztok!
Visul Basicben és makróban vki tudna segíteni?
-
#29648
Fferi50
Topikgazda
the radish
#29645
Fferi50
Topikgazda
válasz
the radish
#29645
üzenetére
Szia!
=jobb("0" & Abs(A1);3)
Üdv.
-
-
#29646
Delila_1
veterán
the radish
#29645
Delila_1
veterán
válasz
the radish
#29645
üzenetére
=ha(a1<0;"-" & jobb("0" & a1;3);jobb("0" & a1;3))
-
#29644
Delila_1
veterán
the radish
#29643
Delila_1
veterán
válasz
the radish
#29643
üzenetére
Nincs mit.
-
#29641
Delila_1
veterán
the radish
#29640
Delila_1
veterán
válasz
the radish
#29640
üzenetére
=jobb("0" & a1;3)
-
#29640
the radish
senior tag
the radish
senior tag
Sziasztok!
Az alábbi formátumú kimenetet meg lehet oldani szöveg függvénnyel?
52 ====> 052 =SZÖVEG(CELLA;"000")
-16 ====> 016 =??
-
csferke
senior tag
válasz
Delila_1
#29637
üzenetére
Köszi Delila!
Időközben én is alkottam valamit ="04."&MONTH(A1)+1&"."&YEAR(NOW()).Picit nyakatekert.
Az EOMONTH() sokkal egyszerűbb. Mindig van még mit böngésznem az Excel help-ben.De azért, hogy ne legyen egyszerű az élet, újabb követelménynek kell, hogy megfeleljen az új dátum.
Tehát a következő hónap 3.-10.-ig az új dátumban nap és munkanap legyen, nem lehet szombat vagy vasárnap. -
DeFranco
nagyúr
-
lenkei83
tag
Sziasztok!
Van egy 49.000 soros és 12 oszlopos táblázatom, amibe szumházni kellene adatokat egy másik fülről több kritérium alapján, tehát valami szumhatöbb típusú megoldás kellene.
Ha televágom szumhatöbb képlettel, akkor hetekig fog számolni, azt nem szeretném, tehát valami Application.SumIfs megoldás kellene, viszont for each ciklussal az is elég lassú.Erre kellene valami megoldás, ha van valakinek kedve / ideje, megköszönném ha ránézne.
Köszi
P. -
válasz
Chrisluke
#29622
üzenetére
Nos igen. Értem. A helyzet az, hogy ezt csak úgy lehet megcsinálni, ha a képet, az aláírást kivéve átlátszóvá varázsolod. Vagyis kitörlöd ami nem kell, (lehet elég csak a kép azon részét, ami kitakar) és olyan formátumba mented el, amely támogatja a transparent formátumot. Tehát .png, vagy .gif... azt hiszem. Persze azt, hogy az excel ezt hogyan kezeli le, vagyis tényleg átlátszó marad, nem tudom.
Én is szoktam ilyen módszerrel jegyzőkönyvet készíteni, de ott úgy van kialakítva az aláírásnak a hely, hogy ne tudjon kitakarni semmit. -
spe88
senior tag
Hello,
Adott két oszlop:
A B
9905 1
9901 1
9902 2
9900 3
9903 1
9905 2
9905 6
9903 1
9901 9Azt szeretném, hogy a C oszlopban kiírna egy értéket, ami az adott szám (A oszlop) mellett lévő számot (B oszlop) összeadná azzal a B oszlopban álló számmal, ami mellett az A oszlopban ugyanaz áll!
Gyakorlatilag, mintha minden számra rászűrnénk és szummáznánk a B oszlopot!
Egyszerűbben:
A B C
9905 1 9
9901 1 10
9902 2 2
9900 3 3
9903 1 2
9905 2 9
9905 6 9
9903 1 2
9901 9 10Köszönöm
-
ZPC
csendes tag
Sziasztok!
Számomra komoly problémával fordulok felétek, félek hosszú leszek, bocsi.
Adott egy Excel2010-es file, 30 munkalappal. Minden lapon átlag 150 sorban egy "készletet" tartalmaz. Soronként 8 adat: cikkszám, megnevezés, db, ár stb., semmi különös, alap formátum. Ami extra, hogy minden sor első cellájában van egy kép a cikkről. Ezt egy honlapról másolgattam be: Képen jobbklikk/másolás => Excelben: Irányított beillesztés/Beillesztés: Bitkép. 100%-on 1,6 cm-esek a képek, vagyis kicsik, de mivel több száz cikkről beszélünk, ezért a fájl 90 megás. Minden oldalon van egy szövegmező, amivel rá lehet keresni a cikkszámra az oldalon, pici makró. A fájlt kb. két éve használom, egyre nagyobb lett, de a kicsit lassú betöltés után tökéletesen működött, két különböző gépen is használtam: WIN7 64, OFFICE2010 32bites.
Egészen két héttel ezelőttig: a munkahelyi gépemen simán müködik minden, az otthonin is szépen betöltődik, de amint rányomok a mentésre (még ha semmi sem változott) olyan, mintha lefagyna az excel. De nem, csak menteget, órákig!!! (Leteszteltem) Ezután már egy pillanat alatt ment, egészen addig amíg be nem zárom és újra meg nem nyitom, mert akkor újra ilyen hosszú! A benti gépemen továbbra is tökéletes.
Már régi volt a Win7-em, ezért gondoltam úgy is aktuális egy újratelepítés: új SSD-re WIN8.1 és először OFFICE2010 64bit aztán 32 bit de ugyan az a jelenség!!!!!!!!! A másik gépen hibátlan!!!!!
Olyan, mintha a megnyitás utáni első mentéskor a többszáz pici képpel molyolna valamit, de mit?! Nem az excelfájlban tárolódnak a képek hanem valahol egy rejtett könyvtárban és ezen a gépen nem találja?! Vagy mentéskor újratölti őket?! Vagy mi...?! De miért most, két év után és miért csak az egyik gépen, akkor is, ha zsír új minden?!
És a csattanó: előkerestem a fájl májusban arhívált, akkor hibátlan, csak két megával kissebb változatát és ugyan az a hibajelenség!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ilyen nincs!! Kérem segítsen valaki,mert tényleg begolyózom. Mégha többheti munkával létrehoznék is egy teljesen új fájlt, mi a garancia, hogy nem akad az is ki?
Kimondhatatlanul hálás lennék, ha valaki segítene, mert komoly munkám van benne és teljesen tanácstalan vagyok!
Előre is köszönöm!
-
#29625
Delila_1
veterán
m.zmrzlina
#29624
Delila_1
veterán
válasz
m.zmrzlina
#29624
üzenetére
Szívesen, örülök, hogy sikerült.
-
#29624
m.zmrzlina
senior tag
Delila_1
#29621
m.zmrzlina
senior tag
válasz
Delila_1
#29621
üzenetére
Nagyon köszönöm. Szépen működik. Sok finomhangolni való van rajta olyan dolgok miatt amit nem írtam le a kérdésben (így is hosszú volt) de alapvetően jól dolgozik.
A lényeg, hogy a létrehozott tartományban már sokkal könnyebb automatizálni a keresést és ez nagy segítség.
Köszi még egyszer, jár a
-
#29621
Delila_1
veterán
m.zmrzlina
#29610
Delila_1
veterán
válasz
m.zmrzlina
#29610
üzenetére
Amint megírtam a makrót, elszállt az internet, de most visszajött.
Sub Szetcincal()
Dim oszlop As Integer, usor As Long
Dim szoveg As String, betu As Integer
Dim szoveg1 As String, nagy As Integer
Dim ekezet As String
' Csere
With Columns("A:Z")
.Replace What:=",", Replacement:=""
.Replace What:=" ", Replacement:=""
End With
ekezet = "á,é,í,ó,ö,ő,ú,ü,ű"
For oszlop = 1 To 26 'A:Z oszlopok
Kezd:
szoveg = Cells(1, oszlop)
szoveg1 = ""
nagy = 0
For betu = 1 To Len(szoveg)
Do
If betu = 1 Then
szoveg1 = Left(szoveg, 1)
GoTo Tovabb
End If
If (Asc(Mid(szoveg, betu, 1)) > 96 And Asc(Mid(szoveg, betu, 1)) < 123 And _
betu > 1) Or InStr(ekezet, Mid(szoveg, betu, 1)) > 0 Then
szoveg1 = szoveg1 & Mid(szoveg, betu, 1)
Else
nagy = nagy + 1
usor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(usor, oszlop) = szoveg1
szoveg = Right(szoveg, Len(szoveg) - Len(szoveg1))
Cells(1, oszlop) = szoveg
GoTo Kezd
End If
Loop While nagy <> 0
Tovabb:
Next
Next
End Sub -
#29613
poffsoft
veterán
m.zmrzlina
#29612
poffsoft
veterán
válasz
m.zmrzlina
#29612
üzenetére
tudtommal nem.
esetleg helyette ez:[link] -
#29612
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Azt be lehet állítani valahol, hogy a validált lista lenyíló ablakában hány sor legyen látható egyszerre?
Most nyolcat látok görgetősáv nélkül és legalább tizenkettőt szeretnék. Ha nagyobb tartományt adok meg az adatérvényesítésnél Forrásnak akkor csak a görgetősáv hossza változik de az ablakban egyszerre látszó tételek nem.
-
#29610
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Feladat a következő:
Adott egy tartomány pl: A1:Z1. A cellákban szöveg (települések neve). Van cella amiben egy település neve szerepel van amiben ötvené ömlesztve. De szó szerint ömlesztve mert az elválasztó némelyik cellában <szóköz> máshol "," van ahol mindkettő. Ez a három konfig a legyakoribb. Van olyan is ahol semmilyen elválasztó nincs, hacsak a nagy kezdőbetűt nem tekintjük annak
Ezeket kellene szétválogatni makróval úgy, hogy a cella oszlopában egyenként egymás alatt legyenek.Ezt makró nélkül ugye a Szövegből oszlopok parancssal lehet cellánként megoldani (feltéve ha van egyértelmű elválasztó) majd másolás tranyszponálás. Ezt a rögzített makrót azonban nem tudom átírni úgy hogy működjön.
Az is jó lenne, ha keresni tudnék ebben a szénakazalban. Ezzel pedig az a bajom, hogy ha pl Eger-t keresem és az benne van másik tíz településsel együtt egy cellában akkor azt nem találja meg ha be van kattintva a "Ha ez a cella teljes tartalma" box. Illetve ha nincs bekattintva akkor talál még másik n+1-et (pl amiben szerepel Egercsehi, Egerszólát stb...)
Az adatok agyobb része html-ből más része pdf-ből CtrlC-CtrlV-vel lett Excelbe írva ezért a sokféleség.
Valamiért azt érzem, hogy ez nem lesz rövid projekt
-
#29608
Delila_1
veterán
m.zmrzlina
#29600
Delila_1
veterán
válasz
m.zmrzlina
#29600
üzenetére
Az =A1=B1 képlet IGAZ, vagy HAMIS eredményt ad, nem szükséges HA függvénybe beágyazni.
-
#29607
poffsoft
veterán
m.zmrzlina
#29604
poffsoft
veterán
válasz
m.zmrzlina
#29604
üzenetére
megpróbálom.
Köszi!
-
Fferi50
Topikgazda
válasz
hengelhof
#29601
üzenetére
Szia!
Ha csak két 0 lehet előtte, próbáld meg az alábbi szövegfüggvény kombinációval:
=HA(BAL(A1;1)="0";HA(KÖZÉP(A1;2;1)="0";JOBB(A1;HOSSZ(A1)-2);JOBB(A1;HOSSZ(A1)-1));A1)Az eredeti szám legyen szövegformátum (mert egyébként már beírás után átalakítja tudományossá), a képlet eredménye mindig szöveg lesz.
A tudományos beállítás mellőzését sajnos nem tudom, hogyan lehet megoldani (ugyanez igaz az automatikus dátummá alakításra is ....
Üdv.
-
#29602
m.zmrzlina
senior tag
irodakukac
#29599
m.zmrzlina
senior tag
válasz
irodakukac
#29599
üzenetére
Egy kicsit más megoldás, ha az eredeti munkafüzetben elnevezed a megnevezés oszlopot pl "original"-nak
A visszaküldött fájl egy szabad oszlopába pedig mehet a következő képlet: /persze csak ha a visszaküldöttben A1-ben kezdődik a megnevezés oszlop.
=HA(DARABTELI(EredetiMunkafüzet2.xlsx!original;A1)=1;"egyezik";"nem egyezik")
-
#29601
hengelhof
senior tag
m.zmrzlina
#29600
válasz
m.zmrzlina
#29600
üzenetére
Kezdek megőrülni. Van egy oszlopban x db hexadecimális szám. Szeretném egy egyszerű csere paranccsal kiszedni előlük a nullákat. Ezzel nem is lenne gond. De az excel, a cseréknél átalakítja az E betűt tartalmazó cellákban az adatokat tudományosra. Már megpróbáltam neki szövegformátumot adni, de fittyet hány rá. Legalább kérdezne rá.
Ki lehet ezt valahol kapcsolni?
Ezeket kellene szétválogatni makróval úgy, hogy a cella oszlopában egyenként egymás alatt legyenek.
Ki lehet ezt valahol kapcsolni?
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest