Ошибка приложения / объекта во время специальной операции вставки

248
LifeisWild

Я работаю в этом коде уже неделю, я в некотором роде новичок в VBA и близок к тому, чтобы заставить его делать то, что мне нужно, но я продолжаю получать сообщение «Ошибка, определяемая приложением или объект», в Последняя линия. Мой код довольно прост, он запрашивает 3 импульса на позициях Sheet1, где они должны быть, затем копирует каждую информацию в первую строку Sheet2 в соответствующих ячейках, а затем ищет значение первого ввода или значение Первая ячейка с именем last4 (все еще работает над этим) добавляет строку прямо выше, где значение находится на sheet2, и затем копирует первую строку в эту новую пустую строку. Теперь, если бы я мог просто избавиться от этой ошибки и правильно найти нужную ячейку, все должно работать без сбоев, любая помощь приветствуется.

Sub CommandButton1_Click()  Dim Last4 As Variant Dim SerialNum As Variant Dim ExpDate As Variant Dim addaul As Worksheet  Do  Last4 = InputBox("Insert the last 4 numbers on the NSN for the Hazmat", "RECEIVED HAZMAT") Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Last4 Sheets("AUL").Range("A1").Value = Last4  If Last4 = Blank Then Exit Sub  SerialNum = InputBox("Scan the Serial Number of the Hazmat", "RECEIVED HAZMAT") Range("E" & Rows.Count).End(xlUp).Offset(1).Value = SerialNum Sheets("AUL").Range("H1").Value = SerialNum  If SerialNum = Blank Then Exit Sub  ExpDate = InputBox("Insert the expiration date for the Hazmat", "RECEIVED HAZMAT") Range("F" & Rows.Count).End(xlUp).Offset(1).Value = ExpDate Sheets("AUL").Range("I1").Value = ExpDate  If ExpDate = Blank Then Exit Sub  Sheets("AUL").Select Sheets("AUL").Range("A1").Select Application.CutCopyMode = False Selection.Copy Sheets("AUL").Cells.Find(What:="Last4", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Application.CutCopyMode = False Selection.EntireRow.Insert  Sheets("AUL").Range("A1:O1").Copy Sheets("AUL").Range("A1:O1" & Rows.Count).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues <------ ERROR LINE IS THIS ONE  Loop Until Last4 = Blank End Sub
1

0 ответов на вопрос

Похожие вопросы