Re: OT - excel

K tomu problemu 2 nieco ma napadlo ale je to velka haluska:
v tom tretom liste prvych 500 pozicii bude mat link na prvy list
a druhych 500 na druhy list nieco ohladne if(list1!C2 <> ""; potom vypis
vsetky policka,ak tam cena nieje nechaj prazdne)
no a na dalsi list (4) vytvor pivotnu tabulku kde zakazes blanc

no a ohladne tej jednotky ja by som to riesil vlastnou fciou:

Function sum_color(ByVal color, ByRef defRange) As Double
Dim l_value As Double
Dim my_cell
For Each my_cell In defRange
If my_cell.Interior.ColorIndex = color.Interior.ColorIndex Then
l_value = l_value + my_cell.Value
End If
Next
sum_color = l_value
End Function

a k tomu OT ... riesili sa tu ine OT a toto moze helpnut aj niekomu dalsiemu

On 6/13/07, Kamil <sverak (zavinac) gmail.com> wrote:
>
> > Ok... chapem, bez ukazky sa to tazko opisuje. takze.. (hore som pripisal
> > OT )
> >
> > problem 1
> >
> > http://img524.imageshack.us/img524/1400/excel1problemvp4.jpg
>
> Proč proboha někam rovnou nezavěsíš ten xls soubor? Kdo to má přepisovat?
>
> Možný řešení jsem ti hodil na:
> http://temp.sverak.net/secti_barvy.xls
> ale neobejdeš se bez scriptování.
>
> > problem 2 - potrebujem aby sa mi udaje z napr. dvoch zaloziek
> > automaticky *zadanim cen*y presuvali do tretej zalozky nazvanej napr.
> > SUHRN... ako je to na obr.
>
> Na co něco takovýho potřebuješ? Zdá se mi, že ten excel docela
> znásilňuješ.
> Nevím jak ho donutit aby zistil, žes přidal cenu. Snad jedině nějakým
> timerem co by pravidelně kontroloval jestli se něco změnilo.  Spíš
> bych to ale řešil tím, že bych doplnil všechny ceny a pak to poslal
> najednou do toho třetího listu.
>
>
> --
> Cao,
> Kamil
>



-- 
AleX