> mam tabulku o dvou sloupcich. > > V 1. sloupci je textovy nazev nekolika typu vyrobku. > Ten nazev neni stejny ale je treba: Karel Xl, Karel XXL > Josef S, Josef XXXL, Jana M, Olga XL, > > V 2. sloupci je numero pocet ks. > > Co bych potreboval. Seznam je dosti dlouhy. Potreboval bych > zapis fce, ktery by mi nasla typ vyrobku (Karel obecne - nezalezi > na velikosti) a secetla kusy, ktere jsou na sklade. Mozna by to slo udelat i nejak elegantneji, ja bych to vyresil jednoduchym makrem Predpokladam ze je vzdy mezi jmenem a velikosti mezera ... Do tretiho sloupce ti to prihodi prvni slovo a potom si nechas udelat souhrn podle 3 sloupce s souctem u druhyho. Kdyz by to melo fungovat jinak tak napis a neco vymyslime Nez to pustis, tak si udelej zalohu. Kamil -------------------------------------------------------------- Sub prvni_slovo() ' do 3 sloupce vlozi prvni slovo Dim radek As Integer Dim retez As String, pom As String Dim i As Integer radek = 1 Do retez = Cells(radek, 1) For i = 1 To Len(retez) If Mid(retez, i, 1) = " " Then Exit For pom = pom & Mid(retez, i, 1) Next i Cells(radek, 3) = pom pom = "" radek = radek + 1 Loop While Cells(radek, 1) <> "" End Sub ---------------------------------------------------------------
This archive was generated by hypermail 2.1.2 : 03. 09. 2001, 22:17 CEST