У меня вопрос по теме. Идет копирование ячеек через цикл с предварительным вопросом, и если ячейки пустые или 0 она пишет все кроме заполненных. Как сделать запрос если она находит хотя бы одну >0 и далее уже без вопроса меняет все следующие? пробовал делать через ElseIf но она начинает работать с циклом совместно спрашивая для каждой ячейки
Скрытый текст |
---|
Sub FILL_TRUCK() Dim msg Dim r1, r2 As Range Set r1 = Sheets("GMATRIX").Range("A1:A31") Set r2 = Sheets("TRUCK").Range("C4:C34") msg = MsgBox("Вставить значения из Google maps?", 36, "Google maps") If msg = 6 Then: r1.Value = r2.Value For km = 1 To 31 If Sheets("TRUCK").Cells(km + 3, 5).Value = 0 Then Sheets("TRUCK").Cells(km + 3, 5).Value = Sheets("GMATRIX").Cells(km, 2).Value End If Next km If msg = 7 Then: Exit Sub End Sub |