Hi

Got the code from this forum (By Ron) how can i define a action after the
Application.SendKeys ("%{DOWN}") procedure

i mean i want when the value is selected from the DV list by the user, then
select Cell Range("$X$8:$Y$8") that is also a marged cell DV list and
clearits content

complete code is as follows
------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngParentCell As Range
Dim rngDepCell As Range
Dim rngCell As Range

Set rngParentCell = Range("$C$6:$T$6")
Set rngDepCell = Intersect(Target, rngParentCell)
If Not rngDepCell Is Nothing Then
Set rngCell = Range("$V$6:$X$6")
rngCell.ClearContents
rngCell.Select
MsgBox _
Title:="Village Name", _
Prompt:="You must now select the 'Village Name'", _
Buttons:=vbInformation + vbOKOnly
Application.SendKeys ("%{DOWN}")
'Here i want Code to do following -
'After that when the value is selected from the DV list Select
'select Cell Range("$X$8:$Y$8") and clear its content
End If

Set rngParentCell = Nothing
Set rngDepCell = Nothing
Set rngCell = Nothing
End Sub
-----------------------------------------------------------------------------

any help will be appreciated

Rajat, your explanation of what you are attempting to do is not clear. The
code to clear the contents would be:

ThisSheetName.Range("$X$8:$Y$8").ClearContents

with ThisSheetName being your worksheet name. If you want this to happen as
a result of the selection of an item from the drop down list, you will have
to complete the action with the selection to get a worksheet change to fire
and then you can trigger the clear contents through the worksheet change
event. I am only guessing at what you want to do.

"Rajat" wrote:

> Hi
>
> Got the code from this forum (By Ron) how can i define a action after the
> Application.SendKeys ("%{DOWN}") procedure
>
> i mean i want when the value is selected from the DV list by the user, then
> select Cell Range("$X$8:$Y$8") that is also a marged cell DV list and
> clearits content
>
> complete code is as follows
> ------------------------------------------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim rngParentCell As Range
> Dim rngDepCell As Range
> Dim rngCell As Range
>
> Set rngParentCell = Range("$C$6:$T$6")
> Set rngDepCell = Intersect(Target, rngParentCell)
> If Not rngDepCell Is Nothing Then
> Set rngCell = Range("$V$6:$X$6")
> rngCell.ClearContents
> rngCell.Select
> MsgBox _
> Title:="Village Name", _
> Prompt:="You must now select the 'Village Name'", _
> Buttons:=vbInformation + vbOKOnly
> Application.SendKeys ("%{DOWN}")
> 'Here i want Code to do following -
> 'After that when the value is selected from the DV list Select
> 'select Cell Range("$X$8:$Y$8") and clear its content
> End If
>
> Set rngParentCell = Nothing
> Set rngDepCell = Nothing
> Set rngCell = Nothing
> End Sub
> -----------------------------------------------------------------------------
>
> any help will be appreciated

Hi JLGWhiz

you have guessed perfectly what i want.

actually what i want is when any value of the drop Down DV list (it had 7
value) in cell $V$6:$X$6 is selected (by Clicking on it) after that (After
the mouse click) cell $X$8:$Y$8 to be selected and its content cleared.

Can u write that code, b'coz i dont have any programming experience.