Здравствуйте!
Почитал несколько листов данной ветки но не нашел ответа на свой вопрос.
У меня вот какая проблема.
Лист1: в данном листе находится перечень цифр или слов в столбце с А1 до А10 и этому диапазону дано имя "num". Однако цифры в этом диапазоне могут располагаться через ячейку, то есть в диапазоне от 1 до 10 ячейка с номером 5 может быть пустой, или несколько ячеек пустой.

Лист2: в данном листе необходимо вставить в ячейку тип Validation чтобы получлась ячейка с выпадающей листом того что есть в диапазоне "num на Листе1 но без пробелов, чтобы цыфры или слова шли один за другим, без учета пробелов.

Я написал вот такой код:

Код

Sub predpr()         Worksheets("Лист1").Activate         Set r = Range("num")         For n = 1 To r.Rows.Count         a = a & "," & r.Cells(n, 1).Value     Next n Worksheets("Лист2").Activate Range("A1").Activate     With Selection.Validation         .Delete         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _         xlBetween, Formula1:=a         .IgnoreBlank = True         .InCellDropdown = True         .InputTitle = ""         .ErrorTitle = ""         .InputMessage = ""         .ErrorMessage = ""         .ShowInput = True         .ShowError = True     End With Range("A1").Select End Sub

Нутром чувствую что это все криво написано, но работает вроде как нужно, но проблема возникает тогда если цифры в ячейках заменить словами и такими что вся их общая суммарная длинна со всех 10 ячеек больше 255 символов! сама переменная "а" в строчке 5 воспринимает всю длину но когда делается Validation то строка обрезается до длины 255 символов.

Может кто-то подскажет как более грамотно реализовать считывание данных с друго-го листа и вставку в выпадающий лист текущего листа?

вот что есть на входе:
"ФФФФФФФФФФФ"

"ВВВВВВВВВВВВВ"

"ККККККККККККККК"
"ННННННННННННННН"

На выходе нужно получить выпадающий лист без пробелов в ячейках:
"ФФФФФФФФФФФ"
"ВВВВВВВВВВВВВ"
"ККККККККККККККК"
"ННННННННННННННН"


Спасибо.

Ну мы по поводу такого списка тут рассуждали
http://forum.vingrad.ru/index.php?showtopic=62690
Вряд ли тебе удастся изменить стандартную ф-ю.Наверно надо создать еще один список ,который возьмет значения с твоего списка без пробелов.

Хорошо, а как тогда можно список скопировать в другое место, циклом поднять все строки, чтобы получился сплошной список и тогда делать ссылку на такой список?

То есть нужно скопировать оригинальный список, обработать его (то есть поднять все строки, что бы не было пустых ячеек) и узнать диапазон хорошего списка чтобы потом можно было на него сослаться.
Как это можно осуществить?

Спасибо.

отфильтруй непустые значения: данные-фильтр-автофильтр...

А как насчет удалить пустые строки на месте?

Код

Private Sub CommandButton2_Click() L = 500 For x = 1 To L      If x = L Then   Exit Sub   ElseIf Range("A" & x).Value = "" Then           Rows(x).Delete   x = x - 1   L = L - 1     End If  Next End Sub

Это сообщение отредактировал(а) Staruha - 13.11.2005, 22:20

нельзя портить исходный лист путем редактирования на месте...

Тогда еще проще.

Код

Private Sub CommandButton1_Click() Dim i As Integer For x = 1 To 20  If Range("A" & x).Value <> 0 Then  i = i + 1   Лист3.Range("A" & i).Value = Range("A" & x).Value   End If   Next End Sub