Wie mache ich Makro-Pull-Daten aus verschiedenen Blättern in einer Arbeitsmappe. Excel VBA

Question

Ich habe ein Problem mit einem Makro verwendet, um Informationen von einem Arbeitsblatt zu einem anderen zu ziehen. Ich kann nicht herausfinden, wie das Makro ein anderes Arbeitsblatt im Arbeitsblatt "CurrentSchedule" aussehen lässt. Wenn ich durch das Makro mit dem ersten (A-Linie) Arbeitsblatt gehe, läuft alles glatt, aber wenn ich versuche, es durch das 2. Blatt (B-Linie) zu laufen, überschreitet es das Zeitlimit. Es wird speziell auf die Linie stecken

"Order = Range (" W1 "). Offset (Count, 0) .Value"

SAPorder = InputBox("Enter SAP Order Number:") 
ProdLine = InputBox("Enter the sheet# of CurrentSchedule that has this SAP order number. Example: A line = 1; B = 2") 
End Select 
Count = 0 'Count is the row in the designated column 
Flag = True 
Do While Flag 
Workbooks("CurrentSchedule.xlsx").Worksheets(ProdLine).Activate 
Order = Range("W1").Offset(Count, 0).Value 
If Order = SAPorder Then 
nme = Range("B1").Offset(Count, 0).Value 

Answer 1

wegzuwerfen, dass dumme .activate Methode lernen, wie man mit dieser

arbeiten

Sheets("sheetName").range("rangeName/rangeRange")[optional].cells("cellRow","cellColumn") 

es macht Ihre Arbeit viel einfacher, und dann können Sie mit Blatt/Bereich/Zelle als Objekt arbeiten.

Auch wenn Sie Bereich/Zelle ohne Punkt und übergeordnete Ausrichtung verwenden, arbeiten Sie mit aktiven Blatt, die sehr unvorhersehbar sein können. Wenn Sie also die oben genannte vollständige Anweisung verwenden, können Sie keinen Fehler machen.