-
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
-
Sprite75
tag
Sziasztok
Van nálunk egy rendelésfelvevő táblázat amihez már nagyon sok segítséget kaptam tőletek amikor készült.
Tavaly szeptember óta tökéletesen működik.Van benne egy összesítő lap amit naponta többször is nyomtatnak, akár óránként.
Ezt szeretném megszüntetni, hogy csak erről a lapról egy PDF készüljön egy másik PC megosztott mappájába, és ne kelljen feltétlenül nyomtatni.Barkácsoltam hozzá az alábbi makrót, de azt nem tudom benne megoldani, hogy a készülő PDF file neve tartalmazza a mai dátumot és az óra percet (pl ilyen formátumban 2017.03.30.11.25.pdf)
Jelenleg ha az A44 cellába kézzel beírom így a dátumot és az órát akkor működik, viszont ha =MOST() -al akarom megcsinálni akkor Run-time error hibát kapok.
Próbáltam a barátom (google) által kidobott mások által írt makrókból ilyet vadászni de csak nem sikerült magamnak úgy módosítani, hogy jó legyen
Szóval a kód a következőSub PDFment()
'
' PDFment Makró
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\TICKETNYOMTATO\Megosztott\Rendelés\" & Range("A44").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End SubÁt tudná ezt valaki írni úgy hogy ez ilyen legyen a készülő file neve 2017.03.30.11.25.pdf
Előre is köszönöm szépen
-
Sprite75
tag
Sziasztok.
Újra a segítségeteket kérném.
Többféle módon megpróbáltam (pl ha és hol.van kombinálásával, speciális szűrővel stb) de nem boldogulok azzal, hogy a képen látható BE oszlopba a boltok neve mellé ki tudjam írni melyik sofőr boltja.
Ha pedig senkihez nem tartozik akkor valamilyen figyelmeztetés legyen kiírva.Elvileg minden bolt hozzá van rendelve valamelyik sofőrhöz ezen a lapon:
Ha pedig nincs mert pl valaki kitörölt egy boltot, (ami probléma mert akkor annak a boltnak a rendelése nem jelenik meg a sofőr saját lapján) akkor arra figyelmeztetni kellene a táblázat használóját.
Ezen a lapon a B E H K N oszlopokban a 2-60as sorig vannak felvéve a boltok. Csak pl az a probléma hogy van akinek nem ABC sorrendben (és ennek így is kell maradnia),
Az is probléma hogy a B E H K N oszlopokban kettesével össze vannak vonva a sorok cellaegyesítéssel (és ennek is oka van és így kellene maradnia)Szóval elakadtam
-
Sprite75
tag
válasz Delila_1 #36009 üzenetére
Nagyon szépen köszönöm.
Ilyen az amikor valaki nem csak a SZUM() függvényt ismeri mint én: ) hanem ilyeneket is hogy NEM() meg HIBÁS().
Magamtól eszembe nem jutott volna, hogy ezek mire használhatóak tulajdonképpen.Kicsit módosítottam rajta mert kellett bele egy olyan HA() ág is amikor senkihez nem tartozik egy adott bolt valami miatt.
Még egyszer köszi.
-
Sprite75
tag
Sziasztok.
Valahogyan meg lehet azt oldani, a képen látható kinézetű táblával, hogy azokat az oszlopokat, amiben nincs rendelés (pl G és O oszlop) azokat elrejteni, (valahogy úgy mint az auto szűrővel le lehet szűrni a sorokat, persze nem oszloponként kijelölve kézzel rejteni).
Aztán a legalsó Összesítő (Ft) sorban lévő összegeket összeadni úgy, hogy 10 tétel legyen összeadva aztán újabb 10 és aztán a maradék.
Ez a táblázat kb 90 oszlopból áll de minden hónapban változóan kb 30 oszlopban van adat és aztán ebből írnának számlát, úgy, hogy egy (kézzel írott) számlára csak 10 tétel fér. -
Sprite75
tag
Sziasztok
Tudna segíteni nekem valaki egy olyan makróban, hogy a képen látható G6 cellába lévő szám eggyel növekedjen a makró lefuttatásakor.
Ez egy sorszám lenne aminek az adott évben növekvően kellene lennie. Jelenleg szövegként van formázva ez a G6 cella hogy "sorszámosabb" kinézete legyen.
Gondoltam rá a jó lesz nekem erre a NAPOK függvény is, de mégsem mert csak munkanapon készül ilyen Napi üzemanyag elszámolás amit nyomtatok, nem pedig minden nap és így nem lenne folytonos a sorszámozás.Vagy meg lehet esetleg máshogy is csinálni mármint azon kívül hogy kézzel átírom mindennap amikor kell, mert arra lusta vagyok ?
Segítséget előre is köszönöm
-
Sprite75
tag
Sziasztok.
Van egy ilyen maróm egy táblázatban ami kimenti a munkapalot PDF-be.Sub PDFkeziment()
'
' PDFment Makró kézzel
lapnev = ActiveSheet.Name
Sheets("Rendeles").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Megosztott\Rendeles Bolt\Rendeles." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets(lapnev).Select
End SubMeg lehet azt oldani valahogy, hogy a munkalap egyik cellájába beírt szám is belekerüljön a file nevébe?
Tulajdonképpen ez egy rendelésfelvevő táblázat és jó lenne, ha az aktuális rendelés száma is bekerürne a file nevébe, a könnyebb azonosítás miatt. Most ez a file neve ami elkészül: Rendeles.2019.11.20. 07-44.pdf De jó lenne ha így nézne ki pl : 12. Rendeles.2019.11.20. 07-44.pdfHátha
-
Sprite75
tag
Szasztok
Újabb makrós problémával kerültem szembe.
Remélem most is tud valaki segíteniAdott az alábbi 2 makró, amiből az egyik egy új sort szúr be a táblázatba kiegészítenem most egy másikkal ami az újonnan beszúrt sor D oszopába (jelen esetben D54 cella) beírja a soron következő sorszámot ami a D oszlopban legutóbb szerepelt +1 (Tehát most a példában 15 következne.)
Ott akadtam el, hogy már ki va választva az éppen aktuális cella de hogyan lehetne ide beíratni a soron következő sorszámot?Melléleem a makrókat és egy kéept is a tábláról
Köszönöm szépen előre is
Sub Újsor()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
End Sub
Sub sorsszam()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Range("D" & usor - 1).Select
ActiveCell.FormulaR1C1=
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
-
Sprite75
tag
válasz Delila_1 #44317 üzenetére
Szia
Ez így működik is köszönöm, de tovább gondoltam a dolgot.
Tudom ott kezdődik a probléma mikor gondolkodomCsak azoknak a soroknak a D oszlopába kell sorszámozni, ahol a Q oszlopban van szám. Elvileg az lehet 0 is de mindenképpen van írva valami a Q oszlopba amikor a D -be soszám szükséges.
Ezért írtam egy ilyet de természetesen nem jól működikSub Sorszam2()
Dim usorC As Long, usorQ As Integer
usorC = Range("C" & Rows.Count).End(xlUp).Row - 1
usorQ = Range("Q" & Rows.Count).End(xlUp).Row - 1
If usorQ < 0 Then
End
Else
Range("D" & usorC) = Application.WorksheetFunction.Max(Range("D2:D" & usorC - 1)) + 1
End If
End Sub
Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába.
Ha nem írnak semmit az adatbevitelkor a Q oszlopba akkor pedig nem kell új sorszám.Remélem nem bonyolítom a dolgot nagyon
Megint küldök egy képet is a kinézetről.
[kép] -
Sprite75
tag
válasz Delila_1 #44322 üzenetére
Az And Target <> "" feltételt átírtam erre IsNumeric(Target) mert hibaüzenetet dobott amikor elíndítottam az Újsor makrót.
Az új sor makró ez:
Sub Újsor()
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
End Sub
Így hibaüzenet nincs.
Viszont a Q oszlopba beállítottam érvényesítést, hogy csak számot írhassanak bele, de ha mégis betűt írok véletlenül és jön a hibaüzenet az érvényesítés miatt akkor lefut a sorszámozás.
Ez ki lehet valahogy küszöbölni?Tudod a "bolond boztonság" miatt
-
Sprite75
tag
válasz Delila_1 #44343 üzenetére
Az új sor makró van modolba, a sorszámozós amit írtál az pedig a 2020 nevű lapon.
Így kellene lennie?Ha futtatom az új sor makrót akkor kapom ezt a hibát.
De csak abban az esetben ha a sorszámozósban a Target <> "" az egyik feltétel, ha ezt elhagyom akkor nincs ez a hiba.
Viszont működésileg jó lenne ha benne lenne a Target <> "" feltétel, mert ugye ha ez nincs benne akkor bármi kerül a Q uszlop valamelyik sorába (akár véletlenül egy betű szám helyett vagy egy Del gomb) már le is fut a sorszámozás, és ha ezt nem veszi észre aki majd használja akkor a sorzámok nem lesznek megfelelőek.Mivel én még mindíg nem vágom enniyre ezt a makró témát ezért fogalmam sincs, hogy miért van ez a hiba az új sor makró futtatásakor, de ezekre rájöttem amit fentebb írtam
Majdnem biztos vagyok benne, hogy az új sor makró sem tökéletes mert azt is én alakítottam ilyenre egy másik táblázatból kiszedve.
üdv
Gabi -
Sprite75
tag
válasz Fferi50 #44345 üzenetére
[link] Ez az.
Itt még nincsbenne a Application.EnableEvents=False / True amit irtál de volt már benne korábban sz is mer úgy is próbáltam már. Szintén másik táblázatban van ilyen Application.EnableEvents=False / True amiben régebben segítettetek, onnan jött az ötlet hogy kipróbáljam.
Viszont amikor tegnap próbáltam beletenni a Application.EnableEvents=False sort akkor a Dim után raktam be nem pedig elé.
Most beraktam elé és minden szuper
Erről írtam , hogy én csak "heggesztgetem" a makrókat ti pedig profi módon tudjátok, hogy mi mért vanNagyon köszönöm a segítséget .
Sub Újsor()
Application.EnableEvents = False
Dim usor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect Password:="baromfi"
Rows(usor).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Range("A" & usor).Select
Application.EnableEvents = True
End Sub
-
Sprite75
tag
Sziasztok újra.
Van e valakinek ötlete arra, hogy ebből a táblából
hogyan tudnék legegyszerübben egy ilyen összesítést csinálni egy másik munkalapra.
A dolog lényege, hogy a D oszlopban lévő azonos sorszámokhoz tatozó sorok K oszlopában lévő értékeket kellene összesíteni, hogy egy sorszámhoz egy sor tartozzon.
Az alap táblázat (első kép) folyamatosan bővül újabb és újabb sorokkal.World körlevél készítéshez kellene, hogy igy nézzen ki a táblázat mint a második képen.
Kimutatás készítőbel próbáltam de azzal nem tudok ilyen összesítést csinálni, hogy az alkalmas legyen a wold-nek körlevél készítés adathalmazának. -
Sprite75
tag
válasz Fire/SOUL/CD #44355 üzenetére
Ja, oszlopokat most épp töröltem ami nem kell és úgy készült a képe, de nem gond ha minden oszlop ugyanaz mint az első képen, majd a world-ben nem lesz használva .
A körlevélben egyébként 4-5 adat oaszlop sorai lennének használva csak.
Van kimutatás haszáálva ebben a táblázatban amit nem tudtam úgy rendezni , hogy úgy nézzen ki ami a world - nek jó lenne körlevél készítéshez.
Ilyen jelenleg a kiutatás
[kép]Fferi50
Kicsit csúnya lett de működik Felvettem makró rögzítóvel és úgy is le generálódik szépen újra.
Ebből már csak törölni kell a szükgégtelen sorolat jelenleg a 20 tól lefelé és más indítható is a World.Köszi a tippet.
-
Sprite75
tag
Sziasztok
Van ez a Rendelés Felvevő
táblázatunk amivel kapcsoaltban már kaptam egy jó párszor segítséget itt.Van benne egy jó pár macró, amelyek közül most bővítettem egy kicst ez egyiket, ami PDF-be menti az egyik lapot időközönként automatikusan.
Valamit van benne egy olyan is ami magát a táblázatot menti 2 percenként.Jól is működik mindaddig amíg a kollega aki használja, nem nyit meg más excel táblázatot a gépén. Ilyenkor, ha más táblázatban is dolgozik, és a Rendelés Felvevő is meg van nyitva akkor a makrós automatikus mentések lefutásakor hibaüzenet jelenik meg.
Szóval ez lenne a kérdésem, hogy lehet-e módosítani az alábbi makrókat úgy, hogy ne megyen ez hibaüzenet amikor más táblázat is meg van nyitva az adott gépen.
ThisWorkbook lapon ez van :
Private Sub Workbook_Open()
TimerStart
Application.OnTime Now + TimeValue("00:02:00"), "SaveThis"
End Sub
A két maró ez ami a PDF-es és a file mentést csinálja. Ezek a moduloknál vannakPublic kovido
Sub TimerStart()
kovido = Now + TimeSerial(0, 15, 0) '1 perces időzítési idő
Application.OnTime kovido, "PDFautoment", , True
End Sub
Sub PDFautoment()
' PDFment Makró automata
lapnev = ActiveSheet.Name
Sheets("Rendelés").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Rendeles\PDF-RENDELES\Auto.ment.rendeles." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Összesítve").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\KHAZASERV\Rendeles\PDF\Auto.ment." & Format(Now(), "yyyy.mm.dd. hh-mm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets(lapnev).Select
TimerStart
End Sub
Sub SaveThis()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.OnTime Now + TimeValue("00:02:00"), "SaveThis"
End Sub
Remélem nem fogalmazatam nagyon bonyolultan
-
Sprite75
tag
válasz Delila_1 #44880 üzenetére
Nekem az nem akar összejönni
Az Auto.ment.rendeles szöveget ezt én irtam így, az nem egy makro neve.
A mentés egy hálózaton található gépre történik \\KHAZASERV\Rendeles\PDF-RENDELES\ ebbe a mappába. Az elkészült file neve pedig ilyen formátumú Auto.ment.rendeles.2020.09.22. 07-37.pdf Amiben ugye a datumot, és az óra percet automatikusan irja a file nevébe a mentéskor.Ezért nem érem hogy mik lellene csinálni ebben az "Auto.ment" -nek?
If Left(ActiveWorkbook.Name, 9) = "Auto.ment" Then
-
Sprite75
tag
válasz Fferi50 #44889 üzenetére
Még szerencse, hogy a makrós tudásomnál a kitartásom sokkal nagyobb
Köszönöm szépen az ötletet. Először alíg értettem de csak sikerült értelmeznem amit írtál.
Sőt tovább is fejlesztettem a dolgot.
Van ugye a File mentés automatikusan és a PDF mentés automatikusan.
Mindkettőnek külön-kölön időzítőt hoztam létre, hogy külön lehessen állítani az idejüket, hogy milyen gyakran fussanak le.
Kipróbáltam, hogy ha megnyitok ezen a rendelős táblázaton kívül mást, akkor valóban szünetel az automatikus mentés, ha a másik táblázat aktív. Ez is volt a cél, hogy ne legyen hibaüzenet, ha más táblázatban is dolgoznak, miközben meg van nyitva a rendelés felvevős táblázat.Még egy apró probléma lenne, ami eddig is megvolt, de együtt tudott vele élni a kollega, de hátha megoldható ez is:
Amikor megnyit egy másik táblázatot amikor nyitvan van a rendelős tábla, és ilyenkor bezárja a rendelős táblázatot, de a másik nyitva marad, mert abban még akar dolgozni, akkor az történik, hogy a mentés időzítés lejártakor magától megnyílik ujra a rendelős táblázat és lefut a mentés.
Ilenkor be szokta zárni teljesen az excelt, és újra megnyitja a másik táblázatot amiben dolgozni szeretne.
Szóval az kivitelezhető, hogy a rendelős táblázat bezárásakor leálljon az időzítő ha az excel továbbra is nyitva marad egy máik táblázat miatt?
Íme a jelenlegi állapot az automatikus mentéses makrókról A makro txt ben
[kép]Köszönöm az eddigiket
-
Sprite75
tag
válasz Fferi50 #44891 üzenetére
Sajnos hibaüzenetet kapok a táblázat bezárásakor.
Hiba
Beirtam hogy
Public kovido As Date
Valamit az egyik időzítő makró első sorába ezt
If kovido>Now Then Exit SubNem az a gond, hogy ugye két időzítő is van, az egyik 2 percenként a másik 15 percenként ?
Azt hogyan kellene hogy mindkét időzítőt leállítsa bezáráskor? -
Sprite75
tag
válasz Fferi50 #44908 üzenetére
Lehet hogy feladom
A "TimerPDFStart" fut, mert a beállított (jelenleg 20 perc után működik a mentés.
Nem igazán értem ezt a idoleall makrót amit javasoltál.
Ennek csak enniynek kell lennie?
Neki igy is értelmezni kell a kovidoPDF -et, hogy az a TimerPDFStart makróban van "meghatározva" ?
(azért írtam át kovidoPDF-re, mert irtad, hogy külön kellene definiálni másik változót is, ha két különböző időzítő lenne. Azért szertném amugy hogy két különböző időzítő legyen, hogy a file mentése 2 percenként fusson le a PDF export meg nem olyan fontos, az jó kb 15-20 percenként is)Ha lenne egy kis időd, rá tudnál esetleg nézni a leljes kódra, hogy mit írtam el mert nem találom a hibát.
Köszönöm szépen előre isFelrakom txt-be ide
-
Sprite75
tag
válasz Fferi50 #44918 üzenetére
Ne viccelj már nincs miért elnézést kérni.
Ha lenne egyszer több időm ezzel a makrózgatással foglalkozni biztos kiszúrtam volna én is mi a gond . Jelenleg még mindíg csak a mások álltal írt makrókat heggesztgetem, de nem mindíg értem mi mit csinálÍgy már tökéletesen működik minden, (legalább is addig amig a kollega aki haszálja nem "fedez fel" valami olyan hibát a táblázatban amivel foglakozni kell) müködnek az automatikus mentések, másik táblázat haszálatakor szépen szünetel a mentés makró, és bezáráskor sincs hibaüzenet
Belinkelem ide újra a jelenlegi működő mentés makrókat, hátha kell ilyen másnak is legközelebb (előző hozzászólásban is már ajól működő makró van linkelve)
Nagyon szépen köszönöm a segítséget újra
-
-
Sprite75
tag
válasz jackal79 #44962 üzenetére
Próbéltam ilyet keresni de nem találtam. A lap elrejtős/felfedős dolog is jó lehetne szerintem neked, ha azt meg lehetne úgy csinálni makróval, hogy ha fel akarod fedni az elrejtett lapokat akkor kérjen jelszót.
Amit most kipróbáltam hogy pl a Munka2 lapot elrejteni és felfedni makróval, jelszóval védve a füzetvédelem segítségével, csak ezzel az a baj hogy a makrót bárki tudja használni aki megnyitja a táblázatot
Sub lezár() ' A Munka2 lapot elrejti és zárja le jelszóval
Sheets("Munka2").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Munka1").Select
ActiveWorkbook.Protect 1, Structure:=True, Windows:=False ' Az 1 a jelszó
End Sub
Sub kinyit() ' A Munka2 lapot felfedi
ActiveWorkbook.Unprotect 1 ' Az 1 a jelszó
Sheets("Munka1").Select
Sheets("Munka2").Visible = True
End Sub
-
Sprite75
tag
válasz Sprite75 #44927 üzenetére
Sziasztok.
Van ez a [link] rendelős táblázatom amiben [link] ilyen auotomatikus mentős makrók is vannak.
Ezt úgy használják, hogy reggel megnyitják (a file neve az hogy reggeli nyitó) aztán mentés másként-al mentik ugyhogy a file neve pl ma 11-17 lesz.
Van egy olyan probléma vele, hogy ilyenkor ha nem zárják be a táblázatot és nem nyitják ujra már a 11-17 nevűt akkor nem műköödnek a fentebb linkelt automatikus mentés makrók.
Viszont egyéb makró működik a táblázatban.Ha bezárják és ujra nyitják (ahogy javasoltam a kollégának) akkorfeldogja az excel hogy a makrók le vannak tiltva akarod-e engedélyezni... Természetesen ha itt rá nyomnak hogy igen akkor minen ok. Működik az automatikus mentés is innentől kezdve.
Hogyan lehetne ezt kijátszani, hogy a mentés másként után ne kelljen bezárni a táblázatot,
(mert sajnos ezt sokszor elfelejtik reggelente)
hogy elinduljun az aut mentések időzítője így is amik a ThisWorkbook -on Private Sub Workbook_Open() alatt vannak .? -
Sprite75
tag
Sziasztok.
Egy a képen látható jelenléti ívet kellene készítenem, úgy hogy a dolgózók névsora egy listában lenne, és, hogy ezeket a jelenléti íveket automatikusan ás egyszerűen ki lehessen nyomtatni minden hónapban. (Ha változik a dolgozói névsor akkor csak azt frissítenék és újra mehet a nyomtatás.)
Arra gondoltam, hogy excelben lenne a névsor, és word körlevél készítővel menne a nyomtatás.
Viszont a problémám az. és itt akadtam el, hogy azt hogyan lehetne megcsinálni, hogy a hétvégi napok (és az ünnepnapok) így ki leyenek húzva, mint a képen.
Persze ha lehet akkor ez automatikusan az adott hónap kiválasztása után.Próbáltma az excelben naptár sablonokat nézegetni kiindulási alapnak, de nem jutottam eredményre.
Lenne erre valakinek ötlete erre?
-
Sprite75
tag
válasz Delila_1 #47322 üzenetére
Már épp én is elkezdrem csinálni, és épp azt akartam kérdezni, hogy a neveket hogyan lehetne cserélgetni gyorsan nyomtatáskor, hogy nem egy lenyíló listából kelljen kézzel kiválasztani.
De szokás szerint megelőztélNagyon jók a nevek is
Csakhogy a többiek is nevesenek
Szekér Alma hangszigetelő
Nyúl Kálmán kapásjelző
Postak Ábel vízköpő
Metall Ica rézsútos
Csalez Lopez markáns
Vicc Elek vasgyúróTesztelem köszönöm szépen
-
Sprite75
tag
Sziasztok
Van egy ilyen kód az egyik táblázatomban a Rendelés lapon ami egy Combo boxban történő keresést működtet.
Private Sub ComboBox1_Change()
Dim i As Long
If Not IsArrow Then
With Me.ComboBox1
.List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
.ListRows = Application.WorksheetFunction.Min(20, .ListCount)
.DropDown
If Len(.Text) Then
For i = .ListCount - 1 To 0 Step -1
If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
Next
.DropDown
End If
End With
End If
On Error Resume Next
i = Application.Match(Cells(1, 1), Columns(2), 0)
If Not VarType(i) = vbError Then Cells(i, 3).Select
On Error GoTo 0
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
End Sub
Private Sub ComboBox1_DropButtonClick()
With Me.ComboBox1
.List = Worksheets("Rendelés").Range("BD5", Worksheets("Rendelés").Cells(Rows.Count, "BD").End(xlUp)).Value
.ListRows = Application.WorksheetFunction.Min(20, .ListCount)
.DropDown
End With
End Sub
Viszont ugyanebben a táblázatban fut egy ilyen kód ami a táblázat 2 különböző lapjának PDF-be történő mentését futtatja 20 percennénk.
Sub TimerPDFStart()
If kovidoPDF > Now Then Exit Sub
kovidoPDF = Now + TimeSerial(0, 20, 0) '1 perces időzítési idő
Application.OnTime kovidoPDF, "PDFautoment", , True
End Sub
A problémám az, hogy ha épp nyitva van a Combo box, ép pont akkor jár le a 20 merc amikor a
PDFautoment
makró lefutna, akkor hibát amikor aPDFautoment
át akar lépni egy másik munkalapra, hogy mentsen PDF-be (Sheets("Összesítve").Select)Meg lehet azt oldani hogy ha nyitva van a Combo box és épp akkor indítaná a
TimerPDFStart()
időzítő a mentést akkor az várakozzon amíg a combo box használata be nem fejeződik.Bocsi hogy egy kicsit hosszú lett.
-
Sprite75
tag
Sziasztok
Valaki tapasztalt már olyat, hogy excelben a cellák jobb alsó sarkánál nem jelenik meg a kitöltőjel?
Erre gondolok:Biztos, hogy nem kapcsoltam ki szándékosan, és egy pár napig úgy használtam minden táblázatomat, hogy ez nem működött.
Bosszantó volt nagyonMitől tud ez az opció kikapcsolódni?
-
Sprite75
tag
Sziasztok.
Találtam egy ilyen dátum kitöltő megoldást de nem boldogulok a testreszabásával.
[link]Azt szeretném elérni, hogy saját munkafüzetben is működjön, akkor is ha ez a samradapps_datepicker_221114.xlam file nincs bemásolva a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
Mert a táblázatban amiben szertném "integrálva" használni többen is dolgoznak és akinek a gépén esetleg nincs fent ez a file a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
annál nem fog működni a dolog.Próbáltam mind a user form-ot mind az összes modult átrakni egy új munkafüzetbe a samradapps_datepicker_221114.xlam file-ból de különböző hibák miatt nem jó müködik.
Használok egy hasonló "naptárat" pár táblázatomban, ami szintén a kiválasztott dátumot irja be az aktuális cellába egy egyéb dolgot is tartalamzó makró futtatásakor.
De ez a naptár sokkal jobban néz ki és pl tetszik benne hogy egér görgővel lehet lapozni benne ha nyitva van.
-
Sprite75
tag
Sziasztok.
Valakinek lenne ötlete arra hogy hogyan lehetne megoldani a következő dolgot. Van egy szám, általában 250 és 450 között. pl az egyszerűség kedvéért 300. Egy tartományban szeplő értékek közül válogatva véletlenszerűen be kellene irnom max 9 cellába értékeket, úgy, hogy az összegük minél jobban megközelítse a példában szereplő 300 at.
Ez lenne a tartomány (de még lehet hogy bővülni fog más számokkal is) amiből válogatni kellene véletlenszerúen. Egy érték nem baj ha többször szerepel. Valamint segédcellákat is tudok használni ha kell. Pl a másik tartomány ami max 9 cella lehet igy nézne ki.
Ennek az összege jelenleg 301.
Nem tudom elég érthetően irtam e le
-
Sprite75
tag
Köszi szépnen
Ezt a Solver lenetőségten nem is ismertem (meg még mennyi mindent nem), egész jó, bár egy kicsit lassan dolgozik.
Az egyedi function megoldás már sokkal jobban tetszik.
Ez bele is raktam a mellékelt file Munka1 lapjára, ha kell esetleg később valakinek.Viszont itt találtam egy Find cells combination that equal a given sum with formulas megoldást ami még jobban tetszene
Ezt raktam be a Munka2 lapra.
De sajnos valamiért nem működik.
Próbáltam "magyarítani" a páldában szereplő képletet, de biztos tettem bele valami hibát amit nem találok. (szövegesen a B1 be raktam amit elkövettem, és az E1 ben van az ereseti angol verziós képlet.)Valaki észrevesz benne a hibát esetleg?
A proba file
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen