Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Назначение макроса к новой книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Назначение макроса к новой книге
allmoornika Дата: Вторник, 06.09.2022, 08:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте

В первые столкнулась с необходимостью в макросе. Помогите пожалуйста!

Дано:
2 файла, один наш открытый, другой файл экспорта с данными.
В нашем файле
1. таблица с указанием имени менеджеров, которые работают в определенные дни недели, при этом есть дни когда работают два менеджера.
2. кнопка при нажатии которой в открытом файле должно выполняться 3 действия

2.1. удаление дублирующийся строк
2.2. Исходя из даты указанной определение дня недели
2.3. Исходя из дня недели расстановка имени менеджера. Если работают два менеджера, равное распределение клиентов между ними.

Все что я смогла сделать, это добиться удаления дублирующихся строк, и то если кнопка этом же листе.

[vba]
Код
Sub Кнопка1_обработка()
    
            Dim a As Long
            For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1)) > 1 Then Rows(a).Delete
        
    Next

End Sub
[/vba]

Буду очень благодарна за помощь
 
Ответить
СообщениеЗдравствуйте

В первые столкнулась с необходимостью в макросе. Помогите пожалуйста!

Дано:
2 файла, один наш открытый, другой файл экспорта с данными.
В нашем файле
1. таблица с указанием имени менеджеров, которые работают в определенные дни недели, при этом есть дни когда работают два менеджера.
2. кнопка при нажатии которой в открытом файле должно выполняться 3 действия

2.1. удаление дублирующийся строк
2.2. Исходя из даты указанной определение дня недели
2.3. Исходя из дня недели расстановка имени менеджера. Если работают два менеджера, равное распределение клиентов между ними.

Все что я смогла сделать, это добиться удаления дублирующихся строк, и то если кнопка этом же листе.

[vba]
Код
Sub Кнопка1_обработка()
    
            Dim a As Long
            For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1)) > 1 Then Rows(a).Delete
        
    Next

End Sub
[/vba]

Буду очень благодарна за помощь

Автор - allmoornika
Дата добавления - 06.09.2022 в 08:49
китин Дата: Вторник, 06.09.2022, 14:31 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
файл будет?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениефайл будет?

Автор - китин
Дата добавления - 06.09.2022 в 14:31
allmoornika Дата: Вторник, 06.09.2022, 22:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

файл будет?


да, простите.
Заранее спасибо за помощь
l
К сообщению приложен файл: ExportPopAccuei.xls (28.5 Kb) · 1877529.xlsm (21.0 Kb)
 
Ответить
Сообщение
файл будет?


да, простите.
Заранее спасибо за помощь
l

Автор - allmoornika
Дата добавления - 06.09.2022 в 22:01
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!