Telefonszámunk: 1-472-0679

[Resolved] Nyomógomb létrehozás

Kezdőlap Fórumok Excel programozás [Resolved] Nyomógomb létrehozás

Topic Resolution: Resolved

Ennek a témakörnek tartalma 6 hozzászólás, 3 résztvevő. Utolsó frissítés:  Fogtunder 2 hete, 1 nap telt el.

7 bejegyzés megtekintése - 1-7 / 7
  • Szerző
    Bejegyzés
  • #6734

    Fogtunder
    Felhasználó

    Sziasztok !

    Szeretnék 2 gombot beilleszteni a munkafüzetbe.
    Az első feladata az lenne, hogy a munkafüzetről csináljon egy másolatot a dátum+Név néven (mentés másként, előre definiált néven ?)

    A második pedig egy képet (pdf, jpg, bármi) kreáljon egy adott tartományról.
    Milyen formában lehet ezeket megvalósítani ?

    #6735

    delila
    Felhasználó

    Szia!

    Makrórögzítéssel mindkét gombhoz létrehozhatod a makrót.

    #6736

    Fogtunder
    Felhasználó

    A számolóképleteket az itt kapott segítséggel összehoztam ugyan, de a makróról sajnos halványlila segédfogalmam sem nem van… 🙁

    #6739

    horvimi
    Adminisztrátor

    A makrózás nem egy olyan téma, amit egy fórum topic egyik hozzászólásában el lehet magyarázni.
    Amit szeretnél, az megcsinálható, sőt, valószínűleg rá is lehet találni megoldásokra a neten.

    Még az sem kizárt, hogy lépésenként diktálva (leírva) meg is tudnád csinálni.

    De azért nem baj, ha az ember tudja, hogy mit miért csinál.

    Szóval itt most csak az jöhet számításba, hogy valaki megcsinálja neked, majd leírja, hogy hogyan üzemeld be.
    De láttam, hogy a megoldáshoz magyarázatot is kértél az előző kérdésedhez.

    Ez az, ami meghaladja egy fórumtéma kereteit szerintem.

    Nálunk rendszeresen vannak 1 napos makró bevezető tréningek, az alapján már meg tudnád ezt úgy is csinálni, hogy értd mit csinálsz.
    Most épp van egy időpont: http://pentaschool.hu/excel/excel-automatizalas-makro-vba-tanfolyam.php

    Imre

    • A hozzászólás módosításra került: 3 hete, 1 nap telt el- horvimi.
    #6741

    Fogtunder
    Felhasználó

    Szia,

    Köszönöm a válaszodat, kicsit sűrű a programom, bár szívesen elmennék a fejtágítóra. A későbbiekben is hasznát tudnám venni így majd sort kerítek rá mindenképpen.
    Jelenleg egy adott problémát szeretnék megoldani, aztán fogok tudni gondolkodni a később bővülő feladatok automatizálásán.

    Keresgéltem a neten megnéztem számtalan videót is, találtam kódot a feladatra és jól látod fogalmam sincs róla, hogyan épül fel, vagy a hivatkozásokat hogyan tudnám benne cserélni.
    Megcsináltam egy tutorial alapján, de a névkreálást tudom hogyan állítsam be, hogy cellákból olvassa ki.
    Worksheets(“Ajánlat”).Activate
    Ajánlat = ActiveWorkbook.Path & “/” & ActiveSheet.Name & “_” & _
    ??????????? & “.pdf”

    ‘Export activesheet as PDF
    With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajánlat, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With

    A kérdés csak az maradt, hogy miként tudnám az ajánlat “Névcella” +”dátumcella” nevet létrehozatni.
    A kérdőjelek helyén egy számgenerátorra(?) hivatkozott.

    • A hozzászólás módosításra került: 3 hete, 1 nap telt el- Fogtunder.
    #6743

    delila
    Felhasználó

    Szia!

    Mivel egy cellából kell kiolvasni a dátumot, a cella címét kell megadnod forrásként.
    A dátumokat az Excel egész számokként értelmezi. A mai dátumot – 2020.02.04-et – 43865-ként tárolja. Ahhoz, hogy a fájlnévben dátum formában jelenjen meg, meg kell adnod a megjelenítendő formátumot.

    Sub Mentes_pdf()
        Dim Ajanlat As String
        With ActiveSheet
            Ajanlat = ActiveWorkbook.Path & "\" & .Name & "_" & Format(Range("A2"), "yyyy-mm-dd") & ".pdf"
            
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajanlat, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=False
        End With
    End Sub

    Kati

    #6752

    Fogtunder
    Felhasználó

    Szia,

    Sajnos nem működik, hibával leáll.

7 bejegyzés megtekintése - 1-7 / 7

Be kell jelentkezni a hozzászóláshoz.