составить формулу

[mihahhh]

правильно сост формулу под условие как ?

есть таблица рэйндж B:2 и E:200
пишу формулу макроса не знаю как написать

..Если ( If ) количество заполненных ячеек в последней заполненной строке таблицы =10, то переход ( Тhen ) на условие 1
..Если ( If ) количество заполненных ячеек в последней заполненной строке таблицы от 1 до 9, то переход ( Тhen ) на условие 2

есть SpecialCells(xlCellTypeLastCell) такая еще есть WorksheetFunction.CountA(Range(Cell s(2, 2), Cells(6, 7))) но как их приспособить не знаю

[EducatedFool]

Sub test()
    Dim ra As Range: Set ra = [b2:e200]
    КолвоЗаполненныхЯчеек = Application.CountA(ra)
    Select Case КолвоЗаполненныхЯчеек
        Case 1 To 9    ' выполняется первое условие
            x = 5: Call Macro1
        Case 10    ' второе условие
            x = 10: Call Macro2
        Case Is > 15    ' третье условие
            y = 6: Call Macro3
    End Select
End Sub

количество заполненных ячеек в последней заполненной строке таблицы =10

диапазон содержит 4 столбца - т.е. в последней заполненной строке диапазона всего 4 ячейки
как из 4 ячеек может быть заполнено 10 ?

[mihahhh]

виноват попутал немного B:2 и К:200 рэйндж в таблице

в этой формуле разные макросы Makro1 Маkro2 Маkro3 по условияям выполняются ?
а x = 5 x = 10 y = 6 что означают ?

[EducatedFool]

в этой формуле разные макросы Makro1 Маkro2 Маkro3 по условияям выполняются ?

да

а x = 5 x = 10 y = 6 что означают ?

просто для примера
напишите вместо этого свой код

[mihahhh]

сделал тестовый файл чегото не заработало можно проверить ошибку

[EducatedFool]

Sub test()
    On Error Resume Next
    Dim rng As Range: Set rng = Range("B2:K300").SpecialCells(xlCellTypeConstants)
    Set rng = Intersect(rng, rng.Cells(rng.Cells.Count).EntireRow)
    
    КолвоЗаполненныхЯчеек = Application.CountA(rng)
    Select Case КолвоЗаполненныхЯчеек
        Case 1 To 9    ' выполняется первое условие
            msg = "1111111"
        Case 10    ' второе условие
            msg = "2222222"
    End Select
    MsgBox msg, vbInformation, "Заполнено ячеек: " & КолвоЗаполненныхЯчеек
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__13-05-37.zip

[mihahhh]

спасибо работает !!!