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

Страницы: 1
Не удалять первые 5 строк
 
#
21.08.2018 03:08:06
Александр П., спасибо
 
Перейти    
Не удалять первые 5 строк
 
#
21.08.2018 02:45:59
ап, хелп ми
 
Перейти    
Не удалять первые 5 строк
 
#
20.08.2018 10:37:50
Здравствуйте уважаемый форум. Помогите пожалуйста.
В файле есть 2 макроса на удаление и добавление строк. Нужно запретить этим макросам удалять и добавлять строки в первых пяти строчках таблицы.

Либо настроить отмену последнего действия каждого из макросов, спасибо
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 12:43:53
Цитата
Юрий М написал:
кнопка цитирования не для ответа

Вы тут патрульный постовой?
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 11:55:54
Цитата
БМВ написал:
1Cells(ActiveCell.Row, 5).FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",IF(ISBLANK(RC[5]),"""",DATE(YEAR(RC[-1]),MONTH(RC[-1])+RC[5],DAY(RC[-1]))))"
Спасибо большое ;)
надо срочно самому изучать коды )
Изменено: Fear41 - 15.08.2018 11:56:27
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 10:00:21
Цитата
БМВ написал:
Ваш код строку вставляет? Да. Вопрос по вставке строки есть? Нет. Открыл выше код.
Спасибо работает.... но есть одно но....  переменная в формуле K3 и J3 не меняется. То есть я вставил строку она стала по счету 10 строкой, соответственно нужно чтобы переменные в формуле стали K10 и J10.....так можно сделать?
Изменено: Fear41 - 15.08.2018 10:01:15
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 09:07:28
Цитата
Юрий М написал:
Про какие уступки Вы говорите? Просто посмотрите на название Вашей темы: "Вставка строки с макросом" - разве бывает строка с макросом?
понятно
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 08:43:44
о господи простите извените мне уже второй человек говорит про "ВАШ" форум
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 08:36:59
незнаю о чем ты говоришь у меня по этому макросу вставляется пустая строка....
Я все понимаю что нужно соблюдать правила создания тем и форума в целом,но когда приходят такие как я ,в принцепе ничего не знающие по exel с небольшой просьбой по макросу, нужно идти на уступки....имхо....потому что разговаривать с вами на одном языке не представляется возможным
Изменено: Fear41 - 15.08.2018 14:28:17
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 08:19:34
вот 2  формулы на русском, которые прописаны в ячейке  =ЕСЛИ(ЕПУСТО(D3);"";ЕСЛИ(ЕПУСТО(J3);"";ДАТА(ГОД(D3);МЕСЯЦ(D3)+J3;ДЕНЬ(D3))))
                                                                                        =ЕСЛИ(ЕПУСТО(D3);"";ЕСЛИ(ЕПУСТО(K3);"";ДАТА(ГОД(D3);МЕСЯЦ(D3)+K3;ДЕНЬ(D3))))  
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 08:16:50
Цитата
Юрий М написал:
А макрорекордер не помогает?
вы имеете ввиду записать макрос?  при записи макроса я копировал из другой строки (к примеру с третьей) и вставлял в новую строку. после этого везде строчка вставлялась коректно , кроме третьей строки. незнаю понятно объяснил нет :(  
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 08:12:09
Цитата
БМВ написал:
Только вот тема не про вставку строки. У вас вставка формулы листа в ячейку не получается из-за синтаксиса.Придумывайте новое.
я не шарю что придумывать то)))
файл весит 9мб не могу понять почему так много, так бы сюда закинул для примера наглядности(
 
Перейти    
[ Закрыто] Вставка макросом строк с формулой.
 
#
15.08.2018 07:48:01
Здравствуйте.
Помогите с макросом. Ранее создавал тему, но не весь макрос прописал поэтому доделать сам не могу.
В макросе  нужно подправить чтобы строка вставлялась с формулами
Сами формулы вот:     =ЕСЛИ(ЕПУСТО(D3);"";ЕСЛИ(ЕПУСТО(J3);"";ДАТА(ГОД(D3);МЕСЯЦ(D3)+J3;ДЕНЬ(D3))))
                                 =ЕСЛИ(ЕПУСТО(D3);"";ЕСЛИ(ЕПУСТО(K3);"";ДАТА(ГОД(D3);МЕСЯЦ(D3)+K3;ДЕНЬ(D3))))

Макрос вот :
Код
Sub ÂñòàâèòüÑòðîêó()
    ActiveCell.EntireRow.Insert
    Cells(ActiveCell.Row, 5) = "=IF(ISBLANK(D3);"";IF(ISBLANK(J3);"";DATE(YEAR(D3);MONTH(D3)+J3;DAY(D3))))"
    Cells(ActiveCell.Row, 6) = "=IF(ISBLANK(D3);"";IF(ISBLANK(K3);"";DATE(YEAR(D3);MONTH(D3)+K3;DAY(D3))))"
End Sub
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 10:34:32
Цитата
gling написал:
Еще вариантыКод ? 1234567891011121314Sub Test1()    ActiveCell.EntireRow.Insert      Range(Cells(1, 5), Cells(1, 6)).Copy    Cells(ActiveCell.Row, 5).PasteSpecial Paste:=xlPasteFormulas      Application.CutCopyMode = False    Cells(ActiveCell.Row, 1).SelectEnd SubSub Test2()    ActiveCell.EntireRow.Insert    Cells(ActiveCell.Row, 5) = "=DATE(YEAR(RC[-1]),MONTH(RC[-1])+R3C10,DAY(RC[-1]))"    Cells(ActiveCell.Row, 6) = "=DATE(YEAR(RC[-2]),MONTH(RC[-2])+R3C11,DAY(RC[-2]))"End Sub
спасибо, оба рабочие тему можно закрыть
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 10:26:32
О боже код удалил где тут рука лицо
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 10:24:47
Цитата
TheBestOfTheBest написал:
Неизлечимых болезней нет, есть неизлечимые люди.
о господи это подпись соряяян :D  
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 10:21:41
Цитата
Z написал:
Копировать - не проблема, т.к. данные в виде списка/таблицы их подхватят. Но ведь формулы будут "врать", если не будет данных в поле/столбе "D"...
да это файл недоработанный так для примера выложил.....а в основном файле все четко  там если ячейке D пуста, то E и F тоже пусты
Изменено: Fear41 - 13.08.2018 10:22:39
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 10:08:34
Цитата
TheBestOfTheBest написал:
Неизлечимых болезней нет, есть неизлечимые люди.
Зачем ты оскорбляешь?
 
Перейти    
Вставка строки с формулами в указанную ячейку
 
#
13.08.2018 09:36:15
Здравствуйте, помогите плз.  На просторах инета нашел макрос
Код
Sub Test()
    ActiveCell.EntireRow.Insert
    Rows(1).Copy
    Cells(ActiveCell.Row, 1).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    Cells(ActiveCell.Row, 1).Select
End Sub
Мне нужно не совсем это....а именно
Нужно чтобы вставлялась пустая строка в указанную ячейку с копированием формул из столбца    E   F, то есть копировались только столбцы  E,  F
Изменено: Fear41 - 13.08.2018 09:37:27
 
Перейти    
Страницы: 1
Наверх