Kod üzerinde değişiklik için yardım ?

[Gorarr]

Selamlar, Halit hocanın yazdığı kodlar ile düzenlediğim bu excel ile klasörü seçip, listboxdan tıklayıncada klasördeki resimlere bakabiliyorum.

Sorun: klasör yollarının kayıtlarını hep activesheet'e yapıyor. Ben sadece "data" diye belirlediğim sheet'e yapmasını istiyorum. Sheet1 yazan yeri komple değiştirdim ama olmadı. Yardımcı olabilirmisiniz. Şimdiden teşekkürler..

 

[Orion1]

en alttaki yol değişkeninde data isimli sayfayı yazdım.

Private Sub Liste(yol As String)
Dim fL As Object, f As Object, Dosya As String, j As Long
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(yol).subfolders
j = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("c1:c" & Rows.Count)) + 1
Sheets("data").Cells(j, 3)=yol

 

[Gorarr]

Çok teşekkür ederim. İyigeceler..

 

[halit3]

Selamlar, Halit hocanın yazdığı kodlar ile düzenlediğim bu excel ile klasörü seçip, listboxdan tıklayıncada klasördeki resimlere bakabiliyorum.

Sorun: klasör yollarının kayıtlarını hep activesheet'e yapıyor. Ben sadece "data" diye belirlediğim sheet'e yapmasını istiyorum. Sheet1 yazan yeri komple değiştirdim ama olmadı. Yardımcı olabilirmisiniz. Şimdiden teşekkürler..

Sayın Orion1 cevabı vermiş ama bir yer daha var unutulmuş.


Private Sub Liste(yol As String)
Dim fL As Object, f As Object, Dosya As String, j As Long
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(yol).subfolders
j = WorksheetFunction.CountA(Sheets("data").Range("c1:c" & Rows.Count)) + 1
Sheets("data").Cells(j, 3) = yol
On Error GoTo sonraki
For Each f In fL
Liste (f.Path)
sonraki:
Next
Set fL = Nothing
End Sub