Я пытаюсь запустить свою программу через 2 книги и 3 листа. чтобы проверить некоторые цифры для меня.Ошибка компиляции: Недопустимый квалификатор
Sub Validate_Old_Data()
Dim DBLbrow As Double
Dim DBLAbrow As Double
Dim DBLBbrow As Double
Dim STRname As String
Dim INTcc As Integer
Dim CopyRange As Range
DBLbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Do While BDLbrow > 5
STRname = Range("B" & DBLbrow).Value
INTcc = Range("C" & DBLbrow).Value
Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\P3 Centralized Charges Headcount Tracker (vs. 2015 Budget).xlsx").Activate
Worksheets(INTcc).Activate
DBLAbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Do While DBLAbrow > 8
If Range("B" & DBLAbrow).Value = STRname Then
CopyRange = Range(DBLAbrow).Row.Copy
Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\Charges Headcount Tracker (vs. 2015 Budget).xlsm").activatae
Worksheets(INTcc).activatae
DBLBbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If Range("B" & DBLBbrow).Value = STRname Then
Range(DBLbrow).Value = CopyRange
Else
DBLBbrow = DBLBbrow - 1
End If
Loop
Else
DBLAbrow = DBLAbrow - 1
End If
Loop
BDLbrow = BDLbrow - 1
End Sub
Но я получаю сообщение об ошибкеInvalid Qualifier, может кто-нибудь объяснить, почему?
Можете ли вы немного рассказать о том, что вы пытаетесь сделать с этим кодом? Может быть, сузить его до меньшего блока. –
Какая линия останавливается? – Sam
Он останавливается на первой линии ... У меня никогда не было этой проблемы раньше. Цель этого кода состоит в том, чтобы прокрутить список, найти соответствующее значение в электронной таблице B, а затем вернуть все данные, которые у меня есть в таблицу A. –