Hirdetés
- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Apple asztali gépek
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- OLED TV topic
- Épített vízhűtés (nem kompakt) topic
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Napokon belül váratlan versenyzővel bővül a VGA-piac
- Projektor topic
- Azonnali informatikai kérdések órája
- AMD vs. INTEL vs. NVIDIA
- Milyen TV-t vegyek?
-
13800 - 13701
54992 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 15901 15900 - 15801 15800 - 15701 15700 - 15601 15600 - 15501 15500 - 15401 15400 - 15301 15300 - 15201 15200 - 15101 15100 - 15001 15000 - 14901 14900 - 14801 14800 - 14701 14700 - 14601 14600 - 14501 14500 - 14401 14400 - 14301 14300 - 14201 14200 - 14101 14100 - 14001 14000 - 13901 13900 - 13801 13800 - 13701 13700 - 13601 13600 - 13501 13500 - 13401 13400 - 13301 13300 - 13201 13200 - 13101 13100 - 13001 13000 - 12901 12900 - 12801 12800 - 12701 12700 - 12601 12600 - 12501 12500 - 12401 12400 - 12301 12300 - 12201 12200 - 12101 12100 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
thee
csendes tag
Persze, kérdezz bátran. Nem igazán kommentáltam túl a dolgot, remélem sikerül így is megérteni a működését.
-
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 -
Fire/SOUL/CD
félisten
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.. :]
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...
-
LonGleY
veterán
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...
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.. :]
-
varsam
őstag
Üdv
indirekt függvénnyel hogyan tudok külső fájlra hivatkozni?
-
student
őstag
-
Sziszmisz
csendes tag
Wooow, nagyon frankó, este mindenképpen belemászok, mert picit árlistánként módosítani kell.
Esetleg zargathatlak a kérdéseimmel majd még?
Nagyon nagyon megköszönném.
-
bugizozi
őstag
-
student
őstag
azt hol lehet beállitani hogy excel fáljba megnyitott hyperlinkeket ne IE-vel nyissa hanem firefox vagy chrome-mal?
-
thee
csendes tag
Ez már sorokat is ki tud hagyni, összesen 100 sort tud kezelni, ha ez nem elég, akkor simán bővíthető, csak a kicsi függvények tömb részét kell kibővíteni.
-
thee
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.
Remélem jól értettem meg a feladatot. Ilyesmire gondoltál? Sorokat ez még nem tud figyelmen kívül hagyni, csak üres sort rak be a kihagyandó sor helyébe.
-
LonGleY
veterán
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...
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. :]
-
Fire/SOUL/CD
félisten
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).
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...
-
LonGleY
veterán
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.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).
-
Fire/SOUL/CD
félisten
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.
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. -
LonGleY
veterán
"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.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.
-
Fire/SOUL/CD
félisten
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?..
"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. -
LonGleY
veterán
Ez a jelenség nem az Excel hibája, hanem a Chrome vagy Chrome motort használó (pl Comodo Dragon stb) böngészőké. Firefox vagy IE alatt nincs ilyen jelenség.
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
az mondjuk megoldható hogy a hozzáfűzendő dolgokat kijelöljem valamilyen kijelölőszínnel, ha úgy egyszerűbb. bocsi hogy ennyire részleteiben írom le csak közbe én is gondolkozom rajta hogyan kéne...
-
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.
-
thee
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.
példa file-t fel tudnál tölteni? este rá tudnék nézni
-
Fire/SOUL/CD
félisten
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..
Ez a jelenség nem az Excel hibája, hanem a Chrome vagy Chrome motort használó (pl Comodo Dragon stb) böngészőké. Firefox vagy IE alatt nincs ilyen jelenség.
-
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.
-
Delila_1
veterán
Excelben A1-től kezdve beírja a kezdő könyvtár tartalmát.
Sub MappaLista()
Dim s As String, sor%
s = Dir("e:\eadat\*.*") 'Kezdő könyvtár
sor% = 1
Do While s <> ""
Cells(sor%, 1) = s
s = Dir()
sor% = sor% + 1
Loop
End Sub -
Fire/SOUL/CD
félisten
-
Virag.h
aktív tag
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.
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? -
Fire/SOUL/CD
félisten
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.
-
Virag.h
aktív tag
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?
-
oxox
addikt

elég brutálisan néznek ki....hétfőn nekiesek!
oxox -
Fire/SOUL/CD
félisten
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
ha nem szint rak be hanem egy azonos karakter az sem rossz (bar a szin jobb)
-
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...?
-
buherton
őstag
Mert a sor és oszlop paraméter Cells() függvényben nem lehet 0.
A munkalap A1 cellája a Cells(1,1)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!

-
Fire/SOUL/CD
félisten
Mert a sor és oszlop paraméter Cells() függvényben nem lehet 0.
A munkalap A1 cellája a Cells(1,1) -
buherton
őstag
Sziasztok!
Most ismerkedem a VBA-val kíváncsiságból, de több programomra is hibát (1004 kódút) dob vissza, és fingom sincs, hogy miért.
pl.:
Sub formaz()
For i = 0 To 10 Step 1
Cells(i, 1).Value = i
Next
End SubMi lehet a gond?
-
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-tEz 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.
-
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 -
lappy
őstag
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
Rendezd az egyenletet x-re és már onnan adott a képlet!

-
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
-
Delila_1
veterán
HA függvényt alkalmazz!
=ha(feltétel;1;2)Pl. =ha(a5>100;1;2)
-
Pulsar
veterán
Ctlr + h
?
-
Pulsar
veterán
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á! 
ok, generál egy program egy .kml file-t, ami GPS koordinátákat ment, és időt.
Ebből szeretnék egy .srt file-t, vagyis egy feliratot egy videóhoz
-
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
lappy, Fire/SOUL/CD:
köszi, excelbe megoldottam
de 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.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á! 
-
Bazunga
tag
Na, hát ennyit nem ér a dolog. Majd klikkelgetek inkább azt majd megoldom valahogy ezt az apró problémát.
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Fire/SOUL/CD
félisten
lappy, Fire/SOUL/CD:
köszi, excelbe megoldottam
de 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.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
Az a 3 tulajdonképpen 4 opció. Alapbeállításnak azt teszed meg, amit a 4. feltétellel színeznél.
20 változatot makróval állíthatsz elő. Ehhez tudni kell a feltételeket, és hogy melyik cella-cellák változása idézze elő a különféle formátumokat, na meg hogy hol.
-
Pulsar
veterán
lappy, Fire/SOUL/CD:
köszi, excelbe megoldottam
de 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. -
Kelvin
őstag
-
bugizozi
őstag
-
Kelvin
őstag
-
bugizozi
őstag
-
Kelvin
őstag
Sziasztok!
Ha Excelben a véletlen szám generálást határok közé szeretném szorítani, az alsó határ nem lehet negatív? (mindenképpen 0 és pozitív szám között lehet a VÉL() -t használni?) -
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...
-
Fire/SOUL/CD
félisten
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á
)É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.
-
lappy
őstag
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á
)Szövegből oszlopot a megfelelő helyeken szétszeded utána pedig ÖSSZEFŰZ függvény
én így csinálnám
-
Pulsar
veterán
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á

-
Fire/SOUL/CD
félisten
-
bradam
aktív tag
Sziasztok!
Szeretném lekódolni az excel fájlomat(2007-es), illetve csak egy részét, egy-egy oszlopot kéne lekódolni,hogy azt ne tudják módosítani. Tudnátok adni valami útmutatót,hogy hogyan kéne megcsinálnom, a saját próbálkozásaim kudarcba fulladtak

-
Bazunga
tag
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).
Tökéletes

-
Delila_1
veterán
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
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).
-
Bocimaster
csendes tag
Sub Korhaz()
Dim sor As Double, usor As Double, nev$
Dim WB As Workbook
Dim utvonal$, lap%
Application.ScreenUpdating = False
utvonal = "E:\Eadat\" 'itt írd be a saját útvonaladat ehelyett, ügyelj a \ jelekre
Set WB = Workbooks("Gyerek és subspec ágyak végl.xlsm")
usor = Cells(Rows.Count, "A").End(xlUp).Row
For sor = 4 To usor
nev$ = Cells(sor, 4) & ".xlsx" 'D oszlopban lévő név a nev$ változóba
Workbooks.Add 'az új füzetet el is mentjük
ActiveWorkbook.SaveAs Filename:=utvonal & nev$, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
WB.Sheets(1).Range("1:3").Copy Range("A1") '1:3 sor másolása
WB.Sheets(1).Rows(sor).Copy Range("A4") 'sor-adik sor másolása
'újabb mentés a bemásolt adatokkal
ActiveWorkbook.SaveAs Filename:=utvonal & nev$, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close 'füzet bezárása
Next
Application.ScreenUpdating = True
End SubAz "A D oszlopban az intézeteket egyesével kimásolni minden egyes intézet külön fájlba és az intézet névvel elmentve.." nem egészen világos nekem. Arra gondoltál, hogy az egyes intézetek teljes sorát kell másolni? Úgy írtam meg a makrót.
A makró bemásolása után makróbarátként kell mentened a füzetet, a kiterjesztése xlsm lesz. Ez szerepel a Set kezdetű sorban.
Nagyon köszönöm!
Tetszik hogy mindig rákérdez a végén.

-
Bazunga
tag
-
Delila_1
veterán
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!!!

Fire:

-
Fire/SOUL/CD
félisten
Én sem értem, akkor minek az egészrész meg a tizedes, de benthagytam
=(BAL(SZÖVEG(CSONK(A1);"#");HOSSZ(SZÖVEG(CSONK(A1);"#"))-1)&9)*1 -
Nikola.
csendes tag
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!!!
-
Delila_1
veterán
"...eredetileg is minden szám egész, és nem tizedes". Akkor miért is kell az egész része? Lehet, hogy a formátum mutat tizedeseket, azon állíthatsz.
B1-> =(BAL(A1;HOSSZ(A1)-1)&9)*1
-
Nikola.
csendes tag
Pl ha az A oszlopban, A1-től kezdődően vannak az adatok, akkor pl B1-be beírod ezt a képletet =CSONK(A1)+0,9, majd lemásolod, ameddig kell.
(Már ha jól értettem, és a tizedesjegyet cseréled 9-re, nem pedig a szám egész részben kaptt szám utolsó számjegyét.)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.
-
Fire/SOUL/CD
félisten
Pl ha az A oszlopban, A1-től kezdődően vannak az adatok, akkor pl B1-be beírod ezt a képletet =CSONK(A1)+0,9, majd lemásolod, ameddig kell.
(Már ha jól értettem, és a tizedesjegyet cseréled 9-re, nem pedig a szám egész részben kaptt szám utolsó számjegyét.) -
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!!
-
Delila_1
veterán
-
Bazunga
tag
Na, lejárt a szerk. időm.
Ha a stílust is vinné magával az sem lenne rossz még. Rácsozás, színek... -
Bazunga
tag
Kicsit csonkítottam rajta. Jelen esetben a B7 alapján lennének a lapok elnevezve a másik füzetben ill. még a B21 alapján. Egy másik füzetbe kellene rakosgatni a táblákat új lapokra külön-külön a B7 érték alapján. Szóval egy táblázat egy lap. Más kívánalmam nincs.
-
Delila_1
veterán
-
csdm
senior tag
Köszi, de olyan képlet kellene, ami az egész táblázatra vonatkozóan azonos, minden celléba másolható!
Szerintem kell a 12.sor is a megoldáshoz valahogy -
Delila_1
veterán
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.
Tedd ki a füzetet egy elérhető helyre. A nem publikus adatok helyére írj valami mást. Elég pár sor mintaként.
Írd bele, melyik cellák alapján kell a lapokat elnevezni, meg minden egyéb kívánalmat is.
-
Delila_1
veterán
Szerintem a 12. sort törölheted, akkor feljebb kerülnek az alatta lévő sorok.
A B12 képlete =DARABTELI(5:5;B$11),
a C12-é =DARABHATÖBB(5:5;">="&BAL(C$11;1);5:5;"<="&JOBB(C$11;1))Az utóbbi másold jobbra E12-ig, majd a B12:E12 tartományt le a 15. sorig.
-
csdm
senior tag
-
Delila_1
veterán
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ÁÁÁ] [KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.thumb.jpg)
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.A Fire által javasolt RÉSZÖSSZEG függvény esetén az összegző sorokat a táblázat mellé tedd, mert az állomány szűrésénél elrejtődnek ezek a sorok.
-
csdm
senior tag
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. -
Fire/SOUL/CD
félisten
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ÁÁÁ] [KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.thumb.jpg)
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.RÉSZÖSSZEG, ha a szűrt lista látható sorainak összege kell.
-
Delila_1
veterán
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ÁÁÁ] [KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.thumb.jpg)
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.Ne AB.SZUM, hanem SZUMHA függvényt alkalmazz.
Az I11 képlete =SZUMHA($B$2:$B$8;F11;$I$2:$I$8). -
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ÁÁÁ] [KATT RÁÁÁ]](http://logout.hu/dl/upc/2012-05/13/200016_wl1jegaqssj1hce2_kepkivagas.thumb.jpg)
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
Alt+F11-gyel behívod a VB szerkesztőt. Bal oldalon kiválasztod a füzetedet. Insert menü, Module. Bal oldalon a füzetedben megjelenik egy Module1 nevű modul, mikor ezt kiválasztod, jobb oldalon kapsz egy üres lapot. Na oda másold be a kódok valamelyikét, és már alakíthatod is kedvedre. F5-tel indítható.
A füzetedben Alt+F8 hozza be a makrókat, amiket indíthatsz. Tehetsz ki egy gombot pl. az űrlap eszköztárról, rajta jobb klikk, és a Makróhozzárendelés gombbal illesztheted a kitett gombhoz a kódot.
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
-
lappy
őstag
-
Delila_1
veterán
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...
Többé-kevésbé értem. Köszönöm.
-
Oly
őstag
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...
-
mate0023
tag
-
Delila_1
veterán
-
lappy
őstag
-
Oly
őstag
Új hozzászólás Aktív témák
-
13800 - 13701
54992 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 15901 15900 - 15801 15800 - 15701 15700 - 15601 15600 - 15501 15500 - 15401 15400 - 15301 15300 - 15201 15200 - 15101 15100 - 15001 15000 - 14901 14900 - 14801 14800 - 14701 14700 - 14601 14600 - 14501 14500 - 14401 14400 - 14301 14300 - 14201 14200 - 14101 14100 - 14001 14000 - 13901 13900 - 13801 13800 - 13701 13700 - 13601 13600 - 13501 13500 - 13401 13400 - 13301 13300 - 13201 13200 - 13101 13100 - 13001 13000 - 12901 12900 - 12801 12800 - 12701 12700 - 12601 12600 - 12501 12500 - 12401 12400 - 12301 12300 - 12201 12200 - 12101 12100 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- PlayStation 5
- Apple asztali gépek
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- Elektromos autók - motorok
- Luck Dragon: Asszociációs játék. :)
- OLED TV topic
- A fociról könnyedén, egy baráti társaságban
- BestBuy topik
- Kamionok, fuvarozás, logisztika topik
- Android alkalmazások - szoftver kibeszélő topik
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Gyermek PC játékok
- Microsoft és egyéb dobozos és OEM szoftverek
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bomba ár HP Pro X360 11 G1 - Intel N3350 I 4GB I 64GB SSD I 11,6" HD Touch I Cam I W11 I Gari
- Használt számítógépek/merevlemezek számlával, garanciával! Ingyen Foxpost/PostaPont!
- 27% - Samsung 980 PRO 1TB M.2 SSD PCIe 4.0 NVMe
- iPhone 13 mini 128GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR
- Dell Latitude 5300 13,3" FHD IPS touch, i5 - i7 8665U, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

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)

). 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ő:


