Příspěvky uživatele

Prakticky na jiném listu se stejnými daty bych potřeboval ještě jedno makro. Které by před kopírováním dat na jiný list omezilo oblast kopírovaných dat podle týdnu. Po spuštění makra by se dotázalo na počáteční a koncové číslo týdne a pak by řádky zkopírovalo na jiný list. Zkouším to pomocí InputBox, ale moc se zatím nedaří.
Rád bych poprosil o radu jakým směrem se vydat aby to fungovalo. Předem dík za pomoc

Dobrý den, rád bych poprosil o radu.
Makrem označím oblast buněk. Pak ji sloučím.

pocet1 = Range("L2")
Range("A2:A" & pocet1 + 1).Select

Jen bych pak potřeboval označit další následnou oblast, která pokračuje na dalším řádku. Jenže nevím jak zapsat začátek oblasti. Začátek se dynamicky mění podle konce první oblasti.

pocet2 = Range("L3")
Range("A???:A" & pocet1 + pocet2 + 1).Select

Pak následuje 3 oblast.....

Snad jsem to popsal srozumitelně.
Dík za radu

Funguje to přesně jak má.

Moc díky

Dobrý den, moc prosím o pomoc. Potřeboval bych poradit s vyplnění dokumentu ve Wordu z tabulky v Excelu.

Mám seznam jmen v Excel tabulce "seznam jmen.xlsx". Potřeboval bych asi nějaké makro. Které by do Wordu dotazník.docx doplnilo do řádku jméno z tabulky a uložilo dokument. Název uloženého souboru by bylo jméno.pdf
To samé by udělal automaticky se všemi jmény v sloupci A. V tomto příkladu by byly výsledkem 4 soubory pdf.

Předem moc děkuji za pomoc.

Za posledním řádkem se stejným týdnem vložit prázdný řádek a to samé za dalším týdnem. Snad jsem to popsal srozumitelně.

Zdravím,
rád bych poprosil o pomoc, nedaří se mi přijít na to jak upravit makro v přiloženém souboru. Potřeboval bych aby se při nakopírování dat do listu tisk. Přidal prázdný řádek při změně týdne v sloupci D. Děkuji předem.

Zdravím, jak to napsat aby nerozlišoval velká a malá písmena. Dík

Mám mnohem složitější soubor, s více listy, které jsou mezi sebou provázané daty, vyplním pouze první list a zbytek se automaticky doplní pomocí vzorců. Příklad je pouze zjednodušený. Dneska to dělám, tak, že všechny listy před tiskem upravím. Jen sem si říkal, že by bylo hezké vyplnit první list a zbytek jen vytisknout. Nemůžu na to přijít, takže asi zůstanu u ruční úpravy.

Zdravím,
nevíte někdo jak nastavit nebo vyřešit, tisk dokumentu se vzorci? Potřebuji vytisknout jen stránky s daty, stránek se vzorci bez dat si nevšímat.
V příloze mám jednoduchý příklad. Jde mě o to aby se vytiskl jeden list. Pokud možno i v záhlaví "list 1 z 1". Bez mazání řádků se vzorci.
Lámu si nad tím hlavu a nic mě nenapadá, nejspíš to ani bez smazání "prázdných" řádků nejde. Dík Milan

Díky všem,
po menší úpravě je problém vyřešen.

Dobrý den,
měl bych dotaz na převod filtrovaných dat. V přiloženém souboru je tlačítko, které převede požadovaný počet řádků (od aktivní buňky) na druhý list. Potřebuji tam dostat aby vzal pouze vyfiltrovaná data a skrytých řádků si nevšímal. Už se s tím mořím několik dní, ale je to nad moje síly.

To jak se kopírují formáty to vím.

Na všech, listech mám volné tlačítko, které bylo kdysi spojeno s makrem co už nepoužívám. Takže jsem si vytvořil makro a na všech listech jsem jen proklikal tlačítko a mám to.
Makro sem si nahrál při prvním listu, asi nic moc, ale účel splnilo.

Cells.FormatConditions.Delete
Range("D6:G998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With

Range("B6:C998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A($B6>0;$E6>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With

Range("D6:D998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(D:D;D6)>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With

Range("J6:J998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(D:D;J6)>0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With

Range("K6:K998").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$I$3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With

Range("I3:J3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$L$3=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With

End Sub

Ono to není pár kliků, těch pravidel tam mám celkem dost. (trochu se je snažím zredukovat)
vzorečky, různé oblasti atd.
Udělal sem si makro na každou podmínku. Když to makro na každém listu spustím, tak se mě formátování nastaví přesně jak má.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje