< návrat zpět

MS Excel

Téma: Slouceni dvou tabulek do jedne rss

Zaslal/a Vity 15.4.2013 9:25

Dobry den,
chtel bych pozadat o radu jak sloucit pomoci maker dve tabulky u kterych se meni pocet radku a druh materialu.
Pozadavek:
1. Z listu Export 1 a Export 2 vyhledat vechny zastoupene materialy a prekopirovat je do listu vysledek
2.V poli Order size secti hodnoty ( v pripade ze jsou zastoupeny v obou listech)

Note: hlavicka tabulky je vzdy stejna (4 sloupce)
Material-Material Description-Order Size-BUn

Predem diky za kazdy napad

Vity

Příloha: zip12880_suma.zip (11kB, staženo 24x)
Zaslat odpověď >
Jeza.m(15.4.2013 11:02)#012881
Jeza.m
Public Function materialrow(material) As Single
On Error Resume Next
materialrow = Application.WorksheetFunction.Match(material, Sheets("Vysledek").Range("B:B"), False)
End Function

Public Sub soucet()
Dim rdo As Single
Dim tmp As Single
rdo = 4
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, 6) = "Export" Then
For rd = 4 To sh.UsedRange.Rows.Count + 2
tmp = materialrow(sh.Cells(rd, 2))
If tmp = 0 Then
Sheets("Vysledek").Cells(rdo, 2) = sh.Cells(rd, 2)
Sheets("Vysledek").Cells(rdo, 3) = sh.Cells(rd, 3)
Sheets("Vysledek").Cells(rdo, 4) = sh.Cells(rd, 4)
Sheets("Vysledek").Cells(rdo, 5) = sh.Cells(rd, 5)
rdo = rdo + 1
Else
Sheets("Vysledek").Cells(tmp, 4) = Sheets("Vysledek").Cells(tmp, 4) + sh.Cells(rd, 4)
End If
Next
End If
Next
End Sub

M@citovat
Opičák(15.4.2013 12:02)#012882
Opičák
to M@ 7 to nějak nesčítá, jen přepisujecitovat
Jeza.m(15.4.2013 12:20)#012883
Jeza.m
Zajímavý, mě to sečetlo :-)
Tak radši v příloze.

Celkový součet sloupce D
Export1 = 4095
Export2 = 5743
Vysledek = 9838

Material 7240
Export1 = 131
Export2 = 337
Vysledek = 468

Office 2003
Jedná se o jednorázové vygenerování.
Má-li být použito opakovaně, tak je třeba data z výsledku smazat, ale to nebylo předmětem zadání :-).
Stejně tak předpokládám že konkrétní materiál má na každém exportu vždy stejnou jednotku :-).

M@
Příloha: zip12883_suma.zip (36kB, staženo 24x)
citovat
Opičák(15.4.2013 13:43)#012884
Opičák
Jedná se o jednorázové vygenerování

tak v tom byl ten můj omyl, beru zpět 1citovat
pro-Jeza.m(15.4.2013 15:22)#012886
avatar
Diky moc 1 , funguje to presne, tak jak jsem si predstavoval

Moc mi to pomohlo
Vitycitovat
pro-Jaza.m(16.4.2013 17:04)#012922
avatar
Mohl bych mit doplnujici otazku , k tomu Makru?
Co bych musel zmenit v parametrech, kdyz by se hlavicka (u vstupnich dat i u sheet vysledek) pusunula z B3 az E3 do B5 az E5?

Jak seradit hodnoty vzestupne podle sloupce Material v sheetu vysledek?
predem diky vitycitovat
Jeza.m(22.5.2013 22:01)#013409
Jeza.m
Nějak jsem si nevšiml :-).

Tak k tomu posunutí hlavičky - to je v makru definováno:
For rd = 4
kdy 4 = první řádek dat, takže při posunutí na B5 to bude:
For rd = 6

K tomu druhému, když nenapoví záznamník makra, tak na konec před End Sub vložit něco jako:
Sheets("Vysledek").Range("B3:E" & rdo).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

M@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje