Доброго времени суток!!! Спасибо всем участникам форума, за оказанную помощь. Столкнулся еще с одной проблемой (думаю таких еще будет много :-)), возможно ли, при выборе значения во закладке 1 задать, чтобы копировал таблицу из закладки 2 или 3? Например, если выбираем значения 1,2 или 3, то копируем таблицы с листа 2, если - 4, то копируем таблицы с листа 3.
Доброго времени суток!!! Спасибо всем участникам форума, за оказанную помощь. Столкнулся еще с одной проблемой (думаю таких еще будет много :-)), возможно ли, при выборе значения во закладке 1 задать, чтобы копировал таблицу из закладки 2 или 3? Например, если выбираем значения 1,2 или 3, то копируем таблицы с листа 2, если - 4, то копируем таблицы с листа 3.Роберт
Sub ert() Select Case Sheets("1").Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Activate 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Activate 'то копируем таблицы с листа 3 End Select End Sub
[/vba]
например [vba]
Код
Sub ert() Select Case Sheets("1").Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Activate 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Activate 'то копируем таблицы с листа 3 End Select End Sub
Nilem, привет!! спасибо за помощь...А возможно чтобы при выборе значений (1-4), таблицы копировались в лист 1, а не переходили на лист с этими таблицами? Спасибо..
Nilem, привет!! спасибо за помощь...А возможно чтобы при выборе значений (1-4), таблицы копировались в лист 1, а не переходили на лист с этими таблицами? Спасибо..Роберт
Sub ert() Select Case Sheets("1").Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy Sheets("1").Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy Sheets("1").Range("A1") 'то копируем таблицы с листа 3 End Select End Sub
[/vba]
или симпатичнее так [vba]
Код
Sub ert() With Sheets("1") Select Case .Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy .Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy .Range("A1") 'то копируем таблицы с листа 3 End Select End With End Sub
[/vba]
тогда как-то так [vba]
Код
Sub ert() Select Case Sheets("1").Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy Sheets("1").Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy Sheets("1").Range("A1") 'то копируем таблицы с листа 3 End Select End Sub
[/vba]
или симпатичнее так [vba]
Код
Sub ert() With Sheets("1") Select Case .Range("B3").Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy .Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy .Range("A1") 'то копируем таблицы с листа 3 End Select End With End Sub
еще раз спасибо большое за помощь. Последний вопрос по этой теме, можно ли сделать так, чтобы все не прогонять через кнопку run? чтобы автоматически выдавал при выборе значений (1-4)? Спасибо
еще раз спасибо большое за помощь. Последний вопрос по этой теме, можно ли сделать так, чтобы все не прогонять через кнопку run? чтобы автоматически выдавал при выборе значений (1-4)? СпасибоРоберт
ну, Роберт... вот это положите в модуль листа "1" [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B3" Then Exit Sub Select Case Target.Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy Range("A1") 'то копируем таблицы с листа 3 End Select End Sub
[/vba]
ну, Роберт... вот это положите в модуль листа "1" [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B3" Then Exit Sub Select Case Target.Value Case 1, 2, 3 'если выбираем значения 1,2 или 3 Sheets("2").Range("A1:B1").Copy Range("A1") 'то копируем таблицы с листа 2 Case 4 'если - 4 Sheets("3").Range("A1:B1").Copy Range("A1") 'то копируем таблицы с листа 3 End Select End Sub
Nilem, прости за бесконечное количество вопросов, просто есть желание разобраться )))...Макрос не реагирует на эту функцию..Посмотри пожалуйста, что не так??? Спасибо..
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B3" Then Exit Sub Select Case Target.Value Case 1, 2, 3 Sheets("2").Range("b3:m34").Copy Range("d4") Case 4 Sheets("3").Range("b3:m34").Copy Range("d4") End Select End Sub
[/vba]
[admin]Оформляйте коды тегами![/admin]
П.С. сколько стоят Ваши услуги??
Nilem, прости за бесконечное количество вопросов, просто есть желание разобраться )))...Макрос не реагирует на эту функцию..Посмотри пожалуйста, что не так??? Спасибо..
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B3" Then Exit Sub Select Case Target.Value Case 1, 2, 3 Sheets("2").Range("b3:m34").Copy Range("d4") Case 4 Sheets("3").Range("b3:m34").Copy Range("d4") End Select End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
