Advertisement
Guest User

Untitled

a guest
Jul 25th, 2017
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. For irs = 0 To Me.dgw.SelectedRows.Count - 1
  2. For ic = 0 To 20
  3. Me.dgw.SelectedRows(irs).Cells(ic + 3).Value = _
  4. Me.dgw.Rows(Me.ComboBoxCopyFromLine.SelectedValue).Cells(ic + 3).Value
  5. Call checkLine(Me.dgw.SelectedRows(irs).Index) ' just validation
  6. Next
  7. Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement