Я хотел бы заранее поблагодарить всех за просмотр поста и за попытку помочь.Я новичок в написании, поэтому код грязный и может нуждаться в улучшениях.
По сути, мой код работает, но выдает сообщение об ошибке 400 ??
Код - если в ячейке A2 до A1000 есть какая-либо буква, число и / или символ, поместите сегодняшнюю дату в ту же строку в столбце E. Если в ячейке A2 до A1000 нет буквы,номер и / или символ, он должен оставить его пустым, иначе мой этикетировочный аппарат сойдет с ума, напечатав пустые этикетки :) Он работает, но получает сообщение об ошибке 400.Пожалуйста, смотрите прикрепленную картинку.
Кроме того, у меня есть другой код, который кто-то помог, но наполовину закончил.Он показывает, где были изготовлены детали, выполняя поиск в таблице, которую я создал в той же книге на листе под названием «формула».Таблица содержит два столбца информации, которая является PART NUMBER & ORIGIN, и после нажатия кнопки макроса она генерирует информацию ORIGIN путем поиска в таблице и помещает ее в «лист слияния», где находится соответствующий номер детали, и помещает его в ту же строку.Колонка F. Тем не менее, мне нужно, чтобы вы, ребята, помогли мне написать код, в котором, если в таблице нет данных PART NUMBER и ORIGIN, я бы хотел, чтобы по умолчанию использовался источник "USA" для "листа слияния" в колонке F.
Пожалуйста, посмотрите код ниже и помогите мне.Заранее спасибо.
Sub dural()
Dim r As Range
For Each r In Range("A2:A1000")
If r.Value <> "" Then r.Offset(0, 4) = Date
Next r
For i = 2 To 1000
Worksheets("Mail Merge Sheet").Cells(i, 6).Value = Application.WorksheetFunction.VLookup( _
Worksheets("Mail Merge Sheet").Cells(i, 2).Value, Worksheets("FORMULAS").Range("A:B"), 2, 0)
Next
End Sub