FJPunisher
New Member
- Joined
- Mar 2, 2021
- Messages
- 8
- Office Version
- 2019
- Platform
- Windows
Hello everyone,
My xls has a drop down in B15 (e.g Schools), based on the option selected in this drop down, C15 is updated with a Code (e.x PH_100).
I am trying to update Row B26 on sheet1 with data in sheet27 based on C15 value,
The data is Sheet27 has been assigned name (e.g. PB_200DD = K2:K7)
Below is not working, please help.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = ("$C$15") Then
If Target.Text = "PB_100" Then
Sheets("Sheet27").Range("K2:K7").Copy Destination:=Sheets("Sheet1").Range("B26")
' ElseIf Target.Text = "PB_200" Then
' Sheets("Sheet27").Range(PB_200DD).Copy Destination:=Sheets("Sheet1").Range("B26")
' ElseIf Target.Text = "PB_300" Then
' ElseIf Target.Text = "PB_400" Then
' Else
End If
End If
End Sub
My xls has a drop down in B15 (e.g Schools), based on the option selected in this drop down, C15 is updated with a Code (e.x PH_100).
I am trying to update Row B26 on sheet1 with data in sheet27 based on C15 value,
The data is Sheet27 has been assigned name (e.g. PB_200DD = K2:K7)
Below is not working, please help.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = ("$C$15") Then
If Target.Text = "PB_100" Then
Sheets("Sheet27").Range("K2:K7").Copy Destination:=Sheets("Sheet1").Range("B26")
' ElseIf Target.Text = "PB_200" Then
' Sheets("Sheet27").Range(PB_200DD).Copy Destination:=Sheets("Sheet1").Range("B26")
' ElseIf Target.Text = "PB_300" Then
' ElseIf Target.Text = "PB_400" Then
' Else
End If
End If
End Sub