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