sammeln Informationen von einem Blatt und legen Sie es auf einem anderen Blatt in VBA

Question

Ich habe zwei Excel-Blätter in der gleichen Arbeitsmappe. Blatt1 und Blatt2. in Blatt1 Ich erstelle Daten für jeden Monat. zum Beispiel wird die Spalte z1 3/1/2017, die AA1 wird der 02.03.2017, die AB1 die 3/3/2017 usw. bis zum Enddatum eines Monats sein.

Dann in Blatt2 habe ich einige Zahlen in Spalte N, O, P. jeden Tag könnten diese Zahlen anders sein.

In Spalte C von Blatt1 und Blatt2 sind SN gespeichert.

Jetzt versuche ich die Werte aus der Spalte N, O, P aus Blatt2 (N + O + P) zu sammeln, und speichern Sie sie in Blatt1 in Spalte, die Kopf = Datum von der gleichen SN. Ich versuche, den folgenden Code zu verwenden, aber das funktioniert nicht.

könnte jemand mir helfen mit diesem

Sub registrereren() 
Dim FirstDate As Date 
Dim LastDate As Date 
Dim NextDate As Date 
Dim r As Long 

Dim j As Long 
Dim lastrow1 As Long 

FirstDate = DateSerial(Year(Date), Month(Date), 1) 
LastDate = DateSerial(Year(Date), Month(Date) + 1, 0) 
lastrow1 = Sheets("Registration").Range("C" & Rows.Count).End(xlUp).Row 

For r = 27 To LastDate 

If Cells(1, r) = Date Then 
Next r 

    For j = 2 To lastrow1 

    Sheets("Sheet1").Cells(j, r).Value = WorksheetFunction.VLookup(Sheets("Sheet1").Range("C" & j).Value * 1, Sheets("Sheet2").Range("C2 : P3000"), 11 + 12 + 13, 0) 


    Next j 
End If 

End Sub 

Answer 1

Die Next r fehl am Platze ist. Es sollte nach sein die End If

Der resultierende Code wie folgt aussieht:

Sub registrereren() 
    Dim FirstDate As Date 
    Dim LastDate As Date 
    Dim NextDate As Date 
    Dim r As Long 
    Dim j As Long 
    Dim lastrow1 As Long 

    FirstDate = DateSerial(Year(Date), Month(Date), 1) 
    LastDate = DateSerial(Year(Date), Month(Date) + 1, 0) 
    lastrow1 = Sheets("Registration").Range("C" & Rows.Count).End(xlUp).Row 

    For r = 27 To LastDate 
     If Cells(1, r) = Date Then 
      For j = 2 To lastrow1 
       Sheets("Sheet1").Cells(j, r).Value = WorksheetFunction.VLookup(Sheets("Sheet1").Range("C" & j).Value * 1, Sheets("Sheet2").Range("C2 : P3000"), 11 + 12 + 13, 0) 
      Next j 
     End If 
    Next r 
End Sub 

Der VBA-Editor macht es einfach einrücken Code. Wenn Sie eine Unterroutine, eine Funktion, eine Schleife, eine Groß-/Kleinschreibung oder eine if-Anweisung starten, sollten Sie die nächste Zeile durch Drücken der Tabulatortaste einrücken. Wenn Sie mit dem Block fertig sind, verwenden Sie die Rücktaste, um zu den vorherigen Einrückungsstufen zurückzukehren. Darüber hinaus gibt es im Editor-Ribbon Optionen, mit denen Sie ganze Code-Blöcke einrücken oder verschieben können.

Sobald Sie sich daran gewöhnt haben, sollte es auf Sie hinausspringen, wenn ein Block nicht auf die richtige Weise beendet wird. Auf der anderen Seite, Ihre sporadische und inkonsistente Einrückung machte es schwierig zu erkennen, was das Problem mit Next r war.

Der obige Code kompiliert, aber ich war nicht in der Lage, es auf einfache Weise zu testen, da ich nicht sicher bin, wie Ihre Tabelle ausgelegt ist. Wenn es immer noch nicht funktioniert, haben Sie ein anderes Problem mit dem Code und könnten entweder Ihre Frage bearbeiten oder vielleicht eine andere Frage stellen, wenn Sie müssen (sobald Sie das Problem isoliert haben).