Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Удаление записи в access c помощью кнопки на форме http://www.cyberforum.ru/vba/thread1615430.html
Помогите пожалуйста с программой Access. Нужно с помощью кнопки на форме 2, удалить писателя вместе с произведениями с помощью VBA
Добавление нового ряда в диаграмму макросом VBA
Добрый день!Помогите пожалуйста сделать макрос,автоматически добавляющий новый ряд в диаграмму. C помощью "умной таблицы" ряд тоже не добавляется автоматически. Задача такая: Есть один показатель...
VBA Перемещение ячеек при определенном значении
Доброго времени суток! Как сделать так, чтобы автоматически при определенном значении ячейки в одном столбце перенести это значение в другой столбец, но в ту же строчку, заменив данные. При...
VBA Макрос в Excel выдает ошибку: Run-time error '424:Object Required Доброе время суток! Макрос в Excel выдает ошибку: Run-time error '424:Object Required Sub test() For a = 2 To 219 b = Sheet1.Cells(a, 1) c = Sheet1.Cells(a, 3) For k = 2 To 164 l =... http://www.cyberforum.ru/vba/thread1615126.html
VBA Формирование таблицы результатов при совпадении http://www.cyberforum.ru/vba/thread1615116.html
Здравствуйте, форумчане На первой станице имеется таблица с данными, которая заполняется посредством Userform. Необходимо следующее: переносить данные по «прогульщикам» на другой лист, где по...
VBA Ошибка при сохранении
Доброго дня Уважаемые подскажите как исправить код не пойму что не так делаю. Имею такой код он присвоен к кнопки книга состоит из двух листов но при сохранении ошибка последняя строка выделяется...
VBA Вычислить количество элементов диапазона, не попадающих в заданный интервал.
17. Составьте функцию, которая вычисляет количество элементов диапазона, не попадающих в заданный интервал
VBA Свойства узлов Приветствую всех, вопрос такой: Имеем кривую с определенным количеством узлов. Выделяю один узел. Как средствами vba обратиться к свойствам выделенного узла? Его порядковому номеру, координатам... http://www.cyberforum.ru/vba/thread1615077.html
VBA Выравнивание текста в word http://www.cyberforum.ru/vba/thread1615007.html
Здравствуйте. нужна помощь в данном вопросе. нужно в выбранном файле(пользователь сам выбирает файл) выровнять весь текст по центру, при этом что бы таблицы,заголовки и картинки оставались не...
VBA Заданы две окружности (х - а)2 + (у - b)2 = r2 и (х - с)2 + (у - d)2 = R2 и координаты четырех точек. Определи Заданы две окружности (х - а)2 + (у - b)2 = r2 и (х - с)2 + (у - d)2 = R2 и координаты четырех точек. Определить количество точек, лежащих внутри каждой окружности.ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ СРОЧНО... http://www.cyberforum.ru/vba/thread1614953.html
KoGG
5303 / 1374 / 325
Регистрация: 23.12.2010
Сообщений: 2,044
Записей в блоге: 1
16.12.2015, 17:47 0

Как автоматически скопировать строчку на другой лист при определенном значении ячейки

16.12.2015, 17:47. Просмотров 520. Ответов 2
Метки (Все метки)

Ответ

Так, в программном модуле листа 1:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LastCol&, LastRow&, Ra As Range
    Const ColProverki = 4 ' № столбца на Листе1,который проверяем
    Set Ra = Me.Columns(ColProverki)
    Set Ra = Intersect(Ra, Target)
    If Not (Ra Is Nothing) Then
        If Target.Range("A1").Value >= 2 And Target.Range("A1").Value <= 3 Then
            LastCol = Me.UsedRange.Columns.Count - Me.UsedRange.Column + 1
            Application.EnableEvents = False
            With Лист2
                LastRow = .UsedRange.Rows.Count - .UsedRange.Row + 2
                Range(Cells(Target.Row, 1), Cells(Target.Row, LastCol)).Copy .Cells(LastRow, 1)
            End With
            Application.EnableEvents = True
        End If
    End If
End Sub


Вернуться к обсуждению:
Как автоматически скопировать строчку на другой лист при определенном значении ячейки
0
Вложения
Тип файла: rar Копирование_строки_Archi.rar (13.4 Кб, 12 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2015, 17:47
Готовые ответы и решения:

Подстановка значений из одной ячейки в другую, при определенном значении в третьей ячейке
Всем добрый день! Прошу о помощи грамотно составить макрос. Требуется грубо говоря следующее: ...

Скопировать столбец ФИО из одного листа на другой лист с разбивкой на 3 ячейки
Необходимо копировать столбец ФИО из одного листа на другой лист с разбивкой на 3 ячейки Здесь...

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

Копирование значения при после ввода на другой лист в первую пустую ячейку в определенном диапазоне
Добрый вечер! Помогите, пожалуйста, с проблемой. В VBA не силен, но формулами не получается...

Присвоить определенное значение ячейке при определенном значении другой ячейки
В чем суть вопроса : допустим есть ячейка А1 и в ней таблица выбора различных значений (Допустим :...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.