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

Страницы: 1
Подсчет времени
 
Добрый день, помогите, пожалуйста, решить проблему с подсчетом времени (хотя формат Время).Почему-то считает как 0:00:00 (пример во вложении)
суммирование данных по условиям в строках и столбцах одновременно, суммирование данных по условиям в строках и столбцах одновременно
 
Добрый день.
Помогите,пожалуйста,с расчётом, необходимо рассчитать сводный файл ( пример во вложении) по 2 критериям, но 1 критерий в столбце (месяц), 2 критерий в строке (направление). В поле период раскрывающийся список, соответственно, в зависимости от месяца, формула будет перерассчитывать сумму. Можно прописать через суммеслимн с условием на каждый месяц..но это загромоздит и без того огромный файл, может быть есть способы покороче? :(  
как в макросе прописать для каких ячеек действует формула, как в макросе прописать для каких ячеек действует формула
 
Добрый день!
Подскажите,пожалуйста,может есть способ решения ситуации (расчеты идут через макрос) : есть 20 ячеек в которых должна быть одна и та же формула, можно ли как то в макросе прописать для каких ячеек действует данная формула или так и придётся копировать её 20 раз..для каждой ячейки?
Перенос данных из унифицированной формы в обычную таблицу Excel
 
Добрый день! Для быстроты расчетов, нужно из унифицированной формы табеля (во вложении) сделать обычную таблицу, в которой будут только столбцы: ФИО, Табельный номер, Отработано часов ,  например:

ФИО,   должностьТабельный номерОтработано,часов
Иванов И.И.,   ведущий инженер2825176
Изменено: katealex - 07.10.2016 11:24:08
Неправильно определяется последняя заполненная строка
 
Код
With ActiveSheet
lrow = Workbooks("21").Worksheets("Лист1").Cells(.Rows.Count, 43).End(xlUp).Row

   Range("AA3").FormulaR1C1 = _
        "=SUMIFS('[21.xlsm]'!R2C43:R" & lrow & "C43,'[21.xlsm]'!R2C30:R" & lrow & "C30,RC[-25],'[21.xlsm]'!R2C18:R" & lrow & "C18,""<>программа"")"
Необходима помощь, не могу понять,почему не считаются все строки ?( Вместо диапазона, последняя строка задана через lrow,не понятно почему не считаются все заполненные строки (всего строк 2889, а считается 2465)
Диапазон заполненной таблицы в формуле (VBA), Диапазон таблицы постоянно меняется( по количеству строк), как прописать в формуле не определенный диапазон,а всех имеющихся строк
 
Помогите,пожалуйста,прописать в формуле не определенный диапазон,а всех имеющихся строк, пример ниже (записан макрорекордером), формула вставляется в Книгу 1, а данные берутся из книги "расчет_тарифов", лист "Город".
Код
Range("AA3").FormulaR1C1 = _
        "=SUMIFS('[расчет_тарифов.xlsm]Город'!R2C45:R2889C45,'[расчет_тарифов.xlsm]Город'!R2C6:R2889C6,""Москва"")"
перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?
 
Код
Sub перенос()
Dim d As String
d = Sheets("Новая схема проводок").Range("B6").CurrentRegion.Rows.Count
Sheets("Новая схема проводок").Range("B6:AO" & d).Select
Range("B6:AO" & d).Copy Sheets("Лист2").Range("A1")
Не пойму почему копирует и переносит не все строки( последние 4 не захватывает), помогите,пожалуйста,разобраться, таблица в диапазоне B:AO, конкретный диапазон не задаю,т.к. размеры таблицы меняются (по количеству строк)
Изменено: katealex - 15.09.2016 10:00:52
Как в VBA прописать много условий?, много If-Else-End If
 
Код
Sub Если()



If Range("AU2") = "420 (1 зона)" & Chr(10) & " 470 (2 зона)" & Chr(10) & " 570 (3 зона) " & Chr(10) & "700 (4 зона)" Then
If Range("AT2") = " " Then
Range("AX2") = 420
Else
If Range("AT2") = 10 Then
Range("AX2") = 470
Else
If Range("AT2") = 50 Then
Range("AX2") = 570
Else
If Range("AT2") = 100 Then
Range("AX2") = 700
Else
Range("AX2") = Range("AU2")

End If
End If
End If
End If
End If
End Sub
Помогите,пожалуйста,почему то не работает макрос и как прописать чтобы он работал до конца таблицы ?
Страницы: 1
Наверх