Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Формула ВПР с выделением диапазона, ВПР
 
Добрый день.
Ребята, нужна помощь, пожалуйст.
Кода нет и не могу понять все сделать.
Тема модет уже старая и где то была.
Но может и нет.
На лист "Выдача" с листа "ОТПУСК" протянуть сумму по совпадению ФИО.
Но на листе "ОТПУСК" есть разные месяца и нужно конкртно выделять диапазон поиска совпадений.
И есть трабл на листе "ВЫДАЧА" есть человек уже с суммой. ее удлять нельзя, но нужно что бы суммы попали ко всем и не зацепили уже существующую.
Буду очень благодарен за помощь.
Изменено: NOVAK - 28.03.2019 14:04:28
Макрос копи/паст с листа на лист по данным
 
Ребята, добрый день.
Есть макрос но не могу понять почему рубит
Помогите пожалуйста.
Код
Sub Макрос1()
Dim i As Integer
ActiveCell.Copy
For i = 1 To 1000
    ActiveCell.Offset(1, 0).Select
    
    Sheets("БАЗА").Select
    Range("D1").Select
    Selection.PasteSpecial
    Rows("1:10").Select
    Range("B1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("СВОД").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next i
End Sub
Изменено: NOVAK - 10.11.2017 17:55:18
Нарисовать границы таблицы
 
Добрый день.
Прошу помощи.
Во вложенном файле есть данные и готовая таблица.  Под таблицей есть перечень дополнительных данных.
Можно ли как с помощью макроса выделить первые три кода, которые под таблицей, и макрос сделал такой же формат таблицы только с выделенными данными.
Процедура работы макроса, выделить нужный диапазон кодов и вставить шаблон таблицы.

Буду признателен за помощь.
Код на вставку пустых строк с выделенным диапазоном
 
Добрый день.
Ребята есть такой макрос на вставку пустых строк, когда выделяешь диапазон, но он вставляет между данными по 1 пустому.
 
Код
Sub
  Proredit()On Error Resume NextSet rngD =
  Application.InputBox(Prompt:="Выделите диапазон для " & Chr(13)_& "прореживания пустыми строками", Title:="Ввод диапазона", Type:=8)rs = rngD.Item(1).Rowrf = rngD.Item(rngD.Count).RowApplication.ScreenUpdating = False
For i = rs To rf * 2 - rs - 1
  Step 2Rows(i + 1).Insert
  Shift:=xlDownNext iApplication.ScreenUpdating = True
End Sub
                                                                         
Подскажите пожалуйста, где в этом макросе можно изменить не на 1 а на любое количество?
Заранее спасибо)
Хорошего дня.
Изменено: NOVAK - 29.09.2017 12:00:14
Автозаполнение определенной формы таблицы, Макрос за автозаполнение
 
Доброго времени суток.
Первый раз обращаюсь, первый день регистрации. Не судите строго.
Вложил файл.
Просьба помочь пожалуйста с макросом.
В колонке "F" есть данные (2 кода)
В диапазоне A:D таблица.
Можно как то сделать автоматическое создание такой таблицы, когда выделел диапазон данных, макрос сработал на вставку пустых между кодами и сразу нарисовал такую таблицу? кодов будет больше, в примере 2.
Первое что я делаю, у меня есть макрос, на вставку пустых строк, он между кодами вставляет 9 пустых.
Спасибо за понимание.
Страницы: 1
Наверх