How to auto copy column D,E,F from sheet 1 to the next worksheet (egactive list) Column B,C,D after select from drop down list (eg if select “Active”)

[Phobe12]

How to auto copy column D,E,F from sheet 1 to the next worksheet (eg. Active list) Column B,C,D after select from drop down list (eg: if I select Active”)

 

[aaewalsh]

where will this active list dropdown be. Will you just copy the row that has active.

 

[Phobe12]

where will this active list dropdown be. Will you just copy the row that has active.

It will be in sheet1 (“B” column)

 

[aaewalsh]

Sub CopyData()

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = ThisWorkbook.Sheets("Sheet2")
Set ws2 = ThisWorkbook.Sheets("Active list")
ws2.Range("B2:D" & ws2.Rows.Count).ClearContents
'Check the value of column B in sheet 1
For i = 2 To ws1.Range("B" & ws1.Rows.Count).End(xlUp).Row
    If ws1.Cells(i, 2).Value = "Active" Then
        'Copy column D, E, F from sheet 1 to column B, C, D in sheet 2
        ws1.Range(ws1.Cells(i, 4), ws1.Cells(i, 6)).Copy _
        Destination:=ws2.Cells(ws2.Range("B" & ws2.Rows.Count).End(xlUp).Row + 1, 2)
    End If
Next i

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CopyData

End Sub

 

[Phobe12]

Sub CopyData()

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = ThisWorkbook.Sheets("Sheet2")
Set ws2 = ThisWorkbook.Sheets("Active list")
ws2.Range("B2:D" & ws2.Rows.Count).ClearContents
'Check the value of column B in sheet 1
For i = 2 To ws1.Range("B" & ws1.Rows.Count).End(xlUp).Row
    If ws1.Cells(i, 2).Value = "Active" Then
        'Copy column D, E, F from sheet 1 to column B, C, D in sheet 2
        ws1.Range(ws1.Cells(i, 4), ws1.Cells(i, 6)).Copy _
        Destination:=ws2.Cells(ws2.Range("B" & ws2.Rows.Count).End(xlUp).Row + 1, 2)
    End If
Next i

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CopyData

End Sub

Thank you aaewalsh

 

[Phobe12]

Thank you aaewalsh

I

I face this issue with the code enter
Helppppp

 

[Phobe12]

Issue solved thank u