Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing And Cells(1, 1) <> "" Then Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(1, 1)
End Subcitovat
Zaslal/a
14.8.2015 15:53Potřebuji:
mám buňku třeba (A1) když do ní zadám datum potřebuji aby se datum zkopírovalo do buňky třeba (B1) jenže potřebuji když zadám jiné datum do buňky (A1) aby se zadalo nové datum do buňky (C1) a v buňce B1 zůstalo původní datum.shrnutí je takové že potřebuji vždy když zadám nové datum do buňky A1 aby se vyplňovalo do další a další buňky
díky za odpovědi
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.