-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
sziasztok
ismét kellene egy kis macro segítsége, arra lenne szükségem hogy pl. ha A5:A1000 tarmományban belekattintok akkor írjon ki egy üzenetet és mikor leokézom az üzenetet akkor a szomszédos cella legyen az aktív cella pl. kattintok A5-re megjelenik a szöveg pl. Hello World leokézom és átugrik B5-re.
-
-
-
-
Szia!
File- beállítások -speciális
- más dokumentumokra mutató hivatkozások frissítése -> pipa
- külső csatolási értékek mentése -> pipaValahol az oldal harmadik harmadának elején, E munkafüzet számításakor cím alatt találod.
Szerintem ennek segítenie kell.
Üdv.
hello!
Mind a két beállítás előtt volt pipa korábban is és most is van...
Hol lehet a hiba? Ha valaki próbálkozni akar, szívesen elküldök neki egy fő táblát, ahová be akarom az adatokat tenni és 2-3 háttértáblát, amiből ki akarom szedni az adatokat...
-
Sziasztok!
Nekem most olyan probléma lépett fel a munkahelyemen egy anyagnyilvántartás excel táblázatnál, hogy nem számolnak a képletek automatikusan mikor viszek be értéket. Ez mitől lehet, más számolós fájlok működnek rendesen. Excel 2013 van (eredeti)
Valaki tudna segíteni, mi lehet a baj? -
Szia! Bocsi! 2010-es verzió...
Nekem nem az a bajom, hogy nem visz át adatot, hanem az adat helyét kvázi elfelejti és mindig a legutoljára felvitt adatot teszi be oda is, ahova korábban egy másik adatot vittem át... A szerkesztősorban is folyton a legutóbbi adat külső táblázatára mutat, ha meg rámegyek a cellára, ütök egy entert, akkor újra bekéri, de útvonallal együtt. Viszont innentől ez lesz az útvonala a többinek is. Ha oda is ütök egy entert, akkor oda is bekéri az új útvonalat, viszont az előzőt meg erre az újra megint átírja...
-
Szia!
Nem írtad, melyik excel verzióról van szó. Általában a beállításokban van egy olyan, hogy automatikus csatolás frissítés vagy vmi ilyesmi, ezt engedélyezd.
Másrészt az adatok -menüben van frissítés menüpont, ha arra kattintasz akkor frissülnek a hivatkozások.
Arra viszont számíthatsz, ha sok ilyen "külső" adat van, az bizony igénybevesz egy kis időt, míg frissül.
Ezért célszerű a számítást manuálisra állítani és a kívánt alkalmakkor F9 gombbal újraszámoltatni.Üdv.
-
Sziasztok!
Arra lenne szuksegem hogy a "jelenleti" excelbe gombnyomasra megnyissak egy masik excelt.
Az excel egy bizonyos mappaba (c:/jelen/) van viszont a nevet a W5 cella tartalmabol kene kiolvasnia (kiterjesztes .xls nelkul).
Ha ez megvan akkor egy olyat is csinalhatna hogy a megnyitott excelbe letrehoz egy uj lapot es abba belemasolja a "jelenleti" excel A1:G29 tartalmat majd lementi es bezarja a megnyitott excelt.Elore is koszonom
-
detroitrw
addikt
Sziasztok!
Arra lenne szuksegem hogy a "jelenleti" excelbe gombnyomasra megnyissak egy masik excelt.
Az excel egy bizonyos mappaba (c:/jelen/) van viszont a nevet a W5 cella tartalmabol kene kiolvasnia (kiterjesztes .xls nelkul).
Ha ez megvan akkor egy olyat is csinalhatna hogy a megnyitott excelbe letrehoz egy uj lapot es abba belemasolja a "jelenleti" excel A1:G29 tartalmat majd lementi es bezarja a megnyitott excelt.Elore is koszonom
-
Kiteszed a vigyorit, nem zárod be a testreszabás ablakot.
A kitett ikonon jobb klikk.
Nevet adhatsz, ahol az & jel utáni karakterrel billentyűzetről is meghívhatod a hozzá rendelt makrót (nem ajánlom, mert esetleg felülírsz vele az Excel által használt billentyűkombinációt).Megváltoztathatod a gombképet. Makrót, vagy hivatkozást rendelhetsz hozzá. Meghatározhatod, hogy képet, szöveget, vagy mindkettőt meg akarod-e jeleníteni. Gombképet másolhatsz hozzá más ikonról. A Csoportkezdet az eszköztáron külön csoportba helyezi az ikont.
Még mindig megnyitott a Testreszabás ablak. Egy menüpontra klikkelve (bal gombbal) lenyílik a menü, és oda húzhatod a vigyori fejet, amit kedved szerint módosíthatsz a fent leírtak szerint.
Almenüt a Testreszabás Parancsok fülön az Új menü gombbal húzhatsz fel a kiválasztott menübe.
Ez az ikonos-gombos rész jobb, mint a későbbi verziókban. Azokban csak a fejlesztők által megrajzolt – nagyon szép, de a makró funkcióját nem tükröző – rajzokat rendelhetsz a kitett gombokhoz. Az is jó, hogy almenüket hozhatsz létre könnyedén.
-
Fferi válaszán felbuzdulva a personalomba tettem egy rövid makrót, ami a szerkesztőlécet ki-bekapcsolja.
Ikont, és/vagy gyorsbillentyűt rendelhetsz hozzá. A 2003-as verzióban még saját rajzzal is el tudod látni az ikont.Sub Szerkesztolec()
If Application.DisplayFormulaBar = True Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = True
End If
End SubA personal szóra rákeresve több hsz-t találsz, amik leírják, mit kell tenned.
-
Sziasztok! Egy nagy segítség kellene egy profitól:
adott egy excel táblázat, amely egy összesítő adatokat tartalmazó tábla (pl. egy házépítés komplett). Van emellett több olyan excel file, amelyben egyes munkanemek (pl. tető, falak, burkolás, stb) saját költség adatai vannak több fülön.
Hogyan lehet ezekből a háttértáblákból az adatot átvinni a fő összesítő táblázatba úgy, hogy azok frissüljenek, ha a háttértáblákban változik az érték?
Beírtam az elérési utat, tábla, fül, cella, sikeresen át is viszi. De ha csinálok egy másik behivatkozást egy újabb sorba az összesítő táblában, ahová egy másik excel file-ból viszek át másik adatot, akkor az előző értékét úgy hagyja, ahogy korábban volt, de a szerkesztő sorban az elérési utat átírja a második behivatkozás nevére és nem frissíti, ha az változik, akkor sem...Mi lehet a gond?
-
Egy hibajelenség megoldására kérnék egy kis segítséget. Munkára használt számítógép esetén az excel ilyen hibát dob ki: "Az Excel olvashatatlan tartalmat talált..." stb. XML hibát ír, kérhetjük a javítást vagy nem, ha továbbmegyünk, akkor meg eltüntet minden formázást, diagramot... Korábban nem volt ilyen, most azokkal is ezt csinálja, amik korábban jól jelentek meg.
-
Sziasztok! Ebben kérek segítséget:
Csináltam egy képletet az egyik cellában melynek eredménye másodpercben (pl.1140) van. Egy másik cellában perc és másodperccé =SZÖVEG(U3/24/60/60;"pp:mm") alakítottam (19:00).
Hogyan lehet megcsinálni egy cellában? Tehát az eredeti képlet és a fenti dőlt betűs képlet azaz a számítás és az átalakítás mp-ből óra perccé egy cellában legyenek. -
Üdv!
Egy ideje próbálkozom megformázni egy táblát feltételes formázással, de eddig nem sikerült elérnem a kívánt eredményt.
Az A oszlopban aktuális sorában szereplő értékeket kellene összehasonlítani ugyanazon sor többi oszlopában levőekkel, és ha valamelyik kisebb akkor azt pl. színezze be.
Tehát a képen látható táblázatának csak a B24 -es mezője.
Egy adott sorra sikerült megoldani, de annak formátumát sehogy nem sikerült úgy átmásolni, hogy alkalmazkodjon a sor számához bárhogy állítgattam a feltételben a hivatkozásokat.
-
kacsaesokos
tag
-
Üdv!
Egy ideje próbálkozom megformázni egy táblát feltételes formázással, de eddig nem sikerült elérnem a kívánt eredményt.
Az A oszlopban aktuális sorában szereplő értékeket kellene összehasonlítani ugyanazon sor többi oszlopában levőekkel, és ha valamelyik kisebb akkor azt pl. színezze be.
Tehát a képen látható táblázatának csak a B24 -es mezője.
Egy adott sorra sikerült megoldani, de annak formátumát sehogy nem sikerült úgy átmásolni, hogy alkalmazkodjon a sor számához bárhogy állítgattam a feltételben a hivatkozásokat.
-
Mahatma89
tag
Üdv!
Egy ideje próbálkozom megformázni egy táblát feltételes formázással, de eddig nem sikerült elérnem a kívánt eredményt.
Az A oszlopban aktuális sorában szereplő értékeket kellene összehasonlítani ugyanazon sor többi oszlopában levőekkel, és ha valamelyik kisebb akkor azt pl. színezze be.
Tehát a képen látható táblázatának csak a B24 -es mezője.
Egy adott sorra sikerült megoldani, de annak formátumát sehogy nem sikerült úgy átmásolni, hogy alkalmazkodjon a sor számához bárhogy állítgattam a feltételben a hivatkozásokat.
-
Szia!
A cserélendő adatok "F" oszlopán végigmész, megkeresed a "nagy" táblában az értékét. Ha megtaláltad az egész sort copyzod, ha nem akkor a végéhez hozzáadod.
Kb. így nézhet ki:Sub cserelo()
Dim sh1 As Worksheet, sh2 As Worksheet, vanszam As Range, cl As Range
Set sh1 = Munka1
Set sh2 = Munka2
For Each cl In sh2.UsedRange.Columns("F").Cells
If cl.Value <> "" And cl.Row <> 1 Then
Set vanszam = sh1.Columns("F").Find(what:=cl.Value, LookIn:=xlValues, lookat:=xlWhole)
If vanszam Is Nothing Then Set vanszam = sh1.Columns("F").Rows.End(xlUp).Offset(1, 0)
cl.EntireRow.Copy sh1.Cells(vanszam.Row, 1)
End If
Next
End SubÜdv.
-
.OM.
aktív tag
Sziasztok,
Az alábbi logikai útvesztőmre keresek megoldást:
Adott egy adatbázis, ahol soronként résztvevők vannak, melletük a beiratkozásuk és kiiratkozásuk dátuma és kétszer két oszlopban összefüggő hiányzások dátumai.
A kérdés csupán annyi lenne, hogy egy év adott hónapjaiban hány napot nem voltak hiányzók.
Csatoltam példát, segít megérteni a problémám.
Szóval HA függvénnyel és relációval gondoltam megoldani, de nekem kb 20 soros lett a függyvény és dög lassú tőle a táblázat. Mivel ez nem egy extra speciális probléma, biztos vagyok benne, hogy őrült egyszerű a megoldás csak nem ismerem az excel-t eléggé.
Nézegettem google-n meg küldölni oldalakon, de nem találtam ilyen date range-ek közötti hónapon belüli eltérések féle felvetést.
Ha lehet függvény megoldás érdekelne, de VBA saját függvény is jöhet, ha az a kézenfekvőbb.
Köszi előre is,
.om. -
kacsaesokos
tag
Szia!
"leltári szám ami alapján lehetne talán szűrni?"
Igen jó lenne, ha valami egyedi azonosítót tudnál adni a munkához, mert egyébként mi alapján fogod "kitalálni", hogy melyik sorokat kell kicserélni.
Gondolom, nem egész sorokat kell cserélni, csak a megváltozott adatokat..., esetleg új sort hozzáadni.Egy kis méretű mintát a teljes illetve a becserélendő táblából azért tehetnél fel, hogy világosan láthassuk, mit szeretnél.
Üdv.
-
Szia!
Ha a modulok azon értékeit, amelyeket más modulok is használnak, Public változóként definiálod, akkor azokat modulnév.változónév formában el tudod érni máshonnan is.
Ha a modulok nem osztálymodulok (nem class), akkor Global változóként is definiálhatod a közös változókat és akkor minden macera nélkül eléred mindenhonnan.Üdv.
Ezekkel tisztában vagyok, úgy kellett volna kérdeznem melyik az elegánsabb?
Global adatokkal több a hibalehetőség. -
Úgy látom, 2003-asnál magasabb verziót használsz. Ha nem, akkor a Rendezes makrót át kell alakítanod.
Az első makróban a Range("C3:K17") rész helyére írd a valós területet.Sub A_oszlopba()
Dim ertek As Range
For Each ertek In Range("C3:K17")
If ertek > "" And Not IsNumeric(ertek) Then
Range("A" & Application.WorksheetFunction.CountA(Columns(1)) + 1) = ertek
End If
Next
Rendezes
End Sub
Sub Rendezes()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("A1:A" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End SubKöszi mindkettőtöknek a segítséget!
2010-est használok egyébként. Azzal minden oké.
-
Makrókban, minden főbb tevékenységet külön modulba raktam, ezek között vannak közös adatok, amelyekből a többi modulnak csak az értékére van szükség. Mit javasoltok erre, csináljak 1 "Main" modult ami struktúrálisan hívja be a modulokat, és ennek az adatait használja?
Vagy get-eljem be mindegyik modulba a Main adatait? -
Fferi50
Topikgazda
Hali
Abban szeretnék segítséget kérni, hogy van egy táblázat, több 100e soros, ebbe a táblázatba kellene időközönként pár 10e sort kicserélni, másik táblázat adataiból, soraiból, a kérdés az lenne, hogy tudnám ezt végrehajtani, ezek különböző eszközök egyébként, leltári szám ami alapján lehetne talán szűrni? sajnos nem nagyon jutottam előbbre. Excel 2010-et használok.
-
kacsaesokos
tag
-
Sziasztok!
Fél napja próbálok megoldani egy problémát, sajnos nem sok sikerrel.
Tudtok rá megoldást?A következőről van szó:
Adott range-ben (pl. C3 : K17) szereplő egyedi, szöveg típusú adatokból szeretnék növekvő sorrendbe rendezett listát generálni automatikusan egy külön oszlopba (pl. A3-tól lefelé). Az összes többi adatot (blank, számok, dátum, etc.) valamint a duplikációkat figyelmen kívül hagynám. A végeredmény elképzeléseim szerint úgy nézne ki, ahogy a képen. Van erre mód az Excel-ben? (kb. 10000 cellás vizsgálatra keresek megoldást.)
-
Sziasztok!
Fél napja próbálok megoldani egy problémát, sajnos nem sok sikerrel.
Tudtok rá megoldást?A következőről van szó:
Adott range-ben (pl. C3 : K17) szereplő egyedi, szöveg típusú adatokból szeretnék növekvő sorrendbe rendezett listát generálni automatikusan egy külön oszlopba (pl. A3-tól lefelé). Az összes többi adatot (blank, számok, dátum, etc.) valamint a duplikációkat figyelmen kívül hagynám. A végeredmény elképzeléseim szerint úgy nézne ki, ahogy a képen. Van erre mód az Excel-ben? (kb. 10000 cellás vizsgálatra keresek megoldást.)
-
rubint
csendes tag
Sziasztok!
Fél napja próbálok megoldani egy problémát, sajnos nem sok sikerrel.
Tudtok rá megoldást?A következőről van szó:
Adott range-ben (pl. C3 : K17) szereplő egyedi, szöveg típusú adatokból szeretnék növekvő sorrendbe rendezett listát generálni automatikusan egy külön oszlopba (pl. A3-tól lefelé). Az összes többi adatot (blank, számok, dátum, etc.) valamint a duplikációkat figyelmen kívül hagynám. A végeredmény elképzeléseim szerint úgy nézne ki, ahogy a képen. Van erre mód az Excel-ben? (kb. 10000 cellás vizsgálatra keresek megoldást.)
-
Nem abban vannak, mert tudod nem ment valami a múltkor, amikor átállítottuk táblázattá. Ami érdekes, hogy 1-7 hónapot mutat csak a pivot (hiába törlöm és indítok egy teljesen újat), úgy, hogy vannak már 8. havi adatok is. Sőt, még érdekesebb, hogy a 7. hónapban ha a táblázatban összesítem az oszlopot, akkor "X" az eredmény, a Pivotban pedig "Y", azaz egy másik érték.
-
-
Beállsz a kimutatásba. Ilyenkor a szalagmenün kapsz 2 új menüt, ezek közül
Beállítások | Adatok | Más adatforrás megadásaOch bakker, tényleg, pedig klikkelgettem bőségesen. Köszönöm!
Amit nem értek, hogy itt !Adatok:A:V van megadva, azaz hála az égnek okosan adtam anno meg, nem sort, hanem oszlopot. Most viszont mégsem frissít, elhagy adatokat...
Kíváncsi leszek mi lesz itt a gond... -
Szia!
Menjünk sorba:
" irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette"
Ehhez látni kellene a makrót.
Billentyűkombináció megváltoztatása: Fejlesztőeszközök - Makrók - ráállsz a makróra és utána egyebek.
Ikon elhelyezése: Excel 2010-ben.
Beállítások - Menüszalag testreszabása - a választható parancsok helye - makrók. Utána a jobb oldalon létrehozol egy saját menüpontot és ide hozzáadhatod a makródat.Üdv.
-
Tud valaki segíteni, hogy irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette?
Illetve hogy tudom megváltoztatni a makróhoz rendelt billentyűkombinációt?
na és még egy hogyan tudok az eszköztáron a makróm futtatását indító ikont elhelyezni? -
Tud valaki segíteni, hogy irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette?
Illetve hogy tudom megváltoztatni a makróhoz rendelt billentyűkombinációt?
na és még egy hogyan tudok az eszköztáron a makróm futtatását indító ikont elhelyezni? -
-
Jó lett volna, ha megírod, melyik verziót használod, mert eltér a feltételes formázás a régebbi és az újabb verziókban.
Vegyük, hogy a Terv az A, a Tényleges a B oszlop, címsorod van, és az utolsó kitöltött oszlopod az M. Kijelölöd az A2:M valahány sort. Eddig egyforma minden verzióban. Akkor is A-tól kezdve jelölsz, ha a Terv nem az A oszlopban van, csak akkor a hivatkozás változik a képletben.
2007-es verzió előtt Formátum | Feltételes formázás. 1. feltétel | A képlet értéke. Kapsz egy hosszú rovatot, ahova beírod: =$A2>$B2. Az egyenlőségjelet HA szóként kell értelmezni. A Formátum | Mintázatban kiválasztod a háttérszínt. Visszaértél a Formázási feltételekhez, ahol a Hozzáadás gombbal hasonló módon megadod a 2. feltételt, itt =$B>$A, másik szín.
Ügyelj a $ jelekre!
2007-től:
Kezdőlap | Stílusok | Feltételes formázás | Új szabály | A formázandó cellák kijelölése képlettel.
Az értékek formázása, ha ez a képlet igaz rovatba beírod a fenti első képletet, majd megadod a formátumot, OK. A 2. feltételt ugyanígy adhatod meg.A formátumot mindegyik verzióban pl. a formátumfestő ecsettel tudod másolni a többi sorra.
Köszi. Így ment. Ezt a hsz-t elmentem.
-
Mint kiderült, nem is volt jó a kód. Az Exceledben a bővítményeknél jelöld be a két, Analyzis kezdetűt, hogy a VB szerkesztő megismerje az egyes utasításokat.
Sub Erteket_Beilleszt()
Dim FN As String
Const utvonal = "C:\Adatok\Alkönyvtár\"
Application.DisplayAlerts = False
ChDir utvonal
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN
Muvelet FN
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
End SubEzt kell indítanod, az egyes fájlok behívása után elindítja a Muvelet makrót, ami az értékek beillesztését végzi.
Sub Muvelet(FN)
Dim cella As Range
For Each cella In Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18")
cella = cella.Value
Next
For Each cella In Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14")
cella = cella.Value
Next
Sheets("Munka1").Delete
End SubKöszönöm!
Ki fogom próbálni, de lehet csak holnap lesz időm. -
Sziasztok!
Adott egy számsorozat pl.A2:A10 tartományban. Beírok mondjuk B1-be egy számot, és kiszeretném íratni az A2:A10 tartományból a B1-be írt számhoz legközelebb esőt (alatta is és felette esőt is külön-külön cellába pl. C1-be az alatta lévő legközelebb esőt, D1-be a fölötte levő legközelebb esőt).
Ezt hogyan lehetne megoldani? Remélem érthetően fogalmaztam meg, hogy mit szeretnék. -
Szia!
Nem akarlak elkeseríteni, de ebben az esetben a
"Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value"sajnos nem működik, mindig az első cella értékét fogja a többinek is beírni.
Ez a trükk csak folyamatos tartománynál működik.
Itt sajnos végig kell gyalogolni a cellákon.Üdv.
-
2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.
A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.
Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).Sub Erteket_Beilleszt()
Dim FN As String
Const utvonal = "C:\Adatok\Alkönyvtár\"
Application.DisplayAlerts = False
ChDir utvonal
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN
Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
Range("A5, D5, A8, A10, C10, A12, C14").Value
Sheets("Munka1").Delete
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
End Sub -
2007-től működik, alatta az FN = Dir(utvonal & "*.xlsx", vbNormal) sorban az xlsx helyett írj xls-t.
A Const utvonal = "C:\Adatok\Alkönyvtár\" sorba a saját útvonaladat vidd be.
Az indító fájlodban Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztva a füzetedet Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda kell bemásolnod a lenti makrót.
A füzetből az Alt+F8-ra megejelő ablakban kiválasztod, és futtatod a makrót.
A füzetet makróbarátként kell mentened (2007-estől felfelé, alatta sima mentés kell).Sub Erteket_Beilleszt()
Dim FN As String
Const utvonal = "C:\Adatok\Alkönyvtár\"
Application.DisplayAlerts = False
ChDir utvonal
FN = Dir(utvonal & "*.xlsx", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN
Sheets("material").Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18") = _
Range("A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18").Value
Sheets("layout-volume").Range("A5, D5, A8, A10, C10, A12, C14") = _
Range("A5, D5, A8, A10, C10, A12, C14").Value
Sheets("Munka1").Delete
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
End Sub -
-
-
A mappanév tetszőleges, majd oda pakolom a fájlokat.
Minden munkafüzetben 3 lap van, ezek nevei:
- material
- layout-volume
- munka1A ’material’ és a ’layout volume’ lapokon vannak függvények ill. hivatkozások , amik az adatokat a ’munka1’ lapról veszik.
Először tehát azt kell megoldani, hogy csak értékek legyen az első két lapon, utána törölni a ’munka1’-et.A következő cellákban kell a hivatkozásokat értékre cserélni:
’material’: A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18
’layout-volume’: A5, D5, A8, A10, C10, A12, C14,
-
Jó lett volna, ha megírod, melyik verziót használod, mert eltér a feltételes formázás a régebbi és az újabb verziókban.
Vegyük, hogy a Terv az A, a Tényleges a B oszlop, címsorod van, és az utolsó kitöltött oszlopod az M. Kijelölöd az A2:M valahány sort. Eddig egyforma minden verzióban. Akkor is A-tól kezdve jelölsz, ha a Terv nem az A oszlopban van, csak akkor a hivatkozás változik a képletben.
2007-es verzió előtt Formátum | Feltételes formázás. 1. feltétel | A képlet értéke. Kapsz egy hosszú rovatot, ahova beírod: =$A2>$B2. Az egyenlőségjelet HA szóként kell értelmezni. A Formátum | Mintázatban kiválasztod a háttérszínt. Visszaértél a Formázási feltételekhez, ahol a Hozzáadás gombbal hasonló módon megadod a 2. feltételt, itt =$B>$A, másik szín.
Ügyelj a $ jelekre!
2007-től:
Kezdőlap | Stílusok | Feltételes formázás | Új szabály | A formázandó cellák kijelölése képlettel.
Az értékek formázása, ha ez a képlet igaz rovatba beírod a fenti első képletet, majd megadod a formátumot, OK. A 2. feltételt ugyanígy adhatod meg.A formátumot mindegyik verzióban pl. a formátumfestő ecsettel tudod másolni a többi sorra.
-
Nagyszerű, így könnyebb megírni a makrót. Viszont nem írhatom, hogy az IGEN nevű mappában lévő fájlokból az IGEN nevű lapot kell törölni, és az IGEN területre kell beilleszteni az értéket.
Gyorsabb lenne a munka, ha az adatokat is közölnéd.
A mappanév tetszőleges, majd oda pakolom a fájlokat.
Minden munkafüzetben 3 lap van, ezek nevei:
- material
- layout-volume
- munka1A ’material’ és a ’layout volume’ lapokon vannak függvények ill. hivatkozások , amik az adatokat a ’munka1’ lapról veszik.
Először tehát azt kell megoldani, hogy csak értékek legyen az első két lapon, utána törölni a ’munka1’-et.A következő cellákban kell a hivatkozásokat értékre cserélni:
’material’: A5, A7, D10, A12, A14, B14, D14, A16, B16, C16, A18, B18
’layout-volume’: A5, D5, A8, A10, C10, A12, C14,
-
Szia!
Próbáld ki a következőt:
Sub kepletszun()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
if sh.name<>"törölni kell" then
sh.UsedRange.Value = sh.UsedRange.Value
endif
Next
application.displayalerts=false
sheets("törölni kell").delete
application.displayalerts=true
End SubHa csak képletek és értékek vannak, akkor menni fog. Ha kimutatás is van a munkalapokon, akkor viszont a kimutatásnál hibával leáll. (Természetesen lehet a hibát kezelni, de most csak gyorsan ezt dobtam fel, ha szükséges, szívesen átírom arra is.)
Üdv.
)
]
Tudtok rá megoldást?
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest