- sziku69: Fűzzük össze a szavakat :)
- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Csak a profit - emberélet nem számít
- Kempingezés és sátrazás
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- eBay-es kütyük kis pénzért
-
LOGOUT
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
-
#12897
Badb0y
addikt
m.zmrzlina
#12895
Badb0y
addikt
válasz
m.zmrzlina
#12895
üzenetére
Tyűűű, angolban vajon ez hogy van
?Összefűz: concatenate
de mi a szöveg keres és a bal ? -
#12896
m.zmrzlina
senior tag
dellfanboy
#12892
m.zmrzlina
senior tag
válasz
dellfanboy
#12892
üzenetére
Esetleg próbáld meg ezt!
Bizonyos Epson nyomtatókhoz ingyen adják (adták). Meglepően jó karakterfelismerést csinál. Nem mondom, hogy nem kell az Excelbe illesztés után gyomlálgatni de messze kevesebb munka mint begépelni a scannelt dokumentum tartalmát.
-
#12891
föccer
nagyúr
dellfanboy
#12890
föccer
nagyúr
válasz
dellfanboy
#12890
üzenetére
Elsőnek mindeképpen az Excel által emészthető formátummá kell konvertálni. Ennek hatákonysága erősen megkérdőjelezhető, főleg ha egy kinyomtatott anyag lett pdf-be vissza scannelve. Keress rá a pdf2xls konverter-re, hátha találsz valami olyan értelmes alkalmazást, ami kées elfogadható pontosággal a konverzióra. Ha ez megvan, akkor már simán mehet rá az fkeres.
=============
mod: nézd csak, pont egy ilyenre van szükséged: [link]üdv, föccer
-
#12890
dellfanboy
őstag
dellfanboy
őstag
Egy olyan makró létezik/létezhet ami egy pdf-ből (számla) pl Fkeres fv segítségével rendszeri az adatokat? ha igen, hogy kezdhetek neki?
idáig több féle PDF-el találkoztam volt ami le volt védve volt ami nem. -
#12887
Fire/SOUL/CD
félisten
Delila_1
#12886
-
#12886
Delila_1
veterán
Fire/SOUL/CD
#12885
Delila_1
veterán
válasz
Fire/SOUL/CD
#12885
üzenetére
Nem nevetjük ki a kicsibbiket!
Ideje, hogy előkerültél.
-
#12885
Fire/SOUL/CD
félisten
Delila_1
#12884
-
Delila_1
veterán
válasz
poffsoft
#12882
üzenetére
A görbe szájú ikonból nem találtam ki, hogy az :F-et takar. Ezért adtam meg egy nagyobb tartományt.
A feladatot úgy értelmeztem, hogy az egyes futtatások eredményeként a másolt tartományok lépcsőzetes elrendezésben kerüljenek a másik lapra."Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat." Itt elakadtam, mert az F2:F9 tartomány semmiképp sem lehet 4 db cella.
Cufter!
Jó lenne egy kép, ami megmutatná, mit hova másoljunk az első-, és az azt követő esetekben. -
#12883
Delila_1
veterán
exceltanulo
#12878
Delila_1
veterán
válasz
exceltanulo
#12878
üzenetére
Igen, az INDIREKT függvény akkor mutatja az értéket, ha a hivatkozott füzet is nyitva van.
Az első leírásból számomra nem derül ki, hogy a D:\MAPPA\ könyvtáron belül az 1001.xlsx az azonos nevű (1001) könyvtárban van-e, az 1002.xlsx pedig az 1002 könyvtárban. Ha igen, akkor a függvény
=INDIREKT("'D:\MAPPA\" & A1 & "\[" & A1 & ".xlsx]Munka1'!$C$2") -
poffsoft
veterán
válasz
Delila_1
#12877
üzenetére
Szerintem a 'Számolás'!F2:F9 range-t akarja a "Cégek" következő üres sorába transzponálni, így a kódod picit változik:
Sub masol()
Sheets.("Számol").Range("F1:F9").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
' szerintem a használt oszlopok száma nem kell...
Cells(usor + 1, 1).Activate
Selection.PasteSpecial Paste:=xlValues , Transpose:=True
End SubHa jól értettem....
Mondjuk az a range("A65536").end().offset()-et nem egészen értem...
Vagyis értem, de bonyolultnak tűnik. -
poffsoft
veterán
válasz
Delila_1
#12868
üzenetére
Akkor nem tudom, mit csináltam rosszul.
A formátum másolásra pedig rosszul kérdeztem rá azt hiszem:
A formatconditions(2). properties-t szeretném egy másik cellának (vagy ugyanannak) a fix formátumaként beállítani
vagyis pl a range("A1").formatconditions(2).font/pattern/border/color -t kellene a range("A'").font/pattern/border/color -ba másolni. Egyszerűen, nem az összes elemet felsorolgatva (mert most csak ezt az utat találtam meg)
-
#12880
Fire/SOUL/CD
félisten
exceltanulo
#12879
válasz
exceltanulo
#12879
üzenetére
-
#12879
exceltanulo
csendes tag
exceltanulo
csendes tag
Sziasztok! Nem tudjátok van olyan lehetőség hogy egy cellában hivatkozással képet jelenítsek meg? Tehát nem képet rakok be az excelbe, hanem egy hivatkozást, esetleg a kép megjelenítési méreteit és abban a cellában láthatóvá válik a belinkelt kép.
-
#12878
exceltanulo
csendes tag
Delila_1
#12870
exceltanulo
csendes tag
válasz
Delila_1
#12870
üzenetére
Szia Delila_1! Megcsináltam az alapján amit belinkeltél és működik (részben). Lehetséges, hogy csak akkor hozza be a link az adatot, ha meg van nyitva az a fájl is ahonnan az adat származik? Mert nálam ez a helyzet. Ha nincs megnyitva hibát ír, ha megnyitom jön az adat. Köszönöm!
-
-
Cufter
tag
válasz
Delila_1
#12874
üzenetére
Közben sikerült ennyit összeszedni:
Sub masol()
Sheets("Számolás").Range("F2
9").Copy
Sheets("Cégek").Activate
Range("a65536").End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Sheets("Számolás").Activate
Range("a1").Select
End SubEz már a fix cellákat és az értékeket másolja, így az megoldva.
Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat. -
Delila_1
veterán
válasz
Cufter
#12873
üzenetére
Ehhez meg kell adnod a fix cellák helyét, és azt is, melyik sorba másoljon.
A képletet vigye át, vagy a képlet eredményét?
"egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön" Ezt már az előbb sem értettem.
-
Cufter
tag
válasz
Delila_1
#12872
üzenetére
Köszi, kiindulásnak nem rossz.
Két fontos és egy kényelmi változtatás kellene még:1: A cella képlettel számított értékeket tartalmaz, így ezeket kellene átvigye, ne a hivatkozást.
2: Egymás alá helyett egymás mellé kellene tegye a másolandó cellákat, de egymás alatti sorba minden új rögzítésnél.
Kényelmi: Kijelölés helyett fix cellákat kellen másoljon.Köszi
-
-
Cufter
tag
Sziasztok!
Szükségem lenne egy olyan makrora?, vagy excell parancsra?, mely adott cellák értékét egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön, minden egyes adatbevitel gomb megnyomására.
Köszönöm előre is segítségetek! -
#12870
Delila_1
veterán
exceltanulo
#12869
Delila_1
veterán
válasz
exceltanulo
#12869
üzenetére
Erre gondoltál?
-
#12869
exceltanulo
csendes tag
exceltanulo
csendes tag
Sziasztok. Remélem tud valaki segíteni, nagyon hálás lennék.
Tegyük fel van 4db excel fájl:
=D:\MAPPA\_ÖSSZES\összes.xlsx
=D:\MAPPA\1001\1001.xlsx
=D:\MAPPA\1002\1002.xlsx
=D:\MAPPA\1003\1003.xlsxösszes.xlsx
A oszlopban függőlegesen lefelé a kódok, 1001, 1002, 1003 …
B oszlopba pedig automatikusan szeretném kigyűjteni a fájlokból a kódokhoz tartozó szükséges információt.Manuálisan így működik, ha pl az 1001-es kódhoz, kell a Sheet1'!$C$2 cella tartalma, lesz egy ilyen függvény: ='d:\MAPPA\1001\[1001.xlsx]Sheet1'!$C$2
Kérdésem pedig az lenne, hogy tudom-e függvénnyel automatizálni, ha a cella sarkánál lefelé húzom a képletet, megnézze az A oszlopban a kódot és ez alapján a megfelelő fájlból venné az adatot?
Előre is köszönöm szépen!
-
Delila_1
veterán
válasz
poffsoft
#12866
üzenetére
A .FormatConditions.Delete nem szünteti meg az eredeti formázásokat, csakis a feltételes formázással megadottakat. Kipróbáltam.
A formátum egyszerűbb másolása:
Selection.Copy
Range("A1:B5").PasteSpecial Paste:=xlPasteFormatsA Gauss funkciót is beviheted a feltételes formázásba.
-
#12867
pingvin baby
csendes tag
pingvin baby
csendes tag
Sziasztok!
Szeretném megkérdezni mi az oka annak, hogy az Excelben 2007 nem működik az egyéni margó, tájolás, méret funkció. Miért inaktív?
-
poffsoft
veterán
válasz
Delila_1
#12865
üzenetére
szép képlet.
A feltételes formázást még értem is
Viszont most pont azon dolgozom a makrókkal, hogy a feltételes formázásból fix formázást csináljak(, és excel 2003-am van (2010-ben viszonylag egyszerű)).És lenne egy kérdésem is megint: a range property-knél honnan lehet tudni, hogy melyik csak olvasható, és melyik írható-olvasható? Ill. ha van egy formats típusú objektumom, amit egy range-ből kiolvasok, azt van-e egyszerű mód egy másik cellába beírni?
Vagy marad a tételenkénti, .font, .interior, .border, .pattern tételenkénti kiolvasása-beírása?
Továbbá, a feltételes formázások (és csak a feltételes fromázások ) törlésére van-e valami egyszerű metódus, tekintve, hogy a .formatconditions.delete sajnos a fix formázást is törli?Húsvéthoz viszont a Gauss képletet használtam.
-
Delila_1
veterán
válasz
poffsoft
#12864
üzenetére
Az évben a húsvét vasárnapját ez a makró számítja ki:
Function Húsvét(Év As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Év Mod 19)) - 21) Mod 30) + 21
Húsvét = DateSerial(Év, 3, 1) + D + (D > 48) + 6 - ((Év + Év / 4 + D + (D > 48) + 1) Mod 7)
End FunctionA feltételes formázásba bevettem a húsvét hétfőjét is. A képlet:
=VAGY(A1=Húsvét(ÉV(MA()));A1=Húsvét(ÉV(MA()))+1)Ennél egyszerűbb, ha évente felveszel két tartományt. Az egyiket nevezd el Ünnepnek, a másikat MNnak. Az első tartalmazza az év összes ünnepnapi dátumát, a másik a munkanappá lefokozott szombatokat (az idén 5-öt). A feltételes formázások:
=NEM(HIBÁS(FKERES(A1;MN;1;0))) a szomorú szombatokra, és=ÉS(NEM(ÜRES(A1));VAGY(HÉT.NAPJA(A1;2)=6;HÉT.NAPJA(A1;2)=7;NEM(HIBÁS(FKERES(A1;Ünnep;1;0)))))
a hétvégékre és ünnepnapokra.Külön is veheted a szombatot, vasárnapot, és az ünnepnapokat, ha az Excel verziód megengedi.
-
poffsoft
veterán
válasz
Delila_1
#12863
üzenetére
private sub egészen pontosan.
Feltételes formázással a mozgó ünnepeket (konkrétan csak a húsvét kell, mivel a pünkösd meg pont 49 nappal később jön)????
Hogyan?
Más: A combobox-nál azt hogyan oldják meg, hogy minden egyes karakter-leütésnél csak akkor fogadja el, ha van annak megfelelő a listában? Legalábbis emlékeim szerint a netes űrlapok általában mintha így működnének...
Vagyis , ha a 2000 után a 2211 a következő elem, akkor a "2" után (amire a 2000 kijelölődik) már csak "0"-t vagy "2"-t fogad el a bevitel (és "2"-re máris a 2211 jelölődik ki, sit)?
-
föccer
nagyúr
válasz
Delila_1
#12860
üzenetére
T3-ba akkor kerülne be adat, ha 4 egyforma Kód lenne. Technikailag úgy oldottam meg, hogy a T3-ba kerülő képletek ugyan azok, mint a T2-be kerülő, csak a keresési tartományt 1 sorral lenteből indítottam, így a saját sorát nem veszi figyelmbe, csak az alatta lévő tartományba keres. Elég csúnya megoldás, de működik.
Ismételten rá kellett jönöm, hogy meg kellene tanulnom makrózni... Azzal kb 10 sorban megoldható lett volna az egész.
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#12856
üzenetére
No, már csak egy olyan problémába futottam, hogy nem tudtam minden sorban a lista elejéről keresni, mert akkor mindig ugyan azt (az első) találatot adta. Ezt végül áthidaltam azzal, hogy amikor egy kód elsőként szerepel a listában, akkor az összes utána lévő eset bekerül a mellette lévő sorban, majd amikor másodjára, akkor az első eset nincs benne, amikor harmadjára, akkor az első kettő stbstb...
Erre van valami, nem makrós megoldás? Azaz, hogy az első x találatot az fkeres ne vagye figyelembe?
Köszi,
üdv, föccer
-
föccer
nagyúr
-
Delila_1
veterán
-
föccer
nagyúr
Üdv!
HOL.VAN függvénnyel nézem, hogy van-e még a tömbben további keresendő elem. =HA(G3="#HIÁNYZIK";"-";..............) szintaktika miért nem akar működni? Mit ha már tucatszor használtam volna ilyen esetekre... :-/
Esetleg valami ötlet, hogy hogyan kerülhetném meg ezt az anomáliát?
Adott 2 oszlop, ami tele van adatokkal. Az első oszlopban vannak ismétlődő cellák. A cél az, hogy a megfelelő sorokba egymás után kiírassam a második oszlopban lévő számokat, ha az első oszlopban szereplő kód többször is előfordul. (tehát 1 adatot mindenképpen megtalálok, mert a vizsgált sorban biztosan, hogy szerepel. A többi az opcionális. A legnagyobb ismétlődés elvileg 3, gyakorlatilag 15 esetig felkészítem a táblát.
Köszi,
üdv, föccer
-
Delila_1
veterán
-
Delila_1
veterán
-
poffsoft
veterán
válasz
Delila_1
#12835
üzenetére
Köszi, megoldottam:
találtam egy kész algoritmus-sorozatot:
'This user defined function will return the colour index of the cell reference which is passed as the first argument.
'The number returned will always be between 1 and 52 since this corresponds to the location on the colour palette.
'Once the user defined function has been entered into a code module in the corresponding VBA Project you can use it in your extra column.
'If the cell does not contain any conditional formatting then 0 is returned.
'http://www.bettersolutions.com/excel/EPX299/LI041931911.htmEgy picit átalakítottam, hogy ha nincsen feltételes formázása, akkor az .interior.colorindex-el tér vissza
Most éppen egy combobox elhelyezésével szenvedek a worksheeten, userform nélkül...
Ezzel kapcsolatosan egy kérdésem a jövőre viszont volna:
Ha egy olyan kiválasztás kellene nekem, ahol csakis egy évszámot lehet bevitelként megadni (amelyik évre a besoztás készül), azt hogyan elegáns megoldani? Naptár, combobox, vagy valamilyen legördülő lista?
esetleg van ilyen kész modul ? (évszám bevitel)? -
#12840
Delila_1
veterán
luckyboi82
#12838
Delila_1
veterán
válasz
luckyboi82
#12838
üzenetére
Félreértettem, azt hittem, más füzetekből csatolsz adatokat.
Sub HipAtcimez()
Dim CV As Hyperlink
For Each CV In ActiveSheet.Hyperlinks
CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
Next
End SubA "Z:\" és a "C:\" helyett a teljes útvonalakat írd be. A cellákban a megjelenő szöveg változatlan marad, de az új útvonalról hívja be a linket.
-
VásRló
tag
válasz
Delila_1
#12831
üzenetére
Na igen, rájöttem, hogy a munkalaphoz kellene rendelni.
Így már megy, kösz.De fura, miért kell ehhez a most függvény?
Ami a problémám, hogy több oszlop van, aminek az adatai kellenének, egymás alatti sorok celláiban.
Tehát pl kell 5 egymás melletti oszlop adata, és 5 egymás alatti sorba kellene. Ezt vajon meg lehet csinálni? -
luckyboi82
tag
válasz
Delila_1
#12830
üzenetére
Ezt nem vágom. A hiperlink szövegét hogy tudnám kicserélni,amikor az nem jelenik meg, csak ha a hiperlink szerkesztését nézem,egyesével.? Ez a gondom,hogy keresni se keresi ezt a szöveget,nemhogy cserélni tudnám. A forrás minden cellánál más és más, nem egy adott xls hivatkozott cellája. Így egyesével megy csak.
-
Delila_1
veterán
válasz
Wasquez
#12836
üzenetére
Ugyanúgy, a SZUM függvénnyel összegezheted az órákat, mint bármilyen más számokat, de az összegző cella formátuma legyen [ó]:pp. Ezt az Egyéni kategóriában adhatod meg.
A szombatokon és vasárnapokon kívül az ünnepnapoknak is eltérő külleműeknek kell lenniük. Az idei évben 5 szombat lesz munkanap, ezeknek sem jó a hétvégi kinézet.
Sorold fel a füzetedben – bárhol – az idei ünnepnapok dátumát, és nevezd el a tartományt ünnep-nek. Egy másik tartomány az 5 szombat dátumát tartalmazza, ennek a neve mn (munkanap).
A dátumok feltételes formázását add meg a kép szerint.
http://kephost.hu/share-0D18_4F30C0FC.html
A második képlet:
=ÉS(NEM(ÜRES(A2));VAGY(HÉT.NAPJA(A2;2)=6;HÉT.NAPJA(A2;2)=7;NEM(HIBÁS(FKERES(A2;ünnep;1;0))))) -
Wasquez
senior tag
Sziasztok
Nekem olyan kérdésem volna, hogy egy jelenléti ívet próbálok összerakni, és az időket kéne szummáznom, ehhez mi a legjobb megoldás?
Valamint érdekelne az, hogy azt hogyan lehet megcsinálni, hogy az adott hónapban a hétvégék sorait kijelölje valamilyen megkülönböztető színnel!? -
Delila_1
veterán
válasz
poffsoft
#12832
üzenetére
Csak úgy tudod, hogy makróval végig lépkedsz a tartományon, ugyanazokat a feltételeket adod meg, amik a feltételes formázásban voltak, és megadod a formátumot.
A feltételes formázással színezett cellák színét lekérdezve az eredeti (felt. formázás nélküli) értékeket kapod, és valószínűleg igaz ez a szegélyre, fékövér karakterre, stb. beállításra is. Ki lehet próbálni.
-
poffsoft
veterán
válasz
Delila_1
#12826
üzenetére
A feltételes formázásokkal kapcsolatban van most "kis" gondom:
Szóval, ha egy cellából a feltételes formázások által kialakított végleges formátumot szeretném kinyerni, arra van-e valami megoldás?
(kitöltőszín, mintázat, karakter típus, formátum, karakter szín ami perpill. kellene) -
#12830
Delila_1
veterán
luckyboi82
#12828
Delila_1
veterán
válasz
luckyboi82
#12828
üzenetére
A Csere (Ctrl+h) funkcióval egyszerre le tudod cserélni a Z:\-t C:\-re, vagy a Csatolás-nál átváltod a forrást. Ez utóbbinak a módjára találsz itt a fórumon néhány hozzászólást, ha a csatolás szóra keresel.
-
#12828
luckyboi82
tag
luckyboi82
tag
Sziasztok!
Egy kis segítség kellene! Egy nagy adatokkal teli excel táblám rengeteg külső hivatkozást használ, pdf-ekre hivatkozik , beszkennelt állományokra. Az elérési utam megváltozott z:\... ról c:\....-re. Hogyan lehet kompletten az eredetire visszaváltoztatni a hivatkozási linkeket? Egyenként lehet csak átírni ctrl+k val?
Köszönöm a buta kérdésemre adott okos választ
-
Delila_1
veterán
válasz
VásRló
#12823
üzenetére
A lapodhoz kell rendelned a makrót. Az A oszlop szűrésének módosításakor a C1-be beírja a feltételt. Ehhez azonban a lapon egy cellába (bármelyik cella lehet) be kell írnod a most függvényt: =MOST()
Private Sub Worksheet_Calculate()
Range("C1") = Cells(Range("A2:A65536").SpecialCells(xlCellTypeVisible).Row, 1)
End Sub -
Delila_1
veterán
-
Pá
addikt
válasz
poffsoft
#12820
üzenetére
ezt a funkciót nem ismertem. Jó lenne, de szerintem valamit rosszul csinálok.
Elvileg felosztom az ablaktáblát, a táblázatom mellett megjelenik egy nagy függőleges csík, de ha scrollozok, akkor mindkét oldal mozog.
Érdekes, mert ha vízszintesen osztom fel az ablakok, akkor mindig csak az aktív ablakot scrollozza, de függőlegesnél valamiért nem megy nekem. -
Pá
addikt
Nah, nem hiszem, hogy ez megoldható, de hátha. Lepjetek meg.
Úgy néz ki a munkafüzetem, hogy bal oldalon van egy nagy, több ezer soros táblázat (felső sor rögzítve). A jobb oldalon pedig egy ebből a táblázatból készült kimutatás.
Jó lenne, ha a felső sorhoz hasonlóan a kimutatást is tudnám "rögzíteni". Szóval amikor scrollozgatok össze-vissza a nagy táblázatban,szeretném folyamatosan látni a kimutatást is a jobb oldali üres területen.
szerk: makro nélkül kéne, gondolom így végképp esélytelen, de hátha
-
#12816
rroolleerr
csendes tag
rroolleerr
csendes tag
Sziasztok,
2010 -s Excel -ben probálok parancsgombot letenni, de nem sikerül. Ezt az üzenetet kaptam:
"A Microsoft Excel már nem támogatja a Microsoft Map használatát"
Ez mond valakinek valamit? Nekem nem sokat..
-
poffsoft
veterán
válasz
Delila_1
#12813
üzenetére
Ez nem pont az a megoldás
Ha telepítenie is kell az analysis toolpack-ot, nem biztos hogy megy a melóhelyen
Programozásügyileg?Perpill egy olyan képletet (képlettömböt) használok, ami 1-től 31-ig hozzáadja az adott hónap 1. napjához a számokat(ami a cella saját oszlopszáma), és megvizsgálja, hogy megváltozott-e a hónapszám
. Ez a munkám még makrómentes 
Csak lassan megtelik az egész lapom, és még nem készült el a beosztás
(mert most egy 23-dik variációt kell megpróbálni elkészítenem, amolyan kártyanaptár- formátumra)p.s.: a Köszi
lemaradt... -
-
Delila_1
veterán
válasz
plaschil
#12801
üzenetére
Az első IF-en belül két újabb kritérium már eleve hamis ágra fut.
Az első feltétel vizsgálja az E oszlop i-edik értékét, és csak akkor jut el az igaz ágba, ha ez az érték 72. Te ebbe az igaz ágba teszel két újabb feltételt, ami azt vizsgálja, hogy ugyanez a cella 0.603-mal, vagy 0.615-tel kezdődik-e.
-
plaschil
aktív tag
válasz
Delila_1
#12803
üzenetére
1 bizonyos fájl végére. A bizonyos fájl 3 oszlopból áll. (A, B, C)
Így:
A oszlopba:
B oszlop (i, 2) celláját, tegye a bizonyos fájl A oszlop végére.
C oszlopba:
D oszlop (i, 4) celláját, tegye a bizonyos fájl C oszlop végére.
B oszlopba:
Ez egy kicsit bonyolult, mert a C oszlopba beírt adatoktól függően kell beírnia valamit. Tehát, ha C-be írt pl. 5255-öt, akkor B legyen "ország_1", ha 5345-öt akkor "ország_2" és még 3db ilyen feltétel. -
plaschil
aktív tag
válasz
plaschil
#12801
üzenetére
Javítás:
Nem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***oszlopot*** átteni egy másik fájl végére.
Hanem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***cellát*** átteni egy másik fájl végére. -
plaschil
aktív tag
válasz
Delila_1
#12800
üzenetére
Köszönöm szépen, éjjel 1-ig szórakoztam vele mire megtudtam hogy a "left"-et kell használni ha kezdődést akarok vizsgálni.
Viszont ez az if hibás, vagy nekem nem működik, én is így írtam először:
If Cells(i, 4) = "5415" Or "5415B" Then
Nekem ez csak úgy működött hogy:
If Cells(i, 4) = "5415" Or Cells(i, 4) = "5415B" Then
Most már változott az egész ciklus, úgyhogy így néz ki:
For i = 1 To SorokSzama
If Cells(i, 5) = "72" Then
If (Cells(i, 4) = "5415" Or Cells(i, 4) = "5255" Or Cells(i, 4) = "211B" Or Cells(i, 4) = "5345" Or Cells(i, 4) = "5195") Then
If Left(Cells(i, 2), 5) = "0.603" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 5) = "0.615" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.a" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorből kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.z" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
End If
End If
Next
![;]](http://cdn.rios.hu/dl/s/v1.gif)
9").Copy
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Bomba ár! Dell Latitude 7420 - i7-1185G7 I 16GB I 512SSD I HDMI I 14" 4K I Cam I W11 I Garancia!
- Lenovo Thinkpad T14 üzleti i5-10310u 10th gen. 8-32Gb RAM 256GB-1TB SSD gar.
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- BESZÁMÍTÁS! ASUS A520M R5 5600X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Rampage SHIVA Enermax 650W
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest