Моя цель состоит в том, чтобы создать код, который принимает процентную ошибку из листа 1 (столбец F), а затем, если процентная ошибка меньше 0,5%, он принимает значения из столбцов A: D, которые соответствуют столбцу f (например,если бы процент ошибок F6 был ниже 0,5%, программа скопировала бы A6: D6), скопировала бы ячейки и вставила их в лист 2. Затем этой программе необходимо циклически просмотреть все значения в столбце f и повторить этот процесс.
Я успешно скопировал и вставил нужные мне ячейки, используя приведенный ниже код без оператора If.Тем не менее, я не могу получить код, который зависит от процента ошибок.
'Запуск командной кнопки
Private Sub CommandButton1_Click()
Dim i As Long
Dim ii As Long
Dim i3 As Long
Dim LastRow As Long
Dim wb As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Dim Myrange As Range
Dim PerecntError As Integer
Set wb = ThisWorkbook
Set sht1 = wb.Sheets("RawData")
Set sht2 = wb.Sheets("FilteredData")
'Find the last row (in column A) with data.
LastRow = sht1.Range("A:A").Find("*", searchdirection:=xlPrevious).Row
ii = 2
i = 3
'This is the beginning of the loop
For i = 1 To LastRow
If sht1.Range("F" & ii < 0.5) Then
'First activity
sht2.Range("A" & ii) = sht1.Range("A" & i).Value
sht2.Range("B" & ii) = sht1.Range("B" & i).Value
sht2.Range("C" & ii) = sht1.Range("C" & i).Value
sht2.Range("D" & ii) = sht1.Range("D" & i).Value
ii = ii + 1
i = i + 1
End If
Next
End Sub
Ошибка, которую я получаю, заключается в том, что "Несоответствие типов" для этой строки: "Если sht1.Range (" F "& ii <0,5) Тогда "</p>
Любая помощь будет принята с благодарностью.