Sub Zapis2()
Dim i As Byte
i = Range(Range("M20"), Range("M20").End(xlUp)).Row + 1
If i <= 7 Then i = 7
Cells(i, "M").Value = Range("B3").Value
End Sub
není ošetřeno pokud už jsou zadany všechny hodnoty.citovat
Zaslal/a
19.11.2014 19:37Ahojte, potreboval by som poradit chcel by som ovladaci prvok nastavit tak aby vkladal do tabulky cislenu hodnotu( pridam priklad), po stlaceni tlacitka prida hodnotu ale o riadok nizsie dakujem skusal som to ale nejak to nefunguje jak ma Dakujem za pomoc
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.