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
7 bejegyzés megtekintése - 1-7 / 7
  • Szerző
    Bejegyzés
  • 2020-02-02-14:01 #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 ?

      2020-02-02-14:32 #6735
      delila
      Felhasználó

        Szia!

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

        2020-02-02-18:18 #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… 🙁

          2020-02-03-19:30 #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: 4 years, 2 months telt el-horvimi.
            2020-02-03-21:16 #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: 4 years, 2 months telt el-Fogtunder.
              2020-02-04-07:35 #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

                2020-02-10-18:05 #6752
                Fogtunder
                Felhasználó

                  Szia,

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

                • Szerző
                  Bejegyzés
                7 bejegyzés megtekintése - 1-7 / 7
                • Be kell jelentkezni a hozzászóláshoz.