Fråga : Excel/csv, flyttning ror till another täcker baserat på att ändra värderar i kolonn

Hi jag behöver någon hjälp med rörs kolonner i förmiddag för Excel.
I inte en sakkunnig alhough för VBA/Macro, när jag läser kodifiera, och jagar fel, jag förstår att vad är, målet för happening.

Our är att översätta information från den fäste CSVEN sparar och satte värderar oss behöver in i en XML file.

One av problemen som vi kör in i är att CSVNA sparar innehåller multipelordernumbers i en sparar. Vi skulle föredrar att ha en Excel, eller att täcka per ordernumber.

Column C visar `- inkooporder`som du kan se att värderar i ändringar för denna kolonn. jag skulle något liknande som en lappa av kodifierar, som kopierar ror, var `- inkooporder´en är jämliket, och förflutnor, den till ett nytt täcker var sheetnamen är ´inkooporder´en.
So i det fäste exemplet den inkoopordernumbers så denna för show 10 olika skulle bly- till 10 olika sheets.

in avsluta som jag skulle något liknande för att kopiera i nytt ror från en ny CSV, kör makroen, och den bearbetar igen den nya informationen.

hopefully en VBA/expert kan hjälpa mig att bygga någon code.

much appreciated Attachments: för >
<-/div> " title= " för den 975125-100531132211.csv (6 KB)  " javascript för href= " för CSV source <-/div>
för >
<-/div> " klar "

Svar : Excel/csv, flyttning ror till another täcker baserat på att ändra värderar i kolonn

Hi,
Jag har fixat problemen som du grundar.  Efter kodifiera bör nu fungera mycket bättre för dig:
UndersplitVersion2 ()

Dunkel lastOrder, inkooporder som stränger
Dunkel rowCount som heltal

lastrow = [b65536]. Avsluta (xlUp). Ro
rowCount = 2
Kolonner (”A: S”). Valt
    ActiveWorkbook.Worksheets (”Sheet1”). Sort.SortFields.Clear
    ActiveWorkbook.Worksheets (”Sheet1”). Sort.SortFields.Add stämm: =Range (”C2: C34”) _,
        , SortOn: =xlSortOnValues beställer: =xlAscending DataOption: =xlSortNormal
    Med ActiveWorkbook.Worksheets (”Sheet1”). Sortera
        .SetRange spänner (”A1: S34”)
        . Titelrad = xlYes
        .MatchCase = falskt
        . Riktning = xlTopToBottom
        .SortMethod = xlPinYin
        . Applicera
        ActiveSheet.Cells (1, 1). Välj
    Avsluta med
lastOrder = 0
För I = 2 till lastrow
    inkooporder = täcker (”Sheet1”). Celler (I, 3)
    Om inte inkooporder = lastOrder därefter
        Worksheets.Add (After: =Worksheets (1)). Namnge = inkooporder
        Täcker (”Sheet1”). Valt
        Cells.Select
        Selection.Copy
        Täcker (inkooporder). Valt
        Cells.Select
        Selection.PasteSpecial-deg: =xlPasteFormats funktion: =xlNone _,
            SkipBlanks: =False transponerar: =False
        Spänna (”A1”). Välj
        För x = 1 till 19
            Täcker (inkooporder). Celler (1, x) = täcker (”Sheet1”). Celler (1, x)
        Nästa x
        rowCount = 2
    Avsluta om
    För x = 1 till 19
        Täcker (inkooporder). Celler (rowCount, x) = täcker (”Sheet1”). Celler (I, x)
    Nästa x
    rowCount = rowCount + 1
    lastOrder = inkooporder
Därefter i
Täcker (”Sheet1”). Valt
Spänna (”A1”). Välj
Avsluta suben
Andra lösningar  
 
programming4us programming4us