Сайт www.fmc.uz Форум бухгалтеров и предпринимателей Узбекистана
Вопросы по налогообложению, праву и бухгалтерскому учету
 
Программы и файлы от наших пользователей FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Личные сообщенияЛичные сообщения   Подписка   ВходВход 
 

Программа ведения бухучета на Excel и другие полезные файлы
На страницу Пред.  1, 2, 3 ... 50, 51, 52 ... 65, 66, 67  След.
 
Начать новую тему   Ответить на тему    Список форумов Форум бухгалтеров и предпринимателей Узбекистана -> Новости, правила, замечания и предложения
Предыдущая тема :: Следующая тема  
Автор Сообщение
Axadxon
Участник форума


Зарегистрирован: 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
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Чт Фев 23, 2017 9:46 am    Заголовок сообщения: Ответить с цитатой

Axadxon писал(а):
Опять выходит так, может здесь где то ошибка


Sub copyright()
Dim lLastRow As Integer
Dim i As Integer
Dim fn As Long
e
End Sub


Workbooks("excel1.xlsx").Close лишнее . свойство close удаляеетфайл

Непонятно одно . Зфчем 2 файла excel , excel1 . достаточно 1 файл
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Чт Фев 23, 2017 10:00 am    Заголовок сообщения: Ответить с цитатой

кажется ошибся . это свойство закроеет файл .


Kill ThisWorkbook.Path & "\excel1.xlsx" а это уже удаляят файл . свойство Kill
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Murad aka
Ас бухучета


Зарегистрирован: 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

Измените 2016 на 2017 и все.
Поблагодарили(1): Axadxon
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Erkin7484
Участник форума


Зарегистрирован: 17.04.2011
Сообщения: 22
Благодарности: 0/4
Откуда: Yangier

СообщениеДобавлено: Чт Фев 23, 2017 4:19 pm    Заголовок сообщения: Ответить с цитатой

Или наименование файла Зарплата-2017-M.xlsm измените на Зарплата-2016-M.xlsm
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Мухаббат
Участник форума


Зарегистрирован: 27.07.2012
Сообщения: 38
Благодарности: 3/33
Откуда: Бухарская область

СообщениеДобавлено: Чт Фев 23, 2017 11:04 pm    Заголовок сообщения: Ответить с цитатой

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


Извините у меня такая ошибка . Незнаю как исправить. Пожалуйста посмотрите.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Пн Фев 27, 2017 6:48 am    Заголовок сообщения: Ответить с цитатой

Тем , кто интерисуется программированием , это будет полезным для ВАСЬ . Начинаем с перелистацией книги в примере программы от Муроджана " Зарплата -2017-М"
[img][/img]

с добавленим шаблон на ИНПС и оставим там 1 шаблон на Соц страх.
Шаблон на з/пл. объязательно ли быт 46-47 графах и указат там разные оплаты и выплаты . Ведь все равно весь статьи налогого кодекса по з/пл не можем охвативат одним шаблоном . В теории программировании существует понятия пакет программ . Т.е создаём 1 папку и разместим туда несколко файлов частными случаями . тогда шабоны сводится 25-26 графами и расчёты НДФЛ и ЕСП все заполнится программно .
прикрерил файл от Муроджана переделенной мною, изменив формулы вычисления п/н . с добавлением шаблон на ИНПС и оставив там 1 шаблон на соц. страх.

http://dump.uz/9d7617f720b62231a0e50ac266f521e5
Поблагодарили(1): Мухаббат
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Мухаббат
Участник форума


Зарегистрирован: 27.07.2012
Сообщения: 38
Благодарности: 3/33
Откуда: Бухарская область

СообщениеДобавлено: Пн Фев 27, 2017 5:55 pm    Заголовок сообщения: Ответить с цитатой

Ассалому алейкум Хабибуллох ака. Езаятган программаларингиз учун катта рахмат Сизга, Мурод ака хам.

Бизлар учун жуда хам катта ердам бу программалар.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Мухаббат
Участник форума


Зарегистрирован: 27.07.2012
Сообщения: 38
Благодарности: 3/33
Откуда: Бухарская область

СообщениеДобавлено: Пн Фев 27, 2017 5:57 pm    Заголовок сообщения: Ответить с цитатой

куйида езилган файлдан скачать килиб булмаяпти нимагадир.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Timray
Участник форума


Зарегистрирован: 12.02.2016
Сообщения: 31
Благодарности: 8/8
Откуда: Ташкент

СообщениеДобавлено: Вт Фев 28, 2017 9:33 pm    Заголовок сообщения: Ответить с цитатой

Вот здесь расчет зарплаты на 2017й год и расчет от обратного в простой и удобной форме)
Забирайте! Smile
https://cloud.mail.ru/public/6qH8/qY1kbsBRT

если возникнут вопросы или предложения пишите сюда телеграм @timray
Поблагодарили(1): Мухаббат
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Timray
Участник форума


Зарегистрирован: 12.02.2016
Сообщения: 31
Благодарности: 8/8
Откуда: Ташкент

СообщениеДобавлено: Вт Фев 28, 2017 9:49 pm    Заголовок сообщения: Ответить с цитатой

ВЗЛОМ 1С 7.7.
Хоть и 1С 7.7. немного теряет актуальность, но я лично запарился взламывать их обычными путями.
То список пользователей обратно трудно вернуть, то еще какие то сюрпризы после взлома и изменений.
Вообщем вот нашел решение - взламывайте в свое удовольствие)

В архиве есть файл 1СV7s.exe запускаете и как обычно открываете конфигурацию, которая была запаролена.
https://cloud.mail.ru/public/4K81/uUAf9hWYJ
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Ср Мар 01, 2017 1:28 pm    Заголовок сообщения: Ответить с цитатой

https://ru.files.fm/u/xky8kmhn
Поблагодарили(1): Мухаббат
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Пт Мар 03, 2017 6:33 am    Заголовок сообщения: Ответить с цитатой

программах на з/пл некоторые для вычисление п/н при помощи ЕСЛИ использует 365 ,465 символов . Это слышком грубо для такой постановки задач . оказывается есть более компактные формулы

[img][/img]

ныже прилагаю папку на вычисление п/н в 4 х вариантах самыми корткими формулами ,занесение данных на шаблон соц страха и ИНПС , который код обращении прилагается в текстовом файле .


https://ru.files.fm/u/vqkuj4br
Поблагодарили(1): Timray
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Muxochka
Участник форума


Зарегистрирован: 12.01.2015
Сообщения: 49
Благодарности: 1/41
Откуда: ТАШКЕНТ

СообщениеДобавлено: Пт Мар 03, 2017 11:29 am    Заголовок сообщения: Ответить с цитатой

Здравствуйте. Проблема в программе расчета зарплаты на 2017 год. Мурад-ака. Ввела данные за февраль, не верно выводит ИНПС по совместителю. Как быть???
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Habibulloh
Участник форума


Зарегистрирован: 18.11.2014
Сообщения: 56
Благодарности: 15/0
Откуда: Паркент

СообщениеДобавлено: Пт Мар 03, 2017 9:05 pm    Заголовок сообщения: Ответить с цитатой

Muxochka писал(а):
Здравствуйте. Проблема в программе расчета зарплаты на 2017 год. Мурад-ака. Ввела данные за февраль, не верно выводит ИНПС по совместителю. Как быть???


Во первых о чей программе идёт речь . Если пользуетес программы от Мурода то правильно считает . Если о моей программе идёт речь ,то на на ячейка ИНПС есть формула

=ЕСЛИ(AI12>0;ЕСЛИ(AU12<>2;(W12-AC12-Справка!$C$10)*1%-'4'!AY12;(W12-AC12)*1%-'4'!AY12);0)

там в формулах на всех месяцах вместо выражении -Справка!$C$6.... Справка!$C$17 ставте " м " на русском регистре и формула получает вид

=ЕСЛИ(AI12>0;ЕСЛИ(AU12<>2;(W12-AC12-м)*1%-'4'!AY12;(W12-AC12)*1%-'4'!AY12);0)

просто я это не предусмотрель
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум бухгалтеров и предпринимателей Узбекистана -> Новости, правила, замечания и предложения Часовой пояс: GMT + 5
На страницу Пред.  1, 2, 3 ... 50, 51, 52 ... 65, 66, 67  След.
Страница 51 из 67

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

 


Powered by phpBB © 2001, 2005 phpBB Group