Di email terakhir lalu ada bagian yang berbunyi : (dari 5 baris kode diubah agar menjadi 1 baris kode saja)
> bagian : > If Not otx = "" Then > If Not Target(1, 1).Text = otx Then > Target(1, 1).Font.ColorIndex = 3 > End If > End If > > ubah menjadi : (1 baris sajah cukup) bila perlu, event selection change > nya dihapus > target.font.colorindex=3 > Belum dicoba ya? 2015-06-06 16:22 GMT+10:00 nurani alkena [email protected] [belajar-excel] <[email protected]>: > > > prosedur kerja data yang akan diolah memang menggunakan copy paste manual. > jadi kodenya gimana mister, agar semua cell berubah warna ketika dipaste > data yang baru. > maaf gagal fokus. > hehe > > > > On Wednesday, June 3, 2015 5:41 PM, "'Mr. Kid' [email protected] > [belajar-excel]" <[email protected]> wrote: > > > > Kalau sudah di paste, lalu warna font berubah, kapan akan kembali > menjadi seperti semula lagi ? > Kalau data hari ini per hari rabu sudah di-paste, target sudah ber-font > warna merah misalnya. > Besok hari, untuk data hari kamis, bagaiman warnanya ? ganti lagi dengan > warna lain ? > > hehehe... Anda pikirkan sendiri ya... > > btw, > bagian : > If Not otx = "" Then > If Not Target(1, 1).Text = otx Then > Target(1, 1).Font.ColorIndex = 3 > End If > End If > > ubah menjadi : (1 baris sajah cukup) bila perlu, event selection change > nya dihapus > target.font.colorindex=3 > > e... > kenapa pakai copy paste manual yang jadi bikin repot mengawasi kerja si > user yang teliti atau tidak ya ? > kok ndak di-copy paste-ken dengan VBA saja... > ya sudahlah... > pokoke manteb sajah dah... > > > Wassalam, > Kid > > > On Wed, Jun 3, 2015 at 4:11 PM, nurani alkena [email protected] > [belajar-excel] <[email protected]> wrote: > > > Dear mister... > copy paste data manual. saya ingin ada penanda bahwa cell dari sheet > tersebut sudah saya update datanya. keterangan font bisa dijadikan penanda, > tetapi ketika saya coba code diatas... hanya berfungsi ketika mengubah data > manual melalui proses pengetikan. ketika menggunakan fungsi copy paste > data. keterangan font tidak berfungsi kembali... > > Terima kasih > > > > On Wednesday, June 3, 2015 8:00 AM, "nurani alkena > [email protected] [belajar-excel]" <[email protected]> > wrote: > > > > Dear Mister, > saya sudah mencoba kode seperti ini : > > Option Explicit > Dim otx As String > Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target > As Range) > otx = Target(1, 1).Value > End Sub > Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) > If Not otx = "" Then > If Not Target(1, 1).Text = otx Then > Target(1, 1).Font.ColorIndex = 3 > End If > End If > End Sub > untuk mengubah data pada cell dengan cara mengetik, kode tersebut bisa > diterapkan. tetapi case saya "ketika saya mengcopy paste date" tidak ada > perubahan font pada cell. > bagaimana mister untuk mengatasi masalah tersebut. > > > Terima kasih > > > > > On Monday, June 1, 2015 5:29 PM, "hendrik karnadi > [email protected] [belajar-excel]" <[email protected]> > wrote: > > > > Hai Nurani, > > Perubahan warna pada sel yang ada dalam Sheet (jika selnya diedit) pernah > dibuat oleh almh CTV. > File terlampir. > > Salam, > HK > > *NB : Jika yang diinginkan adalah perubahan warna pada Sheet Tab maka > perlu dipikirkan apakah Sheet yang pernah diakses pasti telah > berubah/diupdate datanya (copy paste data).* > > ------------------------------ > *From:* "[email protected] [belajar-excel]" < > [email protected]> > *To:* [email protected] > *Sent:* Sunday, 31 May 2015, 12:12 > *Subject:* [belajar-excel] keterangan sheet yang sudah di isi [1 > Attachment] > > > Hello Mr. > > Terima kasih sudah banyak bantu saya. pengetahuan excel saya semakin > bertambah. > Kali ini saya mau tanya. > Saya punya suatu workbook yang isinya 50sheet. > saya ingin ketika saya mengganti data pada sheet-sheet tsb. terjadi > perubahan warna atau keterangan lain. > yang menandakan bahwa sheet tsb sudah saya update datanya (copy paste > data). > sehingga tidak ada yang tertinggal (belum di paste data terbaru atau di > paste dua kali. > bagaimana caranya mister. > butuh pencerahan. > > Terima kasih > Wassalam > Nurani > > > > > > > > > > >
