Telefonszámunk: 1-472-0679

File másolás makroval, checkbox-al

Kezdőlap Fórumok Excel programozás File másolás makroval, checkbox-al

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #2887
    masterof
    Felhasználó

      Sziasztok!

      Egy olyan makrót szeretnék, ami checkbox ellenőrzése után a checkbox előtti cellában lévő filenévnek megfelelő file-t egy a szerveren lévő mappából a saját C-mre létrehozott könyvtárba másolja.
      (checkbox-al kiválasztgatom ami kell, majd COPY gomb)

      A mappa létrehozása a C-re (Creat folder) és a checkbox-ok kiosztása a sorokhoz (Add Checkboxes) megvan, de ez az checkboxal ellenőrzött másolás nem akar menni…
      Tudnátok segíten?
      Csatolva a kezdemény.

      Előre is köszi!
      T

      Attachments:
      You must be logged in to view attached files.
      #2889
      delila
      Felhasználó

        Szia!

        Nem tudom, lehet-e a táblázatkezeléshez készült Excelt pdf fájlok másolására használni.
        Annyit mindenesetre egyszerűsítenék a táblázatodban, hogy a kötjeleket és a pontokat tartalmazó oszlopokat törölném. Ezzel az F oszlopba kerülne a fájlnév összefűzése: =A2&”-„&B2&”-„&C2&”-„&D2&”.”&E2

        A checkboxok létrehozásánál a With-End With-ben nevet is adnék, pl.: .Name = „ChBx” & cell, másképp minden egyes létrehozásnál új számokat kapnak, és nem tudsz egyértelműen rájuk hivatkozni.

        Üdv,
        delila

        #2894
        horvimi
        Adminisztrátor

          Igen, szerintem is a checkbox-ok és a fájlnevek összerendelésénél van a kulcspont.
          Tehát amikor készíted a checkboxokat, akkor a .name tulajdonsággal lehetne a nevük a PDF fájl neve is.
          .name=Cells(cell, "J").Value

          A Copy files makróban pedig végig loopolsz az összes checkboxon, és amelyik be van kapcsolva, az olyan nevű fájlt az adott útvonalról másolod a kívánt helyre.

          Sub loop_checkboxes()
          Dim cb As CheckBox
              For Each cb In ActiveSheet.CheckBoxes
                  If cb.Value = xlOn Then
                      MsgBox cb.Name 'Ide tehetnéd a másolást
                  End If
              Next
          End Sub

          Nyilván az útvonalak valahogy összeállnak string összefűzésekből, vagy bárhogy…

          Imre

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