di sheet1: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row >= 5 And Target.Row <= 17 And Target.Column = 1 Then Sheet1.Cells(4, 11) = Target End If End Sub
regards, abimono On 4/2/09, Eka Subyantara <[email protected]> wrote: > > Excelwan dan Excelwati yang baik hati, > Kali ini daku hadirkan masalah sepele, tapi daku BELON BISA! > > Tersedia kode-kode di tabel pilihan, kode mana saja yang di-klik maunya > muncul di sel tertentu > sehingga dengan LOOKUP terhadap kode tersebut akan ditampilkan data-data > yang bersesuaian. > > File berisi tabel yang dimaksud telah dilampirkan. > > Terima kasih kepada mereka yang mau berbagi kepada Q ... eh ... daku. > > WalauIniTampakTidakSeriusTapiP ercayalahBahwaIniSangatSerius > Eka S. > > N.B. > Maaf posting sebelumnya ketinggalan lampirannya. > > > > >
Menampilkan sel yg di-klik.xls
Description: MS-Excel spreadsheet
