Excel VBA Codierung

Question

Ich bin neu mit VBA-Codierung, könnten Sie mir zu diesem Anliegen helfen?

Ich erstelle gerade ein Makro, das den spezifischen Text in der Spalte AJ (z. B. "Chase") sucht und wenn es gefunden wird, sucht es nach der Entität aus der Spalte A und kopiert sie dann in ein anderes Blatt.

Vielen Dank im Voraus!

Answer 1

Versuchen Sie dies. Aus den Kommentaren genommen. Denken Sie daran, dass die Fehler, die Sie möglicherweise haben, auf die VLookup-Formel zurückzuführen sind. Sie müssen sich ansehen, wie die VLookup-Formel funktioniert.

Die Formel sucht nach "Check". Die Fehler, die Sie bekommen, befinden sich in dem Bereich, in dem Sie suchen. Sie suchen nach "AE7: A2693", das ist Spalte AE zu A - es ist nicht möglich rückwärts zu suchen, also sollte es A2693: AE7 sein. Sie müssen den richtigen Bereich finden und im folgenden Code ändern.
Sind Sie sicher, dass die Spalte 31 den Rückgabewert enthält?

Sub EachLoopExample() 

Dim ws1 As Worksheet, ws2 As Worksheet 
Dim MyCell As Range 
Dim sResult As String 

Set ws1 = Sheets("Sheet1") 
Set ws2 = Sheets("Sheet3") 
For Each MyCell In ws1.Range("AE:AE") 
    If MyCell.Value = "check" Then 

     sResult = Application.WorksheetFunction.VLookup("check", ws1.Range("B1:C3"), 1, False) 
     ws2.Range("A2").Value = sResult 
    End If 
Next MyCell 
End Sub 

Answer 2

Sub EachLoop() 

Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim FinalRow As Integer 
Dim i As Integer 

Set ws1 = Sheet1 
Set ws2 = Sheet3 

ws1.Select 
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 7 To FinalRow 
    If Cells(i, 31) = "check" Then 
     Range(Cells(i, 1), Cells(i, 7)).Copy 
     ws2.Select 
     Range("A200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats 
     ws1.Select 
    End If 

Next i 

ws2.Select 

Range("B2").Select 

Call EachLoop2 

End Sub 

Sub EachLoop2() 

Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim FinalRow As Integer 
Dim i As Integer 

Set ws1 = Sheet1 
Set ws2 = Sheet3 

ws1.Select 
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 7 To FinalRow 
    If Cells(i, 32) = "check" Then 
     Range(Cells(i, 1), Cells(i, 13)).Copy 
     ws2.Select 
     Range("H200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats 
     ws1.Select 
    End If 

Next i 

ws2.Select 

Range("B2").Select 

Call EachLoop2_ext 


End Sub 

Sub EachLoop2_ext() 

Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim FinalRow As Integer 
Dim i As Integer 

Set ws1 = Sheet1 
Set ws2 = Sheet3 

ws2.Select 
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 3 To FinalRow 
    If Range(Cells(i, 9), Cells(i, 13)) = "" Then 
     ws2.Select 
     Range(Cells(i, 9), Cells(i, 13)).ClearContents 
     Range(Cells(i, 14), Cells(i, 20)).Cut 
     Range("I200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats 

    Else 
     ws2.Select 
     Range(Cells(i, 9), Cells(i, 13)).ClearContents 
     Range(Cells(i, 14), Cells(i, 20)).Cut 
     Range("I200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats 

    End If 

Next i 

ws2.Select 

Range("I2").Select 

End Sub