Copy and paste data upon click
Closed
bharathjb29
Posts
3
Registration date
Tuesday February 13, 2018
Status
Member
Last seen
February 15, 2018
-
Updated on Feb 13, 2018 at 12:09 PM
Blocked Profile - Feb 15, 2018 at 04:56 PM
Blocked Profile - Feb 15, 2018 at 04:56 PM
Related:
- Copy and paste data upon click
- Tmobile data check - Guide
- Gta 5 data download for pc - Download - Action and adventure
- Transfer data from one excel worksheet to another automatically - Guide
- Digital data transmission - Guide
- Data transmission cable - Guide
2 responses
Please understand we are volunteers. We help when you are stuck.
In this case, you need to understand the IF statement.
The syntax for IF is:
So, in cell B2, place your IF code. If the logic test is true, then the True will be presented.
Let us know if you get stuck on this homework, which is what this sounds like.
In this case, you need to understand the IF statement.
The syntax for IF is:
=IF(logic_test,True,False)
So, in cell B2, place your IF code. If the logic test is true, then the True will be presented.
Let us know if you get stuck on this homework, which is what this sounds like.
A cleaner way would be 1 liner:
Your code does not qualify the entry, so any value in any of those will FIRE your routine. You specifically asked to qualify when a value is there, and your entry does not do that! I am confused!
Have fun.
If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
Your code does not qualify the entry, so any value in any of those will FIRE your routine. You specifically asked to qualify when a value is there, and your entry does not do that! I am confused!
Have fun.
bharathjb29
Posts
3
Registration date
Tuesday February 13, 2018
Status
Member
Last seen
February 15, 2018
Feb 15, 2018 at 02:48 PM
Feb 15, 2018 at 02:48 PM
Sorry its not working....
Feb 14, 2018 at 12:13 PM
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean))
If Intersect(Target, Range("A2:A10")) Is Nothing Then
Exit Sub
Target.Copy Destination:= range("B2")
End Sub