Excel kérdés
Jelentkezz be a hozzászóláshoz.
Légyszives világosítsatok fölfelé, hogy mondjuk a folyamatosan bõvített, egyszavas cellákat az 50-edik sornál kezdje új oszlopban. Próbáltam a Beszúrás/törés hadmûveletet, de nem jött össze. Ez azért lenne nagyon hasznos mert akkor az egy oszlopban lévõ szavakat nem kellene folyton másolgatni egymás mellé. (oldalbeállítás?)
Tíz1000szer köszi!
Az igazi barát nem hátba... hanem mellbe döf!
Excel dilemma--> nyelvtanuláshoz szándékozom valamiféle szótárat összeütni... ez a kisebbik baj, ezt megoldom sima beirogatással. 😊
A kérdésem imígyen hangozék: Egy oszlopban egymás alá bepötyögött szavakat szeretném egy másik oszlopban úgy megjeleníteni, hogy összevissza, véletlenszerûen sorolja fel azokat. Erre a sajátmagam tesztelése kényszerít, mert ha mindig ABC sorrendben gyakorolom akkor úgy megszokásból irogatok.
Kérem, valaki segítsen, ötleteljen!
Köszönöm: TókeszMukesz
Az igazi barát nem hátba... hanem mellbe döf!
www.rdha.hu [bf 80k] [bf2 100k] KisKöcsögkör FTW! \"Az ország azé, aki teliszüli.\"
Nem szükséges ehhez makró, a RÉSZÖSSZEG függvény megadja a darabszámot.
=RÉSZÖSSZEG(2;A2:A1000), ahol a 2-es függvényszám tudatja a függvénnyel, hogy darabszámot kell visszaadnia.
Ezzel a függvénnyel több dolgot (összegét, maximumát, minimumát, átlagát, szórást, stb.) tudhatsz meg a megadott tartományról, az eredmény a függvényszámtól (1-11) függ. A súgóban megtalálod a felsorolást.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Sub LáthatóDarab()
Dim usor As Integer
usor = Range("A1").End(xlDown).Row
Range("A2:A" & usor).Select
Db = WorksheetFunction.CountA(Selection.SpecialCells(xlCellTypeVisible))
MsgBox Db
End Sub
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
köszi 😊
Inkább rendeld egy gombhoz az adopaste makrót, ami csak a gomb megnyomására indul.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Forumotok segítségével írtam egy makrót, most szeretném, ha akkor kezdene futni amikor az egyébként üres sheet1 re bemásolok egy táblázatot, valamint miután lefutott utána bármit módosítok többet ne futassa a makrót Betettem egy ilyesmit, hogy:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Run ("BacsiLista1.xlsm!adopaste")
End Sub
De ahogy csinálok valamit a fülön egészen a következõ hibaüzenetig futatja a makrót:
Run time error 28
Out of stack space
Tudtok ebben segíteni?
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
belinkelnéd nekem a makrós megoldások elérhetõségét?
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
lehet lehetne rá írni makrót, de most nincs idõm rá, s lehet nem is menne.
elküldök egy excelt Neked! abból rá fogsz jönni hogy kell
(ha az alap fülre bemásolod az adatokat, s az 1 lépésnél kitöltést használsz akkor menni fog :-) a 2. lépéstõl meg menni fog Neked a mozgatás s a sorba rendezés.
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
s a megoldásban 1 cellában kellenek?
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Adott egy excel táblázat ami ilyen sorokat tartalmaz:
1_név adat1 adat2 adat3 adat1a adat2a adat3a
2_név adat1 adat2 adat3 adat1a adat2a adat3a
ebbõl kellene ilyet kialakítani:
1_név adat1 adat1a
1_név adat2 adat2a
1_név adat3 adat3a
2_név adat1 adat1a
2_név adat2 adat2a
2_név adat3 adat3a
Hogyan lehetne ezt megoldani?
Köszönöm a segítséget
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Tudsz olyan helyet, amit támogat az SG?
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
a többi már jó 😊
(ezek nem nagy képek, a saját galériádba is lehet)
¥ xfire: kistekila
Halmozott oszlopdiagramot kell ábrázolnom, ahol az egyik
oszlop három komponensû, a másik pedig csak egy.
Hogyan lehet azt megvalósítani, hogy az értékbevitelnél - a második oszlopnál a növekményénél - nullát adhassak meg, ne egy fals (0 értékkel rendelkezõ cellahivatkozást...)
Az A1:J1 tartományban vannak a lapnevek, alattuk a képletek.
Nálam a lapok A28 cellájában van a napi összegzés.
Valaki mesélje már el a kép csatolásának a menetét, nem tudok rájönni a nyitjára.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
A diagramhoz az új lap elsõ sorába (de lehet máshova is) vidd be a lapjaid nevét.
[/img]
Az A2 képlete: =HA(HIBÁS(INDIREKT(A1&"!$A$28"));0;INDIREKT(A1&"!$A$28"))
ezt másold jobbra.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
1kérdésem lenne remélem tudtok segiteni😊 (office 2007)
diagrammot hogy tudok csinálni több munkalapra?
arra gondolok hogy a munkalapjaim napok minden nap végén van 1 összegem és ebbõl szeretnék a legvégén(havi szinten) egy diagrammot
csinálni viszont az adattartomány kijelölésénél ha több munkalapot választok ki (pl igy néz ki ='Munka1:Munka3'!$A$1) akkor azt írja hogy a beírt képlet hibás
-addig eljutottam hogy ha külön munkalapra összeszedem az adatokat ugy tudok diagrammot csinálni viszont nekem ugy kellene hogy ha beszurok még munkalapokat akkor ezeket is adja hozzá a diagrammhoz
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Ebben az esetben a Sheets("Munka2").Rows("2:1000").Hidden=False sor nem kell.
<#integet2>
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Mivel a másik lapon szintén rejtettek lesznek, a makró végén fel kell oldani ezt.
Sub RejtettSorok()
sor_1 = 2
usor = ActiveSheet.UsedRange.Rows.Count
For sor = 2 To usor
If Rows(sor).Hidden = True Then
Rows(sor).Copy Sheets("Munka2").Cells(sor_1, 1)
sor_1 = sor_1 + 1
End If
Next
Sheets("Munka2").Rows("2:1000").Hidden = False
End Sub
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
2. Feltételes formázás képlet alapján, képlethez írd be:
=párose(
pl: =párose(b2*100)
A cella az legyen, amire ráálltál.
3. Állítsd be a zöld színt
4. Formátummásolóval másold át a feltételes formázást az alkalmazandó cellákra
www.rdha.hu [bf 80k] [bf2 100k] KisKöcsögkör FTW! \"Az ország azé, aki teliszüli.\"
Feltételes formázással oldd meg, hogy a páros %-értékek zöld számokkal jelenjenek meg
Ezt hogy lehet megvalósítani?
Köszönöm. Neked, és minden más fórumtagnak BÚÉK!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Mindenkinek Kívánok én is Boldog Új Évet
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Boldog Új Évet Kívánok neked és a többi fórumtagnak.
Neked, és a többi fórumtagnak is boldog újévet kívánok.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
akkor átírom õket, mert eddig a sorszám fv-nyel csináltam meg :-)
Boldog újévet Neked! s örök hála :-)
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 And Target.Row < 21 Then
Cells(Target.Row, 3) = Application.WorksheetFunction.Max(Range(Cells(2, Target.Column + 1), Cells(20, Target.Column + 1))) + 1
End If
Select Case
.
.
.
End Select
End Sub
A sorszámot tartalmazó oszlop formátuma általános, vagy szám legyen.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Szívesen, örülök, hogy sikerült.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
örök hála!
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Select Case Target.Address
Case "$C$26"
hétfõ
Case "$D$26"
Kedd
..
..
..
Case "$V$26"
Lómáj
End Select
Mindezt persze szépen tagolva a tab billentyû alkalmazásával. A Case "$ez$az" 1, a hétfõ, kedd 2 tabulátorral beljebb, mint a Select Case, és az End Select.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
If Target.Address="$C$26" Then hétfõ
If Target.Address="$D$26" Then Kedd
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.