< návrat zpět

MS Excel

Téma: VBA: Zamknutí buněk podle datumu rss

Zaslal/a CFC48 21.5.2021 14:37

Ahoj,

mám dva sloupce, kde treba v A:A jsou datumy a v B:B se budou doplnovat hodnoty. Potreboval bych zamknout vsechny bunky ve sloupci B:B, které budou od aktualniho dnesniho dne na nasledujicich 14 dni. Jeste k tomu vsechny bunky, ktere jiz jsou po aktualnim dnesnim dnu, tak aby zustaly zamcene. Takze by to byl takovy klouzavy zamek od dnesniho dne na nasledujicich 14 dni.

Díky moc za jakoukoliv radu!

Zaslat odpověď >
Strana:  « předchozí  1 2 3   další »
CFC48(31.5.2021 17:14)#050768
avatar
Funguje to skvěle! 1

Ještě se chci zeptat, když chci zamknout buňky ve sloupci "I" (9. sloupec) podle logiky: vsechno od dnesniho datumu na nasledujici rok. Zkopiroval jsem cast prikazu s upravou, ale zamika mi to vsechny minule datumy k dnesnimu datumu.

For Each cell In oblast
If cell.Value >= Date And cell.Value < Date + 15 Then
Sheets(jmenoListu).Cells(cell.Row, 6).Locked = True
End If

If cell.Value >= Date And cell.Value > Date + 365 Then
Sheets(jmenoListu).Cells(cell.Row, 9).Locked = True
End If

Nextcitovat
Jiří497(1.6.2021 0:13)#050769
avatar

CFC48 napsal/a:

cell.Value >= Date And cell.Value > Date + 365 Then
Tak jak to máte napsáno tady, tak to zamkne všechny buňky za rok a více.
Dnes je 1.6.2021. Zamknuté budou buňky 2.6.2022, 3.6.2022,4.6.2022...atd.

Jestli chcete mít zamčené buňky 1.6.2021 - 31.5.2022, tak musíte změnit druhé znaménko: If cell.Value >= Date And cell.Value < Date + 365 Then
Sheets(jmenoListu).Cells(cell.Row, 9).Locked = True
End Iftzn. zamkni buňky ve sloupci 9, když je datum ve sloupci 1 stejný nebo větší jak dnešní den a zároveň je menší než datum za 365 dní.

Jestli vám to zamyká jen minulé datumy, tak tam máte zřejmě if cell.Value < Date then nebo tam máte nějaký jiný zádrhel.citovat
CFC48(2.6.2021 13:33)#050782
avatar
Bohužel mi to stále zamyká minulé datumy ve sloupci I. 7
Příloha: zip50782_gma_v2.zip (70kB, staženo 15x)
citovat
CFC48(2.6.2021 15:28)#050783
avatar
Tak beru zpět, funguje to perfektně! 1
Měl jsem sloupec I zamknuté buňky.citovat
CFC48(3.6.2021 15:58)#050791
avatar
Nevím, co se pokazilo, ale dneska to opět zamyká, jak nemá. 7 Sloupec F zamyká až do 20.6., přitom by to mělo být zamknuté do 17. a sloupec I zamkl 2.6., které by ale mělo být dnes otevřené.

Moc prosím ještě o pomoct.
Příloha: rar50791_gma_v2.rar (71kB, staženo 12x)
citovat
Jiří497(3.6.2021 20:13)#050792
avatar
Nic se nepokazilo. Mně to funguje správně. Vámi uvedené zamknuté buňky se tam musely dostat jinak.

Do kodu jsem doplnil příkaz, který buňku, kterou makro zamyká, tak zároveň přeškrtne. Ať je vidět, s kterými buňkami se pracuje.
Příloha: zip50792_gma_v2.1.zip (73kB, staženo 14x)
citovat
CFC48(3.6.2021 23:46)#050793
avatar
Dělá mi to samé i ve Vámi zaslaném souboru, i když přeškrtnuté buňky jsou správně 7
Vůbec mě nenapadá, jak by se to tam mohlo dostat jinak...
Příloha: png50793_gma.png (27kB, staženo 26x)
50793_gma.png
citovat
Jiří497(4.6.2021 1:20)#050794
avatar
A co teď?
Příloha: rar50794_gma_v2.2.rar (73kB, staženo 13x)
citovat
CFC48(4.6.2021 9:53)#050795
avatar
Sloupec F již v pořádku. Jen ve sloupci I o den zpět se stále zamyká...
Příloha: png50795_gma3.png (19kB, staženo 19x)
50795_gma3.png
citovat
Jiří497(4.6.2021 12:40)#050798
avatar
Ale to je přece v zadání.
Když si otevřu soubor 2.6, tak se zamknou buňky od 2.62021 do 1.6.2022.
Když pak otevřu soubor 3.6, tak se zamknou buňky od 3.6.2021 do 2.6.2021 a to co bylo zamknuté (tedy 2.6.2021), tak zamknuté zůstává.

V přiloženém souboru jsou zamknuty buňky od 4.6.2021.
Příloha: zip50798_gma_v2.2.zip (74kB, staženo 19x)
citovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje