В первые столкнулась с необходимостью в макросе. Помогите пожалуйста!
Дано: 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