Zaslal/a nordscan 19.9.2017 15:35
Zdravim potreboval by som poradit ako prerusit tento cyklus pokial
tb.leght < 199
tak ze nevlozi hodnoty do buniek, ale uz len vymaze hodnoty z textboxov
vdaka
......................................
Range("A9").Select
i = 1 'set as the first ID
Do Until ActiveCell.Value = Empty
ActiveCell.Offset(1, 0).Select 'move down 1 row
i = i + 1
Loop
ActiveCell.Value = i 'Next ID number
ActiveCell.Offset(0, 1).Value = tbLenght - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 3).Value = tbWidth - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 5).Value = tbQty.Text
ActiveCell.Offset(0, 7).Value = tbNote.Text & "-Kazeta (" & tbLenght.Text & "-" & tbWidth.Text & ")"
tbLenght.Text = Empty
tbWidth.Text = Empty
tbQty.Text = Empty
tbNote.Value = Empty
tbLenght.SetFocus 'positions the cursor for next record entry
End Sub
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.