Sayfa Kodu

[hacicemal]

Merhaba..
Alttaki kodları Sayfa2'nin kod alanına yazdım, amacım bilgilerimi Sayfa2'ye yazdırmak ama ben sayfa1 de çalışıyorum ve Sayfa 2'yi kullanmıyorum, ben her dosyayı açtığım zaman verilerimin yenilenmesini istiyorum ne yapmam gerekir?


Sub auot_open()
Dim Dosya
Dim i As Integer
Dosya = Dir("C:\Documents and Settings\KaraTakke\Belgelerim\*.XLS")
i = 1
While Dosya <> ""
Cells(i, 1) = Left(Dosya, Len(Dosya) - 4)
Dosya = Dir
i = i + 1
Wend
End Sub

 

[Levent Menteşoğlu]

Yukarıdaki kodu sayfanın değil bir module sayfasına kopyalamalısınız. Eğer sayfanın kod sayfasında kaopyalayacaksanız, private sub auto_open() şeklinde yazmanız gerekir. Ayrıca kodda Sub auot_open() yazımı hatalı bunuda
Sub auto_open() olarak düzeltin.

 

[hacicemal]

Teşekkürler....