Excel VBA-Programmierung zum Kopieren bestimmter Zeilen von Blatt1 zu Blatt2 spezifische Zelle

Question

Ich möchte einen VBA-Code, der Daten aus einer bestimmten Spalte von Blatt1 suchen wird und kopieren Sie diese Zeilen und fügen Sie diese auf Blatt2. Ich habe den Code geschrieben, aber dort ein Problem gefunden. Hier ist der Code unten.

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 

Von sheet1 Spalte D (Number4) Ich suche Datenabgleich „high“ und kopieren Sie diese Zeilen einfügen Tabelle2. Und wenn eines der "Hoch" in Spalte D nicht vorhanden ist, dann wird "Keine Aktion erforderlich" in Zelle A2 auf Blatt 2 geschrieben. Aber das Problem ist, wenn "hoher" Wert nicht dort ist, funktioniert es gut, aber wenn "hoher" Wert dort in D-Spalte sheet1 ist, dann kommt die ganze Zeit "no action required" Wert auf Zelle A2 auf Blatt2. Bitte helfen Sie mir, dies zu korrigieren.

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

Grüße, Pinaki

Answer 1

Sie bewegen sich weg Sheet1 zu früh:

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

Ihr Ziel der Änderung "Keine crtical Logs gefunden" Nachricht
Von

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

Um

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

Sie brauchen nicht die Zelle auszuwählen, bevor Sie einen Wert zuweisen.