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

Страницы: 1
Перенос строк с сохранением формул
 
#
19.11.2017 23:01:08
на каждом листе формулы в разных столбцах будут, в зависимости от показателя, где то два значения , где то 5
 
Перейти    
Перенос строк с сохранением формул
 
#
19.11.2017 22:53:52
есть одна идея, но немного коряво работает..вот макрос маленький...он копирует вниз, но хотелось бы что б внизу ячейки пустые были...можно конечно прописать как очистить содержимое, но не совсем понимаю как это сделать
Код
Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+ч
'
    Range("S2:U2").Select
    Selection.AutoFill Destination:=Range("S2:U80"), Type:=xlFillDefault
    Range("S2:U80").Select
End Sub
 
Перейти    
Перенос строк с сохранением формул
 
#
19.11.2017 21:02:19
Здравствуйте, подскажите идею, есть книга, лист называется реестр, макрососм переносятся строки на нужные листы, но есть маленькая проблема,  он затирает формулы, которые используются для расчета, может есть у кого идея как сделать автоперенос, и но так что б формулы не стирались.
Изменено: Денис - 19.11.2017 21:05:42
 
Перейти    
добавление в выпадающий список новых значений
 
#
16.11.2017 22:46:21
поправил имя, но все равно оно осталось прежнее все
 
Перейти    
добавление в выпадающий список новых значений
 
#
16.11.2017 21:52:22
Здравствуйте, подскажите пожалуйста что у меня случилось с макросом, раньше работал нормально, добавил еще два макроса, в отдельные модули, другие работают, а этот не хочет почему то, идея в том что б добавлял при необходимости данные в выпадающий список. Спасибо.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim lReply As Long
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$c$2" Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Range("сббж"), Target) = 0 Then
          lReply = MsgBox("Добавить введенное имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Range("сббж").Cells(Range("сббж").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
End Sub

или его надо как то срастить с макросом который автоматически время ставит???
Изменено: Денис - 16.11.2017 22:06:33
 
Перейти    
Страницы: 1
Наверх