Hozzászólások
-
SzerzőBejegyzés
-
Bocs, nem frissítettem. De végülis ugyanoda lyukadtunk ki 🙂
SZumhatöbbel és egy plusz oszloppal elég jól szalad:
Attachments:
You must be logged in to view attached files.Az érvényesítést gyakran használom, de ezt a középső fület még soha semmire.
De marha jó! Meg elegáncsos is!
Köszi Imre!OK, de ez csak sima excelben szalad.
Ezt hogyan csinálhatták?
A névkezelőben sem látok értékeket.
Ráadásul nem tudom kijelölni a táglalapot sem (jobb egér sincs)
Ez rejtély!Arra gondol a kérdező, hogy:
Hogyan lehet úgy megjegyzést beszúrni, hogy nem látszik a cellán a jelölése
Hogy lehet, hogy ha egy cellába áll, akkor mindig fent jelenjen meg a megjegyzésPl. egy szűz táblából hogyan tudnád ezt megcsinálni?
Én sem tudom, ezért érdekelne. 🙂Van! Saját függvényként megcsinálod, berakod xlam-ba (bővítvényként klemented, és tudod használni.
Kód: Keress rá:
https://stackoverflow.com/questions/20335869/excel-vba-weighted-average-if-custom-functionQurybe lehet ilyet, de ahhoz nem annyira értek.
De azt megteheted, ha nem túl sok sorod van, hogy csinálsz egy hivatkozást az összesítő lapra (pl mindegyik munkalap 1000 sorára). Ebben lesz sok 0 adat is, de ha erre ráraksz egy kimutatásvarázslót, akkor látsz majd mindent.
De ez elég fapados megoldás.2018-12-13-15:50 Hozzászólás: [Resolved] Összesített mappába miként lehet a hivatkozásokat is vinni #5433Így akkor kell egy makrós fájl, amibe beírod a munkalapok celláira való hivatkozásokat, megnézed melyik volt hiperlinkes az eredetiben, és azt makróval másképpen másolod át.
Ehhez viszont fontos lesz, hogy az összes fájlod egy mappában legyen, mert másképp elmehet a link.
Vagy olyan nevet adtok neki, ami beszédes, és ha egy könyvtárban van, akkor könnyebb hivatkozni rá.2018-12-13-14:31 Hozzászólás: [Resolved] Összesített mappába miként lehet a hivatkozásokat is vinni #5431Szia!
Na így már értem.
Szerintem sima függvényekkel nem tudod átvinni a hivatkozást.
Mi lenne a feladat alapvetően? Összemásolni több fájlt úgy, hogy a hivatkozások is jók legyenek, vagy van egy fixx hivatkozás több fájlra, de ide kellene a link is?
Ez makróval menni csak.
segítek:
MyLink= Cells(i,j).Hyperlinks(1).AddressEz adja meg, a linket.
Az, hoyg hivatkozás-e, tudod vizsgálni Excelben is (Hiperhivatkozás(), vagy CELLA(„tipus”;A1)=l
De egyszerűbb makróval megnézni ezeket.2018-12-13-10:20 Hozzászólás: [Resolved] Összesített mappába miként lehet a hivatkozásokat is vinni #5426Szia!
Hivatkozással csak fájlra tudsz így hivatkozni, nem?
Hivatkozni képlet szinten kell. Vagy más módon, de így szerintem nem fog menni.
Példa (akár kép) nincs?Van a WIN-nek saját órája, amit kipakolhatsz ilyen minialkalmazásban.
Az minden ablak előtt látszódik. Miért nem azt használod?Ehhez szellemírtók kellnek!
Köszönöm a választ!
Nem csúnya így sem, csak fura, de nem baj.Valamiért lehagyta a képet…
Attachments:
You must be logged in to view attached files.A Case-t nem akarod megtanulni a sok if helyett? 🙂
Szia!
Két dolog:
1) helyesen RC[1]
2) relatív helyzetet írsz be. Tehát az O2 cellához képest az RC[1] az a P2 cella lesz.Egy jelölőt berakhatnál a formra, ami ha be van ixelve, akkor a hétfői lesz a K,Sz,Cs,P is.
A két szabadnap az gondolom a Szo V lenne. Arra is raknék egy jelölőt, akkor ott berakná, hogy szabadnap.Ha szűrt a táblád, akkor a szűrő tartományon kívülre sem enged beszúrni sorokat az excel.
Legalább is az enyém (2010/Excel 365) nem.
Erre a megoldás, hogy máshová mented ki, megszünteted a szűrőt, és utána szúrod be új soronként.
Persze még ekkor is kell gondolnod arra, hogy ha túl nagy a táblád (még ha látszólag nincs is benne adat), akkor is pampoghat az excel, mert az új sorokkal több sorod lenne, mint a max sorszám.Nem kellene a Dim Ir után egy „As Integer” esetleg?
Beírod az első végére, hogy Call lboMa_Click()???
aZ UTOLSÓ SOR NEM KELL, CSAK SIMÁN MÁSŐLD BE PASTE-VAL
Szia!
Rájöttem!
Szóvel meg nem állt sohasem, csak néha-néha a bov_h3-ba nem jó adat volt.
A megoldás: amikor a fiókheti2-t kicserélem fiókheti3-ra akkor előtte kimaradt a fókusz állítása:
Windows(“Bovitett.xlsx”).Activate
Így néha másfelé kolbászolt a kurzor.
Tipikus hiba…2018-08-27-11:01 Hozzászólás: [Resolved] táblázat elemeinek kiválogatása többszörös feltétel szerint #5092Szia!
Szerintem az a baj, hogy nem írtad be fejlécbe a szűrési feltételek nevét (mezőnév), így nem tudja, hogy melyik mezőben szűrjön. itt a poélda, így működik. (Imréé kiegészítve)
Attachments:
You must be logged in to view attached files.Szia!
Képletes sorokat bá rlehetz többnyire rendezni, érdemesebbb külön. MAkróval rakd egy másik üres helyre ÉRTÉKként, és utáa rendezd (egy makróval is lehet (bocs, de más nem tudok itt xlsm-eket nézni)…)
A megjelenítéssel van csak baja, valószínűleg:
http://hvg.hu/tudomany/20070927_excelbug2Szia!
Próbáld ki 2000-rel kisebb 2 db számmal!
Hoppá! 🙂Szia!
Ez a kód. Ha egyszer rosszul fut le, akkor a 3. táblánál fut rosszul. Ilyenkor még 3-szor újrafuttatom, és megjavul.
Nem értem…‘Hetihez előkészíti a táblákat Bov_h1…Bov_h3 néven
Windows(„Bovitett.xlsx”).Activate
Sheets.Add After:=ActiveSheet
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
„Bőv.lelt.hird.FKV!R1C1:R1048576C31″, Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:=”Munka1!R1C1″, TableName:=”Kimutatás1”, _
DefaultVersion:=xlPivotTableVersion15
Sheets(„Munka1”).Select
Cells(1, 1).Select
With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti1”)
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables(„Kimutatás1”).AddDataField ActiveSheet.PivotTables( _
„Kimutatás1”).PivotFields(„Jó Ft”), „Mennyiség / Jó Ft”, xlCount
With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Mennyiség / Jó Ft”)
.Caption = „Összeg / Jó Ft”
.Function = xlSum
End With
ActiveSheet.PivotTables(„Kimutatás1”).AddDataField ActiveSheet.PivotTables( _
„Kimutatás1”).PivotFields(„Jó db”), „Mennyiség / Jó db”, xlCount
With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Mennyiség / Jó db”)
.Caption = „Összeg / Jó db”
.Function = xlSum
End With
Columns(„A:C”).Select
Selection.Copy
Workbooks.Add
Columns(„A:A”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns(„B:B”).Select
Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = Falsewbn = wb & „\Bov_h1.xlsx”
ActiveWorkbook.SaveAs Filename:=wbn
ActiveWindow.Close
Windows(„Bovitett.xlsx”).ActivateActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti1”).Orientation = _
xlHidden
With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti2”)
.Orientation = xlRowField
.Position = 1
End With
Columns(„A:C”).Select
Selection.Copy
Workbooks.Add
ActiveSheet.PasteColumns(„A:A”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns(„B:B”).Select
Selection.Find(What:=”-„, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = Falsewbn = wb & „\Bov_h2.xlsx”
ActiveWorkbook.SaveAs Filename:=wbn
ActiveWindow.Close
ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti2”).Orientation = _
xlHidden
With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti3”)
.Orientation = xlRowField
.Position = 1
End With
Columns(„A:C”).Select
Selection.Copy
Workbooks.Add
Columns(„A:A”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns(„B:B”).Select
Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range(„G11”).Select
Application.CutCopyMode = False
wbn = wb & „\Bov_h3.xlsx”ActiveWorkbook.SaveAs Filename:=wbn
ActiveWindow.Close
Szia!
Igen, ezt értem.
Milyen gyakran kell futtatni? Nap feladat, vagy havi?
Az alaptábla miből jön ki? Mert igazából azzal van baj, hogy eleve nem „Okosan” van tárolva az adat. A mezőnév kellene az első sorba.
És ha a makróba raksz annyit, hogy lemented az xlsm-be az utolsó futtatás idejét, és legközelebb csak azokat a fájlokat gyúrod újra, amelyik a legutolsó makrófuttatás óta lett mentve? Ez már napi szinten is kezelhető lehet.Próbáltam Querybe, nem sokra mentem vele.
Először kellene Excelbe transzponálni, és utána benyomni Querybe, úgy biztos megy. Esetleg meg is makrózhatod.Kapcsold ki a képernyő frissítését:
Application.ScreenUpdating=False. Frissítés után meg vissza
Egy kis sugó mellékelve 🙂
Attachments:
You must be logged in to view attached files.Szia!
Vagy kérd be inputboxban.
Szia!
Makró nélkül ha Van Power Queryd simán össze tudod rakni egy adatmodellbe is.
https://support.office.com/hu-hu/article/f%C3%A1jlok-egyes%C3%ADt%C3%A9se-egy-mapp%C3%A1ban-a-bin%C3%A1ris-f%C3%A1jlok-egyes%C3%ADt%C3%A9se-funkci%C3%B3val-power-query-94b8023c-2e66-4f6b-8c78-6a00041c90e4Még egy kérdés, lehet, hogy külön kellene feltenni:
Excelbe tudok saját függvényt írni, amit .xlam bővítményként alkíválva tudok is használni.
Querybe vagy PowerPivotba lehet saját függvényt alkotni, amit utána használni is lehet? 🙂Szia!
Szerintem egyszerre két makrót nem tudsz futtatni. Márpedig a tickeredben az Ubound függvény folyamatosan frissíti a képernyőt, amíg fut a makród.
A kettőt egybe kellene használnod, akkor mehetne egyszerre, mert most két külön makró van, és az egyszerre nem tud futni. Vagy hívd meg egy függvénnyel az órát külön a programban, és akkor minden lépésben frissitsd az óra állását is.
Ez olyan, mintha az evés és az ivás makrót egyszerre akarnád, hogy menjen. Vagy eszel, vagy iszol. Ha pl tejet akarsz inni kiflievés közben, akkor is a kiflievés programod rágás része felfüggesztésre kerül, amíg iszol, majd folytatod tovább a rágást.
Itt is ugyanúgy kell eljárni.Ha jól látom, alapvetően fekete minden cellád. Így nyugodtan csinálhatsz neki egy feltételes formázást, el nem fogja rontani, de megjavítja.
Szia!
Mi van a fehér cellákban? Nem üresek?
Szia!
Széle eltüntetésére: Csinálsz egy szép nagy fekete téglalapot, és rárakod 🙂
Fehérre: Feltételes formázás? (HA cellaérték=”” akkor legyen feketeSzia!
Adtam neki 35 percet, majd lelőttem. Újraindítás után viszont rögtön beszívta magába.
Azt hiszem, hogy be kell ixszelni, hogy felvétel az adat
Kipróbáltam a Left függvényt is, érdekes módon nem vesszővel, hanem pontosvesszővel kellett elválasztani(Left([számlaszám];8). és nem gondolkodott!
Már csak arra kell rájönnöm, hogyan kell lépésenként átalakítgatni a táblát (mintha Excelbe lenne).Egy gyors kérdés: Számított mezőt lehet kapcsolni egy kódtáblához?
(Gondolom igen, ma ha lesz időm ki is próbálom!)Meg még egy kérdés
Szia!
Nekem nem megy így se. A 2. és 3. fájlt már nem alakítja át.
Nem az a baj, hogy felviszem fejlécnek, és a többinél már ezt nem tudja megcsinálni, mert van már mezőnév hozzárendelve?
Ködzi!Attachments:
You must be logged in to view attached files.Szia Imre!
Küldök egy butítottat.
Kevesebb az oszlop, de nem ez a lényeg, gondolom.
A következő kérdésem az lesz a jövő hét után, hogy a betöltött táblákat hogyan lehet ahhoz hasonlóan megformázni, mint ahogy Excelbe szoktuk 🙂Attachments:
You must be logged in to view attached files.Ha külön oszlopban van, akkor 2. szintnek add meg a rendezésnél azt az oszlopot, és kész 🙂
Kész szerencse! 🙂
(ld melléklet)Attachments:
You must be logged in to view attached files.Szia!
Kipróbáltam, hogy a standard fájlokat elődolgozom (sorok törlése, megfelelő sor beemelése mezőnévnek).
De hibát ad.
Ha a let leírásba felhozom előre az utolsó sort, akkor is megakad, mert más a a mezőnév, de ha így marad, akkor se jó, mert a mintafájlon kívül sehol nincs Cooumn1.
Szóval hogy lehetne ezt megcsinálni PQ-ban, ha lehet?Köszi!
Képes könyv mellékelve.
Attachments:
You must be logged in to view attached files.Kedves Imre!
Szuper, és tényleg tök jó.
Van viszont egy bibi. Átalakítom beolvasásnál 3 oszlop tipusát, de a végén a táblában nem az lesz.
Megnézheted a képeken, szerepel is, hogy type text, de a végén a táblázatban normál alakosan hozza, számként.
Ez mi ez? Nálunk lehet hiba a Queryben, vagy előfordul ilyen, és ez csak megjelenítési gond, valójában szövegként kezeli a Query, csak az Excel nem?
Még majd próbálkozok vele, de elvileg a lépéseket végigcsináltam, tehát jónak kellene lennie.
És még egyszer köszi!(Ha jót akarsz nevetni a google fordítón, a legelső PQ-s cikket az ajánlott oldalról olvasd be! Nagyon kemény bűncselekmény is lesz benne!)
Attachments:
You must be logged in to view attached files.Húzd ki a netet!
Szia Imre!
xlsx fájlok, egyformák. Működik amit írtál, egy dolgot kivéve: a tábla első 2 sorát és az eredeti 4. sort törölni kellene mindegyik fájlban+ az egyik oszlopnak mindenféleképpen szövegesként kellene átjönni szám helyett (Bankszámlaszámok elválasztás nélkül)
A lépések megvannak egy másik fájl betöltéséből, de hogyan tudnám ezt a lépést becsempészni az egyesítésbe?
A másik, hogy pl. Januárban betöltöm az első táblát. Utána havonta mögé raknám a többi fájlt sorban (február, március…).
Erre van lehetőség, vagy minden hónapban az összes havit rakom egy könyvtárba, és onnan minden hónapban újra egyesítem a fájlokat?
Keresgettema Neten, de nem találtam tól sok leírást a Queryről, ami van, az is a MS Supportos lefordított cuccos.Köszi:
Ati
A hét minden napjára 1-1 ü+ hétvégére két tejes! Remek kép!
Megvan!
Szumha (indirekt())!!!
=SZUMHA(INDIREKT(„‘[ATM.xlsx]”&A2&”‘!A:A”);”*:pénz*”;INDIREKT(„‘[ATM.xlsx]”&A2&”‘!B:B”))Van. INDIREKT().
Mellékelek egy példát. A képlet bármi lehet, ahol 1-gyel akarod ugrasztani, azt tedd változóba, a többit szövegként kell beadnod egyszer, és láss csodát.
Annyi, hogy a másik munkafüzetre akarsz hivatkozni, akkor az INDIREKT() csak akkor működik, ha meg van nyitva a munkafüzet.
Ja, és az indirekt nem követi a csatolások változását.
Másik megoldás, hogy megcsinálod a képletet, utáná Összefűz() függvénnyel megadod a vezérlő oszlop szerinti válzóval a képletet, kimásolod, és beilleszted értéként (= jellel az elején természetesen). Ez azért bénább, mert egyesével rá kell állni a cellákra és leenterezni, hogy képletként értelmezze (E oszlop), viszont utána fog működni a külső csatolás.
(Munkafüzeten belüli hivatkozás működik indirekt-tel is.)
Erről is adok egy példát a D és E oszlopban.
Szóval jobb az indirekt.A sört majd E-mailben küldjed! 🙂
Attachments:
You must be logged in to view attached files.Egyébként sima képletekkel is meg lehet csinálni, csak bajosabb.
A lényeg, hogy úgyis csak a szemednek hiszel, a képleteket így el kell rejteni, a képletes cella kijelölését letiltani, és engedélyezni az írható cellákat.
Mellékeltem egy megoldást, a jelszó „” (semmi), de így látható a működése.
Ha lenne időm, még megcsinálnám, hogy ha két helyre is van írva adat, akkor írja ki, hogy hülye vagy.
Persze makróval profibban lehet megcsinálni, de azért lehet makró nélkül is élni 🙂
Csak az első ketőbe írásnál működik most, a képletet kellen klónozni a rendes működéshez.Attachments:
You must be logged in to view attached files.Szia!
Szerintem van megoldás, mert lehet képlettől függő feltételes formázás is.
Ha jól értettem, azt szeretnéd valójában, hogy ha hétvége van, akkor az legyen sárga alatta is.
Mellékelem a megoldást, az egész hétre meg van adva, akkor lesz zöld, ha a 3. sorban (oszloptól függetlenül) 6 vagy 7 az érték (azért van a VAGY függvény, és az érték miatt azért van szorozva 1-gyel.)
Ilyesmire gondoltál?
Ezt egyszerűen csak formátummásolóval átmásolod.
Ha azt is szeretnéd, hogy csak akkor legyen színes, ha van az adott cellában érték is, akkor mézd meg az utolsó sort, ott van még egy ÉS() függvény is hozzáadva.
De beleírtam, hogy mi a teendő, ha azt szeretnéd, hogy csak akkor formáződjon a sor, ha a B oszlopban megjelenik valami adat.
Így tök jó, nem?
Vagy másra gondoltál?Attachments:
You must be logged in to view attached files.2018-05-02-12:00 Hozzászólás: folyamatosan, ill. megnyításra frissülő időjárás képek excelben? #4737Na! 🙂
2018-04-17-09:50 Hozzászólás: textboxokban megjelenitett számok (Ft) összegzése egy másik textboxban #4677Hát én akkor adatbázisként tárolnám, és ide összegezném csak az adatokat. Pl egy frissítő makróval. Már csak azért is, mert ha eszedbe jut valami később, akkor abból könnyebb előszedni bármit is.
Elírtad a változót (vaneras legelől 🙂 ), és az MSGbox is If közé kell, ahogy írtam
Szia!
Miért nem a formra írod ki, hogy Ft? Többféle valutát kell kezelned?
2018-04-16-09:05 Hozzászólás: textboxokban megjelenitett számok (Ft) összegzése egy másik textboxban #4661Nem félsz, hogy a kettő nem lesz paríban? pl egy textboxbl kikönyvelsz, változik az összesen is. Mivel változott, lementi neked újra egy köztes összegzéssel?
Szia!
Ez a program így mindig kiírja, hogy berögzítve, akkr is, ha nem rögzített semmit.
Át kellene rnod a ciklust, pl. bevezetni egy true/false változót, ami aklkor lesz igaz, ha történt beírás
Pl:
vaneiras=false
…
If combobox2.value=”otphitelkartya” then
vaneiras=true
….
End if
…. (T pontosnál is ugyanígy)
If vaneiras then msgbox…..(Szóval így mindig kiírja neked, hogy rögzített, pedig nem is biztos, hogy csinált valamit)
Üdv!
#HIV! hibát ad neked a képlet. Azt is be kellene írni törlés után.
Ha az a baj, hogy jönnek felfelé a fehér cellák, akkor a feketeséget a 90. sorig mindig formázd le.2018-03-26-14:38 Hozzászólás: Excelre hivatkozó Word körlevél abszolút hivatkozásának relatívvá tétele #4567Ez adott könyvtárból minden fájlt összemásol:
Indulásbnak elég jó lesz 🙂
wb = ActiveWorkbook.PathDim FSO As Object
Dim Folder As Object
Dim File As Object
Dim i As Integer
Dim MyDate
Dim LastRow As Long
Dim kirdatum As Date
Dim kirdatum2 As String
Dim kd As StringSet FSO = CreateObject(„Scripting.FileSystemObject”)
Set Folder = FSO.GetFolder(wb)
MyDate = Date
Munka2.Activate
Sheets(„mappa”).Range(„A2:A100000”).Deletei = 1
For Each File In Folder.Files
Cells(i + 1, 1) = File.Name
i = i + 1
Next FileMunka3.Activate
idoszak = Cells(11, 3).Value
datums = Cells(12, 3).Value
datum2 = Cells(13, 3).Value
filter_kir_adat = Cells(14, 3).Value‘Sheets(idoszak).Range(„A2:E100000”).Delete
For i = 2 To 200
Munka2.Activate
fns = „A” & i
kivege = i
fn = Range(fns).Value
If fn = „” Then GoTo kanyeckate = Right(fn, 9)
filter_kir = Left(fn, 3)
eleje = Left(fn, 1)Sheets(idoszak).Activate
If eleje = „0” And kate = „2018.xlsx” Then
Sheets(idoszak).Activate
sor = Application.Match(filter_kir, Range(„B1:B1000”), 0)wbn = wb & „\” & fn
Workbooks.Open Filename:=wbn
cel = „pe0.xlsm”
Workbooks(fn).ActivateSheets(idoszak).Activate
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:=”*”, After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End IfFor g = 2 To LastRow
Workbooks(fn).Sheets(idoszak).Activate
kirdatum = Range(„B” & g).Value
kd = Format(kirdatum, „YYYY.MM.DD”)Workbooks(cel).Sheets(idoszak).Activate
oszlop = Application.Match(kd, Range(„A1:BE1”), 0)
Workbooks(cel).Sheets(idoszak).Cells(sor, oszlop).Value = Workbooks(fn).Sheets(idoszak).Range(„G” & g).Value
Workbooks(cel).Sheets(idoszak).Cells(sor, oszlop + 1).Value = Workbooks(fn).Sheets(idoszak).Range(„I” & g).Valuevan = Workbooks(fn).Sheets(idoszak).Range(„I” & g).Value
If van <> emty ThenCells(sor, oszlop).Interior.ColorIndex = 6
Cells(sor, oszlop + 1).Interior.ColorIndex = 6Else
Cells(sor, oszlop).Interior.ColorIndex = 8
Cells(sor, oszlop + 1).Interior.ColorIndex = 8End If
Next g
End If
If eleje = „0” Then
Workbooks(fn).Close
Else
End IfNext i
2018-03-26-11:57 Hozzászólás: Excelre hivatkozó Word körlevél abszolút hivatkozásának relatívvá tétele #4565Szenvedtünk mi is ezzel, és igazi megoldás nem volt. Mivel egyszeri feladat volt, csak több embernek kellett nyomtatni, íyg közösen elérhető tárhelyről megoldódott.
Az excelek összefűzése makróval elég egyszerűen megoldható. Még a munkafüzet neveket is ki lehet olvastatni, és összemásolás után akár ki is lehet üríteni a munkalapokat, esetleg a fájlokat törölni KILL-el.
Másik ötlet: muszály word-öt használni? Nem lehet Excelbe létrehozni a sablonokat és onnan nyomtatni amit kell? (Ha nem kell túl sok spéci formázgatás, azért excelbe is lehet sablonszerű kinézeteket generálni!2018-03-26-10:18 Hozzászólás: Excelre hivatkozó Word körlevél abszolút hivatkozásának relatívvá tétele #4563Saját belső hálózatot kell használni, abba közösen elérhető helyre tenni az xls-t, meg a sablont is. Így biztosítva lesz, hogy a legfrissebbet használod. Lementeni le lehet a kész körlevelet is. De szerintem felhőbe is működik.
nézd meg a képletet. Ha tegnapi is kell, akkor írd be, hogy MA()-1.
Attachments:
You must be logged in to view attached files.Jól néz ki!
Úgy látom olyan ez, mint a Unix, hogy ismerősön keresztül 70% engedményed is lehet a listaárból. A szerelőd meg elenged neked 20%-ot 🙂Beraktam pár plusz oszlopot. Azt, hogy ezt hogyan veszed ki, elárulom: itt ezen az oldalon van megoldás! rá! 🙂
Attachments:
You must be logged in to view attached files.Köszi! Ez az!
A sugóban ez van írva: „fájlnév”
Nem értettem miért nem működik. Most már tudom 🙂AutoOpen()be lehet, ha induláskor kell, egyébként makró. (Vagy hivatkozás van egy cellában, vagy érték.)
Szia Imre!
Tiszta adatbázisszerű volt. A vége is rendben volt (utolsó rekordnál landolt a CTRL+END).
Na, most már egész jól megy. A lassúság oka hardver (szerver) lassulás volt, mint urólag kiderült.
Most egy 3 mezőre vonatkozó szűrés – aminek 26.122 db eredménye volt – kb. 3-4 sec, ami jó szerintem.Másik: eddig nem jött még felém ilyen megoldás a szűréseknél, lehet, hogy nem is volt róla szó még.
Szóval bonyolultabb szűrésekhez, válogatásokhoz szoktam olyat csinálni, hogy a képletet ‘-fal kezdve kimásolom, és következő hónapban bemásolom, és aktiválom (törlöm a ‘-t). Így csak egy képletet mentek. Ez „hasonló” egy bonyolultabb irányított szűrőre, igaz a képletezése valódi képlet.
Nem egy Power Pivot, de Excel 2013-ban mit akarjon az ember? 🙂Köszi!
Köszi!
Így mutatja tényleg!
És utólag nem lehet az ilyet beírni?A HÉT:SZÁMA(MA();2) függvénynek kell egy második paraméter, a 2, akkor lesz a hétfő a hét első napja.
Ezt a feltételes formázásnál állítsajadgáljad át mind a két HÉT.SZÁMA() függvényben!AutoOpen-ben egy ActiveWorkbook.RefreshAll nem segít?
Szevasz!
A feltételes formázás ismét jó barátod lehetne!
95 és 96 sorban képlet.
A feltételes formázásban a képlet annyi, hogy ha c96=1, akkor igaz, egyébként nem annyira.
A formátum meg fekete szegély, betű és keret.
Nem tudom, hogy Delila mit szeret (A kakaóscsigán kívül (amúgy sütött vajon?)), de nekem jó lesz a sör is 🙂Attachments:
You must be logged in to view attached files.Kedves Delila!
Az Potus szerzeménye volt 🙂 Jó ötlet az Fkeres.
HA 4-NÉL TÖBB VAN VALAMIBŐL, ÉN MÁR AKKOR is áttérek a Caps Lock mellett az egyszerűsítésre.Kakájóscsiga mellékelve!
Attachments:
You must be logged in to view attached files.Szevasz!
A *1 nagyon bonyolult volt, beírtam neked 🙂
A feltételes formázásnál át kell írni másképpen a feltételt:
=HA(HÉT.SZÁMA($C$52)=HÉT.SZÁMA(MA());”Igaz”;”Hamis”)De inkább elküldöm, de csak két hétre írtam át, majd gondolom, te ráérsz. 🙂
Ha kész lesz, közzé tehetnéd, hadd tanuljanak belőle a Zemberek!
Csákóka!
Attachments:
You must be logged in to view attached files.Szevasz!
Írd a hosszú képlet végére (sok zárójel után), hogy „*1”, és láss csodát!
HÉTTEL HOL VAN BAJOD?
Van a HÉT:NAPJA() függvény, ott lehet megadni tulajdonságokat, de ilyesmit nem látok a táblában.Hát annyit lehetne csinálni, hogy egy munkalapra felviszed az összes adatot, itt végzed a rögzítést, a többi munkalapra pedig Pivot táblát csinálsz, mindegyiket leszűrve 1-1 fogyasztási hely óraszámra, és ha van valami egyedi azonosító (pl egy sorszám mező is elegendő az alapadat táblán), akkor frissítés után mindegyik oldalon megjelenne a friss lista. De ez elég nagy fájl lenne.
Szóval a makró egyszerűbb, és nem kell tőle félni, a makró jó barát. Makróba programozni jó, mikróba meg kaját melegíteni 🙂– Magának mi a baja?
– Szülővárosom!Köszi szépen!
Köszi Imi, így jó!
CSak 20-ig csináltam, majd húzd le a képleteket, meg a cellaértékkorlátozást is írd át, mert a vége hosszabb
Na, sikerült egy fapadost megoldást megcsinálni. Ígérd meg, hogy végigköveted a képletezést a Segéd munkalapon, ha már szenvedtem vele.
Viszont arra jó, hogy lehet használni 🙂Attachments:
You must be logged in to view attached files.Az első legördülőt meg csinálja meghnyitáskor, a másik makró makró 3-ba még hozzá kell rendlni az E1 cella változásához.
De ha kész a két legördülő,. utána micsinász?Attachments:
You must be logged in to view attached files.Bemásoltam az első fülre üresen (nincs embere), így már a kimutatásban is jó lesz
Attachments:
You must be logged in to view attached files.HA szűréskor berakok képleteket, és vissza akarom másolni értékként, akkor elkezd dolgozni, és valahova másol valamit a rossz verzión. A jó verzióba kiírja, hogy a kijelölés és a beillesztés területe eltérő. 🙂
Szerintem egy újratelepítés segít majd 🙂Cső!
Baromi egyszerű módszer:
Másolod minden felhasználóra, fent kiválasztod, és ha változik valami, frissíted a kimutatásvarázslót.
Attachments:
You must be logged in to view attached files.Vannak benne képletek?
Ha nincsenek, sorba rendezett adatok mentén darabolsz?
A képernyőfrissítést kikapcsolod? (Application.ScreenUpdating=false)És csak rtf-ben lehet kinyerni belőle adatot? html, txt nem játszik?
Ha gyakran kell használni, itt egy makrókezdemény.
1900 sorig működik.Attachments:
You must be logged in to view attached files.Csak hogy a problémát oldjuk meg:
Miért nem excelben vezetitek ezt?
🙂És ha a rtf fájlban átírod az adott oszlopban a 8-20 -at cserével pl. „8X20”-ra és utána Excelben csak szétszeded, mint „X”-el tagolt oszlopot kétfelé?
Szia!
JA, elvan a gyerek… Igen, mert jó lenne pontot tenni erre, csak nem sikerül.
Szóval kezdem elölről, mert lehet, hogy nem is bővítmény lesz a jó megoldás.
Tehát a cél az lenne, hogy több felhasználónak legyen egy függvény, ami elérhető.
Gyakorlatilag egy FKERES, csak egyszerűsíteni szeretném nekik.
És a másik, hogy a mögöttes táblában csak egy valakinek kellene frissíteni az adatokat, de mindig kéznél lenne.
Egyszerűbb lenne, ha átpakolnám nekik az egészet Querybe, és csak a lekérdezésfájlokat kellene nyomkodniuk, dehát, majd.Hogyan kellene hivatkozni a xlam függvényre?
Beégessem? Mert így nem jó:Public Function fioknev(id) As Variant
Dim tabla As Range
Dim hossz As Integer
id = id & „”
wb = ActiveWorkbook.Path
wbn = wb & „\Function2.xlam”hossz = Len(id)
If hossz = 2 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„C1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 2, False)
End IfIf hossz = 8 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End IfIf hossz > 8 Then
id = Left(id, 8)
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End IfEnd Function
Nem lehet, hogy az a baja, hogy ha bővítményként mentem, akkor meg kellene adni az útvonalat is a munkalaphoz?
Ugyanis ha bemásolok egy ugyanolyan nevű munkalapot valamelyik fájlba, akkor már működik a .xlam függvény!
Azt hiszem, ez lesz a megoldás!Szia!
Tehát .xlsm formátumban működik.
Ha lementem bővítményként, aktiválom a bővítményt, akkor #ÉRTÉK hibát ad.
A függvények neve is megjelenik, csak nem működnek.
Az adatvédelmi központban is engedélyezve vannak a makrók, a bővítmények sincsennek letiltva.
Na, még megpróbálom másik gépről is, lehet, hogy az Excelem nem jól telepedett.
Valami ötlet még? 🙂Szia!
Sajnos, ha lementem .xlam-ban, már nem működik.
Mi lehetne a megoldás?Köszi!!!!!!!!!!!!
Így már megy.
Majd még .xlamként is kipróbálom, de xlsm-ben már jó!
Mégegyszer köszi!Szia!
Igen, kipróbáltam, de nem megy így se.
Azért kérdem, hogy lehet-e így megcsinálni, hogy ne ciklusokkal kelljen keresni a táblákban.
Egyéb ötlet esetleg? -
SzerzőBejegyzés
