Sziasztok!

Újabb felfedezésre jutottam! Az össze táblázatomban működik a „Format” parancs csak abban az egyben nem amiben használni szeretném.
Ha nyitok egy üres munkafüzetet és oda bemásolom a makrót azt csatolom ahhoz amiben használni szeretném működik.
Ha az üres füzet bezáródik a makró, újra nem hajlandó a Format parancsot használni.
Más hasonló táblában – szintén én készítettem – tökéletesen működik.
Mi lehet az xlsm fájl hibája? Az összes ugyanazt a vezérlőt használja nem?

Köszönettel:
Frank

Úgy sem megy!

Az amp után
MsgBox Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now())

Igen ezzel így működik.
strTime = „2019.04.06”

De ide kellene beillesztenem az aktuális dátumot legalább automatikusan.

üdv:

Na kipróbáltam ugyanaz a hibajel.
Itt a kód a kiegészítéssel.
Sub PDFActiveSheet()
‘www.contextures.com
‘for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
MsgBox Format(DateTime.Now, „yyyy-MM-dd hh:mm:ss”)

‘get active workbook folder, if saved
strPath = wbA.Path
If strPath = „” Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & „\”

‘replace spaces and periods in sheet name
strName = Replace(wsA.Name, ” „, „”)
strName = Replace(strName, „.”, „_”)

‘create default name for savng file
strFile = strName & „_” & „2019” & „.pdf”
strPathFile = strPath & strFile

‘use can enter name and
‘ select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:=”PDF Files (*.pdf), *.pdf”, _
Title:=”Select Folder and FileName to save”)

‘export to PDF if a folder was selected
If myFile <> „False” Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
‘confirmation message with file info
MsgBox „PDF file has been created: ” _
& vbCrLf _
& myFile
End If

exitHandler:
Exit Sub
errHandler:
MsgBox „Could not create PDF file”
Resume exitHandler
End Sub

Szia!

Ez a hibaüzenet jön!
“Compile error:
Can’t find project or library”

Szia!

99% hogy ott a probléma, én is kipróbáltam az irodai gépen tökéletesen fut!
Nekem Mac van paralell portos windows-al. ez lehet a baj bár az office 2016 alatt simán működött!
Megnéztem a Tools részt is semmi gond vele!
Lehet bele kellene írni a pontos elérési utat, mert szerintem az a baja. Csak ennyire ebbe nem merültem bele, merthogy sosem írtam makrót.
A számlázóm is csinál néha olyan problémát – mint utólag eszembe jutott – hogy nem lát bizonyos mappákat.
Azután gondol egyet és semmi gond.
Nekem elég lenne az ha az adott lapról készítene egy pdf mentést egy általam megjelölt mappába időbélyeggel.
Érdekes, hogy a harmadik makróval viszont gond nélkül működik de az ugye kérdezés nélkül ment abba a mappába ahol maga az excel fájl található.
Vagyis mégis látja az excel dokumentum helyét.
Na itt van vége a tudományomnak.
Marad a kézzel mentés, illetve azért hogy ne tévesszek – volt már, hogy nem váltottam át pdf mentésre és fél napot a képletekkel kellett szórakoznom, mert máshová mentettem az egész táblát – egy makró rögzítéssel oldottam meg egyenlőre a dolgot. Végigkattintgatom és rögzítem, így is működik csak ezen sincs időbélyeg mikor készült!
Pedig a 2019-es nagyon tetszik mert gyors valóban.

Üdv:
Frank

Szia!

Igen próbáltam megoldani de nem jutottam sokra.
Itt áll meg:strTime = Format(Now(), „yyyymmdd\_hhmm”)

A makró innen van: https://www.contextures.com/excelvbapdf.html

A harmadik változat működik de az nem megfelelő mert nem oda ment ahová szeretném és nem ír megfelelő fájlnevet!

Üdvözlettel:
Frank

Szia!
Azt hiszem az egész Excel-ről még bőven van mit tanulni, de nekem nagyon tetszik.
Most rátérek újra a query problémámra, hogyan tudok formázott táblákat külön munkafüzetekből összevonni és közös kimutatást készíteni! 🙂

Üdv: Feri

Sziasztok!

Köszönöm, valahányszor ide fordulok rá kell jönnöm mennyi mindent nem tudok még az Excelről.
A képlet működik köszönöm a segítséget.
Még van egy apróság ami igazából nem nagy gond csak egyszerűsíti a munkát.
A hónap oszlopban számmal írom be a hónapokat,(1,2,3,…),azonban az indirekt függvény miatt készítettem egy újabb oszlopot amelybe a következő képlet került,: SZÖVEG(@HÓNAP;”hhhh”).
Ennek elvileg a hónapokat szövegesen ki kellene írnia, de hiába töltöm fel az oszlopot csak januárt hajlandó írni!
Egy másik táblában ugyanez a képlet napokkal simán működik, igaz ott teljes dátumból kapja az adatokat.
Ha még ebben tudnátok segíteni örülnék.

Üdv:Feri

Szia!
Ma egy újabb korlátozással találkoztam a Query-ben. Már majdnem elértem a célt mely szerint két külön munkafüzet adott tábláiból összevonom az adatokat és abból egy kimutatást készítek, de itt a következő gát.
A Query nem enged 1000 sor feletti adatmennyiséget beolvasni. Egy hét munka újra kuka.
Tehát a Query használatakor nem lehet jelszavas védelem, és nem lehet több az adott táblában mint ezer sor.
Szerinted is így van?

Kénytelen leszek a formázott táblákhoz újabb számított oszlopokat készíteni és abból egy kézzel elkészített kimutatást.
Már csak azt kell kitalálnom, hogy miként mutassa az aktuális fél évet visszamenőleg. Nem megoldhatatlan csak rabszolgamunka!
Vagy két külön pivot kimutatást készítek egy új munkafüzetben egymás mellé és képletekkel összegzem az adataikat.
Nem a legelegánsabb megoldás de úgy tűnik nem lehet másként elérni a célt.
Üdv a fejlesztőknek.

Egyébként mi a tapasztalat, kb hány sornál érdemes valamilyen módon archiválni és új táblát kezdeni?

Köszönettel: Feri

A 2016-os excel fut a gépemen

Szia!
Nos igazad volt nem egyszerű megszabadulni tőle. Miért került az adatmodellbe, mert a Microsoft súgó oldalon azt írták, hogy két különböző fájl különböző lapjait ott kell összevonni annak érdekében, hogy közös kimutatást tudjak készíteni oly módon, hogy mindkét lap adatait felhasználom. Na ez nem működött. A problémát úgy oldottam meg, hogy egy teljesen új munkafüzetbe átmásoltam a lapokat, így eltűnt az adatmodellre való felugró ablak. Át kellett azonban írnom az össze szeletelőt és hivatkozást. A második és harmadik füzetnél már trükkösebb voltam, szintén átmásoltam mindent egy új munkafüzetbe majd a régi hibásat átneveztem valami más névre az újat pedig az eredeti nevére. Így megspóroltam a szeletelők újra gyártását, igaz a hivatkozásokat itt is át kellett írnom de az így lényegesen kevesebb volt. Most már mindhárom fájl működik. Annyi csak a kínom, hogy nyitáskor kiírja a csatolás frissítést mintha nem találná a hivatkozott fájlt, pedig ott van. Ha frissítem ki is írja, hogy nyitva, de hiába állítom be, hogy nem kérek értesítést automatikusan frissítsen a háttérben nem hajlandó megtenni.
Az sem lenne rossz ha lenne egy olyan trükk amivel három fájlt tudok egyszerre kinyitni egy ikonról mert úgyis mindegyiket használom nap mint nap.
Na igen és az alapprobléma még mindig itt van. Van két formázott tábla két külön fájlba aminek bizonyos oszlopai tartalmazzák a szükséges számításokat. Ezeket kellene egy kimutatásba összevonnom és összegezve kimutatni olyan egyszerűen ahogy egy munkafüzetbe be lehet illeszteni egy pivot kimutatást számított mezőkkel együtt. Na ezen még agyalnom kell mert még egyszer nem készítek összevont kimutatást.
Ha pedig elkészítem képletekkel akkor pont azt a könnyű kezelhetőséget veszítem el amit a pivot jelent az automatikus frissítéseivel.
Nos itt tartok megérkeztem oda ahonnan indultam de legalább nincs adatvesztés és több éjszakás munka. Amit a Microsoft bemutat a honlapján az gyönyörű szép de úgy tűnik csak nekik működik, vagy nekem kell még nagyon sokat tanulni, (inkább az utóbbi).
Ha valakinek van erre ötlete szívesen fogadom.
Köszi előre is!

Üdv:feri

Szia!

Tökéletesen jól érted, van három Excel fájl benne több lappal, kimutatásokkal.
Kettőben van olyan adat amit egy kimutatásba szeretnék rendezni de nem igazán megy csak külön kimutatásokkal.
Illetve már az sem mert beraktam adatmodellbe a lapokat azóta egy kimutatásomat sem tudom frissíteni.
Jól beletekertem, ezért egyenlőre az lenne a legfontosabb, hogy dolgozni tudjak.
A kapcsolatoknál látok két adatlapot de nem tudom törölni őket, így viszont nem frissülnek a kimutatásaim az egyes fájlokon belül.
Mindig hibát ír ki.
Új Office telepítés megoldaná ezt vagy az Excel fájl valahol belül tárolja a power pivot adattáblát?

Köszi előre is.

Szia!

Bocs csak nem jött email nem vettem észre a választ!
A táblázatban frissítéskor jön elő! A szöveg érvénytelen hivatkozás!
Több kimutatás is van egyszerre szoktam frissíteni, darabonként nehéz is lenne!

Üdv:

Szia!

Köszönöm a segítséget, már az első is működött csak nagyon gondosan akartam aljárni és egy új munkalapon próbáltam ki, emiatt elfelejtettem a formázott táblát előkészíteni.
Most viszont eszembe jutott és minden működik ahogy kell.
Egy furcsasága van csak , de ez már tényleg csak esztétikum, hogy visszaállításkor mivel a fehér szín van megadva eltünteti a szegélyeket is soron belül. Ezzel azért együtt lehet élni!
Mégegyszer köszi a segítséget!
Makróírást hol kell kezdeni tanulni?

Köszönettel:

Köszönöm a gyors választ!

Tökéletesen jól értelmezted a jelölő szót , illetve a szándékot.
Az említett 1 vagy 0 verziót már beépítettem x-el és feltételes formázással, csak gondoltam elegánsabb lenne egy kattintással ugyanezt csinálni.
A makrót nem tudom hogyan írjam meg,úgy hogy az a formázott táblában folyamatosan bővüljön a táblával együtt.
Most 2KB az excel fájlom és kb 500 sort tartalmaz az adatalap része de folyamatosan bővül, azért 1000 fölé nem fog menni, viszont rengeteg kimutatást használok ebből az egy táblából.
Kérdeznék még valamit, vajon miért nem működik az Active X vezérlők egyike sem és a Power Wiew is csak ott van de nem indul el, míg a power map tökéletesen üzemel.
Az Active X mindenféle engedélyezését kipróbáltam már de nem hajlandó működni. Office Professional 2013-as van a gépemen.
Előre is köszönöm a segítséget!

Üdv:

Frank

Köszönöm!

Valami jó kis nehéz függvényen törtem a fejem , pedig mindig a legeegyszerűbb megoldások a célravezetőek.

Üdv:
Frank