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

Страницы: 1
Вставить строки на другой лист по условию
 
Добрый день!
Подскажите, пожалуйста, как можно вставить строки из другого листа по условию. Именно вставить, потому что при копировании нужно отслеживать количество пустых строк и если они не совпадают то данные накладываются на записи снизу. Код который я пытаюсь доработать ниже. Файл примера во вложении.
Код
Sub Кнопка1_Щелчок()
Dim LastRow As Long, Rw As Long '
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Онега")
        Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Rw = 10
        For i = 2 To LastRow
            If Cells(i, 9) = "Онега-строй" Then
                Range(Cells(i, 6), Cells(i, 6)).Copy .Cells(Rw, 7)
                Range(Cells(i, 2), Cells(i, 3)).Copy .Cells(Rw, 2)
                Rw = Rw + 1
            End If
        Next
Как поставить одним действием знак равно в диапазоне ячеек
 
Добрый день!
Есть большой массив данных, копируется с одного файла в другой. В столбце возникают данные вида 1531,60+7896+54442 (как текст), подскажите, пожалуйста, как можно вычислить данные ячейки одним действием, не нажимая на каждую и ставить знак равно.
Как заставить работать в файл в совместном доступе
 
Добрый день!
Подскажите, пожалуйста, как можно заставить работать файл в совместном доступе? Во вложении файл, если дважды нажать на столбец А, то строка фала подсвечивается зеленым и делает эту строку защищенным от изменений. Без общего доступа все работает нормально. Как только открываешь общий доступ возникает ошибка. Помогите, пожалуйста.  
Вывести диалоговое окно по условию
 
Добрый день!
Подскажите, пожалуйста, как сделать так, что бы выскакивало диалоговое окно с ошибкой,  если по одной дате (лист1, столбец  С в примере) количество одинаковых значений (столбец D) превышает 7. И дальше так же по всем датам?
Изменено: otg666 - 25.08.2018 15:42:50
Условное форматирование VBA, Как сделать так что бы по определенной ячейке можно было сделать условное форматирование
 
Добрый день!
Пытаюсь сделать что бы при нажатии на ячейку выскакивало диалоговое окно и при положительном ответе строка прокрашивалась цветом. Получилось пока сделать только по одной  строке, подскажите, пожалуйста, как можно сделать что бы по клику на любую ячейку в столбце "удаление" закрашивалась только нужная строка. Вот что у меня получилось
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Set r = Application.Intersect(Range("C2"), Target)
If Not r Is Nothing Then
If MsgBox("Пометить на удаление", vbOKCancel) = vbOK Then
ActiveWorkbook.Worksheets("Отчет").Range(Cells(2, 1), Cells(2, 24)).Interior.Color = vbRed
End If
End If

End Sub

в файле страница "отчет" столбец "С"
Изменено: otg666 - 23.08.2018 19:47:54
Поиск ячейки по критерию и прибавление к ней время, Поиск ячейки по критерию и прибавление к ней время
 
Добрый день!
Помогите, пожалуйста. В таблице нужно найти следующую строку по критерию склад/магазин и к времени в этой строке добавить норму на выгрузку. Т.е есть запланированное время прибытие, если вписывать поставщика который идет на склад следующее время прихода машины на склад изменялось согласно нормам выгрузки.

Заранее спасибо !
объединить данные в диаграмме, Помогите объединить значения в вертикальной оси
 
Добрый день!
Помогите, пожалуйста, объединить в вертикальной оси данные. Нужно что бы склад 9 данные по времени шли один за другим.
Вычитание из одного числа по очереди
 
Добрый день! Помогите, решить одну задачу. В файле есть данные с суммой в каждой строчке. Необходимо вычитать из остатка каждое число и когда остаток стане равным нулю, окрасить остальные данные в какой - нибудь цвет. За ранее спасибо за помощь.
Страницы: 1
Наверх