Посчитать заполненные ячейки на нескольких Листах по условию

[Oleg34]

Здравствуйте! В модуле Книги есть подсчет проставленных значений в ячейках. Это [C5:C13] и [C15:C23], в зависимости в каком диапазоне больше проставлено, выбирается смена (два диапазона это две смены: А или Б). В модуле Листа "ИТОГИ" я пытаюсь, пройдя по всем Листам (это 31 по количеству рабочих дней в месяце) подсчитать сколько дней отработала та или другая смена. Но, считает все дни одной сменой.
код модуля Книги

  'определение работающей смены  
Dim A_Smena As Long
Dim B_Smena As Long  
    A_Smena = 0
    B_Smena = 0
    For i = 5 To 13
        If Cells(i, 3) = "a" Then  'перебираю ячейки смены смены Б
            B_Smena = B_Smena + 1
        End If
    Next i
    For j = 15 To 23
        If Cells(j, 3) = "a" Then  'перебираю ячейки смены смены А
            A_Smena = A_Smena + 1
        End If
    Next j
       If A_Smena > B_Smena Then
         Range("C27") = "А"
        Else
         Range("C27") = "Б"
    End If

А это код модуля Листа "ИТОГИ"

 'подсчет рабочих смен в книге
    Dim smA As Integer 'накопительный счетчик для смены А
    Dim smB As Integer 'накопительный счетчик для смены Б
    Dim sM As Integer  '
    smA = 0
    smB = 0
    For sM = 2 To 32 'начиная со Листа(2) до Листа(32)
     Sheets(sM).Activate
        If Range("C27").Text = "A" Then
             smA = smA + 1
             Else
               smB = smB + 1
        End If
      Next sM
    MsgBox smB & " смен Б " & smA & " ,смен А"

[Serge_Bliznykov]

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

[Oleg34]

Вот сам файл

[Aleksandr H.]

Вы уверенны, что условия А это кирилица а не латиной написано?

Sub a()
'подсчет рабочих смен в книге
    Dim smA As Integer 'накопительный счетчик для смены А
    Dim smB As Integer 'накопительный счетчик для смены Б
    Dim sM As Integer  '
    smA = 0
    smB = 0
    For sM = 2 To 32 'начиная со Листа(2) до Листа(32)
        If Sheets(sM).Range("C27") = "A" Or Sheets(sM).Range("C27") = "А" Then
             smA = smA + 1
             Else
               smB = smB + 1
        End If
      Next sM
    MsgBox smB & " смен Б ;" & smA & " ,смен А"
End Sub

[Oleg34]

Да вроде переправлял)), сначала было латиницей.

[Oleg34]

Считает верно, но пустые [C27], в которых еще ничего нет считает за "Б". То есть получается, что по условию "если в ячейке [C27] есть символ"А", то добавляем в счетчик smA, а если иначе то в счетчик smB" и все остальные символы, то есть пустые значения она автоматом включает в smB. Я построил такую конструкцию:

Dim smA As Integer 
    Dim smB As Integer 
    Dim sM As Integer  
    smA = 0
    smB = 0
    For sM = 2 To 32 
     Sheets(sM).Activate
        If Sheets(sM).Range("C27") = "А;" Or Sheets(sM).Range("C27") = "A" Then
             smA = smA + 1
             ElseIf Sheets(sM).Range("C27") = "Б;" Then
             smB = smB + 1
             Else
             If IsEmpty(Sheets(sM).Range("C27")) = True Then ' добавил условие на пустую ячейку
                smA = smA
                smB = smB
             End If
        End If
      Next sM
    MsgBox smB & " смен Б," & Chr(13) & smA & "смен А"

Сейчас все подсчитывает, но может можно попроще сделать?

[Aleksandr H.]

Два условия на А я написал для проверки, если же вы уверенны что в с27 будет русская А, то оставьте только это условие.Удалите ветку условия isEmpty, она, ненужная вообще. Почему добавили ";" после буквы в условие?

[Oleg34]

; набирал в браузере, из Excel копировалась кирилица кракозябрами, видимо зацепил просто клавишу. А ветку добавил, проверку на пустые ячейки. Почему то считает если пусто, то "Б" и в переменной у меня на выходе было 28 "Б" при 3 "А", хотя по факту 4 "Б"

[Aleksandr H.]

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

переменной у меня на выходе было 28 "Б" при 3 "А", хотя по факту 4 "Б"

В вашем файле

1:Б
2:А
3:А
4:Б
5:Б
6:А
7:А
8:Б
9:Б
10:Б
11:Б
12:Б
13:Б
14:Б
15:Б
16:Б
17:Б
18:Б
19:Б
20:Б
21:Б
22:Б
23:Б
24:Б
25:Б
26:Б
27:Б
28:Б
29:Б
30:Б
31:Б