Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » NOVAK
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Формула ВПР с выделением диапазона, ВПР
 
#
28.03.2019 12:48:19
 

А Вы смешной.
Если не так что-то написал, то укажите на ошибки.
Писал быстро.
Переходит на грубости не надо.

Откуда у Клапан Сергей - 1200 не обязательно знать.
Имеется, ввиду что есть число, которое не должно изменится при применение ВПР через макрос. Макрос должен зацепить все пустые ячейки.
ВПР с выделением диапазона это значит, что бы макрос выдал InputBox где нужно выделить сначала старт функции, затем выделить нужный диапазон поиска, который указан в листе "ОТПУСК".
Хотелось сократить время на написание функции ВПР. Это маленькая часть файла, список больше и каждый раз увеличивается.

 
 
Перейти    
Формула ВПР с выделением диапазона, ВПР
 
#
28.03.2019 12:14:20
Добрый день.
Ребята, нужна помощь, пожалуйст.
Кода нет и не могу понять все сделать.
Тема модет уже старая и где то была.
Но может и нет.
На лист "Выдача" с листа "ОТПУСК" протянуть сумму по совпадению ФИО.
Но на листе "ОТПУСК" есть разные месяца и нужно конкртно выделять диапазон поиска совпадений.
И есть трабл на листе "ВЫДАЧА" есть человек уже с суммой. ее удлять нельзя, но нужно что бы суммы попали ко всем и не зацепили уже существующую.
Буду очень благодарен за помощь.
Изменено: NOVAK - 28.03.2019 14:04:28
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
24.11.2017 16:45:15
Спасибо.
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
24.11.2017 16:13:29
Точняк.
Огромное спасибо  :)  
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
24.11.2017 15:53:13
Сори, ну к примеру стою я на А1, нажимаю макрос он вствил таблицу.
Потом пишу текст.
И мне нужнно с А35 вставить снова таблицу.
Кстате добавил одну штуку, сколько копий вставлять.
Код
Sub Макрос1()
Dim i&, lrow&
lrow = 1
Application.DisplayAlerts = False
For i = 1 To InputBox("сколько")
    Лист2.Rows("1:10").Copy Лист1.Range("a" & lrow)
    lrow = lrow + 10
Next i
Application.DisplayAlerts = True
End Sub
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
24.11.2017 15:29:42
Ребята подскажите, пожалуйста.
Макрос Nordheim огонь.
Но не могу ни как понять, как мне в этом коде показать что бы макрос запустился с той ячейки где я оставил курсив.
Буду признателен.
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
22.11.2017 10:23:39
 

Гениально.
Огромное вам спасибо.
Попробую еще поиграться что бы он вставлял только если есть данные.
А так супер. Спасибо еще раз.

 

 
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
21.11.2017 18:08:25
Спасибо.
Но он копирует 1,2,3 на лист "БАЗА".
Хотелось бы наоборот)))
Что бы он таблицу вставил где есть числа))
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
21.11.2017 16:33:14
Да, согласен, не дописал,  If ActiveCell = "" Then GoTo ...((
Просто в ячейке будут не только1,2,3 а и 4,5,6,7...990
Не судите строго, это для меня новое, учусь, пытаюсь, туплю и все такое..)
Изменено: NOVAK - 21.11.2017 16:33:53
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
21.11.2017 16:22:00
 

Как это в файле нету данных?
На листе "СВОД" есть числа 1,2,3 (это как пример)
На листе "БАЗА" нарисована таблица.
Макрос выполняет Копирование таблицы с листа "БАЗА" и вставляет под номер 1 в лист "СВОД"
Следующий шаг он не делает, а должен был бы перейти снова на лист "БАЗА" скопировать таблицу и вставить к номеру 2 и т.д.
Активная ячейка - где находиться 1,2,3

 
Изменено: NOVAK - 21.11.2017 16:22:36
 
Перейти    
Макрос копи/паст с листа на лист по данным
 
#
10.11.2017 17:54:08
Ребята, добрый день.
Есть макрос но не могу понять почему рубит
Помогите пожалуйста.
Код
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
 
Перейти    
Нарисовать границы таблицы
 
#
09.11.2017 15:50:48
"Спасибо"
 
Перейти    
Нарисовать границы таблицы
 
#
07.11.2017 11:00:11
Это не случайно, это я хотел так показать, что не важно сколько пустых строк между значениями, что выделить диапазон с кодами, и именно к этому выделенному диапазону нарисовалась таблица.
то есть макрос применялся к выделенному диапазону.
 
Перейти    
Нарисовать границы таблицы
 
#
07.11.2017 10:24:15
На том же листе, под имеющейся таблицей.
Вложу еще файл просто как должно в итоге быть, для сравнение с первым.
 
Перейти    
Нарисовать границы таблицы
 
#
06.11.2017 18:09:01
Добрый день.
Прошу помощи.
Во вложенном файле есть данные и готовая таблица.  Под таблицей есть перечень дополнительных данных.
Можно ли как с помощью макроса выделить первые три кода, которые под таблицей, и макрос сделал такой же формат таблицы только с выделенными данными.
Процедура работы макроса, выделить нужный диапазон кодов и вставить шаблон таблицы.

Буду признателен за помощь.
 
Перейти    
Код на вставку пустых строк с выделенным диапазоном
 
#
29.09.2017 11:42:41
Добрый день.
Ребята есть такой макрос на вставку пустых строк, когда выделяешь диапазон, но он вставляет между данными по 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
 
Перейти    
Автозаполнение определенной формы таблицы, Макрос за автозаполнение
 
#
28.09.2017 09:50:14
Inexsu, добрый день.
Ваш вариант очень подходит. Немного не понял только как макрос распределяет данные и при копировании таблицы вставляет.
Я вставил новые листы.
А можно ли как то сделать так что бы в колонке "G" вставить 2 кода, выделить, макрос, и он под эти 2 кода вставил шаблон.
Потом в ту же колонку только ниже, вставить 4 кода, выделить, макрос и он вставляет шаблон?
Если не трудно, помогите пожалуйста.
 
Перейти    
Автозаполнение определенной формы таблицы, Макрос за автозаполнение
 
#
27.09.2017 09:27:35
Доброе утро, ребята.
_Igor_61, спасибо огромное. Это просто мего круто. Да коды это и есть данные.
Да было бы круто, если именно эти коды были сразу использованы в обработке.
Имел ввиду, что вот есть 2 кода в столбце, я их выделил, мол показал диапазон обработки, макрос на эти коды вставил таблицу.
Потом в этом же столбце, только уже ниже таблицы вставляю 7 новых кодов, выделяю, макрос, новая таблица ниже созданной ранее.
Я думаю что попробую разобраться в том что Вы написали. Если что, могу ли обратится?
Inexsu, тоже огромное спасибо.=)
Еще раз спасибо, что помогли.
Хорошего всем дня.
 
Перейти    
Автозаполнение определенной формы таблицы, Макрос за автозаполнение
 
#
26.09.2017 15:55:44
Доброго времени суток.
Первый раз обращаюсь, первый день регистрации. Не судите строго.
Вложил файл.
Просьба помочь пожалуйста с макросом.
В колонке "F" есть данные (2 кода)
В диапазоне A:D таблица.
Можно как то сделать автоматическое создание такой таблицы, когда выделел диапазон данных, макрос сработал на вставку пустых между кодами и сразу нарисовал такую таблицу? кодов будет больше, в примере 2.
Первое что я делаю, у меня есть макрос, на вставку пустых строк, он между кодами вставляет 9 пустых.
Спасибо за понимание.
 
Перейти    
Страницы: 1
Наверх