Příspěvky uživatele

Strana: 1 ... « předchozí 29 30 31 32 33 34 35 36 37 další » ... 77

VBA - vzorec v textovém poli formuláře (29.10.2013 22:22)

V příkladu jsem použil stejné označení listu i Userformu tak , jak to bylo v tvém kódu. Já bych ale stejné jméno pro list a UForm nepoužíval. Není to na závadu, ale mate to.

hypeertextová nabídka (29.10.2013 14:30)

že by vrána čekala skoro tři roky na odpověď se mi ani nechce věřit ....

posunutia na stlpec (29.10.2013 14:27)

Po editaci D42 skočí na E13

kumulativní součet (28.10.2013 19:03)

Jde to i bez makra, s jakýmsi "grafickým" zobrazením (List2) a několika vzorci.
edit: zkoušel jsem to jen výpočty, ale pohořel jsem na stejných datumech. Určitě to řešitelné je.
eLCHa to dá
@Palooo - super
edit:
řadit není třeba ručně u Palooova kodu.
Mezi poslední NEXT a END SUB můžeš vložit kod pro řazení dle data.
např:
shName = ActiveSheet.Name
Range("A1:B" & Z).Select
ActiveWorkbook.Worksheets(shName).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(shName).Sort.SortFields.Add Key:=Range("A1:A" & Z), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(shName).Sort
.SetRange Range("A1:B" & Z)
.Apply
End With
Range("A1").Select

kumulativní součet (28.10.2013 13:59)

@Palooo
je to takto:
1.1.X odejdou na práci 2 lidi až do 26.2.X
6.1.X odejdou na práci 8 lidí až do 8.1.X
k 6.1.X má tedy 10 lidí někde na práci
ale 8.1.X se mu vrací 8
takže 8.1. jsou venku 2
12.1. odejdou 4 = venku je 6
atd.

Makro smazání více řádků dle vyhledání (28.10.2013 8:25)

pouze doplnění jednoho řádku do stávajícího kodu
1:
If lin = rMax Then Exit Sub
If Cells(lin, "F") = 0 Then

Makro smazání více řádků dle vyhledání (27.10.2013 11:21)

ještě jedna úprava

Makro smazání více řádků dle vyhledání (26.10.2013 1:48)

upravené (předchozí byl s chybou - vymazal jsem)

Makro smazání více řádků dle vyhledání (25.10.2013 18:54)

Jak tedy?
Když se ve skupině třeba 20 stejných datumů objeví v sl. F 1x NULA, tak smazat celý blok stejných dní, i když u některých nula nebude ?

Jak potlacit potvrzovaci dialog pri behu makra (24.10.2013 21:30)

Application.DisplayAlerts = False

potlačí hlášky

nezapomenout zase nastavit na true

DoEvents nechtěně zastaví makro (24.10.2013 18:10)

Nikdy jsem s tou fcí nic nedělal, tak jen zkouším.

Pokud napíšu toto
Sub MM()
Do
K = K + 1
Debug.Print K
If K > 100 Then DoEvents: K = 0
Loop
End Sub

všechno jede. Jakmile změním debug.Print na zápis do buňky listu, pak skončí v jakémsi "zablokovaném" stadiu. Kurzor nereaguje na šipky, musí se někam kliknout myší.

Takže neporadil jsem, jen to co jsem zjistil u sebe.

VBA - vzorec v textovém poli formuláře (24.10.2013 17:17)

vytvoření sloupce s časem (23.10.2013 18:15)

tak, či jinak ?

přeměna textu na vzorec (23.10.2013 13:55)

fce (makro) která zobrazí vzorec v příloze

přeměna textu na vzorec (23.10.2013 13:49)

Myslím, že se to tu nedávno řešilo.
http://wall.cz/index.php?m=topic&id=15503