Aktualisieren einer excel-Arbeitsblatt aus einem anderen Blatt, je nach Wert

Ich versuche zum erstellen einer If-Anweisung, können Sie mich senden Sie eine Zahl und einen Wert in einer anderen Arbeitsmappe Vertiefung auf einen Wert in eine 3. Zelle (Wetter der Zelle Wahr oder Falsch"). Der code, den ich ausführen möchte, wenn die Aussage Wahr ist, ist unten. Ich habe getestet, code, und es funktioniert, ich will einfach nur, dass es geschehen wird, wenn die Dritte Zelle in der Zeile Wahr ist. Es muss dann tragen die Informationen von der Anzahl und dem Wert der Zeilen in denen der Wert true in der Funktion unten.

        Dim itemName As String
        Dim itemPrice As String
        Dim myData As Workbook

        Worksheets("Sheet1").Select
        InvoiceNumber = Range("A2")
        qty = Range("B2")
        updated = Range("C2")


        Set myData = Workbooks.Open("HD:Users:user:Desktop:Inventory.xlsm")
        Worksheets("Orders").Select
        Worksheets("Orders").Range("a15").Select
        RowCount = Worksheets("Orders").Range("a15").CurrentRegion.Rows.Count
        With Worksheets("Orders").Range("a15")
        .Offset(RowCount, 0) = InvoiceNumber
        .Offset(RowCount, 1) = qty
        .Offset(RowCount, 2) = updated

        End With

InformationsquelleAutor tbowden | 2015-07-10

  1. 1

    Dein code aussieht könnte es eine weitere Schleife zu gehen durch eine Reihe von Zeilen, aber ich nehme an, dass es möglicherweise einen Fall, wo nur eine einzige operation erforderlich ist.

    Dim itemName As String
Dim itemPrice As String
Dim myData As Workbook
Dim sInvoiceNumber As String, dQty As Double, bUpdated As Boolean, iRowCount As Long

With Worksheets("Sheet1")
    sInvoiceNumber = .Range("A2").Value
    dQty = .Range("B2").Value
    bUpdated = CBool(.Range("C2").Value)

    If bUpdated Then
        Set myData = Workbooks.Open("HD:Users:user:Desktop:Inventory.xlsm")
        With myData.Worksheets("Orders").Range("a15")
            iRowCount = .CurrentRegion.Rows.Count
            .Offset(iRowCount, 0) = sInvoiceNumber
            .Offset(iRowCount, 1) = dQty
            .Offset(iRowCount, 2) = bUpdated
        End With
        myData.Close True '<-save and close the workbook
        .Range("C2") = Not bUpdated  '<- reset the updated field
    End If

End With

    Eher als Schleife über die Zeilen, ein bulk-transfer-operation verwendet werden kann, durch Filterung der Daten.

    Dim itemName As String
Dim itemPrice As String
Dim myData As Workbook
Dim iRowCount As Long

With Worksheets("Sheet1")
    If .AutoFilterMode Then AutoFilterMode = False
    With .Cells(1, 1).CurrentRegion
        .AutoFilter Field:=3, Criteria1:="TRUE"
        With .Offset(1, 0).Resize(.Rows.Count - 1, 3)
            If CBool(Application.Subtotal(103, .Columns(1))) Then
                Set myData = Workbooks.Open("HD:Users:user:Desktop:Inventory.xlsm")
                .Cells.Copy Destination:=myData.Sheets("Orders").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                myData.Close True '<-save and close the workbook
                .Columns(3).Cells = False
            End If
        End With
        .AutoFilter Field:=3
    End With
    If .AutoFilterMode Then AutoFilterMode = False
End With

    Filter, die Sie auf einem Arbeitsblatt die Zelle den Wert TRUE in die Spalte C.

    Funktioniert Super! Nun... Wie bekomme ich es zu laufen, obwohl die "bUpdated" - Spalte und überprüfen Sie, dass für Wahre Werte, führen Sie dann die Funktion?
    Sie sind nicht gehen zu wollen, halten, öffnen und schließen Sie die Arbeitsmappe, damit eine Massen-Betrieb besser geeignet ist. Tut Zeile 1 Spalte Kopfzeile und die Daten beginnen in Zeile 2?
    Ja, es funktioniert ... Spalte 1: Rechnungs-Nummer, Spalte 2: MENGE, Spalte 3: Aktualisiert. Daten beginnen in Spalte 2.
    siehe Nachtrag oben.
    Ich habe jetzt das makro in eine größere Arbeit Blatt, das beginnt in Zeile 6 und hat viele Spalten, wie bekomme ich es zu starten, die Zeile? Und ich brauche nur zu senden, ein paar der Spalten Informationen, wie mache ich das ohne Sie zu senden?

    InformationsquelleAutor

  2. 0

    Sollten Sie Lesen, auf die if-Anweisungen. Ich nehme an, du würdest in der Lage sein, um es herauszufinden, von hier:

    http://www.techonthenet.com/excel/formulas/if_then.php

    Im Grunde, einfach nur aktualisiert, wenn die Bedingung in der if-Anweisung.

    Dim itemName As String
Dim itemPrice As String
Dim myData As Workbook

Worksheets("Sheet1").Select
InvoiceNumber = Range("A2")
qty = Range("B2")
updated = Range("C2")

If updated Then
    Set myData = Workbooks.Open("HD:Users:user:Desktop:Inventory.xlsm")
    Worksheets("Orders").Select
    Worksheets("Orders").Range("a15").Select
    RowCount = Worksheets("Orders").Range("a15").CurrentRegion.Rows.Count
    With Worksheets("Orders").Range("a15")
    .Offset(RowCount, 0) = InvoiceNumber
    .Offset(RowCount, 1) = qty
    .Offset(RowCount, 2) = updated

    End With
End If

    InformationsquelleAutor user201800

Schreibe einen Kommentar