Спасибо большое, все очень корректно работает!

Добрый день! Помогите, плиз
Код есть, но в таблице не очищаются эти колонки, а до записываются.
И как еще сделать так, чтоб данные собирались только с Лист1 и Лист3?

Очень, очень надо

Спасибо! Очень признательна

Добрый день! Не смогла найти подходящий макрос для решения задачи
В книге много страниц, одного формата. Надо на лист Сводная, в 1 столбец собрать ФИО со всех листов, а в 10 Место рождения. Хочется, чтоб данная задача решилась с помощью макроса.  

Спасибо, буду пробовать !!!!

Добрый день! Очень нужна помощь в написании макроса ( или все таки уже существует такой макрос), в таблице на листе1 в ячейке есть текст, но в середине текста есть год. Необходимо подсчитать количество строк по годам и собрать их на Лист2. Можно сделать с помощью диалога или просто подсчет.

Пользователю МатросНаЗебре, большое спасибо!!!

Добрый день! Помогите решить задачу. Есть две таблицы необходимо  сравнить столбцы D Кодировка документа по KKS и если есть совпадение то в  таблице export2 в столбец Совпадение, необходимо написать слово  Программа. Так как массив данных большой, руками решить эту задачу не  реально, необходим макрос. Окажите содействие.

Добрый день!

Таблица Выгрузка с листа Data вставить значения на на лист Выгрузка в данном формате как в примере. Но только те данные которые относятся к Организации Разработчику столбец М например УФ. На кнопку Загрузка прикреплен макрос, но он выбирает все значения. Заранее спасибо за помощь.

Добрый день! Написан макрос, возникла проблема как вставить If для отбора данных по критерию.
Есть две вкладки в книге, необходимо с одного листа на другой переписать значения, в определенной форме (это сделано в с помощью макроса)  Но где в этом макросе вставить IF чтоб переписывались с  Листа data по условию колонка М = "УФВыгрузка.xlsm (20.14 КБ)"

Это возможно не сложно, но не получается. Заранее спасибо за помощь.

Текст Макроса:
 

Sub Выгрузка_для_УФ()

Dim shSrc As Worksheet, ShRes As Worksheet, arrSrc()

Dim Ir As Long, i As Long

Application.ScreenUpdating = False

Set shSrc = Worksheets("data")

Set ShRes = Worksheets("Выгрузка_для_УФ")

Ir = shSrc.Cells(shSrc.Rows.Count, "C").End(xlUp).Row          'Раздел проектирования (марка)

If Ir = 2 Then

ReDim arrSrc(1 To 1, 1 To 1)

arrSrc(1, 1) = shSrc.Range("C3").Value

Else

arrSrc() = shSrc.Range("C3:C" & Ir).Value

End If

ShRes.Range("A2").Resize(UBound(arrSrc)).Value = arrSrc()

Ir = shSrc.Cells(shSrc.Rows.Count, "F").End(xlUp).Row

If Ir = 2 Then                                                  'Наименование пакета

ReDim arrSrc(1 To 1, 1 To 1)

arrSrc(1, 1) = shSrc.Range("F3").Value

Else

arrSrc() = shSrc.Range("F3:F" & Ir).Value

End If

ShRes.Range("B2").Resize(UBound(arrSrc)).Value = arrSrc()

Ir = shSrc.Cells(shSrc.Rows.Count, "I").End(xlUp).Row           'Инвентарный номер объекта

If Ir = 2 Then

ReDim arrSrc(1 To 1, 1 To 1)

arrSrc(1, 1) = shSrc.Range("I3").Value

Else

arrSrc() = shSrc.Range("I3:I" & Ir).Value

End If

ShRes.Range("C2").Resize(UBound(arrSrc)).Value = arrSrc()

Ir = shSrc.Cells(shSrc.Rows.Count, "J").End(xlUp).Row         'ККS

If Ir = 2 Then

ReDim arrSrc(1 To 1, 1 To 1)

arrSrc(1, 1) = shSrc.Range("J3").Value

Else

arrSrc() = shSrc.Range("J3:J" & Ir).Value

End If

ShRes.Range("D2").Resize(UBound(arrSrc)).Value = arrSrc()

Ir = shSrc.Cells(shSrc.Rows.Count, "M").End(xlUp).Row         'Организация

If Ir = 2 Then

ReDim arrSrc(1 To 1, 1 To 1)

arrSrc(1, 1) = shSrc.Range("M3").Value

Else

arrSrc() = shSrc.Range("M3:M" & Ir).Value

End If

ShRes.Range("E2").Resize(UBound(arrSrc)).Value = arrSrc()

End Sub

Добрый день! Друзья, нужна помощь.
Две таблицы, надо из одной таблицы "Данные лист Заявка" необходимо дописать строку в файл Таблица учета - вариант2 - Лист1. Макрос я написала, но у меня получается до записывать только тогда когда лист Заявка, находится в данной книге. Но, очень хочется, чтоб до запись происходила сразу из книги Данные, берез перезаписи данного листа Заявки в книгу Таблица учета - вариант2.

Помогите, подправить макрос. Самой никак не справиться.

Добрый день

Есть одна не решенная задача с которой мне самой пока не справиться. Надо написать макрос

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

Спасибо, спасибо! Я попробую так и сделать

Добрый день! Помогите создать выпадающий список.
На лист1  в ячейку Е  - исполнитель подставить фамилию с листа Справочник, а в ячейку F лист1  телефон, который принадлежит фамилии.
Помогите разобраться как это создать в виде выпадающего списка.

Добрый день! Подскажите как из файла Заявка на размножение с помощью макроса, так сказать с нажатием одной кнопки поля добавились в файл Журнал учета, как следующая строка. В примере добавлено красным. Файлы могут лежать в одной папке.
Сама с этим не справлюсь. Заранее спасибо.
Надо ведь, чтоб был цикл для поиска последней строки и раскидать по разным ячейкам.

А зачем? Удалять

Нехочется условное форматирование, цвет ячеек уже известен, надо только заменить на фигуры

Добрый день!
Мы составляем график коллизий по датам плановым и фактическим. В зависимости от разницы дат заливаются ячейки разными цветами. Но когда это тысячи записей то смотреть на такой график очень тяжело.

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

Почему Вы считаете, что я издеваюсь? вы ведь сами сказали у меня тема РАНЬШЕ. Мне кажется Вы не правы.
И к той теме я лично ни какого отношения не имею.
У меня свои трудности

Добрый день!
Подскажите, пожалуйста, существует ли макрос, с помощью которого можно разобрать таблицу, которая сформирована на Листе1 по разным листам. В ячейке О "Название листа". Существует необходимость создать отдельные листы с названием как в Ячейке О и с данными которые относятся именно к этому листу

Оформила. как умею. В примере конечно макрос вставлен.

Доброе утро!
Понимаю как тяжело разбираться в чужих кодах.

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

Sub ВыделитьДубликатыРазнымиЦветами()

   On Error Resume Next

   ' массив цветов, используемых для заливки ячеек-дубликатов

   Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _

                  9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)

   Dim coll As New Collection, dupes As New Collection, _

       cols As New Collection, ra As Range, cell As Range, n&

       Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)

                If Err Then Exit Sub

    ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False

   For Each cell In ra.Cells ' запонимаем значение дубликатов в коллекции dupes

       Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)

               If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)

   Next cell

   For i& = 1 To dupes.Count ' заполняем коллекцию cols цветами для разных дубликатов

       n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1

   Next

   For Each cell In ra.Cells ' окрашиваем ячейки, если для её значения назначен цвет

       cell.Interior.color = cols(CStr(cell.Value))

   Next cell

   Application.ScreenUpdating = True

End Sub

Как сохранить переход по гиперссылкам, если сам файл переместить в другую папку на сервере

Пример файла. Только содержится 1000 ссылок на файлы

Добрый день!  Подскажите, пожалуйста.

Создана книга с гиперссылками на 1000 документов, а теперь необходимо перенести этот файл на сервер для общего доступа. Есть ли возможность при переносе этой книги, чтоб не пропали связи с ссылками на документы. Не хочется перебивать эти связи руками.

Спасибо за помощь!

В результате точку убираем и остается 5 символов.

У нас в таблице более 3 тысяч записей и в таблице формулы не нужны. Таблица должна формироваться в раз неделю в жатые сроки и передаваться дальше. Поэтому макрос удобней будет для работы.
На счет точек вы правы. Исправила
Просто мы еще в раздумьях возможно будет и без точек.
Тогда как их убрать

Добрый день! Нужна помощь в написании макроса.


Существует код из середины кода необходимо выделить шесть значений. Всегда начинается с 12 позиции (точки считаются) Если начинается с любого значения (Цифры, буквы) то необходимо выделить шесть значений (точка учитывается), но если начитается с & (ампирсанта) то значение не пишется в ячейку.
Может сумбурно объяснила, но в примере все вроде понятно.

Удалить необходимо строки в которых инвентарные номера совпали
спасибо, сейчас попробую