ввод и проверка значений из поля ввода

Question

помогите пожалуйста где ошибка. l oop без IF? Мне нужно загрузить код, проверьте, что первые 2 значения соответствуют ячейке. Убедитесь, что вы не дублируете в столбце А. И извлекайте коды, пока не будет достигнут необходимый номер. Спасибо, мой код:

Sub novy()

Dim aText(1)  As Variant
Dim n As Integer
Dim vstup As String
vstup = InputBox(aText(x))
Set hledat = Range("A:A").Find(what:=vstup, LookIn:=xlValues, LookAt:=xlWhole)

If vstup = "" Then ' in case the use press "Cancel"
       i = MsgBox("Chcete ukončit načítání?", vbYesNo)
        Select Case i

       Case vbYes

        Exit Sub

       Case vbNo

           Call novy

    End Select
ElseIf Left(vstup, 2) <> Range("D3").Formula Then
i = MsgBox("jiný modul!", vbExclamation)
ElseIf hledat Is Nothing Then

For n = 1 To 10
aText(1) = "Načti kód"
Sheets("data").Select
aLastRow = Cells(1, 1).CurrentRegion.Rows.Count + 1

For x = 1 To 1
    Cells(aLastRow, x) = vstup

  Next
Cells(10, 9) = n
'MsgBox n
Next n
MsgBox "Bedna je hotová"


Else
i = MsgBox("modul byl už načten!", vbExclamation)


   End If


End Sub

Answer 1

У вас есть ошибка в двух последних циклах for. вам не нужно 2 либо с «х» от 1 до 1 ..

For n = 1 To 10
aText(1) = "Načti kód"
Sheets("data").Select
aLastRow = Cells(1, 1).CurrentRegion.Rows.Count + 1
Cells(aLastRow, 1) = vstup

Next