Как запомнить столько Данных?

[valerij]

Сообщение от EducatedFool

твоей задачи ...

Игорь, та задача о которой ты говоришь, давно решена и забыта, и я, и другие ей успешно пользуют, все там ОК.

Здесь же, совершенно другая, я ее то же спокойно решил и использую, просто она у меня по кварталам, несколько неудобно, вот я и решил сделать ее годовой.

Мне нужно, только одно, как организовать переменные, если какого-то интересно - радикального способа нет, что я и хотел у ВАС, профи, узнать, то и бог с ней!!

[valerij]

Кто подскажет, почему ошибка, при выборе в С1, а если в С1 будет цифры, ошибки нет?

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
Static x(887) As Long: Static y(887) As Long
For Each ввод In Target
If [c1] = "А" Then x(Target.Row) = Cells(ввод.Row, 3)
If [c1] = "Б" Then y(Target.Row) = Cells(ввод.Row, 3)
Next
End Sub

[doober]

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

if Target.Row>1

[valerij]

Сообщение от doober

Вместо ожидаемого числа ему предлагают букву А или Б

Сереж, С1 -это, "Данные - Проверка.. - Проверка вводимых значений -Список" и там, значение А, Б.....
Если я в место А, Б....., ставлю 1, 2...., все ОК.
Что в списке, нельзя применять буквенные значения?

[IgorGO]

Валера, нельзя так.
Тебе уже точно сказали, где ошибка, а ты продолжаешь выспрашивать.
Что тут еще выспрашивать? Doober не только указал где ошибка, а еще и написал как ее обойти.

Буквенные значения проверять можно, нельзя в массив x(887) As Long совать данные строкового типа.

[valerij]

Сообщение от IgorGO

Буквенные значения проверять можно, нельзя в массив x(887) As Long совать данные строкового типа.

Игорь, ну не пойму, где я в массив пихаю строковую ~?
Я рассуждаю, что если значение в С1, равно "А", тогда выполнить действие:

x(Target.Row) = Cells(ввод.Row, 3)

Я же не присваиваю x(Target.Row) = А
А, наверное Target и есть тоже выбор??

[doober]

x(Target.Row) = Cells(ввод.Row, 3)

При нахождении курсора в первой строке Cells(ввод.Row, 3) -это ячейка С1 ,а ее значение БУКВА

[IgorGO]

а что за значение у тебя в Cells(1, 3)???
глупо советовать, не представляя назначение данной процедуры (ее сверхзадачу, как говаривал Станиславский) но все же - так напиши:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
Static x(887) As Long: Static y(887) As Long
if target.row = 1 exit sub
For Each ввод In Target
If [c1] = "А" Then x(Target.Row) = Cells(ввод.Row, 3)
If [c1] = "Б" Then y(Target.Row) = Cells(ввод.Row, 3)
Next
End Sub

если все работает как надо - считай задача решена

[valerij]

Сообщение от IgorGO

а что за значение у тебя в Cells(1, 3)???
если все работает как надо - считай задача решена

Имена, магазинов.
Да, работает, СПАСИБО...
Часть задачи.