Příspěvky uživatele

Tak vyzkoušeno při změně systémového data a funguje pouze když vymažu ty jedničky ve sloupci K. Dá se s tím něco udělat??

Ahoj, smekám. Zatím funguje. Ale bude fungovat i v měsící říjen atd.? když je funkce následně vyrušena?
Abych se přiznal ve VBA jsem opravdu začátečník a jsem vděčný za každou radu.

Ahoj,potřebuji poradit s tímto problémem.
Mám sešit (vzor v příloze) kde mám pojmenované listy dle měsíců v roce. Dále list kde jsou vypsány trvalé platby podle kal.dnů. A potřebuji :
1. spustit makro při otevření sešitu
2. makro má za úkol zkontrolovat trvalé platby a pokud se shoduje kalendářní den a aktuálním datem, pak zapsat trvalou platbu tj. řádek A(číslo dle datumu)až řádek J(číslo dle datumu) do prvního volného řádku v daném listě dle akt. měsíce.
Asi moc komplikované, ale děkuji za případné návrhy.
radekb

Jsem trumbera.Šlo o to aby se mi po ověření konkrétní buňky A63(která se nachází na druhé stránce) v případě prázdné buňky vytiskla jen jedna stránka. V případě že se v buňce nachází číslo tak tisk obou stránek.Samozřejmě mám další data na druhé stránce i v jiných buňkách, jinak by se mě jen jedna stránka vytiskla automaticky a nemusel bych to ověřovat podmínkou že

Děkuji všem za odpovědi a příště budu líp popisovat problém.

Zdravím, potřebuji poupravit nebo zcela změnit toto Makro:
If (Range("A63") = "") Then
Range("A1:S62").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$62"
Application.Run "Protokol.xls!Tisk"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Range("A1:S134").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$134"
Application.Run "Protokol.xls!Tisk"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Jde mi o to že když mám na listu nějaké data na druhé stránce tak aby byli vytištěny dvě stránky. Pokud ne tak vytisknout pouze jednu stranu.

Ahoj,
díky za návody.Já jsem se pokoušel i sám a nakonec mi fugovalo tohle:
Range("S5").Select
If (Range("S5") = 0.01) = True Then
Sheets("0,01").Select
ActiveWindow.SmallScroll Down:=-111
Range("D13:P124").Select
Selection.Copy
Sheets("Radiální házivost").Select
Range("D13").Select
ActiveSheet.Paste

ElseIf (Range("S5") = 0.02) = True Then
Sheets("0,02").Select
ActiveWindow.SmallScroll Down:=-111
Range("D13:P124").Select
Selection.Copy
Sheets("Radiální házivost").Select
Range("D13").Select
ActiveSheet.Paste

ElseIf (Range("S5") = 0.025) = True Then
Sheets("0,025").Select
ActiveWindow.SmallScroll Down:=-111
Range("D13:P124").Select
Selection.Copy
Sheets("Radiální házivost").Select
Range("D13").Select
ActiveSheet.Paste

Else
MsgBox ("Není určena tolerance")
End If
End Sub
Ale vyzkouším i tvoje možnosti.
No a ještě jedna OTÁZKA
Lze kopírovat data i ze skrytých listů? Mě to po skrytí listů zahlásilo chybu.

Ahoj,tak zase potřebuji trochu trknout. Chci vložit do listu data, která jsou kopírována z listu jehož název mi určuje podmínka. Lidově řečeno:
1.označ buňku S5
2.Podmínka:
jestliže hodnota v buňce S5 = 0,02 vyber list ("0,02")/ jestliže hodnota v buňce S5 = 0,01 vyber list ("0,01")/ jestliže hodnota v buňce S5 = 0,025 vyber list ("0,025")/
3. Po vybrání kopírovat data do určeného listu..... ale s tím si už poradím
4.Pokud není ani jedna podmínka splněna:
MsgBox ("Není určena tolerance")
End If
Tak teď jen z "Lidově řečeno" to převést do VBA

Snad jsem to napsal srozumitelně a někdo mi poradí. Díky.

Díky za radu, jak prosté

funguje to.

Zdravím,
chtěl bych vyřešit problém při kopírování buňky se vzorcem. Při označení buňky a následném tažení se mi vzorec automaticky mění.Příkl. z A1 na A2 atd.Jak to ale udělat když mám ve vzorci závislost na určitou buňku a tu potřebuji zachovat?
Můj vzorec:
=KDYŽ(A(A14>=K6;A14<=L6);"0";KDYŽ(A14>L6;SUMA(A14-L6);KDYŽ(A14<K6;SUMA(A14+L6))))
Buňky K6 a L6 potřebuji při kopírování na další řádky zachovat. Tak snad mi někdo poradí.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje