Добавить условие в макрос

[Pilot]

Уважаемое сообщество!
Есть макрос:
Sub flying_shifts()
Dim i As Long, acontrol As Date, icounter As Long
Application.ScreenUpdating = False: With Sheets("ХРОНОМЕТРАЖ")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Лист2").Cells(6, 4) _
And .Cells(i, 1) <= Sheets("Лист2").Cells(6, 6) Then
acontrol = .Cells(i, 1): icounter = icounter + 1: End If: Next: End With: Sheets("Лист2").Cells(14, 7) = icounter
Application.ScreenUpdating = True: End Sub

Добавляю условие:
....
If .Cells(i, 5) = "УТП" And .Cells(i, 29) = "вне базы" And .Cells(i, 1) <> acontrol .......

И.. ничего, вернее результат есть, считает только по первому условию.
Подскажите, где собака порылась

[Dophin]

а для Вас есть разница между "вне базы" и "вне базы " ? а для макроса?

И еще один вопрос не по теме - Вы специально пишете код так чтобы в нем было неприятно разбираться? Зачем эта идиотская запись в одну строку?

[Pilot]

Сообщение от Dophin

а для Вас есть разница между "вне базы" и "вне базы " ? а для макроса?

И еще один вопрос не по теме - Вы специально пишете код так чтобы в нем было неприятно разбираться? Зачем эта идиотская запись в одну строку?

Sorry, не спец я, потому и спрашиваю.

Sub flying_shifts()
Dim i As Long, acontrol As Date, icounter As Long
Application.ScreenUpdating = False
With Sheets("ХРОНОМЕТРАЖ")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Лист2").Cells(6, 4) _
And .Cells(i, 1) <= Sheets("Лист2").Cells(6, 6) Then
acontrol = .Cells(i, 1): icounter = icounter + 1:
End If
Next
End With
Sheets("Лист2").Cells(14, 7) = icounter
Application.ScreenUpdating = True
End Sub
Так лучше?

[Dophin]

ну и что не считается сейчас? вроде все нормально

а почему "вне смен" убрали?

[Pilot]

Сообщение от Dophin

ну и что не считается сейчас? вроде все нормально

а почему "вне смен" убрали?

поторопился

Sub flying_shifts()
Dim i As Long, acontrol As Date, icounter As Long
Application.ScreenUpdating = False
With Sheets("ХРОНОМЕТРАЖ")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 5) = "вне базы" And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Лист2").Cells(6, 4) _
And .Cells(i, 1) <= Sheets("Лист2").Cells(6, 6) Then
acontrol = .Cells(i, 1): icounter = icounter + 1:
End If
Next
End With
Sheets("Лист2").Cells(14, 7) = icounter
Application.ScreenUpdating = True
End Sub

это, как я думаю неправильно, но считать надо по двум условиям "УТП" и "вне базы"

[Dophin]

ну почему неправильно, все корректно, можете впихнуть столько условий сколько надо. все корректно.

Неправильно то что Вы пока читали конец моего первого сообщения забыли начало. Перечитайте еще раз фразу

а для Вас есть разница между "вне базы" и "вне базы " ? а для макроса?

Если не получится - перечитайте еще раз внимательно

[Pilot]

Сообщение от Dophin

ну почему неправильно, все корректно, можете впихнуть столько условий сколько надо. все корректно.

Неправильно то что Вы пока читали конец моего первого сообщения забыли начало. Перечитайте еще раз фразу

Если не получится - перечитайте еще раз внимательно

Я понимаю, уважаемый Ваш сарказм. Ясно, что "вне базы" и "вне базы" - условие одинаковое, для студента университета таблица умножения тоже проста, чего не скажешь о воспитаннике детского сада. Я не специалист в VBA, некоторые вещи понятны, некоторые нет, потому и спрашиваю где задано условие (или не задано) и что делать.

[Dophin]

неее. я писал "вне базы" и "вне базы ".

в таблице у Вас "вне базы " (на конце пробел) а ищите Вы "вне базы" (в конце пробела нету)

Это две абсолютно разные строки. "вне базы" <> "вне базы "

так что у себя в макросе записывайте условие And .Cells(i, 5) = "вне базы "

[Pilot]

Благодарю, все от невнимательности к мелочам.