Цитата

Если присвоить имя диапазону А:А в списке будет высвечиваться только заполненный д-н,так что можно добавлять ск.угодно.

Это я понял, чё уж вы так
Я имею ввиду можно ли добавлять в список (тот который на другом листе) значения вводимые в ячейку в которой "(данные->проверка->список ->{=ИМЯД ИАПАЗОНА}) "....

Staruha, что ты имеешь ввиду под

Цитата

сразу пойти универсальным путем

тыкать меня носом в какой нидь мануал написаный программерами для программеров ?....
На самом деле это ИМХО не лучший вариант.....
А вот ежели ты подскажешь линк где про это можно внятно и подробно прочитать, я буду тебе весьма признателен, так что пожадуйста не спеши ставить, ладушки ? ))


Добавлено @ 13:51
likhobory

Цитата

Worksheet_Change

На такой вопрос Excel икнул и оставил вопрос без ответа, а в книжке про это не написано..
Будем искать в internet...

Цитата(Staruha @ 31.8.2005, 21:32)

Ты представляешь действительно получилось и малой кровью

А ты не чуешь, что постепенно начинается большое кровотечение? а я предупреждал, что эта задача - только макушка вайсберга...

Цитата(Akina @ 1.9.2005, 14:57)

А ты не чуешь, что постепенно начинается большое кровотечение

Akina, скорее кровоподтеки..
gens, не кипятись, поищи "Change Event", но в справке VBE (ALT+F11), а не Excel

Без VBA вряд ли получится

Код

Private Sub Worksheet_Change(ByVal Target As Range)                'Лист2.Range("A1:A5").Name = "AA" Первоначальный диапазон Dim n As Integer     If Range("A1").Activate And Range("A1").Value <> "" Then  n = Лист2.Range("AA").Rows.Count  Лист2.Range("A" & n).Value = Range("A1").Value Лист2.Range("A1", "A" & n + 1).Name = "AA"   End If End Sub

Цитата

Akina, скорее кровоподтеки..

И их не осталось

Это сообщение отредактировал(а) Staruha - 2.9.2005, 15:52

Присоединённый файл ( Кол-во скачиваний: 2 )
 _______.rar 9,09 Kb

Эх я так радовалась,что получилось.Бегом бежало

2 gens: если воспользуешься Worksheet_Change, то не забывай проверять добавляемые значения на уникальность

Я пытаюсь, но всё усложняется нем, что я не программист (ну не не знаю я VBA), но вопреки сарказму Akina, я это сделаю , я упрямый

А почему ты файл не скачал и не посмотрел ,как все в живую работает?

Ну вот все получилось конкретно.Последний штрих сделан.Сняла галочку по совету likhobory(см.следующую тему).Теперь все работает ,как изначально задумано.
gens Благодаря тебе я освоила даже очень интересную вещь

Код

Private Sub Worksheet_Change(ByVal Target As Range) 'Лист2.Range("A1:A4").Name = "AA" 'присваиваешь имя диапазону Dim n As Integer       n = Лист2.Range("AA").Rows.Count For x = 1 To n     If Range("A1").Value = Лист2.Range("A" & x).Value Then Exit Sub End If Next    Лист2.Range("A" & n + 1).Value = Range("A1").Value   Лист2.Range("A1", "A" & n + 1).Name = "AA"    End Sub

Это сообщение отредактировал(а) Staruha - 9.9.2005, 11:23

Присоединённый файл ( Кол-во скачиваний: 7 )
 _______2.rar 8,99 Kb