Подправьте код

[strannick]

Добрый день, уважаемые форумчане!
Подправьте код, который не срабатывает. Причем, в другой юзерформе этого же файла проблем нет. Что я тут сделал не так?

Private Sub CommandButton2_Click()    'Добавить строки
    Application.ScreenUpdating = False
    
    If TextBox18 = "" Then MsgBox "Нет номера ваучера", vbCritical, "Ошибка": Exit Sub
    
    If TextBox18.Value = en Then 
    Sheets("Voucher").Cells("AJ16").Value = TextBox11
    ElseIf TextBox18.Value = ru Then
    Sheets("Ваучер").Cells("AP17").Value = TextBox11
            
    Application.ScreenUpdating = True
        
    MsgBox ("Информация добавлена")
    
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[nerv]

Val ue

\\\\\\\\\\

[strannick]

Это оно так скопипастилось. Конечно, же там пробелов нету. Причем пробовал и .Value b .Text и без них в разных вариациях

[EducatedFool]

Подправьте код, который не срабатывает

Что значит - не срабатывает?
Ошибку какую выдаёт?
Если да - то на какой строке?

[strannick]

В том-то и дело, что никакой не выдает. Проходит и сообщение выдается, что "Информация добавлена". А в искомых ячейках на этих двух листах ничего не появляется.

[alex77755]

замени Cells("AP17") на Range("AP17") или Cells(17,42) или просто [ap17]
И видимо отключены предупреждения об ошибках. Выполни

Application.DisplayAlerts = True

[The_Prist]

Кажется, Вы End If где-то потеряли...

Private Sub CommandButton2_Click()    'Добавить строки
    Application.ScreenUpdating = False
    
    If TextBox18 = "" Then MsgBox "Нет номера ваучера", vbCritical, "Ошибка": Exit Sub
    
    If TextBox18.Value = en Then 
    Sheets("Voucher").Cells("AJ16").Value = TextBox11
    ElseIf TextBox18.Value = ru Then
    Sheets("Ваучер").Cells("AP17").Value = TextBox11
    End If
    Application.ScreenUpdating = True
        
    MsgBox ("Информация добавлена")
    
End Sub

Возможно просто так скопировалось. Еще я посоветовал бы проверить какие значения у переменных en и ru. Может быть забыли присвоить? Сравнение происходит, но в обоих случаях результат False. А может это текст? Тогда записывать надо так:

If TextBox18.Value = "en" Then 
ElseIf TextBox18.Value = "ru" Then

[Virtuallab]

1. Второй if не закрыт.
2. Если ru и en не переменные, то их надо бы взять в скобки.

И как советовал alex77755 заменить Cells на Range.

[strannick]

Спасибо всем откликнувшимся. Разобрался с утра сам.

If TextBox18.Text = "en" Then

Вот такой вариант сработал. Честно говоря, вчера проверял этот вариант тоже - не срабатывал. Сам удивился, почему сюда и написал. А сегодня все прошло нормально. Мистика какая-то. Это меня донимают тени убиеннных макросов.

Спасибо еще раз всем!

[alex77755]

Sheets("Ваучер").Cells("AP17").Value =

Странно!? У меня такое обращение вызывает ошибку!
Кто что скажет?