Poradna - Doplnění položek do sloupce bez vzorce

Ještě posílám vzorový soubor
Odpověď

Měl si na mysli tohle?
Odpověď

Díky moc, to je ono. Jen ve skutečnosti ty sloupce nejsou hned vedle sebe, ale je mezi nimi šest dalších. Bude to mít vliv na změnu kodu?
Odpověď

Ještě jedna věc. Ten sloupec, který se kopíruje obsahuje vzorec a měl by tam zůstat a do cílového sloupce kopírovat jen hodnoty bez vzorců. To jsem v původním zadání zapomněl uvést. Omlouvám se a moc děkuji za pomoc.
Odpověď

Pr.
Odpověď

Tak to je přesně ono. U vás to funguje krásně, ale u mě ne. Asi jsem kopyto. V příloze posílám sktutečný list, kam to potřebuji i s mými neodbornými úpravami. Doplnil jsem čísla sloupci a (asi) název listu, kde se to mám odehrávat. Kdybyste byl tak hodný a opravil mi to. Moc děkuji.
Odpověď

Místo With DS zadej With List4
Odpověď

Do konštánt STLP1 a STLP2 si kľudne dajte "Y" a "AE" ak je to pre Vás zrozumiteľnejšie. Za príkazom With Vám chýba tzv. CodeName listu DS. Ak označíte list vpravo vo VBA, tak vpravo v spodnej časti Properties je položka s názvom Name. Teraz je tam List4. Tú si zmeňte na niečo zmysluplné napr. wsDS. Potom bude jedno čo bude mať list napísané dole na ušku. Makro ho bude poznať pod interným názvom wsDS. Teda príkaz With bude vyzerať takto: With wsDS
Odpověď

Heh, pardon, vpravo ... myslím samozrejme vľavo. :))
Odpověď

Díky moc pánové. Už to funguje. Jste super.
Odpověď

Jestli bych vás mohl ještě zneužít. Je možné do níže uvedeného makra místo natvrdo uvedených datumů doplnit datumy uvedené na listu "Menu" v buňkách "E16" (od) a "E17" (do)? Moc děkuji za radu. Sheets("Fakturace").Select ActiveSheet.PivotTables("Kontingenční tabulka1").PivotFields("Datum"). _ PivotFilters.Add2 Type:=xlDateBetween, Value1:="13.12.2020", Value2:= _ "14.12.2020" Range("B1").Select End Sub
Odpověď

With Sheets("Fakturace").PivotTables("Kontingenční tabulka1").PivotFields("Datum") .ClearAllFilters .PivotFilters.Add2 Type:=xlDateBetween, Value1:=CDbl(Sheets("Menu").Range("E16")), Value2:=CDbl(Sheets("Menu").Range("E17")) End With
Odpověď

Díky, ale hlásí mi to compilační chybu. Možná mi hvězdičkou označte konce řádků. Ono se to tady slévá.
Odpověď

Tento web nepozná koniec riadku, to je katastrofa !
Odpověď

Díííky moc. Už to funguje a je to naprosto geniální.
Odpověď