Nah kalo pake macro jauh lebih mudah
Coba pake macro event sbb :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If target.row=1 then exit sub
Sheets("View").Range("D3").Value = Target.Value
Sheets("View").Activate
End Sub
Catatan :
Dijalankan dengan memakai doble klik pada nomor yg diiinginkan
Tak perlu hyperlink/dihilangkan aja
Wassalam,
Heru Safrudin
PT. BISI International, Tbk.
Pada 2015 4 28 08:07, "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <
belajar-excel@yahoogroups.com> menulis:
>
>
> Dear Mr Toby,
>
>
>
> Apakah seperti file terlampir ?
>
> Tapi koq ga jalan di PC saya yah...
>
> Saat saya klik hyperlink-nya sheet view tetap tidak keluar kode
> distributornya, apakah ada yang salah dengan PC saya-nya?
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 27 April 2015 23:57
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: RE: Fwd: [belajar-excel] Hyperlink
>
>
>
>
>
> Dear DD,
>
> Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan
> formula:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> Sheet2.Range("D3").Value = ActiveCell.Value
>
> End Sub
>
> It's work in Office 2013 SP1
>
> TerimaKasih.
>
> Sent from Yahoo Mail on Android
> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
> ------------------------------
>
> *From: *Dede pmaho_l...@nabatisnack.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>;
> *To: *<belajar-excel@yahoogroups.com>;
> *Subject: *RE: Fwd: [belajar-excel] Hyperlink
> *Sent: *Mon, Apr 27, 2015 6:20:17 AM
>
>
>
>
>
> Dear Mr Heru,
>
>
>
> Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim
> lampirannya... atau mungkin ada cara lain?
>
> Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari
> hal-hal yang sifatnya ribet.
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 27 April 2015 11:37
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: Fwd: [belajar-excel] Hyperlink
>
>
>
>
>
>
>
> Dear DD,
>
> Bagaimana kalau cell D3 di sheets View diisi formula berikut :
> =cell("contents")
> Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg
> diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru
> klik hyperlinknya
>
> Wassalam,
>
> Heru Safrudin
> PT. BISI International, Tbk.
>
> > > Dari: "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> > > Tanggal: 2015 4 27 09:54
> > > Subjek: [belajar-excel] Hyperlink [1 Attachment]
> > > Kepada: <belajar-excel@yahoogroups.com>
> > >
> > >
> > >
> > >
> > > Dear Master Excel,
> > >
> > > Mohon pencerahannya pada file terlampir.
> > >
> > > Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet "List
> Kirim GT", kode pada cell D3 sheet "View" berubah menjadi kode yang saya
> klik di sheet "List Kirim GT".
> > >
> > > Begitu selanjutnya....
> > >
> > > Saya klik 1000578 di sheet "List Kirim GT", muncul 1000578 di sheet
> "View".
> > >
> > > Saya klik 1000528 di sheet "List Kirim GT", muncul 1000528 di sheet
> "View".
> > >
> > > Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran.
> > >
> > > Salam,
> > >
> > > DD
> > >
> > >
> > >
> > >
> > > ________________________________
> > > This e-mail and any files transmitted with it are confidential and
> intended solely for the use of the individual to whom it is addressed. If
> you have received this email in error please send it back to the person
> that sent it to you. Any views or opinions presented are solely those of
> its author and do not necessarily represent those of NABATI or any of its
> subsidiary companies. Unauthorized publication, use, dissemination,
> forwarding, printing or copying of this email and its associated
> attachments is strictly prohibited.
> > >
> > >
>
>
>
