Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Doplnění položek do sloupce bez vzorce
hlavní kategorie | zpět | + odpovědět na toto téma| Doplnění položek do sloupce bez vzorce - diskuze na toto téma |
| Zdravím, zase prosím o radu. Potřeboval bych do datového skladu dodatečně doplnit položky bez použití vzorce. Použil bych nejspíš makro, ale nedaří se mi ho vymyslet. Jde o doplnění položek do prázdných buněk ve sloupci. Ve sloupci jsou některé buňky vyplněné a ty prázdné potřebuji doplnit. Moc děkuji za radu. 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ěď 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ěď 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ěď 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ěď |
