> 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