Hirdetés
- Műholdas AI chippel fedné le a bolygót a Samsung
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Yettel topik
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- iPhone topik
- Honor Magic V3 - mágikus realizmus
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Android alkalmazások - szoftver kibeszélő topik
-
Mobilarena
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
-
hallgat
csendes tag
Sziasztok!
Láma vagyok a témában, ezért segítségeteket kérném.
/Excel 2003 VBA./Igyekszem megtanulni, de elakadtam.
Az eddigi is innen onnan puskázva... 
Bemásolom az eddigi kódot, a végére kikommenteltem, hogy mit kéne még tudnia.
Előre is köszönöm!!!
Private Sub CommandButton1_Click()
Dim forras_mlap As Worksheet
Dim cel_mlap As Worksheet
Dim forras_sor As Integer
Dim cel_sor As Integer
Dim eltolas As Integer
Set forras_mlap = Worksheets("Munka1")
Set cel_mlap = Worksheets("Munka2")
cel_sor = 2
Sheets("Munka2").Range("A2:BZ65536").ClearContents
For forras_sor = 2 To forras_mlap.UsedRange.Rows.Count
For eltolas = 0 To 18
cel_mlap.Range("M" & cel_sor).Value = forras_mlap.Range("A" & forras_sor).Value
cel_mlap.Range("N" & cel_sor).Value = forras_mlap.Range("B" & forras_sor).Offset(0, 1 * eltolas).Value
cel_mlap.Range("D" & cel_sor).Value = forras_mlap.Range("U" & forras_sor).Value
cel_mlap.Range("A" & cel_sor & ":C" & cel_sor).Value = forras_mlap.Range("V" & forras_sor & ":X" & forras_sor).Value
cel_mlap.Range("G" & cel_sor & ":H" & cel_sor).Value = forras_mlap.Range("Y" & forras_sor & ":Z" & forras_sor).Value
cel_mlap.Range("J" & cel_sor).Value = forras_mlap.Range("AA" & forras_sor).Value
cel_sor = cel_sor + 1
Next
Next
Sheets("Munka1").Range("B1:T1").Copy
Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Munka2").Activate
Sheets("Munka2").Range("L2:L20").Copy
' ide kellene, hogy a Munka2-n jelölje ki L2 cellától lefelé az összes cellát addig a sorig,
' amig "A" oszlopban adatot talál. Ezt követően illesze be L2:L20-ból már másolt adatokat
' (vagy ha lehet, már előrébb kezdve a Munka1 B1:T1 cella adatait)
' végig a táblázat utolsó használt soráig, "A" oszlopot alapul véve.
' +++ jo lenne, ha ezt kovetoen "N" oszlop (fejléc van az 1. sorban) adatai alapján törölné azokat
' a sorokat, amik értéke "0", vagy üres
End Sub -
#13798
Fire/SOUL/CD
félisten
LonGleY
#13797
válasz
LonGleY
#13797
üzenetére
Nem kell ehhez külön program, csak egy makró, amit akkor futtatsz le manuálisan, miután kijelölted pl az egész munkalapot vagy annak egy részét stb.
Sub TRIM_em_ALL()
Dim MyCells As Range
For Each MyCells In Selection.Cells
MyCells = trim(MyCells)
Next MyCells
End SubRemélem működik, nem vagyok Excel közelben éppen...
-
#13797
LonGleY
veterán
Fire/SOUL/CD
#13788
LonGleY
veterán
válasz
Fire/SOUL/CD
#13788
üzenetére
Végül a Firefox sem bizonyult jó megoldásnak, ugyanis csak a szimpla soros beillesztéseknél vágja le a fölös entert a kimásolt tartalmak végéről, a többsoros formokba ugyanúgy újsorozik. Így sem vészes, mert az egerem oldalán ott figyel a backspace gomb, de azért jó lenne meghekkelni ezt a jóságos Excel-t.
Van egy saját fejlesztésű vágólap figyelő és jegyzetelő progi (ClipCube), abba fogunk beleépíteni egy sor eleji / végi tisztítás opciót, de sajnos az most mástól venné el az erőforrást.. bár már érik az új release.. :]
-
#13789
LonGleY
veterán
Fire/SOUL/CD
#13788
LonGleY
veterán
válasz
Fire/SOUL/CD
#13788
üzenetére
Az fura, pedig közben Virtualbox alatt kipróbáltam egy 2007-es Excel-t és ott is így másolt ki (nem a beillesztés a lényeg). Akkor máshogy működik az Excelünk. :]
-
#13788
Fire/SOUL/CD
félisten
LonGleY
#13787
válasz
LonGleY
#13787
üzenetére
Igen, ebben teljesen igazad van, volt már ebből gond itt a topikban, olyan értelemben, hogy készítettem valakinek egy makrót, amiben ismétlődő karaktereket kellett lecserélni, köztük szóközöket is, pl 2/3/4 szóközt 1 szóközre és amikor FF-el illesztettem be a makrokódot, akkor az FF az egymás utáni szóközöket lecserélte " "-re, ami nyilván a makró hibás működéséhez vezetett. Ez már régebben volt, de azóta ügyelek arra, hogy makrót csak Dragon-ból illesszek be.
Az viszont "gond", hogy Nálad nem csak a böngészőbe csapódik hozzá a plusz space, hanem bármibe beillesztve, mert nálam nem, nálam csak a Dragon esetén, más alkalmazásoknál nem. Természetesen egyszerűbb ha erre a célra munkába fogod a FireFox-ot...
-
#13787
LonGleY
veterán
Fire/SOUL/CD
#13786
LonGleY
veterán
válasz
Fire/SOUL/CD
#13786
üzenetére
Itt arról van szó, hogy a Firefox letisztítja a beillesztéseket (mindegy, hogy honnan kopiztál, lehet az akár np++ is), a Chrome meg úgy veszi be, ahogyan az valóban ki van másolva. Egy saját clipboard figyelőben és a notepad-ban is egyértelműen látszik, hogy enterrel a végén kerül kimásolásra, tehát ilyen az Excel funkcionalitása, nem hibáról van szó. Köszönöm az ötletet, akkor FX-et használok kifejezetten erre a feladatra, így nem életbevágó az Excel átállítása (bár ettől függetlenül zavar, hogy nem találtam erre vonatkozó opciót).
-
#13786
Fire/SOUL/CD
félisten
LonGleY
#13785
válasz
LonGleY
#13785
üzenetére
Igen, az van, ami várható volt, csak a drgonba illsztve dobja hozzá a space-t, IE/FF-nél nem.
A chrome topikban is érdeklődtem, ezt a pár hsz-t olvasd át, mert ott a Skype-t is megemlítették, mint lehetséges "bűnöst", hátha érintett vagy a dologban. Nálam nincs (és nem is volt soha) Skype, csak a Dragonba beillesztve van a jelenség, wordpad vagy word stb esetén nincs. -
#13785
LonGleY
veterán
Fire/SOUL/CD
#13784
LonGleY
veterán
válasz
Fire/SOUL/CD
#13784
üzenetére
Nincs benne titok, csak bringa adatlapok egy webshop feltöltéshez, úgyhogy mellékelem:
http://www62.zippyshare.com/v/87867660/file.html
De mindegy, hogy mi van a cellákban, egy teljesen új lapnál is ezt csinálja a 2010 és a 2007 egyaránt.
-
#13784
Fire/SOUL/CD
félisten
LonGleY
#13783
válasz
LonGleY
#13783
üzenetére
"Tán az számítana, hogy a gépemen megtalálható a Chrome, még ha nincs is megnyitva?.."
Ilyenről nem tudok. Ha van rá lehetőség, akkor küld el a mail-emre a táblázatot, elég ha csak egy oszlop marad benne, csak az olyan legyen, amiben gond van az adatokkal és akkor ránézek. -
#13783
LonGleY
veterán
Fire/SOUL/CD
#13778
LonGleY
veterán
válasz
Fire/SOUL/CD
#13778
üzenetére
Az Excelből való kimásolás entert dob a tartalom mögé, mindegy, hogy hova illesztem be.
Ha nem a böngészőbe, hanem mondjuk Notepad++ba tolnám be a cuccokat, akkor is megjelennek a kimásolás utáni fölös sortörések. Tán az számítana, hogy a gépemen megtalálható a Chrome, még ha nincs is megnyitva?..
-
Sziszmisz
csendes tag
vagy itt egy másik példa:
Cikkszám Termék Bruttó fogy.ár (Ft
PRÉMIUM 18/10 mosogatótálak
1 ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK
514050 BLANCOSTATURA 6-U 18/10 mos. exc. 217 900
514051 BLANCOSTATURA 6-U / W70 18/10 mos. exc. 294 900
514052 BLANCOSTATURA K 640-U 18/10 mos. exc. 264 900
514053 BLANCOSTATURA K 480-U / W70 18/10 mos. exc. 271 900
514054 BLANCOSTATURA K 550-U 18/10 mos. exc. 264 900
514055 BLANCOSTATURA 450-U 18/10 mos. exc. 140 900
514056 BLANCOSTATURA 160-U 18/10 mos. 101 900
514058 BLANCOSTATURA 450-T-U 18/10 mos. 74 900
512540 BLANCOSUPRA 400-F 18/10 mos. tart.nélk. megszűnt!
518213 BLANCOGAMMA 420-U fényes exc.nélk. 56 900
518214 BLANCOGAMMA 420-U fényes exc. 63 900
511024 BLANCOMIDI 315-U 18/10 mos. tart.nélk. megszűnt!
511025 BLANCOMIDI 315-U 18/10 mos. exc. megszűnt!
514239 BLANCOJOTA 160-U_B megszűnt!ahol mondjuk ugyanazt a sablont kellene egy új munkalapra létrehozni amit előbb leírtam, annyi külömbséggel hogy itt a megszűnt feliratű sorokat figyelmen kívül kellene hagyni és a félkövérrel kiemelt "ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK" szöveget kellene beszúrni a termék oszlop szövegei elé.
ha ezt le tudnád írni, ez picit talán egyszerűbb, az is nagyon remek lenne és nagyon-nagyon hálás volnék.
-
Sziszmisz
csendes tag
Itt egy példa:
ACO TopTek típusú burkolható fedlapok
Cikkszám Terméktípus Méret Anyag Súly (kg) NETTÓ LISTAÁR
SOLID - Fémfelületű, csúszásmentes fedlap
403860 ACO TopTek SOLID 300x300x59,5 Rozsdamentes 1 244 119 456
403861 ACO TopTek SOLID 450x450x59,5 Rozsdamentes 1 990 168 160
403862 ACO TopTek SOLID 500x500x59,5 Rozsdamentes 2 281 193 975
403863 ACO TopTek SOLID 400x600x59,5 Rozsdamentes 2 259 197 824
403864 ACO TopTek SOLID 635x635x59,5 Rozsdamentes 3 498 293 752
403865 ACO TopTek SOLID 600x800x59,5 Rozsdamentes 3 959 349 458
403866 ACO TopTek SOLID 600x1000x59,5 Rozsdamentes 4 666 398 461
403867 ACO TopTek SOLID 800x1000x59,5 Rozsdamentes 5 715 527 789
403868 ACO TopTek SOLID 300x300x59,5 Horganyzott 1 244 59 643Például egy így kinéző árlistából kellene egy olyan makró amely készít egy cikkszám, név, mennyiség(értelem szerűen ez most hiányzik a listából), nettó ár oszlopokból álló új táblát. Annyi lenne még itt a plusz hogy a "SOLID - Fémfelületű, csúszásmentes fedlap" szöveget, a terméktípust, a méretet, az anyagot és a súly összefűzött szövegét kellene a név mező alá összefűzni, erre írtam hogy jó volna ha a makró megoldaná, de ha más nem összefűzném fügvénnyel. Nagyon nagyon megköszönném ha tudnál segíteni.
-
#13778
Fire/SOUL/CD
félisten
LonGleY
#13777
-
LonGleY
veterán
Helló!
Valahogy eddig nem találtam megoldást a következő problémámra (Excel 2010):
Egy szimpla cellára kattintva, CTRL + C másoláskor magával hoz egy sörtörést is, ami netes formokba való illesztéskor pl. szóközként jelenik meg. Hogyan tudnám a szimpla tartalmakat kimásolgatni (természetesen belekattintás meg egyéb időrabló tevékenység nélkül)? Több egymás alatti kimásolt cellánál jó, ha köztük van sortörés, nade utánuk?! Mintha a 2007 nem csinálta volna még ezt a parasztságot..
-
Sziszmisz
csendes tag
sziasztok,
szeretném a segítségeteket kérni, nagyon megkönnyítenétek a dolgom. sajnos nem igazán értek a makrókhoz, most szeretnék majd megismerkedni velük, de ez most elég sürgős lenne.
a lényeg az, hogy különböző elhelyezkedésű exel táblákból kellene egy bizonyos sémájú táblákat létrehoznom. arról van konkrétan szó hogy kapunk egy árlistát és ebből az árlistából szeretném kinyerni a név, ár, méret, szín adatokat és egy másik exel táblába lementeni. sajnos a forrásexelek nem egyezzen meg, tehát mindig másmilyen elhelyezkedésűek, jó volna ha ezt mindig be lehetne állítani hogy honnan is szeretnénk az adatot kinyerni, de ha ez nem lehetséges, vagy nagyon macerás akkor megoldanám függvényekkel. némely esetben mondjuk a név cella alá két cella egyesítését kellene beírni, amit szintén előkészíthetek egy összefűz függvénnyel ha szükséges.
nagyon nagyon hálás lennék ha tudnátok ebben segíteni nekem.
-
#13775
Virag.h
aktív tag
Fire/SOUL/CD
#13773
válasz
Fire/SOUL/CD
#13773
üzenetére
Köszönöm! Sok munkától kíméltél meg!
-
-
#13773
Fire/SOUL/CD
félisten
Virag.h
#13772
-
#13772
Virag.h
aktív tag
Fire/SOUL/CD
#13771
válasz
Fire/SOUL/CD
#13771
üzenetére
Köszi. így gondoltam
Csak amikor kimenti a .txt-be akkor már nem ékezetesek a mappák... a parancssorban pedig azok voltak. Van erre megoldás? -
#13771
Fire/SOUL/CD
félisten
Virag.h
#13770
válasz
Virag.h
#13770
üzenetére
Parancssorból megoldható, indítsd a parancssort (start, keresőbe cmd és enter, XP esetén start/futtatás cmd és enter), majd add ki az alábbi parancsot
dir c:\users /AD /B /S >d:\dirlist.txt
Ez a parancs a c:\users mappában található összes mappát és almappát kimenti a d:\dirlist.txt fájlba, amit utána megnyithatsz az Excel-el. Természetesen a saját igényed szerint módosítsd, hogy melyik mappáról és hova/milyen nevű fájlba mentse a mappalistát. a DIR parancsról a DIR /? segítségével kaphatsz több infót.
-
Van egy csomó mappa a gépen amiknek a nevét be akarok másolni az excelbe. De másolás/beillesztés paranccsal sokáig tartani... Halottam egy olyan megoldásról ami listázza egy adott mappákban lévő mappák nevét... A futtatásba kellett valamit beírni... Valakinek ötlet?
-
#13768
Fire/SOUL/CD
félisten
oxox
#13766
Egy másik lehetséges megoldás: [link]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyWidth As Range
Dim MyHeight As Range
Set MyWidth = Range("AA1")
Set MyHeight = Range("AB1")
Application.ScreenUpdating = False
If Target.Address = MyWidth.Address Or Target.Address = MyHeight.Address Then
Range("A1:Z26").Clear
If MyWidth.Value Mod 5 Or MyHeight.Value Mod 5 Or IsEmpty(MyWidth.Value) Or IsEmpty(MyHeight.Value) Then
MsgBox ("Az alábbi hibák egyike lépett fel, kérem javítsa!" & vbCrLf & vbCrLf & _
"1. A szélesség és magasság értékének maradék nélkül oszthatónak kell lennie 5-el!" & vbCrLf & _
"2. A szélesség vagy magasság érték nincs megadva!")
Exit Sub
End If
For i = 0 To MyHeight.Value \ 5 - 1
For j = 0 To MyWidth.Value \ 5 - 1
Range("A1").Offset(i, j).Interior.ColorIndex = 3
Range("A1").Offset(i, j).Borders.ColorIndex = 0
Next j
Next i
End If
Application.ScreenUpdating = True
End Sub[ Módosította: #65675776 ]
-
Delila_1
veterán
A makró törli az előző színezést, bekéri a szélességet, majd a magasságot, és ennek megfelelően színezi a területet.
Rosszul írtad, a 80 cm nem a T, hanem az X oszlopig tart.Sub Ter()
Dim sz%, m%
Range("1:255").Interior.ColorIndex = -4142
sz% = Int(InputBox("Kérem a szélességet cm-ben", "Szélesség", Default) / 5)
m% = Int(InputBox("Kérem a magasságot cm-ben", "magasság", Default) / 5)
Range(Cells(1), Cells(m%, sz%)).Interior.ColorIndex = 5
End SubKitehetsz hozzá egy gombot.
-
oxox
addikt
Ave Guruk,
Lenne egy igen "kellemes" feladatom....hatha valaki csipobol meg tudja oldani.
A lenyege, hogy egy bizonyos teruletet, (ami valojaban harom dimenzio) feltolteni kulonbozo dobozokkal....a feladat valodi haszna palettara valo epites megkonnyitese, es vizualis megjelenitese... Miert excel...mert ez all melohelyen rendelkezesre. Miert is kell, ez...mertha van tobb meretunk (esetenkent 20-30) ugy eleg sac/kb a tervezesunkalap otlet....egyelore csak ket dimenzioban...az alapot tolteni.
egy negyzet 5cm-nek felel meg.....az alapteruletunk 315x245cm-tehat csinalok egy negyzetracsot a tablazatbol (ez mar kesz)...
majd van adott arum...pl. 120*80cms (a magassag itt meg nem szamit) ...szeretnem ha ez az aru kiszinezne az altala elfoglalt teruletet mondjuk kekre, (nyilvan az automatizalas meg tovabb bonyolitanam, tehat a kiindulo pontjaten adom meg...kezdve a sarokbol akar A1-t kezdonek....tehat szinezzen A1-T1 (80cms), es A16 - T16 -ig (120cms)...)
meg lehet ezt oldani, vagy tul kesze-kusza, es nem lenne hasznalhato...?
-
#13764
buherton
őstag
Fire/SOUL/CD
#13763
buherton
őstag
válasz
Fire/SOUL/CD
#13763
üzenetére
Oh, hogy az a píííí. Sejtettem, hogy valami elképesztően triviális dolog lesz, de erre soha nem gondoltam volna. Ezer köszönet!
-
#13763
Fire/SOUL/CD
félisten
buherton
#13762
-
#13761
m.zmrzlina
senior tag
m.zmrzlina
#13760
m.zmrzlina
senior tag
válasz
m.zmrzlina
#13760
üzenetére
Ez viszont:
=DARABHATÖBB(B10:M10;"=alma";B11:M11;"=banán")
1-et ad vissza, ha mindkettő benne benne van a hozzá tartozó kritériumtartományban és 0-t ha bármelyik hiányzik.
Én viszont azt szeretném ha azonos kritériumtartománnyal is működne a képlet.
-
#13760
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Egy külső adatbázisból importált tömb fejlécét szeretném leellenőrizni, hogy megvan-e benne minden szükséges oszlop amiből a makrónak kell dolgoznia. (A külső adatbázisban kívánság szerint összeállítható az Excelbe exportálandó "étlap")
Mi a célszerű megoldás ebben az esetben?
=DARABHATÖBB()-bel próbálkozom, de nem sok sikerrel
=DARABHATÖBB(B10:M10;"=alma") ez működik és 1-et ad vissza ha benne van az alma
=DARABHATÖBB(B10:M10;"=alma";B10:M10;"=banán") ez 0-t ad vissza ha mindkettő benne van.
Valsz. nem értem ezt a fv-t -
bsasa1
csendes tag
Sziasztok!
Nekem a következő lenne a kérdésem:
van egy hasonló negyedfokú egyenletem,
y=0,1x^4-0,2x^3+0,3x^2-0,4x+1,5
Most azonban meg kellene fordítanom, és adott "y" érték mellett szeretném kiszámoltatni az "x"-et. Célérték keresővel teljesen jól működik is, de abban "y"-t csak értékként tudom megadni, nekem viszont több száz sorban van "y" változóm. Valaki tud megoldást?
Köszi a segítséget!Bsasa
-
Kanczy
veterán
Sziasztok!
Kellene egy kis segítség. Meg lehet valahogy oldani, hogy az excel egy bizonyos szöveget egy akármekkora táblázatban mindig egy bizonyos mássá írjon át? Konkrétan azt szeretném, hogy mindig, ha "IGAZ" szerepel, 1-est tegyen a helyére, ha "NEM IGAZ", akkor 2-est.
köszi
-
lappy
őstag
válasz
Pulsar
#13749
üzenetére
Szia!
mivel ezek adatok ill. szöveg elég nehézkes úgy dolgozni vele, hogy a számodra megfelelő formátumba lehessen alakítani! Ki kell szedni belőle az időpontokat és venni a különbséget, majd ezt úgy beilleszteni az összefűzendő szövegbe, hogy csak az időponttal megnövelt rész legyen?!?!
Nem lehetetlen de nagyon összetett képlet kell hozzá! 
-
#13751
Fire/SOUL/CD
félisten
Pulsar
#13749
válasz
Pulsar
#13749
üzenetére
Hát azért a végeredmény, meg a korábbi elképzelés nem ugyanaz, kb annyi köze van a kettőnek egymáshoz, mint a kis, kék, gumigolyónak, a nagy, sárga fakockához...
Viszont egy képnek jobban örül(n)énk, mert így nem lehet biztosan tudni, hogy akkor hány cellába is kerültek az adatok, avagy üres cella is van közben stb (mert az adott példából, erre (is) lehet következtetni) -
Delila_1
veterán
-
lappy, Fire/SOUL/CD:
köszi, excelbe megoldottamde egy dolgot nem tudok.
Vannak benne időadatok:2012-05-14T23:01:38Z
19.20291866 47.48027567
2012-05-14T23:01:39Z
19.202866 47.48028335
2012-05-14T23:01:40Z
19.202859 47.48027502
2012-05-14T23:01:41Z
19.20286322 47.48027493
ebből ezt szeretném:
00:00:01
19.20291866 47.48027567
00:00:02
19.202866 47.48028335
00:00:04
19.202859 47.48027502
00:00:05
19.20286322 47.48027493
tehát az első érték lenne a 00:00:01 és utána annyival növelni amennyi a következő kettő közötti különbség. -
Bazunga
tag
Belefutottam egy olyan dologba, hogy 93-ban a feltételes formázásnál csak 3 opciót lehet megadni az újabb verziókkal ellentétben. Lehet valamit variálni, hogy egyenlő érték esetén egy bizonyos betűszínnel jelenítse meg a cella a tartalmat? Vagy lemásoltatni? Vagy 20 opció kellene...
-
#13742
Fire/SOUL/CD
félisten
Pulsar
#13740
válasz
Pulsar
#13740
üzenetére
Én ezt inkább Word-ben hoznám megfelelő formátumba, majd azt követően vinném át Excel-be és utána szövegből oszlopok...
Azért wordben, mert ha ezt az adathalmazt beilleszted az Excelbe, akkor több cellára "töri" az Excel, míg wordben csak egy folyamatos szövegként látszik és az enter (vagy egyéb) vezérlőkaraktereket is el lehet távolítani.
-
Sziasztok!
Segítséget szeretnék kérni.
Van egy adatsorom:
<when>2012-05-14T23:00:07Z</when>
<gx:coord>19.2030389 47.48018636 183.8000030517578</gx:coord>
<when>2012-05-14T23:01:11Z</when>
<gx:coord>19.20283078 47.48024977 205.1999969482422</gx:coord>
<when>2012-05-14T23:01:13Z</when>
<gx:coord>19.20279616 47.48024885 208.5</gx:coord>
<when>2012-05-14T23:01:14Z</when>
<gx:coord>19.20279683 47.48024895 209.0</gx:coord>ebből szeretnék egy ilyet kapni:
2012-05-14T23:00:07Z 19.2030389 47.48018636
2012-05-14T23:01:11Z 19.20283078 47.48024977
2012-05-14T23:01:13Z 19.20279616 47.48024885
2012-05-14T23:01:14Z 19.20279683 47.48024895Persze ez az adat mennyiség elég hosszú, és mivel sok ilyet kéne csinálom, arra gondoltam, hogy egy macro lenne talán a jó megoldás. (De nem ragaszkodom hozzá
) -
bradam
aktív tag
És azt hogyan tudnám megoldani,hogy egy cella értékét automatikusan átmásolja az excel egy új megnyitott lapra? Ugye nem akarok mindig visszalinkelgetni az új lapról a régire, úgy tudom van valami megoldás,ami ezt automatikusan megcsinálja,csak sajnos nem tudom hogyan keressek rá
-
#13738
bradam
aktív tag
Fire/SOUL/CD
#13737
bradam
aktív tag
válasz
Fire/SOUL/CD
#13737
üzenetére
-
#13737
Fire/SOUL/CD
félisten
bradam
#13736
-
#13733
Delila_1
veterán
Bocimaster
#13731
Delila_1
veterán
válasz
Bocimaster
#13731
üzenetére
Ha tényleg tetszik, jó, ha nem, a makró elejére írd be:
Application.DisplayAlerts = False, a végére Application.DisplayAlerts = True.
-
Delila_1
veterán
válasz
Bazunga
#13730
üzenetére
A másik füzetet "Másik füzet"-nek neveztem el, írd át a makróban. Célszerű a Replace funkcióval, akkor nem marad ki egy sem.
A "Hetek más füzetbe" Munka1 lapján a cellák egyesítését megszüntettem, mert ezek hibát okoznak a másolásnál. Helyette a kijelölt cellák vízszintes elrendezésénél "A kijelölés közepére" formát alkalmaztam. Ez minden más füzetre is érvényes, ha csak lehet, kerüld az egyesítést.
A Module3 létrehoz egy új füzetet 53 számozott lappal (jövőre jó lesz).
-
#13728
Fire/SOUL/CD
félisten
Nikola.
#13725
-
Nikola.
csendes tag
válasz
Delila_1
#13726
üzenetére
Bocsánat, belezavarodtam azért írtam le még egyszer, hogy kell az egész rész, mert próbáltam tizedesre venni és úgy kerekíteni, és hozzá adni az értéket, de rá kellett jönnöm, hogy ez így nem megy, és az előtted szólót is bezavartam.. Viszont, amit most írtál működik! Nagyon szépen köszi!!!
-
#13725
Nikola.
csendes tag
Fire/SOUL/CD
#13724
Nikola.
csendes tag
válasz
Fire/SOUL/CD
#13724
üzenetére
De-de épp ez az, hogy először nyilván az egész részt kell megkapnom, és annak kell az utolsó számjegyét cserélnem! Hogy miért vagyok bajban? Mert eredetileg is minden szám egész, és nem tizedes, és fogalmam sincs most már tényleg, hogy cserélhetném le az utolsó számjegyeket.
-
#13724
Fire/SOUL/CD
félisten
Nikola.
#13723
-
Nikola.
csendes tag
Sziasztok!
Az én problémám a következő: Van egy táblám, ami tele van számokkal. Ezeknek a számoknak hogy tudom az egész részét venni, majd utolsó számjegyeit 9-esre cserélni? A cserét próbáltam, meg sem találja kifejezést..
A segítő válaszát előre is köszi!!
-
Bazunga
tag
-
-
csdm
senior tag
válasz
Delila_1
#13711
üzenetére
Köszi!
Másik felmerült probléma:
Alsó táblázat fölött B11:E12-ig szerepelnek intervallumok.
Azt kell megvizsgálni, hogy az A oszlopban szereplő csapat, hányszor kapott 1, 1és2, 1 és 3 stb közti pontot.
KÉP
Nem tudom hogyan kellene megadni a kirtériumot, mert ez így nem jó, ugyanis az 1-3-as itnervallumba 2-esnek kellene szerepelnie, mert van egy 2 és egy 3 eredményük a felső táblázatban. -
#13712
Fire/SOUL/CD
félisten
csdm
#13710
RÉSZÖSSZEG, ha a szűrt lista látható sorainak összege kell.
-
csdm
senior tag
Hogy kell AB.SZUM-nál megoldani, hogy a kritérium mezőcíme F10 legyen de maga a kritérium pedig F12?
![[KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.thumb.jpg "[KATT RÁÁÁ]")
katt rá
Ahogy a képen is látható, az egyesületre szűrök, és apontszámot adja össze. de nekem úgy kéne, hogyha lehúzom, akkor csak az adott egyesülethez tartozó pontszámokat adja össze.
Mostani formában az a hiba, hogy ahogy húzom le, minden egyesület pontját összeadja. -
Bazunga
tag
válasz
Delila_1
#13685
üzenetére
Hát én próbálkoztam, de csak nem megy ez nekem. Már a módosítás.13668-as megoldás jó lenne, csak úgy, hogy egy táblázatnyi területet másol le.
Pl. A15-től J21-ig lévő terület, amit a másik lapon már az első cellát az A7-be teszi.Asszem ezt kellene átvariálni valami mássá.
Range(WS1.Cells(sor, "A"), WS1.Cells(sor, "G")).Copy Sheets(nev$).Cells(usor_1, "A")
Ezzel sikerült megoldanom önmagában kb, de az meg kevés úgy.
WB.Sheets(1).Range("A1", "G7").Copy Range("B4")A mentése is majdnem jó lenne, csak a lapokat egy darab külön füzetbe kellene befűznie, nem teljesen szét szedve a lapok alapján. Amúgy teljesen jó lenne, szépen elnevezgeti a füleket a megadott cella alapján
Mindig valami hibát nyomat, ha változtatok valami komolyabbat. -
BEndre34
tag
Sziasztok!
Remélem tud valaki segíteni, mert egy hete belecsöppentem egy feladatba és nem tudom megoldani (illetve Access-ben még úgy ahogy, de azt sajnálatos okok miatt nem tudják használni azok, akiknek kell
). Már több megoldást is kipróbáltam és átnyálaztam több fórumot is, de csak részmegoldásokra jöttem rá. A problémám a következő:
Kb 80 felhasználó rögzít adatokat napi szinten OpenOffice Calc táblázatban ("sajnos" csak ez lehet a gépeken). A feldolgozást végző gépeken viszont MS Office 10 van és más nem is lehet (szerencsére gond nélkül megnyitja az Ooo táblázatot). Adatok csak az első 5 oszlopban vannak felhasználóként változó sor mennyiségben (egy oszlopban csak szám van, a többiben betűk). Ezeket kellene nap végén egyetlen lapon egyesíteni a megfelelő oszlopoknak megfelelően. Mivel rögzíteni Ooo-ban rögzítenek, a munka pedig Excelben folyik, nem tudom minden egyes oszlopot megnevezni ami viszont számomra teljesen megoldhatatlanná is teszi a feladatot. Ooo-ban képtelen vagyok megoldani, mert ahhoz még annyira se értek, mint az excelhez
Van valakinek ötlete?
Endre
-
Oly
őstag
válasz
Delila_1
#13703
üzenetére
A képleten belül létrehozott "virtuálisan" egy tömböt, melyben 3999-og szerepelnek a római számok és a hol.van-nal megkeresi, hogy hanyadik helyen van. Mivel sorban jönnek egymás után, megegyezik a számmal...
=HOL.VAN(A1;RÓMAI(SOR(INDIREKT("2:3999")));0)
Ha így írod, akkor 2-től indul, tehát eggyel kevesebbet kapsz eredménynek...
Az eddigi is innen onnan puskázva... 
Csak amikor kimenti a .txt-be akkor már nem ékezetesek a mappák... a parancssorban pedig azok voltak. Van erre megoldás?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
![[KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.jpg "[KATT RÁÁÁ]")
). Már több megoldást is kipróbáltam és átnyálaztam több fórumot is, de csak részmegoldásokra jöttem rá. A problémám a következő:
Új hozzászólás Aktív témák
- GYÖNYÖRŰ iPhone 12 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS2927, 100% Akkumulátor
- LG 65B4 - 65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- BESZÁMÍTÁS! Gigabyte B650 R7 7700 32GB DDR5 1TB SSD RTX 4070 Ti 12GB Asus TUF Gaming GT 501 750W
- Bomba ár! Lenovo ThinkPad X260 i5-6GEN I 8GB I 256-512SSD I 12,5" HD I HDMI I Cam I W11 I Garancia!
- Apple iPhone 15 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest