ввод данных через форму

[brans]

Добрый вечер!!! если у кого-то есть свободная минутка, посмотрите пожалуйста код, почему-то выдаёт ошибку, хотя я вродебы всё правильно сделала(

[doober]

Row = Application.CountA(Sheets("Товары").Range("A:A")) + 6

ЗЫ:Row-это не самое хорошее имя для переменной

[vikttur]

.Cells(Row, 2).Value = наименование - кавычек не надо?

Отдайте мои слова назад
Это же переменная!

[brans]

всё равно ошибка в .ComboBox1.Text = единицаизмерения

[brans]

Сообщение от vikttur

.Cells(Row, 2).Value = наименование - кавычек не надо?

Отдайте мои слова назад
Это же переменная!

думаю кавычек не надо

[vikttur]

Dim код, наименование, ..., странапр As String
Только последняя переменная String, остальные определяются как Variant
Нужно каждую уважить - ... As String

За кавычки - глупость, я сразу исправился

[doober]

Так работает,проверил.

 With Sheets("Товары")
 .Cells(Row, 1).Value = код
 .Cells(Row, 2).Value = наименование
 .Cells(Row, 3).Value = единицаизмерения
 If уе = True Then
 .Cells(Row, 4).Value = цена
 Else
  .Cells(Row, 5).Value =  цена
 End If
   .Cells(Row, 6).Value = цена
 
 .Cells(Row, 10).Value = производитель
 .Cells(Row, 11).Value = странапр
 End With

Я даже знаю следующий вопрос.

[brans]

Сообщение от doober

Так работает,проверил.
[/CODE]

Я даже знаю следующий вопрос.

как так. я ещё пока сама в недоумении, нужно осмыслить, а Вы уже вопрос знаете))))

[brans]

Сообщение от doober

Так работает,проверил.
[/CODE]

Я даже знаю следующий вопрос.

как так. я ещё пока сама в недоумении, нужно осмыслить, а Вы уже вопрос знаете))))

[brans]

a какой должен был быть следующий вопрос?