Как произвести вставку данных из одной таблицы в другую с помощью Combobox

@s.wlad · Регистрация: 28.05.2011

Author24 — интернет-сервис помощи студентам

на 'Листе 1' есть 'таблица 1' с данными, как внести в Combobox находящийся на 'Листе 2' данные из второго столбца этой таблицы и при выборе в Combobox какого либо значения в 'таблицу 2' находящуюся на 'Листе 2' производилась бы вставка целой строки из 'таблицы 1' в 1-ю, 2-ю и т.д. по порядку строки 'таблицы 2'
Заранее благодарен.

@Strobery · 10.06.2011, 22:12

Может лучше будет так. (с помошью чекета)
В UserForm1 Создать CheckBox. или OptionButton.

Если по моему то
На листе1 кнопка

Лист1.

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

UserForm1.
На форме кнопка и CheckBox1

Visual Basic

Private Sub CommandButton1_Click()
 
If CheckBox1.Value = True Then
 
Do
i = i + 1
Loop While ThisWorkbook.Worksheets('Sheet1').Range('A' & i) <> Empty
'MsgBox 'Незаполненная ячейка в столбце - A' & i, , ''
ThisWorkbook.Worksheets('Sheet2').Activate
ThisWorkbook.Worksheets('Sheet2').Rows('1:1').Select
Selection.Copy ThisWorkbook.Worksheets('Sheet1').Range('A' & i)
ThisWorkbook.Worksheets('Sheet1').Activate
End If
 
End If

@s.wlad · 24.06.2011, 19:56 **[ТС]**

Это немножко не то, все-таки лучше было бы как нибудь с Combobox
Заранее благодарен

@s.wlad · 25.06.2011, 20:40 **[ТС]**

Я впринципе нашел один выход, но только он вставляет всю строку
т.е. 255 ячеек, а мне нужно что бы были только данные из первой таблицы

Visual Basic

   Private Sub ComboBox1_Change()
    nRow0 = 2
    nRow = ComboBox1.ListIndex + nRow0
    Sheets('Лист1').Select
    Sheets('Лист1').Rows(nRow).Copy
    Sheets('Лист2').Select
     For i = 1 To 10000
     If Mid(Range('a' & Trim(Str(i))).Formula, 1, 1) = '' Then
     Exit For
     End If
     Next
     Range('a' & Trim(Str(i + 0))).Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
    End Sub

@s.wlad · 27.06.2011, 01:38 **[ТС]**

Неужели никто не знает? (((

02.07.2011, 18:57

Visual Basic

1:
if cells(i,2) <> empty then
n = n + 1
i = i + 1
goto 1:
end if
 
' cells(n,2) конец списка

@s.wlad 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 15
		1
	Как произвести вставку данных из одной таблицы в другую с помощью Combobox 08.06.2011, 21:54. Показов 1592. Ответов 5 Метки нет (Все метки) на 'Листе 1' есть 'таблица 1' с данными, как внести в Combobox находящийся на 'Листе 2' данные из второго столбца этой таблицы и при выборе в Combobox какого либо значения в 'таблицу 2' находящуюся на 'Листе 2' производилась бы вставка целой строки из 'таблицы 1' в 1-ю, 2-ю и т.д. по порядку строки 'таблицы 2' Заранее благодарен. 0

@s.wlad 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 15
	24.06.2011, 19:56 [ТС]	3
	Это немножко не то, все-таки лучше было бы как нибудь с Combobox Заранее благодарен 0

@s.wlad 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 15
	27.06.2011, 01:38 [ТС]	5
	Неужели никто не знает? ((( 0

	02.07.2011, 18:57

Опции темы