terima kasih banyak mr. happs, maaf kalau lampirannya lebih dari 200Kb,, ternyata cuma ganti name shape.. kemarin dah coba ganti nama di propertiesnya tapi g fungsi.. maaf baru belajar..
neza ________________________________ Dari: i Haps <[email protected]> Dikirim: Jumat, 27 Januari 2012 16:36 waduh lampirannya 635 KB bgmana ini, milisnya sendiri kok di tabrak terus ?? saya sudah lihat isi filenya sebenarnya makro dari Mr. Kid sudah SANGAT SIAP untuk menangani SHAPE makronya sudah disiapkan ; anda tinggal men SET shp = nama Shape tiap baris makro bahkan sudan diberi petunjuk Sebenarnya (LAGI) milis ini tempat untuk belajar Pelajaran sudah diberikan mestinya dibaca dan dipelajari bukan tempat minta dibuatkan program: Pelajaran yg sudah diberikan dan sangat jelas, e... masih minta lagi! Maafkan saya selalu pakai "nada tinggi"... tapi itu semua sebenarnya didorong oleh rasa sayyyang kepada milis dan members nya, semua ! ini kode yg sudah diperbaiki;hanya beberapa huruf saja '------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) 'init object variable shape Set shp = ActiveSheet.Shapes("Rounded Rectangle 2") End Sub '-------------------------------
