Benötigen Sie ein Makro, um Daten aus den Registern zu ziehen

Question

Meine Tabelle hat ein "Main" -Blatt, das Informationen anzeigt, die es von anderen Blättern erfasst und eine Tabelle auffüllt. Ich muss die Informationen aus 4 Zellen holen, die in jedem Infoblatt identisch sind. Die Daten, die es zieht, sind Name, geleistete Stunden usw. und es kommt von den Zellen c1, d1, u11 und i20.

Die Anzahl der Blätter variiert, da die Mitarbeiter variieren, aber ich kann eine Zelle in a1 des Hauptblattes legen, um die Anzahl der Mitarbeiter anzuzeigen. Jede Registerkarte ist nach dem Mitarbeiter benannt, aber ich hoffe, dass sie im Hintergrund von Excel nummeriert sind?

Answer 1

Der folgende Code geht davon aus, dass Ihr Hauptblatt das erste Arbeitsblatt in der Arbeitsmappe ist. In der ersten Spalte werden die Namen der einzelnen Mitarbeiter angezeigt (da Ihre Arbeitsblätter nach den Mitarbeitern benannt sind).

Sub GetInfo() 

     Dim intCounter As Integer 

     For intCounter = 2 To Worksheets.Count 
      Worksheets(1).Cells(intCounter, 1) = Worksheets(intCounter).Name 
      Worksheets(1).Cells(intCounter, 2) = Worksheets(intCounter).Range("C1").Value 
      Worksheets(1).Cells(intCounter, 3) = Worksheets(intCounter).Range("D1").Value 
      Worksheets(1).Cells(intCounter, 4) = Worksheets(intCounter).Range("U11").Value 
      Worksheets(1).Cells(intCounter, 5) = Worksheets(intCounter).Range("I20").Value 
     Next 
    End Sub