Заполнение ячеек из другого листа в VBA

Question

Я создаю инструмент, который заполняет список частей, подлежащих проверке из списка деталей на 2-м листе (PARTS). Части находятся в классах (A, B или C), поэтому инструмент использует генератор случайных чисел, чтобы выбрать, какую строку проверять класс детали. Я получаю 1004 runtime error, когда я пытаюсь проверить класс партии и буду признателен за получение помощи вокруг этого. Вот цикл, который дает мне ошибку:

'While loop to obtain 6 A-Class part numbers to audit 
Dim rand As Variant 

Do While Acount <= 6 
    'Random number generator 
    rand = Int((6451 - 2 + 1) * Rnd + 2) 
    'checking part class ***If statement gives error*** 
    If Sheets("PARTS").Cells(rand, 5).Value = "A" Then 
     Acount = Acount + 1 
     'audit list copies cell from parts list 
     Sheets("AUDIT POPULATOR").Cells(Acount, 1).Value = Sheets("PARTS").Cells(rand, 1).Value 
    Else 
     Acount = Acount 
     Sheets("AUDIT POPULATOR").Cells(Acount, 1).Value = "" 
    End If 
Loop 

Answer 1

, потому что вы Didnt инициализации «ACount» переменной, поэтому его пустым, следовательно, вы получите ошибку 1004. Также я рекомендую использовать «вариант явно» заявление, чтобы предотвратить такие ошибки. вот ваш код с недостающими частями:

Option Explicit 
Private Sub CommandButton1_Click() 
'While loop to obtain 6 A-Class part numbers to audit 
Dim rand As Variant 
Dim Acount As Integer 
Acount = 1 ' 1 or whatever number you would like to get start... 
Do While Acount <= 6 
'Random number generator 
rand = Int((6451 - 2 + 1) * Rnd + 2) 
'checking part class ***If statement gives error*** 
If Sheets("PARTS").Cells(rand, 5).Value = "A" Then 
    Acount = Acount + 1 
    'audit list copies cell from parts list 
    Sheets("AUDIT POPULATOR").Cells(Acount, 1).Value = Sheets("PARTS").Cells(rand, 1).Value 
Else 
    Acount = Acount 
    Sheets("AUDIT POPULATOR").Cells(Acount, 1).Value = "" 
End If 
Loop 
End Sub