Pergunta : Excel/csv, movimento enfileira a uma outra folha baseada no valor em mudança na coluna

Olá! eu preciso alguma ajuda com as colunas moventes em Excel.
I am não um alhough perito de VBA/Macro quando eu leio o código, e persigo erros, eu compreendo que o que é o objetivo de happening.

Our é traduzir a informação da lima unida de CSV e para põr os valores que nós precisamos em um XML file.

One dos problemas nós funcionamos em somos que a lima de CSV contem ordernumbers múltiplos em uma lima. Nós preferiríamos ter Excel ou a folha por ordernumber.

Column C mostra o `que do inkooporder do `você pode ver que os valores nesta coluna mudam. eu gostaria de uma parte de código que copia as fileiras onde o inkooporder´ do `é igual, e passados ele a uma folha nova onde o sheetname seja o ´inkooporder´. o
So no exemplo unido inkoopordernumbers diferentes assim que este da mostra 10 conduziria a 10 sheets.

in a extremidade que eu gostaria de copiar em fileiras novas de um CSV novo, funciono o macro e processa outra vez a informação nova. o

hopefully um VBA/expert pode ajudar-me a construir algum code.

much appreciated class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do 975125-100531132211.csv o class= (6 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
CSV source
o class= de
do >
class= do

Resposta : Excel/csv, movimento enfileira a uma outra folha baseada no valor em mudança na coluna

Olá!,
Eu reparei os problemas que você encontrou.  O seguinte código deve agora trabalhar muito melhor para você:
splitVersion2 secundário ()

lastOrder não ofuscante, inkooporder como a corda
rowCount não ofuscante como o inteiro

lastrow = [b65536]. Extremidade (xlUp). Fileira
rowCount = 2
Colunas (“A: S”). Seleto
    ActiveWorkbook.Worksheets (“Sheet1”). Sort.SortFields.Clear
    ActiveWorkbook.Worksheets (“Sheet1”). Chave de Sort.SortFields.Add: =Range (“C2: C34”) _
        , SortOn: =xlSortOnValues, ordem: =xlAscending, DataOption: =xlSortNormal
    Com ActiveWorkbook.Worksheets (“Sheet1”). Sorte
        escala de .SetRange (“A1: S34”)
        . Encabeçamento = xlYes
        .MatchCase = falso
        . Orientação = xlTopToBottom
        .SortMethod = xlPinYin
        . Aplicar
        ActiveSheet.Cells (1, 1). Selecionar
    Terminar com
lastOrder = 0
Para i = 2 ao lastrow
    inkooporder = folhas (“Sheet1”). Pilhas (i, 3)
    Se não inkooporder = lastOrder então
        Worksheets.Add (em seguida: =Worksheets (1)). Nome = inkooporder
        Folhas (“Sheet1”). Seleto
        Cells.Select
        Selection.Copy
        Folhas (inkooporder). Seleto
        Cells.Select
        Pasta de Selection.PasteSpecial: =xlPasteFormats, operação: =xlNone, _
            SkipBlanks: O =False, transpor: =False
        Escala (“A1”). Seleto
        Para x = 1 a 19
            Folhas (inkooporder). Pilhas (1, x) = folhas (“Sheet1”). Pilhas (1, x)
        X seguinte
        rowCount = 2
    Terminar se
    Para x = 1 a 19
        Folhas (inkooporder). Pilhas (rowCount, x) = folhas (“Sheet1”). Pilhas (i, x)
    X seguinte
    rowCount = rowCount + 1
    lastOrder = inkooporder
Em seguida i
Folhas (“Sheet1”). Seleto
Escala (“A1”). Seleto
Submarino da extremidade
Outras soluções  
 
programming4us programming4us