Ищу решение но в связи с отсутствием практики (только прочел книгу) пытаюсь решить задачу:
Предположим есть телефонная книга предприятия с внутренними номерами состоящими из 2 цифр
a
b
c
d
e
1
0
10
Отдел кадров
1
2
10
20
Логистика
7
3
20
30
Техники
13
4
30
40
Директора
19
5
40
50
Супервайзеры
25
6
50
60
менеджеры
31
7
37
8
43
9
49
10
55
В столбце "А" и "Б" диапазон номеров выданных каждому отделу, в столбце "С" название отдела. В столбце "Д" список входящих номеров. Пытаюсь сделать, чтобы в столбце "e" напротив номера появилось название отдела из столбца "с"
Код
Sub Макрос1()
'
'
Dim TelMin As Integer
Dim TelMax As Integer
TelMin = Range("a1")
TelMax = Range("b1")
Dim X As Range
For Each X In Range("D:D")
If X >= TelMin And X <= TelMax Then Range("e1").Value = Range("c1").Value Else Telmin.offset(0,1) and Telmax.offset(0,1)
End If
Next X
End Sub
Маюсь уже несколько дней, кто нибудь ткните на ошибки.
Большое спасибо! Теперь у меня следующая проблема разобраться в коде)))) Я хотел просто "решить задачу", а здесь задача решена КРАСИВО И по тому что я понял, этот макрос не обращается к ">","=","<", а ищет номера по десяткам. Т.е. если одному отделу дали не 10, а 11, а другому 2 номера, то макрос нужно переделывать полностью?