• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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.

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

Po editaci D42 skočí na E13

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

@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.

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

ještě jedna úprava

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

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 ?

Application.DisplayAlerts = False

potlačí hlášky

nezapomenout zase nastavit na true

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.

?

tak, či jinak ?

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

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje