ato mungkin
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.RefreshAll
Next sh
Pada tanggal 12/03/09, Slamet Harto <[email protected]> menulis:
> barangkali dengan (untestzzzzzz)
>
> Application.OnTime EarliestTime:= _
> Now + TimeValue("00:00:01"), Procedure:="AutoRefresh"
>
> Sub Autorefresh()
> For Each qt In ThisWorkbook.Sheets("Sheet1").QueryTables
> qt.Refresh BackgroundQuery:=False
> Next qt
> end sub
>
>
> Pada tanggal 10/03/09, HilL <[email protected]> menulis:
>> Dear All,
>>
>> Mau tanya.
>>
>> Begini...
>>
>> Saya punya dua file, kita namakan saja :
>> 1. file_Source
>> 2. File_A
>>
>> Saya juga ada 2 PC, kita sebut saja
>> PC_1
>> PC_2
>>
>>
>> File_A terhubung ke file_source dimana file_A memiliki formula Vlookup
>> yang
>> aaraynya ada di File_source.
>>
>> Kedua file disimpan di PC_1 dan disharing Full Control.
>>
>> File_source dibuka di PC_1 dan dilakukan pengeditan.
>>
>> File_A dibuka di PC_2.
>>
>> Pertanyaannya :
>> Bagaimana agar File_A di PC_2 bisa membaca setiap perubahan data pada
>> File_source secara realtime.
>>
>> Alternative yang terpikir oleh saya :
>> - File_source dibuka terlebih dahulu di PC_1, kemudian PC_2 juga
>> membukanya
>> (Read Only). Pada File_source diberikan script untuk auto refresh setiap
>> detik. Pertanyaannya, apa script untuk auto Refresh setiap detik
>>
>> Terimakasih atas bantuan teamn-teman.
>>
>>
>>
>>
>>
>>
>
