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

• #32169 bteebi veterán Fferi50 #32163

  Új Válasz 2016-07-24 12:05:02 #32169

  Ú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

  

  bteebi

  veterán

  válasz Fferi50 #32163 üzenetére

  Köszönöm! Módosítottam a makrót, így már egy dropdown-ba (vagy bármi másba) ki tudom gyűjteni a file-okat az általad megadott módon. Hogy lehetne ezt megjeleníteni egy message/input boxban?

  Sub listakereso()
Dim datum As Long, file As Variant, lista As String
datum = ActiveSheet.Range("C4")
file = Dir("D:\Proba\lista_" & datum & "*.pdf")
lista = ""
Do While (file <> "")
If lista = "" Then
lista = file
Else
lista = lista & "," & file
End If
file = Dir()
Loop
With ActiveSheet.Range("C5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:=lista
.IgnoreBlank = True
.InCellDropdown = True
End With
If lista = "" Then
MsgBox "Nem találom a listát!", vbExclamation
End If
End Sub

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