2 Listbox

[Aqil_f]

На форме есть 2 listbox (listbox1 и listbox2 ) и у каждого свой rowsource (list1 и list2). Как можно делать так что при двойном нажатие на первом listbox-е некоторые данные (например столбец A, B, C) из активных записей из этого листа (list1) добавился 2-й лист?

[EducatedFool]

Никак.

Есть 3 способа заполнения листбокса: через свойство RowSource, через добавление пунктов посредством .AddItem, либо запись в ListBox массива посредством .List = arr

"Подружить" эти способы не получится - надо выбирать один из них.

[Aqil_f]

Мне надо из 1-го листа некоторые данные из выбронного записа добавить 2-й лист. Необязательно черех listbox, как-то по другому можно это делать?

[Aqil_f]

Можно вот так:

    If ActiveSheet.Name <> "LIST1" Then Exit Sub
        r_ = Selection.Row
        r1_ = Sheets("List2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
        Rows(r_).Copy Sheets("List2").Rows(r1_)

Но, здесь копируется все строка, а надо некоторые данные, например столбца A, B, C. Как можно это делать?

[aval]

Здравствуйте! Попробуйте воспользоваться примером от Джона Уокенбаха (глава 14)
Сам пример я прикрепил здесь
http://rapidshare.com/files/38343965...nsfer.rar.html
С уважением, Александр

[Aqil_f]

Спасибо, Александр. Но, в примере из одного listbox-a в другой копируется. А мне надо из одного листа в другой. И это я уже сделал. Могу копировать выбранного строку из одного листа в другой. Но, у меня копируется все строка, а надо копировать несколько столбец из выбранного строка. Вот это я не могу делать.

[nilem]

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

    If ActiveSheet.Name <> "LIST1" Then Exit Sub
        r_ = Selection.Row
        r1_ = Sheets("List2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
        Rows(r_).Copy Sheets("List2").Rows(r1_)

Но, здесь копируется все строка, а надо некоторые данные, например столбца A, B, C.

Пробуем так:

Dim r_ As Long, r1_ As Long
Dim rng As Range

r_ = Selection.Row
r1_ = Sheets("List2").Cells(Rows.Count, 1).End(xlUp).Row + 1

Set rng = Range(Cells(r_, 1), Cells(r_, 3))
rng.Copy Destination:=Sheets("List2").Cells(r1_, 1)

[Aqil_f]

Nilem, спасибо, то что надо.
Но, если можно еще 1 вопрос:
Как можно проверить (по столбец А) если такой запись есть во втором листе 2-й раз не копировать этот запись?

[nilem]

Sub Aqil_f()
Dim r_ As Long, r1_ As Long
Dim rng1 As Range, rng2 As Range, RNG3 As Range

r_ = Selection.Row
r1_ = Sheets("List2").Cells(Rows.Count, 1).End(xlUp).Row + 1

Set rng1 = Range(Cells(r_, 1), Cells(r_, 3))
Set rng2 = Range(Cells(r_, 2), Cells(r_, 3))

Sheets("List2").Activate
Set RNG3 = Sheets("List2").Range(Cells(1, 1), Cells(r1_, 1)). _
                Find(Sheets("List1").Cells(r_, 1).Value, , xlValues, xlWhole)
                
If RNG3 Is Nothing Then 'если не найдено совпадающих значений
    rng1.Copy Destination:=Sheets("List2").Cells(r1_, 1)
Else
    rng2.Copy Destination:=Sheets("List2").Cells(r1_, 2)
End If

End Sub

Как-то так.

[Aqil_f]

Nilem, спасибо!