< návrat zpět

MS Excel

Téma: doplnění dat z jiného sheetu makrem rss

Zaslal/a LeslieBrown 4.4.2015 17:59

Ahoj,

mám rozdělané makro, které me do sheetu1 doplní data ze sheetu2. Soubor přikládám v příloze pro lepší představu. Zeleně vyznačená část je ta, kterou makro doplní natvrdo, žlutě (snad je to žlutá barva, nebo oranžová) je to, co se mě načte z sheet2.

Zasekl jsem se ale u kroku, kdy potřebuju, aby se mě doplnili ještě 4 řádky, s tím, že část by doplnilo makro natvrdo (v dokumentu vyznačeno) a do buňek K13:K16 by dotáhlo SUMIF ze sheetu2.

Soubor v příloze, myslím že po otevření souboru to bude jasnější.

Ďekuji předem za pomoc :) moc mě to pomůže 1 1 1

Příloha: zip24398_sample.zip (9kB, staženo 27x)
Zaslat odpověď >
elninoslov(4.4.2015 22:10)#024401
elninoslov
SUMIFS mi dáva chybu, tak spočítaš 2 SUMIF :

Sub pokus()
' VARIANT 1
With Sheets("Sheet1")
.Range("K13") = Application.SumIf(Sheets("Sheet2").Range("C2:C12"), "=2615100103", Sheets("Sheet2").Range("F2:F12")) + _
Application.SumIf(Sheets("Sheet2").Range("C2:C12"), "=2615100104", Sheets("Sheet2").Range("F2:F12"))
' ostatné obdobné ...
End With
' VARIANT 2
With Sheets("Sheet1")
.Range("K13").Formula = "=SUMIF(Sheet2!C2:C12,""=2615100103"",Sheet2!F2:F12)+SUMIF(Sheet2!C2:C12,""=2615100104"",Sheet2!F2:F12)"
.Range("K13").Value = .Range("K13").Value
' ostatné obdobné ...
End With
End Subcitovat

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