Asalamualaikum warahmatullah
Mas Heri, coba cekrip:
Private Sub Workbook_Open()
Application.OnTime TimeValue("12:00:00"), "pindahSheet"
End Sub
diubah menjadi:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:02:00"),"pindahSheet"
End Sub
wasalamualakum warahmatullah.
NangAgus
2016-05-24 11:25 GMT+07:00 'Heri Pamungkas ( Gmail )' ghery.dha...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah sudah dicoba dan berhasil.
> Terima kasih mas Nang Agus.
>
> Kalau mau tambah lagi boleh kan ya ?!,
>
> Misalnya saya punya 5 sheet berbeda.
> Mau berpindah sheet setiap 2 menit sekali, hehehe kira-kira gimana ya !?
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 21/05/2016 12:03, Nang Agus nanga...@gmail.com [belajar-excel] wrote:
>
>
> Coba pada Workbook open dibuat cekrip:
>
> Private Sub Workbook_Open()
> Application.OnTime TimeValue("12:00:00"), "pindahSheet"
> End Sub
>
> pindahSheet merupakan macro yang diletakkan di Module, misalnya:
>
> Public Sub pindahSheet()
> Sheets("Sheet2").Select
> Range("A5") = "wis jam12"
> End Sub
>
> salam
> NangAgus
>
> 2016-05-20 9:25 GMT+07:00 'Heri Pamungkas ( Gmail )'
> ghery.dha...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>>
>> --
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Dear Teman-teman,
>>
>> Mau iseng-iseng bikin Workbook Excell yang bisa pindah sheet otomatis.
>> Nah, kalo manual Insyaallah sudah bisa. Kalau pakai Timer gimana ya ?!
>>
>> Mohon bantuannya.
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>
>
>
