Hi Sajid,
Try This If It Helps
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("c7:c200")) Is Nothing Then
datacount = WorksheetFunction.CountA(Range("h:h"))
Range("h" & 7 + datacount) = Target.Value
End If
If Not Intersect(Target, Range("l7:l20
Dear Experts,
I have attached my file, here different column double clicking and data should
paste in different columns, I have done only in one column and other is unable
to do. please co-operate me to complete my assignment.
Awaiting your positive response
Regards
Sajid Memon
Dear Experts,
I have attached my file, here different column double clicking and data should
paste in different columns, I have done only in one column and other is unable
to do. please co-operate me to complete my assignment.
Awaiting your positive response
Regards
Sajid Memon
