как решить сделать пока цикл для ввода данных - PullRequest
Новая
       29

как решить сделать пока цикл для ввода данных

0 голосов
/ 29 ноября 2018

Я сделал пользовательскую форму, когда пользовательский ключ данных вставляется в другой лист.Это работает какое-то время.но когда введенные данные достигли более 600 строк.это останавливается, и данные помещаются в случайные ячейки на листе или просто не могут быть найдены.как это решить?он включает в себя много данных.

часть кода приведена ниже 

Sheet4.Range("B7").Select

Dim J As Integer

Do While IsEmpty(ActiveCell.Offset(J, 0)) = False
    J = J + 1
Loop

ActiveCell.Offset(J, 0) = UserformSample.TextBox1.Value


If UserformSample.CheckBox1.Value = True Then
ActiveCell.Offset(J, 1) = "X"
Else
ActiveCell.Offset(J, 1) = ""
End If


If UserformSample.CheckBox3.Value = True Then
ActiveCell.Offset(J, 2) = "X"
Else
ActiveCell.Offset(J, 2) = ""
End If

ActiveCell.Offset(2, 0).Select 


End Sub
...