Зарегистрирован: 20.01.2015 Сообщения: 24 Благодарности: 0/23 Откуда: Бухара
Добавлено: Чт Фев 23, 2017 8:18 am Заголовок сообщения:
Опять выходит так, может здесь где то ошибка
Sub copyright()
Dim lLastRow As Integer
Dim i As Integer
Dim fn As Long
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Filename = ThisWorkbook.Path & "\excel1.xlsx"
Kill ThisWorkbook.Path & "\excel1.xlsx"
Workbooks.Open Filename:=ThisWorkbook.Path & "\excel.xlsx"
Workbooks("excel.xlsx").Sheets(1).Unprotect
i = 12
For i = 12 To lLastRow
Workbooks("Зарплата-2016-M.xlsm").Sheets("Формирование").Rows(i).Copy Workbooks("excel.xlsx").Sheets(1).Rows(i + 3)
Next
Workbooks("excel.xlsx").Sheets(1).protect
Workbooks("excel.xlsx").SaveAs ThisWorkbook.Path & "\excel1.xlsx"
Workbooks("excel1.xlsx").Close
End Sub
Зарегистрирован: 01.03.2014 Сообщения: 1572 Благодарности: 507/52 Откуда: Namangan
Добавлено: Чт Фев 23, 2017 11:27 am Заголовок сообщения:
Axadxon писал(а):
Опять выходит так, может здесь где то ошибка
Sub copyright()
Dim lLastRow As Integer
Dim i As Integer
Dim fn As Long
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Filename = ThisWorkbook.Path & "\excel1.xlsx"
Kill ThisWorkbook.Path & "\excel1.xlsx"
Workbooks.Open Filename:=ThisWorkbook.Path & "\excel.xlsx"
Workbooks("excel.xlsx").Sheets(1).Unprotect
i = 12
For i = 12 To lLastRow
Workbooks("Зарплата-2016-M.xlsm").Sheets("Формирование").Rows(i).Copy Workbooks("excel.xlsx").Sheets(1).Rows(i + 3)
Next
Workbooks("excel.xlsx").Sheets(1).protect
Workbooks("excel.xlsx").SaveAs ThisWorkbook.Path & "\excel1.xlsx"
Workbooks("excel1.xlsx").Close
End Sub
Sub copyright()
Dim lLastRow As Integer
Dim i As Integer
Dim fn As Long
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Filename = ThisWorkbook.Path & "\excel1.xlsx"
Kill ThisWorkbook.Path & "\excel1.xlsx"
Workbooks.Open Filename:=ThisWorkbook.Path & "\excel.xlsx"
Workbooks("excel.xlsx").Sheets(1).Unprotect
i = 12
For i = 12 To lLastRow
Workbooks("Зарплата-2017-M.xlsm").Sheets("Формирование").Rows(i).Copy Workbooks("excel.xlsx").Sheets(1).Rows(i + 3)
Next
Workbooks("excel.xlsx").Sheets(1).protect
Workbooks("excel.xlsx").SaveAs ThisWorkbook.Path & "\excel1.xlsx"
Workbooks("excel1.xlsx").Close
End Sub
Извините у меня такая ошибка . Незнаю как исправить. Пожалуйста посмотрите.
Добавлено: Пн Фев 27, 2017 6:48 am Заголовок сообщения:
Тем , кто интерисуется программированием , это будет полезным для ВАСЬ . Начинаем с перелистацией книги в примере программы от Муроджана " Зарплата -2017-М"
[img][/img]
с добавленим шаблон на ИНПС и оставим там 1 шаблон на Соц страх.
Шаблон на з/пл. объязательно ли быт 46-47 графах и указат там разные оплаты и выплаты . Ведь все равно весь статьи налогого кодекса по з/пл не можем охвативат одним шаблоном . В теории программировании существует понятия пакет программ . Т.е создаём 1 папку и разместим туда несколко файлов частными случаями . тогда шабоны сводится 25-26 графами и расчёты НДФЛ и ЕСП все заполнится программно .
прикрерил файл от Муроджана переделенной мною, изменив формулы вычисления п/н . с добавлением шаблон на ИНПС и оставив там 1 шаблон на соц. страх.
ВЗЛОМ 1С 7.7.
Хоть и 1С 7.7. немного теряет актуальность, но я лично запарился взламывать их обычными путями.
То список пользователей обратно трудно вернуть, то еще какие то сюрпризы после взлома и изменений.
Вообщем вот нашел решение - взламывайте в свое удовольствие)
Добавлено: Пт Мар 03, 2017 6:33 am Заголовок сообщения:
программах на з/пл некоторые для вычисление п/н при помощи ЕСЛИ использует 365 ,465 символов . Это слышком грубо для такой постановки задач . оказывается есть более компактные формулы
[img][/img]
ныже прилагаю папку на вычисление п/н в 4 х вариантах самыми корткими формулами ,занесение данных на шаблон соц страха и ИНПС , который код обращении прилагается в текстовом файле .
Зарегистрирован: 12.01.2015 Сообщения: 49 Благодарности: 1/41 Откуда: ТАШКЕНТ
Добавлено: Пт Мар 03, 2017 11:29 am Заголовок сообщения:
Здравствуйте. Проблема в программе расчета зарплаты на 2017 год. Мурад-ака. Ввела данные за февраль, не верно выводит ИНПС по совместителю. Как быть???
Добавлено: Пт Мар 03, 2017 9:05 pm Заголовок сообщения:
Muxochka писал(а):
Здравствуйте. Проблема в программе расчета зарплаты на 2017 год. Мурад-ака. Ввела данные за февраль, не верно выводит ИНПС по совместителю. Как быть???
Во первых о чей программе идёт речь . Если пользуетес программы от Мурода то правильно считает . Если о моей программе идёт речь ,то на на ячейка ИНПС есть формула
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах