Forum Discussion

tusharkaushik's avatar
tusharkaushik
Copper Contributor
Feb 23, 2021
Solved

Two diferent data in two different columns but one selection

Hello,   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.   Simultaneously When the data of D2 is getting copied to M...
excel
Formulas and Functions
Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    Feb 24, 2021

    tusharkaushik 

    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
HansVogelaar's avatar
HansVogelaar
MVP
Feb 24, 2021

tusharkaushik 

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

Resources