MS Excel

Ahoj potřeboval bych od Vás zase jednou pomocnou ruku.
Bohužel stále nemohu z práce přikládat přílohu.
Naštěstí je tabulka a zadání velice jednoduché, v případně zájmu soubor mohu poslat mailem.

_____________________
Popis tabulky:
List1:
ve sloupci A mám produkty (A3:Axx)
řádek1: dny v týdnu => B1 - Po, C1 - Út ... H1 - Ne (vím, že 1.1. není pondělí, ale to je jen pro představu :-)
řádek2: datum (1.1. - 31.12.)

tabulka uvnitř se každý den plní údaji produkce (na konkrétních číslech nezáleží)

List2:
sloupec A stejné produkty jako v listu 1
záhlaví pondělí - neděle
______________________

Výsledek?
Naplnit tabulku na Listu2.
Naplnit ji u každého produktu k příslušnému dni v týdnu průměrem všech hodnot daných dnů v týdnu (Průměr všech pondělí, úterý...)
(tzn.: Produkt 1 má průměr XY za všechna pondělí - zapsat do výsledné tabulky.
Produkt 1 má průměr YZ za všechna úterý - zapsat do výsledné tabulky...
...
Produkt X má průměr QQ za všechny neděle - zapsat do výsledné tabulky.

Funkční makro jsem si na to vytvořil, bohužel když je v tabulce hodně dat (hodně dnů na porovnávání), tak mi nedoběhne do konce a vyhodí chybu.
S menším množstvím dat funguje dobře.
To, že je napsaný určitě velice barbarsky nepopírám a sem si jistej, že existuje lepší (a plně funkční) řešení. :-)

Kdybyste měli někdo chvilku tak bych Vám byl velice zavázán.

Díky
Skoky

Zaslat odpověď >

eLCHa(19.2.2013 16:12)#011738

Nevím. Četl jsem to dvakrát a vždy jsem skončil v půlce s tím, že vytvoření tabulky a vložení jako přílohu by bylo asi rychlejší, než ji popisovat a doufat, že všichni mají stejnou představivost, jako já...citovat

Skoky(19.2.2013 16:37)#011739

Hmm ok asi máš pravdu, tak až budu doma tak přiložím (jak sem psal, z práce nemám práva:-(citovat

ji026441(19.2.2013 19:11)#011740

Něco jsem se pokusil vytvořit, jestli to bude vyhovovat, dodělal bych to do Tvojí tabulky.

Příloha: zip

11740_pokus.zip (17kB, staženo 22x)

citovat

Opičák(20.2.2013 0:48)#011747

Takhle jsem to pochopil já, i když mi to trvalo. Asi to samé jako ji02.., ale pouze vzorcem.

Příloha: zip

11747_pokus-2.zip (21kB, staženo 22x)

citovat

Opičák(20.2.2013 2:28)#011748

a nebo tak

Příloha: zip

11748_pokus_22.zip (24kB, staženo 22x)

citovat

Skoky(20.2.2013 10:52)#011753

To ji026441: Přesně takhle sem to myslel dík, ale narazil jsem na stejný problém jako předtím u sebe. Dej si do jakéhokoliv pondělí do nějakého produktu číslo 55555 a poté už to to makro neskousne a vyhodí chybu.

Nakonec sem to teda trochu předělal a funguje to dobře i na větší počet dat, jen by mě stále zajímalo, kde je rozdíl, že to moje funguje.

Sub pokus()
Dim Polozka As String
Dim PoPocet, PoSoucet, PoslSloupec, PoslRadek As Integer
Dim ws1, sw2 As Worksheet

Set ws1 = Worksheets("List1")
Set ws2 = Worksheets("List2")
'----------pondělí-----------------
PoPocet = 0
PoSoucet = 0

With ws1
PoslSloupec = .Cells(3, .Columns.Count).End(xlToLeft).Column
PoslRadek = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

For i = 3 To PoslRadek 'počet produktů (řádků)

Polozka = ws1.Cells(i, 1).Value 'název produktu
For j = 2 To PoslSloupec ' počet sloupců
If ws1.Cells(1, j) = "po" Then
PoPocet = PoPocet + 1
PoSoucet = PoSoucet + ws1.Cells(i, j).Value
End If
Next j

For a = 3 To PoslRadek 'počet produktů
If ws2.Cells(a, 1) = Polozka Then
ws2.Cells(a, 2) = PoSoucet / PoPocet
End If
Next a
PoPocet = 0
PoSoucet = 0
Next i

End Sub

To Opičák:
Také děkuji za pomoc. Sice sem zatim neměl moc času se podívat jak si to konkrétně dělal ty, rád se ale pak přiučím něco nového :-)citovat

ji026441(20.2.2013 11:38)#011755

Chyba je v deklaraci PoSoucet. Nesmí být integer, ale long.citovat

Stalker(20.2.2013 11:40)#011756