Maaf baru balas, Terima kasih Mr.Kid & Mas Hendrik Sudah saya copy paste dan berhasil, cuma belum saya pelajari alur perintah-perintah vba-nya. Sekali lagi terimakasih untuk para master semua..
Salam,, --- In [email protected], "Kid Mr." <mr.nmkid@...> wrote: > > Maaf, ada yang kurang. > > Jika ingin tidak menggunakan .parent.calculate beserta proses > mem-values-ken setelah baris .parent.calculate, maka ganti baris-baris : > .Offset(0, 1).Resize(1, 2).Formula = _ > "=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1),FALSE)" > .Parent.Calculate > .Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value > > dengan : > .Offset(0, 1).Resize(1, 2).Formula = _ > *Evaluate(*"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1 > *:c1*),FALSE)"*)* > > pengubahan baris tersebut ditandai dengan warna *merah*. > > Wassalam, > Kid. > > 2012/7/22 Kid Mr. <mr.nmkid@...> > > > Betul Pak Hendrik, > > Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah > > beban. > > Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang > > padat formula (baik dalam dynamic named range atau beberapa cell worksheet > > berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat > > volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi > > ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting > > menurut user kembali ketika runtime telah selesai. > > > > Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja. > > > > Wassalam, > > Kid. > > > > > > 2012/7/22 hendrik karnadi <hendrikkarnadi@...> > > > >> ** > >> > >> > >> Jawaban Mr. Kid sangat tepat sasaran. > >> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedihilangkan > >> ? Bukankah Vlookup akan mengcalculate secara otomatis jika > >> tidak diset manual ? > >> > >> Salam, > >> Hendrik Karnadi > >> > >> ------------------------------ > >> *From:* Kid Mr. <mr.nmkid@...> > >> *To:* [email protected] > >> *Sent:* Saturday, 21 July 2012, 20:26 > >> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value > >> > >> > >> Coba manfaatkan event worksheet change. Kira-kira susunan blok > >> prosedurnya seperti berikut : > >> Private Sub Worksheet_Change(ByVal Target As Range) > >> Application.EnableEvents = False > >> With Target > >> If .Count = 1 Then > >> If .Row > 3 Then > >> If .Column = 2 Then > >> .Offset(0, 1).Resize(1, 2).Formula = _ > >> "=VLOOKUP($b" & .Row & > >> ",master!$b$4:$d$26,column(b1),FALSE)" > >> .Parent.Calculate > >> .Offset(0, 1).Resize(1, 2).Value = .Offset(0, > >> 1).Resize(1, 2).Value > >> End If > >> End If > >> End If > >> End With > >> Application.EnableEvents = True > >> End Sub > >> > >> Asumsi : > >> area input key lookup di kolom B mulai baris ke-4 Excel. > >> yang diisi adalah 2 kolom, yaitu kolom C dan D > >> lookup ke sheet master range tertentu > >> > >> Wassalam, > >> Kid. > >> > >> > >> 2012/7/21 Adi Susanto <adi_srpd@...> > >> > >> ** > >> > >> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range > >> lain gimana caranya? > >> Trims.. > >> > >> > >> > >> > >> > >> > > > > >
