Öffnen Sie eine geschlossene Arbeitsmappe, suchen Sie nach übereinstimmenden Excel-Werten innerhalb einer Spalte, versetzen Sie 2 Spalten nach links und kopieren Sie den Wert zurück in das geöffnete Excel-Blatt - excel, vba, excel-vba

Ich habe eine große Aufgabe, die ich nicht das Wissen oder eine Idee habe, wie ich anfangen soll. Ich habe ein Arbeitsbuch genannt "Tinte" (C: UsersadminDesktopInk.xlsm) Das gibt mir die Anzahl der Toner einer Reihe von Druckern. Die auf diesem Blatt angezeigten Drucker werden jeden Tag gewechselt.

Ich wünsche mir, dass mein Makro navigiert / öffnet Drucker.xlsm (C: UsersadminDesktopprinters.xlsm) das enthält die Hauptliste

• finde und vergleiche den Wert aus Spalte B in Ink.xlsm (Zeile 2 und unten) in Spalte H in Printers.xlsm (Zeile 2 und unten)
• Offset 2 Spalten nach links und
• Kopieren Sie diesen Wert in die Spalte G in Ink.xlsm, die derselben Zeile entspricht.

Im Moment habe ich den Startcode, den ich woanders gefunden habe

Dim wbk As Workbook
Set wbk = Workbooks.Open("C:myworkbook.xls")

" now you can manipulate the data in the workbook anyway you want, e.g. "

Dim x As Variant
x = wbk.Worksheets("Sheet1").Range("A6").Value

Call wbk.Worksheets("Sheet2").Range("A1:G100").Copy
Call ThisWorbook.Worksheets("Target").Range("A1").PasteSpecial(xlPasteValues)
Application.CutCopyMode = False

" etc "

Call wbk.Close(False)

Antworten:

Nur um ein Beispiel von Index () und match () zu zeigen, wie es anscheinend einen Fehler für das OP wirft ...