Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
caustic
18 / 18 / 0
Регистрация: 30.09.2011
Сообщений: 283
06.12.2012, 13:23  [ТС] 0

Копирование строк с листа на лист при условии их заливки

06.12.2012, 13:23. Просмотров 1819. Ответов 6
Метки (Все метки)

Ответ

Цитата Сообщение от Скрипт Посмотреть сообщение
то как вручную вы бы перенесли строку со второго листа на первый?
Если вы этого не знаете, то макрос нельзя сделать.
я вручную этим и занимаюсь.

я это делаю так:
1) копирую всю строчку со второго листа (где вижу что я отметил ячейку светло-зеленым цветом);
2) перехожу на 1 вкладку, вставляю ее в тот же самый блок (между синими ячейками) в то же самое место, т.е. предпоследней строчкой;

*не заменяю какую либо строчку, а именно вставляю уже между ними

Добавлено через 23 часа 57 минут
решение нашел:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Sub Vstavka()
Dim Tabl1 As Range, Tabl2 As Range
Dim Row2&, i As Integer
With Sheets("Лист1")
Set Tabl1 = .UsedRange
End With
 With Sheets("Лист2")
Set Tabl2 = .UsedRange
End With
Row2 = Tabl2.Rows.Count
Application.ScreenUpdating = False
For i = 1 To Row2
    If Tabl1.Cells(i, 1) <> Tabl2.Cells(i, 1) Then
        Tabl1.Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       Tabl2.Rows(i & ":" & i).Copy _
    Destination:=Tabl1.Rows(i & ":" & i)
    End If
Next
Application.ScreenUpdating = True
End Sub
у меня только один вопрос по макросу.
как подкорректировать эту часть кода:

Visual Basic
1
2
Tabl2.Rows(i & ":" & i).Copy _
Destination:=Tabl1.Rows(i & ":" & i)
так, чтобы вставлялась строчка на лист1, но без копирования форматированя строки со второго листа, а только лишь значения зеленой ячейки?

Вернуться к обсуждению:
Копирование строк с листа на лист при условии их заливки
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2012, 13:23

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

Копирование данных из разных ячеек одного листа на другой лист
Ребят, доброго всем вечера. Требуется помощь. VBA в рамках предмета под...

Экономное копирование из одного листа в другой (добавление готовых накладных на лист для печати в excel)
Здравствуйте, подскажите, пожалуйста макрос который будет компактно копировать...

0
Другие темы раздела
VBA Проверка ячейки на выпадающий список http://www.cyberforum.ru/vba/thread720092.html
Добрый день! Мне надо проверить привязан ли к ячейке выпадающий список? подскажите пожалуйста, какой командой VBA это надо сделать? Спасибо.
VBA Из Access не открывается файл Excel Установлен Офисс 2010 Из Аккесса открываю Эксель файл Sub P1() Dim appExcel As Excel.Application Dim wbk As Excel.Workbook Dim wks As Excel.Worksheet Set appExcel = Excel.Application Set... http://www.cyberforum.ru/vba/thread720085.html
Перемешивание абзацев в Word VBA
В текстовом редакторе Microsoft Word дан текст. Написать программу на VBA, которая должна: 1. Перемешивать абзацы между собой.
VBA MS Power Point 2007 - проигрывание презентаций из папки
День добрый, уважаемые форумчане. Сегодня появилась задача реализовать которую я не представляю как. Суть проблемы: 1. Есть монитор/телевизор который подключен к компьютеру; 2. Есть выделенный...
VBA Как построить линию тренда на диаграмме и узнать её функцию http://www.cyberforum.ru/vba/thread719880.html
Доброй ночи!) Вопрос таков: у меня строится диаграмма из определенных значений..но я не знаю как построить линию тренда на ней и узнать её функцию.. Подскажите, как это сделать, пожалуйста Спасибо...
VBA Вставить двумерный массив на указанное место в RefEdit Здравствуйте, прошу помощи с небольшим куском моего проекта) А именно, не верно вывод двумерный массив OBL. Задача такова: вытащить значения с ячеек, засунуть их в массив ( может выбираться не один... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru