Ú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)

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