Hirdetés
-
GAMEPOD.hu
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
-
#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)Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
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á! 
Bámulatos hol tart már a tudomány!
-
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
You don't get it, son. This isn't a mudhole... It's an operating table. And I'm the surgeon. (Batman: The Dark Knight Returns)
-
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
-
#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[ Szerkesztve ]
-
#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.
-
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?
tely, baly, fojó, mennyél, mingyárt, telyföl, tolyás, malyd, kapú, egyenlőre, ejsd, jáccani, ahoz, fúj, hüje, muszály, alat, álok, lasan, fojtatás, ál, fontós, költsön, eggyüt, lyob (jobb?), mek, mongyak, milyért - !!! Tanúlyunk már meghejjessen irni... !!!
-
#13763
Fire/SOUL/CD
félisten
buherton
#13762
-
#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!
tely, baly, fojó, mennyél, mingyárt, telyföl, tolyás, malyd, kapú, egyenlőre, ejsd, jáccani, ahoz, fúj, hüje, muszály, alat, álok, lasan, fojtatás, ál, fontós, költsön, eggyüt, lyob (jobb?), mek, mongyak, milyért - !!! Tanúlyunk már meghejjessen irni... !!!
-
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...?
Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838
-
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.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#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 ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#13771
Fire/SOUL/CD
félisten
tomtom9
#13770
válasz
tomtom9
#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.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
tomtom9
tag
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? -
#13773
Fire/SOUL/CD
félisten
tomtom9
#13772
válasz
tomtom9
#13772
üzenetére
De, ékezetesek azok, csak nem mindegy, hogy a nézőkében (amivel belenéztél a txt fájlba) ANSI avagy ASCII karakterkódolást használsz.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
veterán
válasz
tomtom9
#13772
üzenetére
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tomtom9
tag
válasz
Fire/SOUL/CD
#13773
üzenetére
Köszönöm! Sok munkától kíméltél meg!
-
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.
-
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..
[ Szerkesztve ]
-
#13778
Fire/SOUL/CD
félisten
LonGleY
#13777
válasz
LonGleY
#13777
üzenetére
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.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
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.
-
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.
-
#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?..
-
#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.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#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.
[ Szerkesztve ]
-
#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.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#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).
[ Szerkesztve ]
-
#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...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#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. :]
[ Szerkesztve ]
-
#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.. :]
[ Szerkesztve ]
-
#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...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
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 SubOffice 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Nem lehetetlen de nagyon összetett képlet kell hozzá! 
Új hozzászólás Aktív témák
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest