'...
If ws.Range("B" & ws.Rows.Count).End(xlUp).Row <> 1 Then
ws.Range("B2:B" & lr).SpecialCells(12).Value = Date
End If
'...
sydcitovat
Zaslal/a Raders486 12.12.2016 20:56
Ahoj.
Potřeboval bych poradit.
Pokud je ve sloupci A číslo 1 až 3 tak vlož do sloupce B dnešní datum jako hodnotu a skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A
Pokud již ve sloupci B datum je skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A
Snad je to srozumitelné.
Pokud by bylo potřeba vzorovou tabulku doplním.
Děkuji
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.