Hirdetés
- Projektor topic
- 3D nyomtatás
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Picit gazdaságosabb és halkabb lett a PlayStation 5 Pro legfrissebb verziója
- TCL LCD és LED TV-k
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen videókártyát?
- Google Chromecast topic
- Új versenyző áll rajtvonalhoz a tápok világában
- Azonnali alaplapos kérdések órája
-
PROHARDVER!
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
-
-
Fferi50
Topikgazda
válasz
moklys1
#27088
üzenetére
Szia!
Ne keseredj el.
1. Senki nem úgy születik, hogy a kisujjában van az excel... Én is szinte minden héten tanulok valami újat, pedig több (tíz)éve foglalkozok vele.
2. Egy csomó egyéb dologban valószínűleg Te vagy sokkal jobb.Üdv.
(Tudod, elég régóta létezik a munkamegosztás...) -
azopi74
addikt
válasz
karlkani
#27087
üzenetére
Ja, azt nem írtam, hogy ha így, relatív hivatkozásként természetesen az A3 cellán állva kell beírni. Vagy átírjuk abszolútra, és akkor mindenhol ezt az értéket adja vissza. Azért írtam relatívként, mert gondoltam nem csak két cellán akarja használni, de lehet szabadon fixálni sort vagy oszlopot.
-
karlkani
aktív tag
A1 100, 200, 300
B1 =BAL(A1;SZÖVEG.KERES(", ";A1;1)-1)
C1 =KÖZÉP(A1;HOSSZ(B1)+2;SZÖVEG.KERES(", ";A1;HOSSZ(B1)+2)-(HOSSZ(B1)+2))
D1 =JOBB(A1;HOSSZ(A1)-HOSSZ(ÖSSZEFŰZ(B1;" ";C1;" ")))
A2 100
A3 =B1+C1+D1+A2Így is működik, bár kell hozzá 3 segédoszlop... (lehet, hogy egyszerűbben is megoldható)
-
-
karlkani
aktív tag
válasz
Delila_1
#27071
üzenetére
Na igen, én makróval tudtam megoldani, úgy-ahogy.A makró azopi74 kolléga segítségével lett elhagyva. Közel 20 munkalapom van egy fájlban, egyikben sincs, gondoltam jobb is így. Makróval azt sem tudtam megoldani, ha beírok egy mezőbe, de ugyan azt a számot, ami ott van, akkor ne változzon a módosítás ideje. A körkörös hivatkozással ez így működik.
Nem azért lett ilyen. A legfőbb indok, hogy nem csak makrós cellák vannak az oldalon, s a makró lefutása után nem tudom visszavonni azt, amit esetleg előzőleg rosszul vittem be máshova, se a makrót...
-
-
karlkani
aktív tag
válasz
Delila_1
#27069
üzenetére
Szia!
Simán ráállok a cellára, beírok valamit, ami nem 0-100 közti egész szám, majd ütök egy entert, akkor beírja, az összesítő cellában kiírja, hogy #ÉRTÉK, majd ezzel egy időben feldobja a kis ablakot, hogy a felhasználó nem engedélyezi az adott bevitelt. Rákattintok a mégse gombra, visszaáll az előzőre, viszont a körkörös hivatkozásoknál, ahol ugyancsak #ÉRTÉK jelent meg, megmarad a mégse gomb lenyomása után.
A 3 mező az alábbiakat tartalmazza:
E9 =HA(ÉS(C9<>"";F9<>C9);MOST();HA(C9="";"";$E$9))
F9 =HA(C9="";"";HA(VAGY($E$9="";ÉS(SZÁM(F9);C9=F9));F9;C9))
C10 =E9C9 =SZUM(D3:D8)
Csak akkor lesz ismét jó, ha az F9 cellára állok, majd a szerkesztőlécre lépek, majd vissza a munkalapra.
-
Delila_1
veterán
válasz
karlkani
#27068
üzenetére
Ha az érvényesítést úgy oldod meg, ahogy Fferi javasolta, csak a megadott 0 és 100 közötti egész számokat tudod bevinni a cellába, alfanumerikus adatot, kisebb vagy nagyobb számot, törtet nem.
Van mód a megadott tartományon kívüli adat bevitelére, de ahhoz az érvényesítés párbeszéd Hibajelzés fülén az Érvénytelen adat beírásakor hibaüzenet jelenjen meg előtti négyzetből ki kell venned a pipát, ami alapértelmezésben ott van.
A Figyelmeztető üzenet fülön adhatsz egy ilyesmi szöveget: Ebbe a cellába 0 és 100 közötti számot írhatsz. A cella fölé állva egy sárga hátterű négyzetben jelenik meg a megadott figyelmeztetés. -
karlkani
aktív tag
válasz
Fferi50
#27064
üzenetére
Szia!
Tudom, hogy csak egész számokat fogad el, de elütés esetén a számított mezőben #ÉRTÉK jelenik meg azonnal, mert számot betűvel, írásjellel, stb., nem tud szorozni (beírja, csak hibaüzenet jön fel és nem engedi, hogy ott maradjon). Viszont a SZORZAT képletet alkalmazva a sima =A1*B1 helyett, jó. Ugyan, ilyenkor a "nem szám" karaktert 1-nek veszi (mintha 1 db-ot írtam volna, ezért nincs összegzéskor hiba), de az érvényesítés úgyis jelzi, hogy baj van. Innentől kezdve nincs szükség lenyíló menüs listára, mert a módosítás dátumának helyén nem fog #ÉRTÉK megjelenni, amit csak a két rejtett oszlop felfedésével, majd az alábbi képletnél a szerkesztőlécre lépve, majd vissza a munkalapra (ctrl+alt+F9-re innél semmi sem történik).
=HA(C9="";"";HA(VAGY($E$9="";ÉS(SZÁM(F9);C9=F9));F9;C9)) -
Fferi50
Topikgazda
válasz
moklys1
#27066
üzenetére
Szia!
Némi trükközés kell hozzá, ha nem angol nyelvű az exceled:
Pl. egy cellába beviszed ezeket az értékeket:
="01January02February03March04April05May06June07July08August09September10Oktober11November12December"
Ha ezt az A1 cellába tetted, a dátumod pedig az A2 cellában van, az eredményt az A3 cellába a következő képlettel kaphatod meg:=DÁTUM(JOBB(A2;4);ÉRTÉK(KÖZÉP(A1;SZÖVEG.KERES(KÖZÉP(A2;4;SZÖVEG.KERES("-";A2;5)-4);A1)-2;2));BAL(A2;2))
Persze lehet táblázatos formában is bevinni egy tartományba a hónapneveket és akkor a hol.van függvény adja a hónap számát.
Üdv.
-
Fferi50
Topikgazda
válasz
karlkani
#27063
üzenetére
Szia!
Erre írtam neked, hogy az érvényesítés párbeszédpanelján a megengedve lenyílóban válaszd az egész számot - ne a listát! - és add meg alsó értéknek a 0 felső értéknek a 100 értéket.
Ebben az esetben nem fog betűt elfogadni és más számokat sem. Sehova nem kell felsorolni a számokat.
Próbáld ki lsz.Üdv.
-
karlkani
aktív tag
válasz
Fferi50
#27062
üzenetére
Szia!
Ezen a munkalapon 500-20000-ig vannak a papírcímletek, darabszám, érték összesen az adott bankjegyből, a címletek összértéke, valamint a módosítás ideje. Az idő körkörös hivatkozással lett megoldva, egy fórumtárs segítségével, ami szépen működik is. Viszont, ha nem számok kerülnek a darabszámos mezőkbe (véletlen elütöm), akkor a módosítás dátumára kapok egy #ÉRTÉK! hibaüzenetet. Emiatt kell legördülő lista, érvényesítésnél kellene forrásnak megadni 0-100-ig az egész számokat. Gondolom erre marad az, hogy egy oszlopban 0-100-ig elkészítem a cellákat, majd azt adom meg forrásnak, esetleg az oszlopot elrejtem...
Már át is szerkesztettem a képleteknél!
-
Fferi50
Topikgazda
válasz
karlkani
#27061
üzenetére
Szia!
Mit értesz az alatt, hogy kézzel ne lehessen beírni? Az adatérvényesítésnél ha listát adsz meg, akkor nem fogad el csak olyan tételt, amelyik benne van a listában, ez kiválasztható és be is írható. Tudtommal nem lehet olyat csinálni, hogy a cellába ne lehessen írni. Ugyanis, ha levéded a cellát, akkor nem működik a beírás a cellába, de a listából sem lehet választani.
Viszont, ha ténylegesen 0-100 közötti számot lehet választani, akkor miért nem az egész szám és min 0 max 100 érvényesítési feltételt választod?A Ha feltételes kifejezésednél annak a cellának a címét, amelynek az értékét szeretnéd megjeleníteni, abszolút módon kell megadnod: =Ha(igaz;$A$1;"-")
Üdv.
-
karlkani
aktív tag
Sziasztok!
Lenne két kérdésem.
Létre szeretnék hozni egy cellába egy érvényesítéses listát, melynek elemei 0-100-ig az egész számok, de a cellába kézzel ne lehessen beírni, kizárólag a legördülő listából lehessen választani. "Oszlopos" módszerrel a számokat megoldom, bár jobb lenne magánál az érvényesítés forrásánál megoldani ezt, ha lehet. A kézzel történő beírás kiküszöbölése viszont nem megy. Megoldható valahogy?
Van egy HA függvény, ha teljesül, visszaadja egy cella értékét, ellenkező esetben "-"-t ír. Ha megfogom és "lehúzom", mondjuk 31-ig az oszlopban, igaz állítás esetén az első cella érték +1 sor, +2 sor, +3sor, stb lesz. Hogyan oldható meg, hogy minden egyes képletben igaz állítás esetén ugyan az a cella értékét adja vissza?
Előre is köszönöm!
-
Delila_1
veterán
válasz
sedyke
#27058
üzenetére
3 kérdésem van
1. Ha 2003-asnál magasabb verziót használsz, makróbarátként mentetted-e a füzetet?
2. Az aktuális dátumnak a T oszlopban kell megjelennie, mikor a D-be írsz. Oda írsz?
3. A lapodhoz rendelted a makrót?Ha minden lapon el szeretnéd érni, hogy a D oszlopba történő íráskor a T-be íródjon be a dátum, akkor a makrót a ThisWorkbook laphoz kell rendelned.
-
Fferi50
Topikgazda
válasz
wody21
#27055
üzenetére
Szia!
Először kérdés: mit kell tenni az olyan adattal, amelyikhez nem tartozik mezőnév (pl. érték_3,érték_4 stb.)?
Több lépésben oldanám meg:
Egyrészt csinálnék egy fejlécet, mondjuk mezőnév, adatok a két oszlop első cellájába.
Ezután speciális/irányított szűrőt alkalmaznék először a mezőnévre, egyedi értékekre, más helyre másolva.
Majd minden egyedi mezőnévvel alkalmaznék speciális/irányított szűrőt - más helyre másolva, csak az egyedi értékre, de már a két oszlopra együtt. Az adatok oszlopba került tételeket szépen áttenném az adott mezőnév alá.Ez szűrések és adatok "áthúzgálásának" sorozatát jelentené, de szerintem gyorsan menne.
Javaslom az irányított/speciális szűrő help elolvasását.
2003-ig irányított, azóta speciális a "paraméterezhető" szűrés neve - nagyon sokoldalú eszköz egyébként.Üdv.
-
wody21
tag
Kedves feketeöves Excel guruk!
A mellékelt képen látható az én problémám.
Van egy "meglévő adattömb", melyhez két (vagy több, ez szerintem nem kritikus) oszlopban tartalom van fűzve. Első oszlopban "mező nevek", másodikban a mezőkhöz tartozó értékek. A mezőnevek ismétlődnek, de nem szabályosan, mert vannak olyan "tömbök", amelyben vannak a trendet felrúgó' mezők - így nem szabályos rendben van az egész lista, nem lehet sorrendbe rakni azt, nem lehet egyszerűen index-hol.van fgv.kombókkal keresgélni (vagy is én bírtam kitalálni erre semmit). Ezen "tömbök" között két üres cella található. Egy ilyen "tömb" esetében a mező_a-hoz kapcsolódó érték_1 valamilyen ID, és azon ID-hez tartoznak még adatok, amiket jó lenne kihalászni valahogy.
Hogy lehetne megoldani azt, hogy bizonyos mezőkhöz tartozó értékek listáit összeállítsuk, s a "Cél" alatt jelzett forma szerinti kimenetet kapjunk?
Köszönöm előre a segítséget!
Üdv:
w21. -
-
-
Törpella
csendes tag
válasz
theo11
#27048
üzenetére
Szia,
Szerintem ha táblázatban használod a képletet, akkor nem ké'ne neki elcsúszni...
Úgy értem ahonnan az átlagot számolod, alakítsd át táblázattá (vagy a beszúrás - táblázat, vagy a ctrl+L kombival)
Asszem sikerülni fog ezen a módon
(és itt már nem kell beszúrogatni a sorokat, mert ha a végére írod, automatikusan hozzáadódik a táblázatodhoz...
) -
theo11
csendes tag
Sziasztok!
Van egy fuvarlistám ami rendszeresen frissül. Mindig az utolsó 5 fuvar árának az átlagára van szükségem. Addig jutottam, h használom az átlag képletet, viszont ha új sort szúrok be, akkor eltolódik minden és az új sorral már nem számol. Van erre lehetőség, h mindig az utolsó 5 sornak az átlagát vegye és ne kelljen képletet mindig átírni? Remélem érthető mit szeretnék.
Köszi előre is.
-
DeFranco
nagyúr
válasz
Recon666
#27040
üzenetére
hát ezt sokféleképpen meg lehet oldani, kérdés, hogy a tanár mit fogad el helyes megoldásnak, milyen függvények voltak a tananyagban.
a gyakoriság a fő kérdés, egy szumhával is meg tudod csinálni, de lásd fent, a relatív gyakoriságnál a gyakoriságnál kapott értéket osztod az egésszel (aztán %-ra teszed a formátumot)
kumulált gyakoriság az a gyakoriság és a fölötte levő gyakoriságok összege (tehát a 20-40 sorban a 0-20 és a 20-40 gyakoriság összege és így tovább), kumulált relatív az meg az előző szintén az egészhez viszonyítva.
de szerintem ha van egy jegyzetetek, akkor abból max. egy óra munkával önállóan is megcsinálható, egy képletet kell tudni a gyakorisághoz a többi adja magát.
szerk: francokat: szerintem tuti a gyakoriság függvényt kérik számok
-
Fferi50
Topikgazda
válasz
Des1gnR
#27030
üzenetére
Szia!
Sajnos az aposztrof ebben az esetben formázási jel, amit nem tudsz így kicserélni.
Javaslatom: Jelölj ki egy normál formázású oszlopot, utána másolás - ráállsz az"aposztrofos" oszlopra - irányított beillesztés - formázás.Ezzel szerintem eltűnnek az aposztrofok.
Üdv.
-
#27035
Fferi50
Topikgazda
dellfanboy
#27022
Fferi50
Topikgazda
válasz
dellfanboy
#27022
üzenetére
Szia!
Sajnos ez így nagyon kevés ahhoz, hogy érdemi segítséget tudjak adni, csak találgatok (mint az egyszeri rabbi...)
Ott kezdődik a dolog, hogy a 2007-es fájl már xlsx kiterjesztésű és nem xls. Ha xls a kiterjesztése, akkor az még egy korábbi verzió.
A "summary-k" azok kimutatás formájában léteznek? Ha igen, akkor az növeli a fájl méretét, ha mentéskor a forrásadatokat is "menteted" a fájlban (ez egy opciós lehetőség a kimutatás beállításai között), ennek előnye, hogy a fájl megnyitásakor azonnal látod a kimutatást, sőt "hordozható is", mivel nem "nyúl vissza" megnyitáskor az eredeti fájlhoz. Hátránya viszont a fájlméret növekedés.
Ha már xlsx (vagy xlsm) kiterjesztésű a fájlod, akkor más módszer is van annak kiderítésére, hol van a nagy méret.Javaslom, hogy priviben tárgyaljuk meg a témát, akkor olyat is mutathatsz, ami nem tartozik a nagy nyilvánosságra valami miatt.
Üdv.
-
Delila_1
veterán
-
-
-
-
Szöveg alapból, de azt hiszem, hogy meg van a hiba.
Ha rámegyek egy + jelre, akkor a szerkesztőben ezt látom: '+, a negatívnál szintén: '-
Ha cserélni akarom vagy rákeresek, akkor így nem találja: '+ csak + ként.
Mit tudok ezzel kezdeni? Ha 1-esre cserélem, akkor '1 lesz a helyén. -
Louro
őstag
válasz
TheSaint
#27021
üzenetére
Megnyitásmentességhez: [link]
A változóhoz:
Dim pathname, filename as stringpathname = "C:\valami\mégvalamibb\ez nem semmi\"
filename = "ez a legjobb fájl a világon.xlsxxx"A fájlnevet ciklussal is generálhatod.
for i=10000 to 10500 step 5
filename = "királyságos_" & i & ".xlsxxx"
nextCsak akkor a fájlműveleteket is a ciklusba tedd
Különben csak a legutolsóval fog dolgozni.Remélem tudtam segíteni.
-
Louro
őstag
válasz
Des1gnR
#27020
üzenetére
Első körben megnézném, hogy átírva 0-ra és 1-re is ugyanazt csinálja -e. Ha igen, akkor más a bibi. Ha nem, akkor a + és a - jelekkel lesz gondja. Hmm, nekem működik. Most gyorsan kipróbáltam.
Akkor második körben azt nézném meg, hogy az egész tábla egy új munkafüzetbe...néha fura, de megold dolgokat új excelbe átmásolva.
(#27023) dejak: Esetleg jobb klikk kép formázása alatt nincs opció, hogy margót állíts? Én erre gyanakszom. Esetleg, mint wordben, hogy a celláktól függetlenül "lebegjen"?
-
dejak
újonc
Sziasztok!
Az a gondom, hogy ha képet helyezek el egy cellában, az nyomtatáskor jobbra eltolódva jelenik meg. Kb 5 mm-rel teszi arrébb az excel ahhoz képest, ahogy én elhelyeztem. Kipróbáltam szövegdobozzal is, avval is ugyanezt csinálja. Tudtok erre valami megoldást?
Előre is köszönöm.
-
#27022
dellfanboy
őstag
Fferi50
#27015
dellfanboy
őstag
válasz
Fferi50
#27015
üzenetére
köszi++
az normális hogy ott nem tudok válaszolni?
szia
köszi a segítséget
2007-es az xls-em de ezt a napokban fogják updatelni.
mintát feltölteni nem tudok de leírok 1 példát
van 1 xls ügyfél adatokkal,név,id1,id2 ország,megye,város,F/L,kor
1másik hogy mit vett tőlünk(telco-it szolgáltatás) elég részletesen
harmadik hogy amit eladtunk neki az milyen főkönyvre van bekötveés ebből vannak summaryk hogy pl
mobil bevétel mennyi /ország/megye/város/kor bontásban a mobil bevételből mennyi az sms, internet stb. ha változott miért vett-e ilyen bővítő cuccot stb. -
Sziasztok!
Nem használtam még korábban szűrőt és most, hogy használnám nem úgy működik ahogy kellene.
Néztem róla oktató videót és az alapján csinálnám, de valami nem stimmel.Szóval van egy nagy adatbázisom amiben termékek vannak. Az egyik oszlop tartalmazza, hogy a termék van-e készleten avagy nincs. Ezt + és - jelölésekkel teszi.
Összesen 41685 termék van, ebből nagyjából 20e mellett van + jelzés.A szűrőt így állítom be:
Ekkor ugyan úgy 41685 terméket mutat és mind mellé + jelzést tesz.
-
#27015
Fferi50
Topikgazda
dellfanboy
#27014
Fferi50
Topikgazda
válasz
dellfanboy
#27014
üzenetére
Szia!
PC-fórumon írtam választ, nézd meg lsz.
Üdv.
-
#27014
dellfanboy
őstag
dellfanboy
őstag
sziasztok
technikai kérdésem lenne, csak a logikában segítsetek a kivitelezés még várat magára
van egy közös meghajtóm ahol van kb 10 xls amit 10 különböző kolléga tölt havi rendszereséggelezek össze vannak linkelve több file-ba ami hó végén kidob egy több előre meghatározott formában lévő prezit.
mivel elég nagy file-ok több tíz mb sokszor van hogy lefagy, ill #HIV-re fut. ill. van amikor vki az utolsó pill-ben/módosítja nem módosítja ami borít mindent...hogy tundám ezt jobban racionalizáni hogy gyorsabb egyszerűbb jobb legyen?
tehát több xls-t tölt mindenki ebből jön több riport ezt szeretném racionalizálni.
-
#27012
Louro
őstag
Gravity1234
#27010
Louro
őstag
válasz
Gravity1234
#27010
üzenetére
Szia,
erre az if függvényt használnám. Igaz sok beágyazással, de nem vészes.
Az eleje változatlan. Az egyenlőség utáni részt frissíteném.
.... = "=IFERROR(IF(A1/25<25/2,""0%"",IF(A1/50<25,""25%"",IF(A1/75<75/2,""75%"",""100%""))),""Kérlek számot írj a vizsgálandó mezőbe."")
Amit csinál: Ha A1-et elosztva 25-tel kisebb, mint 12,5, akkor 0%. Ha nem teljesül, akkor A1/50 kisebb, mint 25, akkor 25% és így tovább.
Természetesen, ha nem A1-ből indul, akkor a megfelelő első cellára kell írni. A makró okosan átírja a majd a hivatkozásokat, ha nem teszel bele dollárjeleket.
-
#27010
Gravity1234
tag
Louro
#27007
Gravity1234
tag
Bocsanat, rossz infokat adtam meg....
Arra lenne szukseg, hogy:
- Adottak viszonyitasi pontok %-ban (0,25,50,75,100)
- Vannak szamaim, random jelleggel (amik egyebkent meg lehetnek nem egesz szamok is)Azt szeretnem ha a random szamok melle (amiket onmagaban is mar kerekitek) rendelne egy a fenti viszonyitasi pontokban meghatarozott %-ot, azaz hova esik az adott szam es ily modon kerekites ez is.
Pl:
5 (0 es 25% kozott a feletol lefele esik tehat akkor 0%-ba tartozik)
12,5 (0 es 25% kozott pont a fele legyen akkor felkerekitve 25%)
37,6 ( legyen maga a random szam is felkerekitve mar 38-ra, es akkor a 38 a 25 es 50 koze esve 25%-ot kapjon)Es angol fuggvenyekkel, magyart nem hasznalok...
-
tombar
senior tag
+ (#27008) Louro
mind2t próbáltam. az a para h túl nagy maga az aktív cella tartomány és valszeg már nem tudja olyan kicsire összenyomni. legalábbis ezt onnan szűröm le h a custom sclaing-nél nem engedi tovább kicsinyíteni, mint 10%
alapvetően nagy méretre szabták az eredeti méretet. a vicces az h egyszer ki lett nyomtatva, de nem tudják h hogyan 
azért köszönöm szépen -
#27007
Louro
őstag
Gravity1234
#27004
Louro
őstag
válasz
Gravity1234
#27004
üzenetére
Range(Cells(kezdősorszám,kezdőoszlopszám),Cells(végsősorszám,végsőoszlopszám)) = "=KEREK.FEL(Ide pedig az első cella kell dollárjelek nélkül, mennyi tizedest szeretnél)"
Pl: Range(Cells(1,1),CElls(2,10) = "=KEREK.FEL(A1,2)"
vagy
Range("A1
66") = "=KEREK.FEL(A1,2)" -
tombar
senior tag
sziasztok
ms excel-nél van egy olyan jellegű problémám, hogy egy darab xlst nem akar úgy kinyomtatni, hogy 1 munkalap illeszkedjen egy A4es oldalra. minden másnál megy, ennél nem. esetleg valamilyen megoldás van, vagy marad a több oldalas nyomatatás?
előre is köszönöm a segítségeteket.
-
#27004
Gravity1234
tag
Gravity1234
tag
Hello!
Mi lehet jo es egyszeru megoldas arra, ha nem egy adott cellaban hanem range-ben levo szamokra akarok kerekitest?
Koszi -
Louro
őstag
Szia,
ha jól értem annyi fájlt akarsz, ahány sorod van -1 (a fejléc miatt).
Ha igen, akkor ciklussal addig mennék ahány sor van. Megkommenteztem a kódot, de nem teszteltem. De hátha a logikai út segít.
Dim SourceBook, NewBook as Workbook
Set SourceBook = ActiveWorkbook
For i = 2 to ActiveSheet.UsedRange.Rows.Count 'Ha nincs fejléc, akkor mehet 1-ről is
Set NewBook = Workbooks.Add
'Itt első oszloptól 10. oszlopig mindent másol. De a logika alapján talán már megvan miképp tudsz
'kiszedni cellákat.
SourceBook.Worksheets("A munkalap neve").Range(Cells(i,1),Cells(i,10)) = _
NewBook.Worksheets(1).Range(Cells(1,1),Cells(1,10))
'Mentsük el a fájlt a sorszám alapján és zárjuk be. Majd ugrás a következőre. Fájlnévnek fontos,
'hogy a változót tedd be, hogy ne legyen ütközés. Akár Filename:="Tesco_tej_" & i & ".xlsx"
NewBook.Close Filename:= i & ".xlsx", SaveChanges:=True
Next -
#27002
Cifu
félisten
Árnymester
#26982
Cifu
félisten
válasz
Árnymester
#26982
üzenetére
Próbálkozom, de sehogy sem sikerül....
A probléma (ha jól látom) a következő:
A nekem nem külön munkalapokra, hanem komplett excell fájlokba kellene másolnom, tehát a '2014q3.xlsx' fájl 'munkalap1' munkalapján vannak az adatok, a második oszlopba vannak a vonalkódok, aztán az adatok a következőkbe (pár oszlop lényegtelen a számomra).
Ezekből kéne 'C oszlop' nevű új workbookot (.xlsx) fájlt létrehozni, amelybe átmásolom az adott sor bizonyos celláinak tartalmát, majd a fájlt bezárni, és folytatni a következő sorral.
Szóval valami ilyesmi lenne (csak ez még mindig nem működik
):Sub WorkbooksAdd()
Dim munkalap1 As Worksheet
Dim wborig As Workbook
Dim r As Integer, count As IntegerSet wborig = "2014q3_int.xlsx"
Set munkalap1 = ActiveSheet
r = 5
Do Until Not IsEmpty(munkalap1(r, B))Application.ScreenUpdating = False
y = (wborig.munkalap1(r, C)
strPath = ThisWorkbook.Path
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=y.Name
'Címsor másolása
ActiveSheet.Cells(1, 1).Value = wborig.munkalap1.Cells(4, B)
ActiveSheet.Cells(1, 2).Value = wborig.munkalap1.Cells(4, C)
ActiveSheet.Cells(1, 3).Value = wborig.munkalap1.Cells(4, D)
ActiveSheet.Cells(1, 4).Value = wborig.munkalap1.Cells(4, K)
ActiveSheet.Cells(1, 5).Value = wborig.munkalap1.Cells(4, T)
'Adatok másolása
ActiveSheet.Cells(2, 1).Value = wborig.munkalap1.Cells(r, B)
ActiveSheet.Cells(2, 2).Value = wborig.munkalap1.Cells(r, C)
ActiveSheet.Cells(2, 3).Value = wborig.munkalap1.Cells(r, D)
ActiveSheet.Cells(2, 4).Value = wborig.munkalap1.Cells(r, K)
ActiveSheet.Cells(2, 5).Value = wborig.munkalap1.Cells(r, T)For Each wb In Application.Workbooks
If Not wb.Name = ThisWorkbook.Name Then wb.Close SaveChanges:=Truer = r + 1
LoopApplication.ScreenUpdating = True
End Sub
(/IMG)[/L]](http://cdn.rios.hu/dl/upc/2015-05/21/191527_opla0ier4amittp4_nevtelen.jpg "[L:/dl/upc/2015-05/21/191527_opla0ier4amittp4_nevtelen.jpg](IMG:/dl/upc/2015-05/21/191527_opla0ier4amittp4_nevtelen.thumb.jpg)(/IMG)[/L]")
66") = "=KEREK.FEL(A1,2)"
Új hozzászólás Aktív témák
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Tőzsde és gazdaság
- Debrecen és környéke adok-veszek-beszélgetek
- Képregény topik
- PlayStation 5
- Projektor topic
- Tiltott témává tenné Kína az öngyilkosságot az AI számára
- 3D nyomtatás
- Facebook és Messenger
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Decathlonos 43-as boxcipő, alig használt, hibátlan állapotban
- 100/100 - 0Perc - WD BLACK SN850P 1TB - Playstation 5
- Önerő nélkül is elvihető! Részletfizetés. 27 % Áfás számlával Dell Alienware QD-OLED gamer monitor
- BESZÁMÍTÁS! MSI B650 WIFI R7 7800X3D 32GB DDR5 1TB SSD RX 9070 XT 16GB Zalman Z1 PLUS GIGABYTE 750W
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest