2417
megoldást keresek erre a problémára
-
#1214
Hoppááá mégegy kérdés:)
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! -
#1213
Üdv Mindenki!
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 -
#1212
![]()
-
#1211
Szívesen.
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. -
Tyco #1210 Köszönöm szépen a segítséget! -
#1209
Az A oszlopra vonatkozik:
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
-
Tyco #1208 Szia Delila! Hogyan lehet lekérdezni markóval azt, hogy egy autószűrővel leszűrt táblázatban hány sor maradt?(Ami látszik) Tehát hány sor felelt meg a szűrési feltételnek. -
BéZé2 #1207 Megvan, így is jó lesz
köszi :)
-
#1206
A Worksheet_SelectionChange eseményhez rendelt makró minden alkalommal lefut, mikor egy cellára rálépsz.
Inkább rendeld egy gombhoz az adopaste makrót, ami csak a gomb megnyomására indul. -
BéZé2 #1205 Sziasztok
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? -
#1204
Szívesen. -
#1203
megesik ez! :-) -
oroby #1202 Köszönöm a segítséget Delila működik tökéletesen!!! -
#1201
Csak sikerült kitörölnöm a képet a #1195-ből. A feltöltéskor idétlenkedtem, kétszer töltöttem fel azonos névvel, és most sikerült azt kitörölnöm, amit ide belinkeltem. Pedig nem vagyok szőke. 
Szerencse, hogy egy semmitmondó kép volt.
-
#1200
jah ez így teljesen jó! :-) leleményes! :-) -
#1199
Összehozatm a két makrót.
![]()
![]()
-
#1198
szívesen!
belinkelnéd nekem a makrós megoldások elérhetőségét? -
#1197
Az index fórumon kaptál rá 2 makrós megoldást, de biztosan jó a Tigerbácsi által küldött is. -
#1196
Köszönöm, ez összejött. 
-
#1195
Megpróbálom.
![]()
-
#1194
meg tudtam csinálni, de több felhasználói lépés is 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. -
oroby #1193 Mind külön cellában van és külön cellába is kellenek -
#1192
a név s az adatok egy cellában vannak?
s a megoldásban 1 cellában kellenek? -
oroby #1191 Sziasztok segítségre lenne szükségem
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 -
#1190
megnyitod a saját galériád, kiválasztott képre klikk, majd jobb klikkel előhozod a menüjét. ott kép címének másolása. majd idejössz a kép beszúrása gombot megnyitod s ctrl+v -vel bemásolod a hivatkozást.
![]()
-
#1189
A sajátba próbáltam, de nem megyek vele semmire. Direkt gif-be mentettem, hogy kicsi legyen a mérete.
Tudsz olyan helyet, amit támogat az SG? -
#1188
töltsd fel a képet vhová, vagy egy ingyenes tárhelyre, amit az sg támogat.
a többi már jó :)
(ezek nem nagy képek, a saját galériádba is lehet) -
horza #1187 Lenne egy problémám:
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...)
-
#1186
Nem sikerült feltölteni a képet.
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. -
#1185
Igen, hibás a képlet. Ha pl. a cellák összegét akarod az összegző lapon megkapni, akkor helyesen =szum(Munka1:Munka3!A1) a képlet. Számolhatsz így átlagot, minimumot, stb.
A diagramhoz az új lap első sorába (de lehet máshova is) vidd be a lapjaid nevét.
[IMG]![]()
[/IMG]
Az A2 képlete: =HA(HIBÁS(INDIREKT(A1&"!$A$28"));0;INDIREKT(A1&"!$A$28"))
ezt másold jobbra. -
chillout #1184 Hali
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 -
#1183
Nem baj, lényeg, hogy false-ra átírva jó lett a makró. 
-
Tyco #1182 Ja, persze az a sor nem kell, azt tudom. De azt, hogy "megmaradt cellák" = "rejtett sorok" azt nem értem. 
-
#1181
A "megmaradt cellák"-on én a rejtett sorokat értettem.
Ebben az esetben a Sheets("Munka2").Rows("2:1000").Hidden=False sor nem kell.
-
Tyco #1180 Köszönöm szépen! Én ugyan nem a rejtet sorokra gondoltam hanem azokra amik látszanak de ha jól látom akkor csak a true-t kell kicserélni false-ra és jó lesz.
-
#1179
A makró átmásolja a szűrővel elrejtett sorokat a Munka2 lapra.
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
-
Tyco #1178 Sziasztok! Egy makróval kapcsolatos kérdésem lenne. Egy autószűrővel leszűrt táblázatból hogyan lehet makróval átmásolni vagy kiolvastatni a megmaradt cellákat? -
horza #1177 Joebácsi: módosítva - működik - köszönöm -
#1176
1. Írd be egy cellába, hogy 10%, majd állj rá.
2. Feltételes formázás képlet alapján, képlethez írd be:
=párose([relatív_cellahivatkozás]*100)
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 -
horza #1175 Van egy táblázat %-os értékekkel, és a feladat:
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?
[/IMG]