Кнопка обновления в пользовательской форме не обновляется - PullRequest
Новая
       14

Кнопка обновления в пользовательской форме не обновляется

0 голосов
/ 05 ноября 2019

В моей пользовательской форме есть кнопка сохранения, которая обновляет значения или тексты из моих текстовых полей на листе. Из 6 текстовых полей обновляется одно верхнее текстовое поле.

При запуске кода нет сообщений об ошибках. 

Private Sub save1_Click()
    row_number = 2
    Do
     DoEvents
     row_number = row_number + 1
     item_in_review = Sheets("Codes").Range("A" & row_number)

     If item_in_review = code1.Text Then
        Sheets("Codes").Range("B" & row_number) = brand1.Text
        Sheets("Codes").Range("C" & row_number) = feed1.Text
        Sheets("Codes").Range("D" & row_number) = bag1.Text
        Sheets("Codes").Range("E" & row_number) = cost1.Value
        Sheets("Codes").Range("F" & row_number) = srpbag1.Value
        Sheets("Codes").Range("G" & row_number) = srpkg1.Value
     End If
     Loop Until item_in_review = ""
End Sub
...