Asalamualaikum warahmatullah

Terima kasih Miss Jan,
script sudah sesuai keinginnan,
hanya saja karena kebiasaaan saya yang jelek tidak bisa ditinggalkan (copy paste script) script miss jan di kompie saya gak jalan, namun dengan penulisan yang seperti itu membuat saya lebih mengerti syntak penulisan script. (harus mengetik ulang sesuai dengan syntak di VB)

sekali lagi terima kasih sudah jalan sesuai harapan.


On 03/04/2014 11:45, Jan Raisin wrote:
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] <mailto:[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]
    <mailto:[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




Kirim email ke