Программирование Excel VBA для копирования определенных строк из ячейки sheet1 в sheet2

Question

Я хочу написать один код vba, который будет искать данные из определенного столбца листа 1 и скопировать эти строки и вставить их в sheet2. Я написал код, но нашел там одну проблему. вот приведенный ниже код.

Sheets("Sheet1").Select 
    Range("D1").Select 
    Dim mycode As Worksheet 
    Set mycode = ThisWorkbook.Worksheets("Sheet2") 
    Dim i As Long 
    For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row 
     If Cells(i, 4).Value = "high" Then 
      Range(Cells(i, 1), Cells(i, 8)).Copy Destination:=mycode.Range("A" & mycode.Cells(Rows.Count, "A").End(xlUp).Row + 1) 
      ElseIf Cells(i, 4).Value <> "high" Then 
      Sheets("Sheet2").Select 
      Range("A2").Value = "No Crtical Logs Found" 
      End If 
     Next i 
    End Sub 

Из столбца Sheet1 D (number4) Я ищу данные, соответствующие «высоким», и скопируйте эти строки на лист2. И если какой-либо из «высоких» не существует в столбце D, то в ячейке A2 на листе 2 будет записано «No action required». Но проблема в том, что «высокое» значение там не работает, но когда «высокое» значение присутствует в столбце столбца D1, тогда все значение времени «без действия» приходит на ячейку A2 на листе2. Пожалуйста, помогите мне исправить это.

No Crtical Logs Found 4/11/2016 Critical high  192.168.1.1 This is the sample excel sheet Action Required 

С уважением, Пинаки

Answer 1

Вы трогании Лист1 слишком скоро:

Sub fhskdfh() 
    Sheets("Sheet1").Select 
    Range("D1").Select 
    Dim mycode As Worksheet 
    Set mycode = ThisWorkbook.Worksheets("Sheet2") 
    Dim i As Long 
    For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row 
     MsgBox i & vbCrLf & Cells(i, 4).Value 
     If Cells(i, 4).Value = "high" Then 
      Range(Cells(i, 1), Cells(i, 8)).Copy Destination:=mycode.Range("A" & mycode.Cells(Rows.Count, "A").End(xlUp).Row + 1) 
     End If 
    Next i 
End Sub 

Answer 2

Изменить пункт назначения из "No Crtical Логи Found" сообщение
От

Sheets("Sheet2").Select Range("A2").Value 

Для

Sheets("Sheet2").Range("A2").Value 

Вам не нужно, чтобы выбрать ячейку, прежде чем присваивать ему значение.