Új hozzászólás Aktív témák

• #32171 Delila_1 veterán bteebi #32169

  Új Válasz 2016-07-24 15:44:13 #32171

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bteebi #32169 üzenetére

  Másik módszer, ha a C5-be akarsz érvényesítést bevinni a fájlnevekhez.

  Az M oszlopba írtam be pár adatot, az M1-ben címmel. A tartományt táblázattá alakítottam, M2-től lefelé elneveztem a tartományt. A C5 forrásához ezt a nevet vittem be.

  Sub ListaFeltoltes_1()
Dim FN As String, sor As Long

Range("M2:M" & Range("M" & Rows.Count).End(xlDown).Row).ClearContents

FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
sor = 2
Do While FN <> ""
Range("M" & sor) = FN
sor = sor + 1
FN = Dir()
Loop
End Sub

  Futtatás után a kiválasztott fájlok nevei lesznek a C5 érvényesítésében.

  Azt is megteheted, hogy a fájlnevek betöltése után emelkedő sorrendbe rendezed az M oszlopot, majd a C5-ben az M oszlop alsó értékét jeleníted meg az érvényesítés helyett.

  =INDEX(M:M;HOL.VAN("zzzz";M:M;1);1)

• #32170 Delila_1 veterán bteebi #32169

  Új Válasz 2016-07-24 14:30:35 #32170

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bteebi #32169 üzenetére

  Létrehozol egy userformot, ami egy listboxot tartalmaz, meg egy gombot.

  Modulba:
  Sub ListaFeltoltes()
Dim FN As String

FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While FN <> ""
UserForm1.ListBox1.AddItem FN
FN = Dir()
Loop
UserForm1.Show
End Sub

  Ez a makró feltölti a feltételeknek megfelelő fájlok nevével a listboxot, és indítja a formot.

  A gomb click eseményébe írhatod be, hogy mi legyen a listboxban kiválasztott 1 vagy több fájllal. Ha többet is ki akarsz választani, akkor a listbox MultiSelect tulajdonságát fmMultiSelectMulti-ra kell állítanod, az alapértelmezett fmMultiSelectSingle helyett.

Új hozzászólás Aktív témák