Application Sendkey (when value selected)
 

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

Application Sendkey (when value selected)
 

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

Application Sendkey (when value selected)
 

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.