Logo 
Search:

MS Office Answers

 Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Navin Gada   on Sep 05 In MS Office Category.

Coding Problems


  
Question Answered By: Muntasir Bashara   on Sep 05

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B14:B33")) Is Nothing Then
Me.Range("M3") = Target.Value
Me.Range("M4") = Target.Offset(, 1).Value
Sheet30.Range("B7") = Target.Value
ElseIf Not Intersect(Target, Me.Range("M4")) Is Nothing Then
Me.Range("C14:C33") = Target.Value
End If
End Sub

Share: 

 

This Question has 1 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on Coding Problems Or get search suggestion and latest updates.


Tagged: