Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Помогите формулу написать.
 
Нужно из столбца данных например АВАААВВВАСССВААСВАВАСВАААСВ выбрать количество вхождений "В", но СЧЕТЕСЛИ не подходит т.к. при фильтрации по другому столбцу количество вхождений "В" не меняется.  
Коротко говоря нужно чтобы формула была "фильтрозависима"
Подсчет количествава вхождений и удаление повторений с помощью макроса
 
Доброй ночи!  
Есть такая БД на листе1, при нажатии кнопки "Кратность посещения" некоторая информация переносится на лист4, при этом в столбце N склеиваются некоторые ячейки для поиска уникальной строки, а в столбце О подсчитывается кол-во повторов.  
Проблемма в том, что если формулы в стобцах N и O растянуть дааааалеко вниз, то оч долго считает, можно ли это как-то оптимизировать, может в текст макроса кнопки запихнуть?  
И второе, можно ли удалить повторяющиеся строки (по столбцу N), кроме самой первой, при этом не нарушая подсчет количества повторений этой строки.
Ввод данных в ячейку с помощью макроса.
 
Доброй ночи!  
Сломал мозг уже, незнаю как сделать, помогите пожалуйста =(  
Задача такая, при нажатии на любую ячейку столбца появляется календарь и выбиратеся дата (это работает), одновременно с активацией календаря в соседней ячейке справа должна лечь формула записанная через =ЕСЛИ() - постоянно не нее ругается. Пробовал по разному, вот последний вариант:  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    Dim addr As String  
    Dim formula As String  
    If Target.Cells.Count > 1 Then Exit Sub  
    If Not Application.Intersect(Range("V:V"), Target) Is Nothing Then  
        UserForm1.Show  
        Cells(ActiveCell.Row, ActiveCell.Column + 1).Select  
        addr = ActiveCell.Address()  
        formula = "=ЕСЛИ(Лист1!V19<=Лист2!H$1;1;0)"  
           
        Range(addr) = formula  
 
    End If  
End Sub  
 
(энтерами отделил сторку, на которую ругается)  
Че делать?
Страницы: 1
Наверх