Szia!

Igen igazad van a 3 másolat az eredeti táblázatomban kell majd, de a példában csak kettőre csináltam meg.
A különbség köztük annyi, hogy amikor a Proba 1 vagy 2-re kattintok akkor lecseréli a címeket hónapokat és átnevezi a lapfület, és ezekből csinálnék másolatokat.
Ma már meg is csináltam ezt a részét működik is, a probléma továbbra is a másolat mentéssel lenne. Később derült ki amit nem vettem észre, hogy amit Titok írt sem működik nálam, mert ezzel amikor rákattintok a másolat készítésére, bezárja az eredeti táblát és a másolatot nyitja meg amit nagy örömömre csak órákkal később vettem észre, hogy a másolatból csináltam a másolatokat.

Inkább mutatom a kódot ez nem a csatolt példa makrója, és egy modulban van benne:

Sub masolat_mentese()

FN = Worksheets(4).Range("C9").Value 'Fájlnév

    ChDir "C:\Users\Asztal"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Asztal" & FN & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
End Sub

Kipróbáltamn a Workbook.SaveCopyAs-t is amit írtál (Ezt cseréltem le rá: ActiveWorkbook.SaveAs) de nem tudom, hogy a többi részén kell-e változtatni, mert hibát ír.

A fájlnév amit pedig még kérdeztél, az excelben több cella adatait összefűztem egybe ami a fájlnév lesz és erre az egy cellára hivatkoztam fájlnévnek.
Ez változik éppen milyen hónapot választottam ki.

Gyors válasz a válaszomra, hogy sikerült a mentés kérdést megoldanom, majd lehet délutánra kiderül, hogy milyen hibák jönnek elő.

• A hozzászólás módosításra került: 4 years, 4 months telt el-tasmatta.

Szia Imre!

Egyszerű és nagyszerű!
Eszembe sem jutott volna.

Köszönöm szépen a gyors segítséget, és a későbbiekben is hasznos cikket!

A jelenlegi táblázatban már sajnos olyan adatok és információk vannak amit nyilvánosan nem oszthatok meg, csatoltam egy korábbit ami erre megfelel, mert ugyanezt a képletet használtam itt is.

Egyenlőre hanyagolom a makró részét, mert ahogy haladok előre folyamatosan jönnek az ötletek, és minimális makró tudás hiányában elég nehéz, és sosem jutnék a végére.

A táblázattal képletezésében szeretnék újabb segítséget kérni, itt az lenne a gond, ha a cella üres, akkor nullát ír be ami a méréses adatoknál elég problémás, pedig a HAHIBA függvénynél be van állíva, hogy „-” karakter jelenjen meg.
Próbáltam HA illetve ÜRES függvényt használni, egyenlőre nem sok sikerrel.
Ha kivettem belőle a HAHIBA függvényt akkor sem írja ki a #hiányzik értéket, pedig ezekbe a sorokba még soha nem vittem fel adatokat.

Ez a képlet már nem az itteni táblázatból van hanem a készülőben lévőből:

=HAHIBA(INDEX(adatok;HOL.VAN(results!$A$7;results!$A$9:$A$132;0);OSZLOP()-7);”-„)

Azt hiszem megtaláltam azt a makrót ami nekem tökéletes lenne, átalakítottam az én verziómra, szeretném ha pár dologban segítenél kiegészíteni, és elmagyarázni mit takar.

Ebben nem tudom, hogyan lehet továbbra is egy meghatározott mappáig ugrani. Ezt gondolom ki kell egészíteni.
A MsgBox („A dokumentumot nem mentetted”) üzenet mikor jön elő? Ha a mentést kihagyom a A mérés nem lett PDF-ben mentve! üzenetet kapom ami pont jó.
Az excel fáj mentése után egy üzenetet kapok mindig hogy: Legyen óvatos! A dokumentum egyes részei, olyan személyes információkat tartalmazhatnak, amelyeket a Dokumentumfelügyelő nem tud eltávolítani.
Ezt ki lehet kapcsolni benne?

Sub gombPDF_Click()
    Dim sPath As String
    Dim sFile As Variant
    Dim ws As Worksheet
    On Error GoTo ErrHandle
    sPath = ThisWorkbook.Path & "\" & "Meres_" & Me.Range("g7")
    
    sFile = Application.GetSaveAsFilename _
            (InitialFileName:=sPath, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Válaszd ki a mentés helyét")
    If sFile = "False" Then
        MsgBox ("A mérés nem lett PDF-ben mentve!")
        Exit Sub
    End If
    
    Me.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Quality:=xplQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
Exit Sub
ErrHandle:
    MsgBox ("A dokumentumot nem mentetted")
    
End Sub

Köszönöm az új képletezést, ezt már annyira nem zavart össze mint a makrók 🙂 Gondolom az első verzió képletei is működnének vele, csak lehet így is? Nincs összefüggésben ezzel a makróval?

Ez a makró működik benne csak nem minden fent leírt folyamattal, amit nem tudom keresnem kell-e a makróban.
Az első, hogy nem egy meghatározott mappáig ugrik.
Bemásoltam az elérési utat ebbe a sorba: utvonal = utvonal & „ide szúrtam be\” de nem oda ugrik.
A másik pedig hogy amint menti a pdf fájlt, azt meg is nyitja.

Szóval megelőzve az újabb kérdezősködést próbáltam magamtól megcsinálni, egy tutorial segítségével, ami sikerült is, csak ebben a videóban nem a pdf mentésen volt a fókusz amit pedig nem tudom, hogy tudok a te makróddal összegyúrni.

Ez volt a videós segítség. Ezt egy teljesen új munkafüzetben csináltam.
https://www.youtube.com/watch?v=V-TBTZvdDkU

A makrója:

Option Explicit

Sub SaveAsDialog()

With Application.FileDialog(msoFileDialogSaveAs)
    .Title = " Válaszd ki a mappát "
    .ButtonName = "Product mentése"
    .InitialFileName = "C:\Users\Otthoni\Desktop\makros\" & Range("C5").Value & "_Checklista"
    If .Show = 0 Then
        MsgBox " A mérés nem lett PDF-ben mentve! ", vbCritical
        Exit Sub
    End If
    .Execute
    
End With

End Sub

Szóval a folyamat szerint:
– Kattintok a gombra
– Felugrik a mentés másként ablak, ami tartalmazza a mentendő fájl nevét
– Egy meghatározott mappaszerkezetig ugrik
– Onnan én választom ki a végleges helyét
– Mentés PDF-ben majd a mentett fájl automatikusan megnyílik

Próbáltam úgy megírni hogy csak a PDF választásig mert makró nélkül normál esetben automatikusan megnyitja, ha ki van pipálva, de az én tutorialos makrómmal el sem menti, mert gondolom nem határoztam meg a pdf paramétereit, amit a tiédből másoltam volna, valószínű még valamit hozzá kellett volna írni.

Az a baj hogy hosszú távon nem marad meg mert nem minden nap használom. 3 éve horvimi videóiból nagyon sokat tanultam, de nem használom napi szinten így manapság, sokszor az alap dolgokon is gondolkodni kell.
Most megint megjött a kedvem, úgyhogy már egy excel makró könyvet is beszereztem.

Igen teljesen érthető, elkezdtem csinálni nulláról a leendő táblázatot és sikerült is minden képletet szinte „puskázás” nélkül megírni.

Szeretném megcsinálni a dátum oszlopot úgy, hogy minden hónapban előre ki legyen töltve, de a gyorskitöltés nem tudja értelmezni azt hogy, 4 ugyanaz napi dátum utána egyel több, újra 4 nap ugyanaz és egyel több. Ez kb. 120 sor lenne minden hónapban.
Meg tudom csinálni úgy hogy az egyik oszlopban a hónap első napja végig kitöltve, egy másik oszlopban az 1,1,1,1,2,2,2,2 stb. majd ezeket összeadom, de ha lenne erre valami spécibb megoldás akkor érdekelne.

Van még egy másik dolog, amit te tettél bele extraként a táblázatba, és nagyon tetszett az pedig, hogy mentéskor automatikusan pdf-be és az aznapi dátummal menti.
Ez azért nem működne nekem, mert ugye napi 4 pdf készül majd különböző időpontokban. Ez már tudom, hogy inkább makró programozás, úgyhogy kifejtsem egy új fórumban? Talán másoknak is segítség lehet, a kezdeti fórum témától már így is teljesen elkanyarodtunk.

• A hozzászólás módosításra került: 4 years, 6 months telt el-tasmatta.

Köszönöm szépen örülök, hogy meg lehet oldani képletekkel is, és a táblázat működik.
Sajnos 3 órája időzök azzal, hogyan tudnám ezt kiterjeszteni, több napra és mérési paraméterre, az én excel tudásom szerint rengeteg idő lenne, és ha később változtatni kellene rajta ami elég gyakori akkor szintén.
Ha jól látom egyszerre több HA függvény feltételéhez van kötve, és azt olvastam, hogy egy képletnél ez is csak korlátozott mennyiségig használható.
Csatoltam a táblázatot 2 újabb lapfüllel, körülbelül így nézne ki a valóságban, mert a mentendő oldalon is nem egymás mellett vannak az értékek.
Van erre valamilyen lehetőség, hogy a leendő kb 120 választógombra legyen valamilyen képlet?

Szia Kati!

Először is szeretném megköszönni a segítséget.

Sajnos makróval soha nem dolgoztam, nem ismerem ennek a működését, pedig próbáltam még a válaszod után keresgélni.
A leírásod szerint csináltam mindent, lementve ugyanazon néven makróbarát verzióként, de a táblázatban nem történik semmi. Olvasgattam, keresgéltem, sok helyen látom, amikor megnyomják az F5 gombot akkor elindítható az a makró. Jó helyen keresgélek?

Nem tartottam tegnap fontosnak, gondolván majd átalakítom, de egy nap 4-szer történik a mérés, tehát egy dátumhoz 4 sornyi adatsorra lenne szükségem.

Tegnap azt gondoltam ez képletekkel megoldható, de ilyet nem használtam. Segítenél benne?

Azt láttam hogy a videó ezzel az oldallal kapcsolatos de azt nem hogy te csináltad.
Sajnos aminél ezt használni szeretném elég valószínű hogy két ugyanolyan érték fog szerepelni így marad majd a szemmel való keresgélés.

De nagyon szépen köszönöm a segítségedet!

Feltöltöttem egy fájlt. Ebben az összesen oszlopban megadtam hogy ha 4-nél nagyobb az érték akkor piros legyen és automatikusán számolja össze a beírt értékeket.
A top 5 oszlopba szeretném azt hogy az első 5 legmagasabb értéket írja be automatikusan de ne csak a számot hanem a gyümölcs nevét és hogy melyik gyümölcs melyik értékhez tartozik.
Ha megoldható úgy lenne a legjobb ha az érték eléri az 5-öt akkor írja be. 5-nél kisebb érték nem számít.