Wa'alaikumsalam wr. wb.,
mungkin seperti ini:
with target
if .address = $a$1 or .address = $a$2 then
' script jika ada nilai berubah di cel A1 dan A2
else
exit sub
end if
end with
untuk 2 baris else dan exit sub bisa dihilangkan, sehingga script hanya
menjadi
with target
if .address = $a$1 or .address = $a$2 then
' script jika ada nilai berubah di cel A1 atau A2
end if
end with
maaf, lagi gak bisa buka excel jadi script di atas cuma tebak2 buah manggis
saja.. belum dites
Wassalam,
-Miss Jan Raisin-
Pada 3 April 2014 11.36, nangAgus <[email protected]> menulis:
>
>
> Asalamualaikum warahmatullah
>
> Terima Kasih miss jan, sudah saya ganti menjadi:
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address <> "$A$1" Then Exit Sub
>
> dapat berjalan sesuai keinginnan,
> Namun saya kesulitan jika ungin macro dijalankan jika diubah di dua cell
> misaalnya A1 dan A2
> bagaimana scriptnya? mau menggunakan or, sintaknya masih kesulitan.
>
> Terima kasih atas perhatiannya
> wasalamualaikumwarahmatullah
>
> NangAgus
>
>
>
> On 03/04/2014 11:17, Jan Raisin wrote:
>
>
> Wa'alaikumsalam wr. wb.,
>
> pak Agus,
>
> worksheet_selection_change adalah event yang bekerja jika cel yang
> diselect berubah posisinya, misalnya dari cel aktif A1 menjadi cel aktif A2
> worksheet_change adalah event yang bekerja jika ada isi cel yang berubah
> isinya, misal isi cel A1 dari A menjadi 10
>
> coba ganti selection change menjadi change
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 3 April 2014 11.10, nangAgus <[email protected]> menulis:
>
>>
>>
>> Kepada member Be Excell
>>
>> asalamualaikum warahmatullah
>> Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell
>> tertentu, misalnya cell A1 berubah maka macro dijalankan.
>> Bagaimanakah script VBA nya? saya menggunakan perintah:
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>
>> Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh
>> cell pada whorksheet dimana script ditulis.
>>
>> bagaimana penulisann yang benar?
>> atas perhatiannya disampaikan terima kasih
>>
>> Wasalamualaikumwarahmatullah.
>>
>> NangAgus
>>
>
