zkus toto
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
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