• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

seçili klasörden

  1. Hunkar50

    Çözüldü seçili klasörden, listbox da 1 çalışma kitabının görünmemesi

    Sub binalar() On Error Resume Next Dim ds, dc, f yol = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 8) & "\REVİZYON\2022" Set ds = CreateObject("Scripting.FileSystemObject") Set f = ds.GetFolder(yol) Set dc = f.Files i = 0 ReDim dizi(0) For Each dosya In...
Geri
Üst