VBA Excel 2010 - Ошибка выполнения «1004» Application или объекта-deined ошибка

Question

EDIT:

Таким образом, появляется мой первенствовать документ содержит мой код поврежден, таким образом, приводит к весьма необычной проблемой, я благодарю вас все за помощь, которую вы дали. Это было решено путем перемещения всех макросов и листов в новый документ excel.

Код ниже получит сообщение об ошибке «Ошибка выполнения» 1004 «Определенная приложением или ошибка объекта» на ActiveCell.Offset(1, 0).Select внизу, но при этом запускается код также оленья кожа запускать [C7].Select часть либо (но нет никакого сообщения об ошибке в этой точке)

Я попытался с помощью, Range("C7").select и Cells(7,3).select, которые также не работают. Я также пробовал Application.Wait, чтобы узнать, был ли макрос слишком быстрым, но это также не решает проблему, я удалил Application.ScreenUpdating = False и снова это не работает.

Я пробовал этот макрос на 4 разных ПК и 2 разных версиях excel, и все они имеют одинаковую проблему.

EDIT:

Просто, чтобы очистить вещи, как я думаю, что мой explination выше, может быть немного неясным

Проблема в настоящее время с этим участком кода

[C7].Select 
'Do Until ActiveCell.Row >= Finalrow 
'drop out of loop if no more dates detected in row 3 
Do Until sName = Cells(ActiveCell.Row, 1).Value 
ActiveCell.Offset(1, 0).Select 
Loop 

Что происходит когда я запускаю код в эту часть кода, это сообщение об ошибке выше появится на ActiveCell.Offset(1, 0).Select этой строке, однако [C7].Select также не выбирает ячейку C7 (она остается в ячейке который уже был выбран).

Предполагается, что он пройдет по ячейкам в столбце C, смотрящим на столбец A, до тех пор, пока он не достигнет имени лица (определяется sName), как только он доберется до этого, он будет запускать остальную часть кода (что я нету вывешен на я не могу получить дальше, чем этот момент, я могу отправить все это по желанию)

---

Option Compare Text 
Public sLeave As Integer, iAnnualLeave As Integer, sLeaveType As String 

Sub LeaveChecker() 

Dim iAnnualLeave As Integer 

bTrackingLeave = False 
bReachedEndOfChart = False 
bStartDateFound = False 

'Set Color with If Statement 



sTypeOfLeave = [D12].Value 

If sTypeOfLeave = "Annual Leave" Then 
sLeaveType = "AL" 
ElseIf sTypeOfLeave = "Flexi Leave" Then 
sLeaveType = "FL" 
sLeaveTypeAmPm = "FL???" 

ElseIf sTypeOfLeave = "Special Leave" Then 
sLeaveType = "SpL" 
ElseIf sTypeOfLeave = "Study Leave" Then 
sLeaveType = "StL" 
ElseIf sTypeOfLeave = "Meeting/Traning" Then 
sLeaveType = "M/T" 
End If 

'Check to see if type of leave is populated 
If sTypeOfLeave = "" Then 
MsgBox ("Please Populate Type Of Leave") 
End If 




Application.ScreenUpdating = False 

'Find last sheet name 
Set ws = Sheets(Sheets.Count) 
sLastSheet = ws.Name 

sName = [M3].Value 

If sName = "" Then 
MsgBox ("Please Enter A Staff Members Name") 
Exit Sub 
End If 

Sheets(ActiveSheet.Index + 1).Activate 

SearchNewSheet: 

If ActiveSheet.Name = sLastSheet Then 
bReachedEndOfChart = True 
GoTo LastStage 
End If 

Do Until ActiveSheet.Name = sLastSheet 'Main LOOP~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

If bReachedEndOfChart = True Then GoTo FinalGather 

'Find Person Name 


[C7].Select 
'Do Until ActiveCell.Row >= Finalrow 
'drop out of loop if no more dates detected in row 3 
Do Until sName = Cells(ActiveCell.Row, 1).Value 
ActiveCell.Offset(1, 0).Select 
Loop 

Answer 1

тем, которые help,

Проблема решена, поскольку это было повреждением в моей книге.

Поскольку это было исправлено (Перенести все в новый документ Excel) мой оригинальный код теперь работает нормально

Спасибо всем тем, что помогает

Answer 2

Надежда теперь я понимаю, код ниже найти номер строки в колонке C, где имя совпадает с именем в ячейке A7.

' find last row in Column C 
last_row = Cells(Rows.count, "C").End(xlUp).Row 

' find row number in column C where the name is identical to cell A7 
row_found = Application.WorksheetFunction.Match(Range("A7"), Range("C1:C" & last_row), 0) 
MsgBox " Name found at Cell C" & last_row 

Answer 3

Я беру этот вопрос быть: -

Он должен бежать вниз ячейки в столбце С, глядя на колонке А до тех пор, пока не достигнет имена людей (определяется SNAME) после того, как он попадает в то есть выйдет из цикла и продолжит работу с остальной частью кода.

(Выше перефразировать из Вашего вопроса)

код я предлагаю заменить это: -

[C7].Select 
'Do Until ActiveCell.Row >= Finalrow 
'drop out of loop if no more dates detected in row 3 
Do Until sName = Cells(ActiveCell.Row, 1).Value 
ActiveCell.Offset(1, 0).Select 
Loop 

Замена его ниже будет решить проблему с минимальными изменениями: -

ActiveSheet.Cells(7, 3).Select 
Do Until sName = Cells(ActiveCell.Row, 1).Value 
    ActiveCell.Offset(1, 0).Select 
Loop 

Однако, использование select не рекомендуется, и если sName не найден, это будет продолжаться до конца листа, где будет выбрасываться erro r, что означает превышение максимального размера листа.

Я хотел бы предложить ниже как лучшая замена: -

Dim LngRow As Long 
LngRow = 7 
Do Until (ActiveSheet.Cells(LngRow, 1) = sName) Or (ActiveSheet.Cells(LngRow, 1) = "") 
    LngRow = LngRow + 1 
Loop 
If ActiveSheet.Cells(LngRow, 1) = "" Then 
    MsgBox "Pearson not found" 
    Exit Sub 
Else 
    ActiveSheet.Cells(LngRow, 3).Select 
End If 

(я поставил ActiveSheet.Cells(LngRow, 3).Select в конце в качестве оставшегося кода может полагаться на клетки выбирают)