Искам след като от падащо меню избера дадена фирма, в съседни две колони да се генерират в едната адреса, в другата телефон (предварително въведени).

Предварително благодаря! :)

Предполагам падащото меню е директно в таблицата, щом говориш за "съседни колони". Иначе, ако данните за фирмите са в таблица с
формат : име, адрес, телефон... виж командата VLOOKUP.

Съкращавайте фразите до размера на мисъл. М.Вайсберг

Падащото меню с имената е в клетка А1. Оттам избирам фирмата и искам в В1 и C1 да се генерират съответно B1=Адрес (предварително въведен) C1=Телефон (предварително въведен). Ако може с пример за не много напреднали :) , защото отдавна не съм си играл с Екселчето! Благодаря за незабавната помощ!

Съдържаниет е скрито
Влезте за да го видите

Редактирано от djaleks на 10.01.12 14:49.

Къде ти е разположено падащото меню? На потребителска форма ли? ComboBox ли имаш впредвид?
Ако е така опитай да напишеш код в:

Private Sub ComboBox1_Change()
......
End Sub

Падащото меню ми е Validation - List!

а къде са ти въведени данните за фирмите? Иначе ще стане с VLOOKUP.

Съдържаниет е скрито
Влезте за да го видите

Ето ти един елементарен пример
Validation-list-a е в А2 на Sheet1
На Sheet2 са данните, като има 2 дефинирани Range - Names и Data
http://dl.dropbox.com/u/17857046/Example.xls
ВНИМАНИЕ: Данните трябва да са сортирани, за да работи VLOOKUP-а вярно

Не знам колко време ще остане файла в дропбокса. ще го изтрия след някой друг ден

Съдържаниет е скрито
Влезте за да го видите

Редактирано от Бypaн на 12.01.12 17:54.

тъй като не казваш къде са ти данните
пробвай това


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Cells(1, 1) Then

Cells.Find(What:=Cells(1, 1)).Activate
Cells.FindNext(After:=ActiveCell).Select
r = Selection.Row
k = Selection.Column

Cells(1, 2) = Cells(r, k + 1)
Cells(1, 3) = Cells(r, k + 2)
Cells(1, 1).Select
End If
End Sub

Редактирано от nepukis на 20.02.12 15:01.