Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Archyarchy
0 / 0 / 0
Регистрация: 16.12.2015
Сообщений: 4
1

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

16.12.2015, 15:21. Просмотров 598. Ответов 2
Метки нет (Все метки)

Всем привет!

Как сделать так, что если на "листе1" ячейка в определенном столбце принимает значение в диапазоне от 2 до 3, то строчка с этой ячейкой в том же виде переносится на лист2
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2015, 15:21
Ответы с готовыми решениями:

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

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

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

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

2
KoGG
5330 / 1396 / 330
Регистрация: 23.12.2010
Сообщений: 2,072
Записей в блоге: 1
16.12.2015, 17:47 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 Кб, 14 просмотров)
Archyarchy
0 / 0 / 0
Регистрация: 16.12.2015
Сообщений: 4
16.12.2015, 17:56  [ТС] 3
Огромное спасибо!

У меня к сожалению сейчас рара нет, завтра сутра попробую
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2015, 17:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Как задать зависимость значения ячейки от даты при заданном значении ячейки функцией (сегодня)
Профессионалы, помогите новичку пожалуйста! Как задать зависимость значения ячейки при изменении...

Как занести запись в поле, при определенном значении другого поля?
Доброго времени суток. Нужно обновить Поле1 при определенном значении Поле2 function up_it2() {...

Как автоматически скопировать в пустые ячейки значения из первой заполеннной строки над ними?
Есть прямоугольная таблица, которая начинается с 3-ей строчки и занимает 8 столбцов (с А по Н)....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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