спасибо! работает!  
бьюсь вот. не могу понять: как сделать так ,чтобы на втором листе строчки начали копироваться не с ячейки A1 а с A2?

Добрый день!  
 
если несколько строчек (кол-во не всегда фиксировано)  
 
как с помощью макроса скопировать их с первого листа на второй, но с заданным интервалом, к примеру через каждые 9 строк поочередно все строчки.

поспешил, не разобравшись )  
 
Range не нужен. меняется диапазон и номер колонки!

вопрос по макросу:  
как его научить работать на том же листе, но с определенным диапазоном.  
пишу так:  
 
Sub tdtdt()  
Dim x As Range: Application.ScreenUpdating = True  
With Sheets("base").Range("D1:E32")  
Set x = .[E:E].Find("Да", , , xlWhole)
 
пишет object doesnt support this property or method и подсвечивает посл строчку в этом отрезке макроса.

Hugo спасибо!  
 
P.s. сегодня терминал по вебмани дергал.. он пишет ошибка связи...  
 
в общем я еще в долгу ;)

мм.. в третьей вкладке "как должно быть" - там должны быть только значения из колонки А

Добрый день!  
 
подскажите пожалуйста, как сделать так, чтобы макрос вывел на "лист2" весь список значений из колонки A листа "base", напротив которых в колонке B проставлено значение "Да".  
 
т.е. своеобразный ВПР, только работа с несколькими значениями.  
 
p.s. можно поменять порядок колонок, т.е. B - первая, A - вторая, если того требует правило процедуры написания.  
 
 
спасибо!

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

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

если полностью идентичны значения строчки с 1 по 4 столбец, то пропускаем, переходим к следующей.. если есть хоть одна разница - то добавляем в конец таблицы строчку.. идем дальше.. и так пока не будут добавлены все уникальные значения с этих 2х листов

ммм... в формате Excel 2003

и прикладываю файл...

Добрый день  
 
прошу помощи реализовать одну операцию.  
 
есть 3 листа:  
 
1 лист - основной, в нем таблица, в конце этой таблицы нужно добавить только уникальные (не повторяющиеся с таблиц 2ого и 3го листа) строчки.  
 
можно ограничиться копированием строк состоящих из 3х ячеек (остальные я подтяну по аналогии :) )  
 
 
я пока слабо представляю как макрос будет выглядеть, но мне пожалуй нужна помощь прежде всего с оператором if then, какие там будут записаны условия.  
 
 
спасибо!

спасиб! )  
то, что надо!

Добрый день!  
Прошу помочь в с одним небольшим макросом.  
 
в приложении книга. на 1 листе - то что есть, на 2ом - то что надо сделать. а именно, сгруппировать объединенные строками ячейки, оставив первые 3 строчки в качестве шапки. (не уверен что в 2003 Excel есть группировка)  
 
ниже макрос, он бесполезный, ибо работает с абсолютными адресами ячеек.  
 
поэтому отсюда вопрос: как научить его распознавать.. диапазон чтоли строчек, которые входят в одну объединенную ячейку, выделять их и группировать.  
 
вопрос: как научить его правильно выделить эту область  
 
Sub Macros1()  
    Rows("4:7").Select  
     Selection.Rows.Group  
   Rows("11:12").Select  
     Selection.Rows.Group  
   Rows("16:19").Select  
     Selection.Rows.Group  
   Rows("23:29").Select  
     Selection.Rows.Group  
End Sub  
 
P.S. строчки в объединенных ячейках будут добавляться со временем поэтому абсолютные координаты не подойдут  
 
спасибо!

а если помимо листов с рабочими таблицами в книге присутствуют 3 листа справа, в которых не нужно ничего химичить макросами, то запись переменной k должна выглядеть так:  
 
For k = 2 To Application.Sheets.Count - 3  
 
я правильно понимаю?

еще такой вопрос по этому же макросу:  
 
если у меня в книге не 2 листа а более, где только с 1ого листа подставляются строчки и цвета ячеек на все остальные.  
 
 
с точки зрения правильности написания кода как лучше поступить:    
1) для каждого листа указывать свою переменную и прописывать свой цикл..  
 
2) или можно же все мастрячить в один цикл, просто добавив в единственный цикл Tabl1,Tabl2,TAbl3 и пусть скачет по вкладкам, проверяя каждую таблицу.  
 
посоветуйте пожалуйста

на основе вашего вашего метода проделал то же самое со шрифтом )  
 
спасибо вам, в долгу не останусь

честно, не читал описание вопроса. отвечаю на него исходя из названия темы  
 
можно вырезать ячейку и вставить ее, вне таблицы, затем просто удалить строчку, и она автоматически исчезнет из всех формул где задействована.  
 
ключевое действие тут "вырезать"

я так понимаю столбцы взяты для примера.  
 
конкретно для вашего случая можно использовать эту формулу:  
 
=СУММЕСЛИМН(B2:B4;A2:A4;"ольга")+СУММЕСЛИМН(C2:C4;A2:A4;"ольга")

вот так:  
=СЦЕПИТЬ(A1;" ";A2)

небольшая корректировка:  
"дело в том, что сначала добавляются строчки в "лист2", далее закрашиваются некоторые из них по каким либо причинам"...  
"некоторые из них" -  имеется ввиду закраска не только что добавленных, а уже существовавших строк

Да. в качестве образца всегда выступает таблица только из "лист2"  
 
дело в том, что сначало добавляются строчки в "лист2", далее закрашиваются некоторые из них по каким либо причинам  
 
потом этот образец распространяется на остальные листы.  
т.е. если есть новые строчки - добавляются новые строчки, если закрашены другой заливкой ячейки - закрашиваются по аналогии из "лист2"  
 
максимальное число строк в ходе использования таблицей будет не более 500.

руководствуюсь одним из правил вашего форума: "одна тема = один вопрос"  
 
 
в одной из тем на этом форуме мне помогли с макросом, представленным чуть ниже.  
 
суть его работы такова:  
сравнивает ячейки таблиц из "лист1" и "лист2" и если на "лист1" отсутствует какая либо ячейка из "лист2", вставляется сначала строка на "лист1" а затем копируется значение отсутствующей ячейки с "лист2".  
 
 
нужно:  
чтоб по тому же самому принципу макрос сравнивал ячейки в колонках вкладок "лист1" и "лист2" но уже по цвету заливки ячейки  
и если одна и та же ячейка закрашена по разному на двух вкладках, макрос бы брал цвет ячейки с "лист2" и закрашивал им ячейку с "лист1"  
 
 
 
Option Explicit  
   
Sub Vstavka112()  
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.Cells(i, 1).Copy _  
   Destination:=Tabl1.Cells(i, 1)  
   End If  
Next  
Application.ScreenUpdating = True  
End Sub  
 
 
 
Как можно реализовать подобное?  
 
спасибо!

Михаил С., спасибо огромное.  
все работает!. только последнее пожелание к нему.  
 
как подкорректировать эту часть кода:  
      Tabl2.Rows(i & ":" & i).Copy _  
   Destination:=Tabl1.Rows(i & ":" & i)  
 
так, чтобы не формат копировался, а лишь значение (и только значение) из ячейки, которую он не нашел в 1ой вкладке?  
 
 
 
с уважением

прошу прощения за ошибки - пишу с телефона  
 
если добавляются только ячейки, значения что справа (в примере их нет, но они есть в оригинале) - смещаются, что не есть хорошо

да, проверил.

хочу продублировать свой комментарий по поводу вашего макроса:  
он вставляет ячейки из второй вкладки, а нужно строчку целиком, чтобы значения справа (они есть в оригинальной таблицы) смещаются.

проверил ваш макрос.. все хорошо, но есть одно "но":  
макрос вставляет только ячейки, а нужно чтоб всю строку целиком.

мало ли. может exe замаскирован под .txt  
всякое может быть, тем более у вас на форуме постить могут даже абсолютно случайные пользователи, что повышает риск.  
 
спасибо! опробую - отпишусь  
 
скажите пожалуйста, что значит символ & после имени переменных:  
Dim Row1&, Row2&, i&