-
Fototrend
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
-
#10300
m.zmrzlina
senior tag
m.zmrzlina
senior tag
A fenti táblázatot szeretném formázni úgy hogy a B oszlop háttere is sárga legyen ha a feltétel igaz. A formázás érvényessége =$A$26:$B$1000
Mit csinálok rosszul?
-
Pá
addikt
Van 9 ismeretlenem és hozzá 9 egyenletem.
Gauss-eliminációval meg tudnám oldani, de ha nem muszáj nem szeretnék vele órákat szöszölni. Az lenne a kérdésem, hogy excellel meg lehet ilyet oldatni valamilyen módon?szerk: ha az segít, a 9-nél több egyenletet is tudok adni az excelnek, hogy találjon megoldást, akár 100-at is, vagy még többet (ugyanúgy 9 ismeretlen maradna), ha abból jobban ki tudja következtetni.
szerk: már van is rá egy ötletem, majd este letesztelem
-
-
#10292
adodaniel
őstag
m.zmrzlina
#10280
adodaniel
őstag
válasz
m.zmrzlina
#10280
üzenetére
Igen, csak újraindítás után elfelejti.
-
Geryson
addikt
Egy egyszerű kérdés. Feltételes formázásnál az lenne a jó, ha a kijelölt területet akkor formázná meg, ha a D oszlopba beírok egy "+" jelet.
Beírtam a képletet, ahogy gondoltam, de nem megy:
=(( D : D )="+") (muszáj széthúznom, mert mosolyjelet csinál a "D" betűből!
Hogyan kellene írnom? Köszönöm!
-
#10289
m.zmrzlina
senior tag
m.zmrzlina
#10288
m.zmrzlina
senior tag
válasz
m.zmrzlina
#10288
üzenetére
Másolás>Irányított beillesztés>Jegyzetet
Az ember néha nem látja a fától az erdészt
-
#10288
m.zmrzlina
senior tag
m.zmrzlina
senior tag
Azt tudom, hogy hogyan lehet egyetlen cellához megjegyzést rendelni. A kérdés, hogy lehet-e tartományhoz is megjegyzést rendelni?
Úgy értem, hogy egy tartomány bármely cellája fölé mozgatva a kurzort ugyanaz a megjegyzés jelenik meg de nem kell minden egyes cellához külön külön megírni.
Vagy esetleg az is jó hogy egy cellához megírni a a tartomány többi elemére átmásolni.
Persze makró nélkül!
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
bugizozi
őstag
válasz
DopeBob
#10278
üzenetére
Szia,
ez a probléma engem is foglalkoztat
hasonló a szitu: Excelbe szedek át adatot gombnyomásra makróval Accessből, és amikor egyszer lefutott a kód és az Excel nyitva marad, akkor az Access-t - ahogy írtad - csak írásvédettként lehet megnyitni
vannak a kódomban olyan részek, hogyMode=Share Deny Write;
....
Jet OLEDB:Database Locking Mode=0;ezeket próbáltam variálni kevés sikerrel
Valakinek valami ötlet? 
Ha szükséges bemásolhatom azt a részt a programból ami az Access-re vonatkozik...Előre is köszönöm a segítő hsz-okat!
-
#10285
csdm
senior tag
Sweet Lou 6
#10283
csdm
senior tag
válasz
Sweet Lou 6
#10283
üzenetére
Azt én is próbáltam, de ahol 17-et kellene mutatni ott 18-at mutat, tehát vannak eltérések.
-
DopeBob
addikt
Nem biztos, hogy pont ide kapcsolódik:
Adott egy Access adatbázis, amit egy ember használ, illetve egy másik helyen szerepel ez az adatbázis mint adatforrás, egy excel-es pivot táblában. Ha valaki adatokat kérdez le excel-en keresztül, az Access már csak írásvédettként engedi megnyitni az adatbázist. Lehet ezen valahogy segíteni?
-
#10277
Delila_1
veterán
PowerBuldog
#10276
Delila_1
veterán
válasz
PowerBuldog
#10276
üzenetére
Az adataidat kijelölve – vagy csak valahol benne állva – a Beszúrás, Kimutatás menüvel hozhatod létre.
Elküldöm, amit csináltam. -
#10275
Delila_1
veterán
PowerBuldog
#10271
Delila_1
veterán
válasz
PowerBuldog
#10271
üzenetére
A kimutatást a legördülőiben szűrheted a szobákra, és a helységre is, a diagram a szűrésnek megfelelően alakul.
-
#10274
Delila_1
veterán
PowerBuldog
#10273
Delila_1
veterán
válasz
PowerBuldog
#10273
üzenetére
Nosza! Bár arról volt szó, hogy én küldök egy fájlt.
-
#10272
Delila_1
veterán
PowerBuldog
#10271
Delila_1
veterán
válasz
PowerBuldog
#10271
üzenetére
Jó az itt megadott e-mail címed? Küldenék egy fájlt, ami különböző dinamikus diagramokat tartalmaz.
-
#10271
PowerBuldog
veterán
Delila_1
#10270
PowerBuldog
veterán
válasz
Delila_1
#10270
üzenetére
Azt hiszem ezt most nem értem.
Én egy ilyen fg-t írtam a lakások összeszámolására a szobák száma alapján:
=HA(Dinamikus!$A$1>=10;DARABTELI($E$4:$E$107;1);"")
Egy "Dinamikus" munkalapra csináltam egy csúszkával állítható mezőt, amin változnak az értékek, és az alapján mutatja az összeget szobák száma alapján.
Ezt mivel tudnám úgy kibővíteni, hogy buda/pest.re is szűrje?
Próbáltam egy ilyet:
=HA($B$4:$B$107="pesti";HA(Dinamikus!$A$1>=10;DARABTELI($E$4:$E$107;1);"");"")
viszont ezzel ugyan azt a számot kapom vissza mint ez előző fg-el. -
#10270
Delila_1
veterán
PowerBuldog
#10269
Delila_1
veterán
válasz
PowerBuldog
#10269
üzenetére
Jobb oldalon az Értékeknél ráklikkelsz a Összeg/Szobára, a feljövő gyorsmenüben az Értékmező-beállításokat választod, ott adhatod meg, hogy darabszámot jelenítsen meg.
A diagram kinézetét egyszerűen módosíthatod. Kimutatásdiagram-eszközök, Tervezés, Diagramelrendezések. Igaz, hogy olyan aprók az ábrák, hogy nem sok látszik belőlük, de rájuk klikkelve azonnal felveszi a formát a diagram.
-
#10268
Delila_1
veterán
PowerBuldog
#10267
Delila_1
veterán
válasz
PowerBuldog
#10267
üzenetére
Készíts kimutatást. A Sorcímkékhez jön a Szoba, az Értékekhez szintén, darabszámmal, az Oszlopcímkékhez pedig a Hely.
A mellékelt képen látható területet kijelölve beszúrod a diagramot.
-
#10267
PowerBuldog
veterán
PowerBuldog
#10252
PowerBuldog
veterán
válasz
PowerBuldog
#10252
üzenetére
Delila_1
Ezzel kapcsolatban lenne még egy olyan kérdésem, hogy olyan diagramot szeretnék csinálni, amin 1 oszlopon látszik pest és buda. Mindez a szobák számára lebontva. Vagyis, Lenne egy oszlop, amin az 1 szobás lakások látszanak, és mindemellett ez az oszlop 2 színből állna, buda és pest-re bontva.
Ilyet lehet valahogy csinálni? -
Delila_1
veterán
-
-
Delila_1
veterán
válasz
macikos
#10259
üzenetére
Számmá alakítani egy tartományt legegyszerűbben úgy lehet, hogy a számjegyeket tartalmazó szöveges értékeket szorzod 1-gyel.
Írd be egy cellába (bárhova): 1. Másold (Ctrl+c), majd jelöld ki az átalakítandó tartományt. Jobb klikk, Irányított beillesztés, Szorzás, OK.
A segédcellából törölheted az 1-est. -
macikos
addikt
Sziasztok!
Importált adatoknál a 801,23 így jelenik meg: 801,23
az 1801,23 pedig így: 1 801,23Az a baj, hogy a 801,23 a cellában jobbra húzódik, de az 1 801,23 -ben van egy szóköz, így az balra. Így csak a 801,23-at lehet összegezni, az 1801,23-at, nem. Hogyan lehetne megoldani, hogy az 1 801,23 számként viselkedjen, tehát összegezhető legyen.
Azt próbáltam, hogy manuálisan kitörlöm az 1 és a 8-as közül a szóközt és akkor ugyanúgy 1 801,23-at ír, de ekkor már összegezhető.
Olyan megoldás kellene, ami gyorsan alkalmazható sok cellára. -
#10257
artiny
őstag
m.zmrzlina
#10254
artiny
őstag
válasz
m.zmrzlina
#10254
üzenetére
Köszi segített
-
#10256
Delila_1
veterán
PowerBuldog
#10252
Delila_1
veterán
válasz
PowerBuldog
#10252
üzenetére
A feladat2.xlsx Adatbázis lapján az I4 képletét így adnám meg: =SOKSZOR("|";KEREKÍTÉS(F4/G4;0))
és a feltételes formázásnál is valamelyik feltételhez bevinnék egy = jelet, mert a 4 mFt-os négyzetméterenkénti ár így nem szerepel.
=J4<=4Ha az I oszlopot Wingdins karakterre állítod, csinos kis korongok jelzik majd a milliók számát.
A feltételes formázásnál nézd meg az Adatsávokat, Színskálákat, Ikonkészleteket is.
-
#10255
Delila_1
veterán
PowerBuldog
#10252
Delila_1
veterán
válasz
PowerBuldog
#10252
üzenetére
Mit szólsz ehhez a megoldáshoz?
Az előállítása feltételes formázással:
-
#10252
PowerBuldog
veterán
PowerBuldog
veterán
Hello!
Valaki eltudná nekem mondani, hogy lehet "lyen" dinamikus diagramot csinálni?
Vagy olyan is jelentkezhet, akinek van egy kis ideje és tudna segíteni pár diagram elkészítésében. Ezek lennének a követelmények, és ezen az adathalmazon kéne dolgozni. Már pár dolgot csináltam én is benne.
Köszi
-
artiny
őstag
Excelben ha idővel dolgozunk és azt szeretnénk összegezni, számolni akkor azt milyen formátumban vagy milyen módon töltsük fel a cellák tartalmát?
Azt tudom,hogyan kell választani az idő formátumot...de ha olyan feladat van pl.: a kamion ennyi időt ment és ezeket a végén összeadni (hogyan kell beírni,hogy 3 és fél órát 3:30) -
#10250
Geryson
addikt
Fire/SOUL/CD
#10227
Geryson
addikt
válasz
Fire/SOUL/CD
#10227
üzenetére
Köszönöm, megoldottam!
Most próbálom Delila Al-és főkategóriás javaslatát az érvényesítésnél. Kemény lesz...
Apropó, miért kell kell a szabályoknál "$" jel az oszlopbetű elé? Konkrétan nem is megy a feltételes formázás másképp (egészen pontosan meg, de nem az egész sort színezi be, hanem csak az első oszlopot - mire erre rájöttem besötétedett).
Itt egy példa: =ÉS($A2>0;$F2<=MA();$G2="";DARAB2($A2:$F2)=6)
Ha nincs ott a dollár a DARAB2 zárójele között, megbolondul. De miért kell dollár? Nem értem itt az abszolút hivatkozás értelmét.
-
Mauzes
addikt
Sziasztok!
Az miért van, hogy ha megnyitok egy excel-fájl, majd gyorsan bezárom (pl. látom, hogy nem ez kell nekem), akkor a Win kiírja, hogy sajnáljuk, az excel működése leáll, és lassan, szarakodva zárja csak be. Vagy akár fagyogat is tőle a gép elég rendesen.
Ha hagyok egy kis időt a bezárás előtt, akkor nincs ilyen gond...
-
#10247
Kloden
senior tag
m.zmrzlina
#10246
Kloden
senior tag
válasz
m.zmrzlina
#10246
üzenetére
Hálás köszönetem, siker!!
Gondoltam hogy nem lehet valami bonyolult dolog, de így, hogy még a nevét sem tudtam a funkciónak...
-
#10246
m.zmrzlina
senior tag
Kloden
#10245
-
#10244
Delila_1
veterán
Bluesummers
#10243
Delila_1
veterán
válasz
Bluesummers
#10243
üzenetére
Nagyon szívesen, máskor is, csak ennél nehezebb feladatot ne adj.
-
#10243
Bluesummers
őstag
Delila_1
#10229
-
-
Delila_1
veterán
válasz
ql0qxo
#10232
üzenetére
Ahhoz, hogy a C oszlopban össze tudja hasonlítani a makró az adatokat, a C oszlop szerint kell rendezni a táblázatot. Ha ez nem felel meg, az első üres oszlopba tegyél sorszámot a makró futtatása előtt: az első adat mellé beírsz egy 1-est, és a Ctrl bill. lenyomása mellett lehúzod.
A makró után a sorszámos oszlop szerint visszaállíthatod az eredeti sorrendet.Sub NukuEgyforma()
Dim sor%, usor%
Cells(1).Select 'Rendezés C oszlop szerint
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
usor% = Range("A10000").End(xlUp).Row
For sor% = usor% To 2 Step -1
If Cells(sor%, 3) = Cells(sor% - 1, 3) Then Rows(sor%).Delete Shift:=xlUp
Next
End Sub -
Delila_1
veterán
válasz
ql0qxo
#10230
üzenetére
Ehhez egy kicsit többet kellene tudni a táblázatodról. Pl. hogy hol van a táblázat, melyik oszlopban, vagy sorban fordulhatnak elő duplán az adatok, és hogy a többször szereplő adatok celláját is törölni kell-e (mint a 10228-as kérdésben), vagy csak üresre kell állítani a cellát.
Legegyszerűbb, ha beteszel egy képet.
-
#10229
Delila_1
veterán
Bluesummers
#10228
Delila_1
veterán
válasz
Bluesummers
#10228
üzenetére
Sub Csusztat()
Dim sor%
sor% = 2
Do While Cells(sor, 1) <> ""
If Cells(sor%, 3) + Cells(sor% + 1, 3) = Cells(sor%, 1) And Cells(sor% + 1, 3) > "" Then
Cells(sor%, 3).Delete Shift:=xlUp
Cells(sor%, 3) = Cells(sor%, 1)
End If
sor% = sor% + 1
Loop
End SubA Cells(sor% + 1, 3) > "" feltétel azért kell, mert a példád szerinti C10 cellát törölve az utolsó érték (17. sor) mindkét oszlopban 22, és ebben az esetben az A17=C17+C18, tehát ezt a C22 cellát is törölné.
-
#10228
Bluesummers
őstag
Üdvözletem Mindenkinek!
Szeretnék segítséget kérni, mert nehézkesen megy a VBA a makrón belül, és kezdek megőrülni!
A fenti ábra bal oldala a problémás, jobb oldali a kívánt állapot.
Természetesen nem csak 10-12 sorból áll az Exceles táblázatom, hanem több száz sorból.
Azt szeretném elérni, hogy minden sorban ellenőrizze le az 1. oszlop egy sorát a 2. oszlop ugyanazon szintjével. Azaz:
HA A2 = C2
következő sort ellenőrizze,
ELSE
vizsgálja meg, hogy A10 = C10+C11 (egy számot csak két részre lehet bontani, többre nem).
Ha a két összeg egyenlő lesz A10-zel, akkor C10-be írja A10-es értékét, a C11-es helyére pedig 1 sorral csúsztassa fel az oszlop összes elemét.Ha a két összeg nem egyenlő, álljon le a vizsgálat egy hibaüzenettel.
Remélem jól el tudtam magyarázni.
Köszönöm szépen előre annak, aki tud nekem segíteni benne! Addig is nem adom fel, próbálkozom.
-
#10227
Fire/SOUL/CD
félisten
Geryson
#10226
válasz
Geryson
#10226
üzenetére
Nem tudom milyen módon hoztad létre a szabályt, de inkább így csináld: O2 cellán állva
-
Geryson
addikt
Sziasztok!
Egy furcsa kérdés. Feltételesen szeretnék formázni egy részt, de valami miatt az O2>0 szöveget idézőjelek közé teszi és nem is alkalmazza. Ha meg törlöm, akkor azt mondja, hogy a képlet hibás. Mi a teendőm?
Bocsánat, csak megoldotta, de látom, hogy a cellahivatkozást $-al kell bevinnem, jól látom?
-
vamzi
senior tag
válasz
Delila_1
#10223
üzenetére
Egyelőre lehet hogy az volt a baja, hogy az egyik táblán számként szerepel a hasznos oszlopban lévő érték, a másikon meg szövegként. Most ráeresztettem kicsit egy konvertálást, de ezzel már nagyon szöszöl, majd befejezi
A lényeg, hogy ennek működnie kell akkor a betűkre is. Köszönöm szépen! -
-
vamzi
senior tag
válasz
Delila_1
#10220
üzenetére
Nem képet adtam, hanem gugli doksiként megosztottam a táblát. 2007-es excelt használok. A kis táblán amit adtam azon szépen működik, de sajna a nagy 25.000 soros táblán nem nagyon akarja azt kiírni amit én elvárok tőle. A nagy táblában viszont a "Hasznos oszlop"ban nem csak számok vannak, hanem betűk is pl: F.01930465.01
Ez nem zavarhatja be a működését?
-
Delila_1
veterán
A B3 cellába: {=SZUM((E$3:E$17=A3)*(D$3:D$17>1))}
Ezt úgy tudod létrehozni, hogy beírod a =SZUM((E$3:E$17=A3)*(D$3
$17>1)) képletet, és Shift+Ctrl+Enterrel viszed be. Utána már másolhatod az alatta lévő cellákba.Szerk: a lófogú vigyori figura kettőspont és D betű akar lenni, de ha konvertálatlanra veszem, nem ad félkövér formátumot.
-
#10214
m.zmrzlina
senior tag
fi:zi'k
#10213
m.zmrzlina
senior tag
válasz
fi:zi'k
#10213
üzenetére
Ha az "egészként kezelje" azt jelenti hogy az eredményednek a kerekítés szabályai szerint kell viselkednie akkor a következő egy lehetséges megoldás:
=HA(HIBÁS(KEREKÍTÉS(HA(E19<>"";(E19*D19)*0,9;"-");0));"-";KEREKÍTÉS((E19*D19)*0,9;0))
Ha elég simán elhagyni az eredményből a tizedesvessző utáni részt akkor kicsit egyszerűbb a képlet:
=HA(HIBÁS(INT(HA(E19<>"";(E19*D19)*0,9;"-")));"-";INT((E19*D19)*0,9))
A HA(HIBÁS())-ra azért van szükség mert a KEREKÍTÉS() és az INT() #ÉRTÉK hibát adna E19="" esetben. Gondolom ez előfordulhat hiszen az eredeti képleted kezeli ezt a lehetőséget.
-
fi:zi'k
nagyúr
Sziasztok,
Újra ide tévedtem.
Az alábbi képlethez kérnék segítséget:
=HA(E19<>"";(E19*D19)*0,9;"-")
Ez a P19-es cellában szerepel, és azt kellene megoldani, hogy a kapott eredmény egész legyen. Pontosabban, ha később használom, akkor egészként kezelje. Ezt ha jól sejtem a KEREKÍTÉS fgv-nyel lehet megoldani, bár lehet tévedek.
A lényeg, hogy nem boldogulok.Köszi!
-
#10212
m.zmrzlina
senior tag
Delila_1
#10211
m.zmrzlina
senior tag
válasz
Delila_1
#10211
üzenetére
Jó ötlet!
Köszönöm!
Ennyit egyszerűsítenék rajta a feltételnél:
If IsNumeric(Mid(szoveg, i, 1)) Then
Pedig ezzel a sorral küzdöttem a legtöbbetés a végén a biztonság kedvéért:
CSAKSZAM = szam*1
Igen, és akkor nem kell az ÉRTÉK()-be ágyazni ahhoz, hogy számolni lehessen vele. -
#10211
Delila_1
veterán
m.zmrzlina
#10210
Delila_1
veterán
válasz
m.zmrzlina
#10210
üzenetére
Jó ötlet!
Ennyit egyszerűsítenék rajta a feltételnél:
If IsNumeric(Mid(szoveg, i, 1)) Thenés a végén a biztonság kedvéért:
CSAKSZAM = szam*1 -
#10210
m.zmrzlina
senior tag
DopeBob
#10197
m.zmrzlina
senior tag
válasz
DopeBob
#10197
üzenetére
Nyilván te is észrevetted, hogy a #10200-ban lévő képlet elég könnyen hibázik.Pl ha a megnevezés két szóból áll és szóköz van közte, vagy ha előfordul benne a "db"karaktersorozat.
Ennek kiküszöbölésére nyiss a VB szerkesztőben egy új modult és másold bele ezt:
Function CSAKSZAM(szoveg As String)
Dim szam As String, i As Integer
szam = ""
For i = 1 To Len(szoveg)
If Asc(Mid(szoveg, i, 1)) <= 58 And Asc(Mid(szoveg, i, 1)) >= 47 Then
szam = szam & Mid(szoveg, i, 1)
End If
Next i
CSAKSZAM = szam
End FunctionEttől lesz egy CSAKSZAM() nevű új függvényed amit nagyon könnyen tudsz használni a következőképpen:
Ha az ÉRTÉK() fv-be beágyazod ahogyan a képen van akkor számolni is tudsz a darabszámokkal.
-
#10209
atiska007
senior tag
Fire/SOUL/CD
#10208
atiska007
senior tag
válasz
Fire/SOUL/CD
#10208
üzenetére
Sajnos ez a mentési módszer nem írja felül a Tartalom létrehozása dátumot
-
#10208
Fire/SOUL/CD
félisten
atiska007
#10207
-
atiska007
senior tag
Sziasztok!
Egy kis cheat-re lenne szükségem.
Adott egy excel file, amiben van VB kód, command button stb.
A file 2006.ban készül: tulajdonságok->Részletek->tartalom létrehozása.
Ezt a tartalom létrehozása időt hogyan tudom átállítani, mondjuk a mai napra???
Póbáltam, hogy kimásoltam mindent és beillesztettem egy új file-ba, de a dátum maradt 2006
Help pls!
-
#10206
Fire/SOUL/CD
félisten
perfag
#10205
-
#10205
perfag
aktív tag
Fire/SOUL/CD
#10204
perfag
aktív tag
válasz
Fire/SOUL/CD
#10204
üzenetére
Oly: Én is csatlakoznék egy megjegyzéssel. Valószínűleg azért van, mert Pascalban tanultam programozni, én mindig úgy tudtam, hogy a változók deklarálása az alprogram elején történik. Most megnéztem az Excel VBA Súgót is, a Dim-nél ez áll:
Note:
When you use the Dim statement in a procedure, you generally put the Dim statement at the beginning of the procedure.
Szóval nem kötelező ... de az áttekinthetőség érdekében érdemes lenne betartanod. -
#10204
Fire/SOUL/CD
félisten
Oly
#10201
Annyit had javasoljak, hogy a Goto utasítást csak akkor használd, ha nincs más. A strukturált nyelvek esetén a Goto 99%-ban nem szükséges.
If Len(Dir(Cells(7, 26))) = 0 Then GoTo dirmakego
GoTo csvmakegoEgy ilyen szerkezet, minden vizsgán (bármely strukturált nyelvről is legyen szó) elégtelen...
(a többiről a kódodban nem is beszélve)
(És hidd el, nem elfogultságból mondom, mivel kb 6 évet Assembly-ben dolgoztam, ott meg csak ugró utasítások vannak)Javaslom nézz utána az If...Else...EndIf struktúrának, mert szörnyen használod jelenleg...
-
#10202
Pityke78
őstag
m.zmrzlina
#10184
Pityke78
őstag
válasz
m.zmrzlina
#10184
üzenetére
Nem, nincsen semmilyen makró a excle file-ban. Sőt ha nem jól működik a Ctrl+s parancs és bezárom, majd újraindítom, akkor általában már a mentést csinálja és nem mást.
Egyéb ötlet? -
Oly
őstag
válasz
perfag
#10199
üzenetére
Köszi
Meg is csináltam:
Dim biztos As String
biztos = MsgBox("Létrehozzuk a CSV file-t?", vbQuestion + vbYesNo, "Megerősítés")
If biztos = vbNo Then GoTo vege
If Len(Dir(Cells(7, 26))) = 0 Then GoTo dirmakego
GoTo csvmakego
dirmakego:
Dim dirmake As String
dirmake = MsgBox("A megadott elérési útvonal (" & Cells(7, 26) & ") nem létezik. Létrehozzuk most?", vbQuestion + vbYesNo, "Hiba")
If dirmake = vbNo Then GoTo vege
MkDir Cells(7, 26)
MsgBox "A " & Cells(7, 26) & " mappa létrehozva."
csvmakego:
Dim FNV$
Dim FN$
filego:
FNV$ = InputBox("Kérem a fájl nevét!", "Fájl neve")
FN$ = Cells(7, 26) & Format(Now(), "mmdd") & FNV$ & ".csv"
If Len(Dir(FN$)) = 0 Then GoTo nincsilyen
Dim felulir As String
felulir = MsgBox("A file (" & FN$ & ") már létezik! Felülírjuk?", vbQuestion + vbYesNo, "Megerősítés")
If felulir = vbNo Then GoTo filego
nincsilyen:
Application.DisplayAlerts = False
Sheets("table").Select
Sheets("table").Copy
ActiveWorkbook.SaveAs Filename:=FN$, FileFormat:=xlCSV, _
CreateBackup:=False, Local:=True
ActiveWindow.Close
Sheets("make").Select
Range("A11").Select
If Err.Number <> 0 Then
MsgBox "Akkor fuss neki újra! :)"
Else
MsgBox "A file lértehozva: " & FN$, vbInformation, "Sikeresen létrehozva"
End If
vege:
End Sub
Köszönöm, sokat segítettél! 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Valakinek valami ötlet? 
Új hozzászólás Aktív témák
Fferi50- World of Warships
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Tőzsde és gazdaság
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- Milyen notebookot vegyek?
- Kerékpárosok, bringások ide!
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- PlayStation 5
- Milyen monitort vegyek?
- Spórolós topik
- További aktív témák...
- BESZÁMÍTÁS! Gigabyte H610M i5 12400F 32GB DDR4 512GB SSD RTX 3070 8GB Zalman Z1 PLUS A-Data 750W
- GYÖNYÖRŰ iPhone SE 2020 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2183, 100% Akksi
- HIBÁTLAN iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3109
- GYÖNYÖRŰ iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3209, 94% Akkumulátor
- HIBÁTLAN iPhone 12 Mini 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3453
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő