maaf salah tulis,
harusnya
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 4 And Target.Column < 9 _
And Target.Row > 4 And Target.Row < 9 Then
[K4] = Target.Value
Else
[K4].ClearContents
End If
End Sub
'---------------------------------
On 4/3/09, siti Vi <[email protected]> wrote:
> dear XL-maniawan & XL-maniawati,
>
> bang momods menyangka cell berisi CODE yg mauk diklik oleh bang Eka
> SBY(+tr)
> adalah code-code yg ada di kolom A (Target.Column = 1)
> tetapi mungkin juga bang Eka SBY(+tr)nya mauk mengklik code code di
> range E5:H8
>
> jadi makronya (hanya mengalihkan pembatasan daerah target dowang)
> '-------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Column > 4 And Target.Column < 9 _
> And Target.Column > 4 And Target.Column < 9 Then
> [K4] = Target.Value
> End If
> End Sub
> '---------------------------------
> kindest regards
> siti
>
> [walauinikelihatannyaseriustapipercayalahbahwasebetulnyabercanda]
>
