Two diferent data in two different columns but one selection

Question

Hello,&nbsp;What I want is basically whenever i select D2 the same data will be shown in M3. When i go to D3 the same will be shown in M3.&nbsp;Simultaneously When the data of D2 is getting copied to M3 automatically data for E2 as well go to M4.I have this codePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Selection.CountLarge = 1 ThenIf Not Intersect(Target, Range("D2:D43")) Is Nothing ThenRange("M3").Value = Target.ValueElseIf Not Intersect(Target, Range("E2:E43")) Is Nothing ThenRange("N3").Value = Target.ValueEnd IfEnd IfEnd Sub&nbsp;I want this selection of two columns at once and data to be displayed in another cells to be working in this code.&nbsp;TIA.&nbsp;&nbsp;

hansvogelaar · Accepted Answer

tusharkaushik&nbsp;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.CountLarge = 1 Then
        If Not Intersect(Target, Range("D2:D43")) Is Nothing Then
            Range("M3").Value = Target.Value
            Range("M4").Value = Target.Offset(0, 1).Value
        End If
    End If
End Sub

Forum Discussion

Two diferent data in two different columns but one selection

2 Replies

Resources