Frage : Excel/csv, Bewegung rudert zu einem anderen Blatt, das auf änderndem Wert in der Spalte basiert

Hallo benötige ich etwas Hilfe bei beweglichen Spalten in Excel.
I morgens nicht ein VBA/Macro sachverständiges alhough, wenn ich den Code lese, und jage Störungen, verstehe ich, ist dass was, happening.

Our ist Ziel, Informationen von der angebrachten CSV Akte zu übersetzen und die Werte setzen, die wir in ein XML file.

One der Probleme benötigen, wir in sind laufen lassen, dass die CSV Akte mehrfache ordernumbers in einer Akte enthält. Wir würden es vorziehen, Excel zu haben, oder Blatt pro ordernumber.

Column C zeigt `inkooporder `, das Sie sehen können, dass die Werte in dieser Spalte ändert. ich möchte ein Stück des Codes, der die Reihen, in denen das `inkooporder´ gleich ist und die Vergangenheiten es zu einem neuen Blatt kopiert, in dem das sheetname das ´inkooporder´ ist.
So im angebrachten Beispiel würde es verschiedene inkoopordernumbers also dieses des Erscheinens 10 zu 10 verschiedenen sheets.

in das Ende führen, das ich in den neuen Reihen von einem neuen CSV kopieren möchte, laufen lasse das Makro und es verarbeitet wieder die neuen Informationen.

hopefully ein VBA/expert kann mir helfen, irgendein code.

much appreciated
zu errichten
Attachments:

Antwort : Excel/csv, Bewegung rudert zu einem anderen Blatt, das auf änderndem Wert in der Spalte basiert

Hallo,
Ich geregelt die Probleme, die Sie fanden.  Der folgende Code sollte für Sie jetzt viel besser arbeiten:
VorsplitVersion2 ()

Schwaches lastOrder, inkooporder als Schnur
Schwaches rowCount als ganze Zahl

lastrow = [b65536]. Ende (xlUp). Reihe
rowCount = 2
Spalten („A: S“). Auserwählt
    ActiveWorkbook.Worksheets („Sheet1“). Sort.SortFields.Clear
    ActiveWorkbook.Worksheets („Sheet1“). Sort.SortFields.Add Schlüssel: =Range („C2: C34“) _
        , SortOn: =xlSortOnValues, Auftrag: =xlAscending, DataOption: =xlSortNormal
    Mit ActiveWorkbook.Worksheets („Sheet1“). Art
        .SetRange Strecke („A1: S34“)
        . Überschrift = xlYes
        .MatchCase = falsch
        . Lagebestimmung = xlTopToBottom
        .SortMethod = xlPinYin
        . Zutreffen
        ActiveSheet.Cells (1, 1).Select
    Mit beenden
lastOrder = 0
Für i = 2 zum lastrow
    inkooporder = Blätter („Sheet1“). Zellen (i, 3)
    Wenn nicht inkooporder = lastOrder dann
        Worksheets.Add (nachher: =Worksheets (1)). Name = inkooporder
        Blätter („Sheet1“). Auserwählt
        Cells.Select
        Selection.Copy
        Blätter (inkooporder). Auserwählt
        Cells.Select
        Selection.PasteSpecial Paste: =xlPasteFormats, Betrieb: =xlNone, _
            SkipBlanks: =False, umstellen n: =False
        Strecke („A1“). Auserwählt
        Für x = 1 bis 19
            Blätter (inkooporder). Zellen (1, x) = Blätter („Sheet1“). Zellen (1, x)
        Folgendes x
        rowCount = 2
    Beenden wenn
    Für x = 1 bis 19
        Blätter (inkooporder). Zellen (rowCount, x) = Blätter („Sheet1“). Zellen (i, x)
    Folgendes x
    rowCount = rowCount + 1
    lastOrder = inkooporder
Zunächst I
Blätter („Sheet1“). Auserwählt
Strecke („A1“). Auserwählt
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us