avatar
avatar

Kenz

Кострома (RU)


Активность в темах:
 
Курилка3 дня

 
Курилка21 день

 
Курилка1 месяц

 
Курилка2 месяца

 
Курилка2 месяца

 
Законодательство2 месяца

 
Кузов и салон2 месяца

 
Курилка2 месяца

 
Курилка2 месяца

 
Курилка2 месяца

Автор тем:
 
Курилка4 года

 
Курилка6 лет

 
Автомобили6 лет

 
Курилка6 лет

 
Курилка6 лет

 
Курилка6 лет

 
Курилка7 лет

 
Курилка7 лет

 
Курилка7 лет

 
Курилка7 лет

avatar
Kenz
12 января


Танзания это

avatar
Kenz
25 декабря 2020


Weber
Сертификатик бы глянуть.

avatar
Kenz
23 ноября 2020

10

nip
Тверской вагоностроительный завод, скоро отправят заказчику
posted image

avatar
Kenz
13 ноября 2020


чет уже вроде знакомые лица

OS Android Курилка
avatar
Kenz
12 ноября 2020


Олегин
а планшеты у тебя есть?

avatar
Kenz
9 ноября 2020

11

soho
posted image

avatar
Kenz
5 ноября 2020


Серега177
а заднюю дверь как открыть?

avatar
Kenz
2 ноября 2020

1

Kpok
Лучше не надо.
К сожалению не знаю как и в каких МРЭО это организовано. Там где я был, при выдаче талончика на терминале надо было забить номер VIN, по талончику попадаешь в очередь, сотрудник гаи забил этот номер VIN с ошибкой в одном символе, я потом ходил по кабинетам чтобы они это исправили у себя свою же ошибку!! Выснилось это на этапе выдаче СТС, сотрудник позвал к окошку и сказал документы выдать не могу, идите к начальнику в кабинет № такой то, я в недоумении зачем и почему, а оказалось их косяк и я там доказывал какой VIN правильный и что в талончик его вбивал сам сотрудник ГАИ а не я!

avatar
Kenz
2 ноября 2020

1

Kpok
попробуй записаться, если прокатит, этот гемор отвалится! две недели назад свободных дат по всей Москве не было и записи ни в одно МРЭО не было.

avatar
Kenz
2 ноября 2020


Kpok
г. Москва? если да, можешь оставить затею с госуслугами и сразу ехать занимать живую очередь, чем раньше тем лучше и быть готовым приехать в 4 утра на перекличку, потом придти к открытию к 8 утра и обнаружить что вчера перед тобой было 20 человек, а теперь 60 (их привели дармоеды из контор по оказанию платных услуг помощи в регистрации авто и расположены они рядом с МРЭО), поэтому быть готовым что, даже если занял очередь, всёравно с первого раза талончика не достанется и придется занимать очередь и второй и третий раз. Есть вариант заплатить 6-10 тыс дармоедам. Есть шансы в 10 дневный срок не успеть, поэтому повторюсь чем раньше пойдёшь занимать очередь, тем лучше. можно даже щас, к тому времени машину из салона заберешь.

avatar
Kenz
30 октября 2020


Брал быстрый кварц от Shine Systems и квик детейлер от них же. Очень хороший результат, по цене дешевле коха.

posted image

avatar
Kenz
26 октября 2020


avatar
XXmaxx:

-SSID-
7 стояла, отвалился интернет, обновления длям7 теперь же нет. Связываю с этим.


на ноуте вылазили предупреждения что прекращается поддержка и Вин7 больше работать не будет. В настройках отключил обновление и еще какие-то службы выключил в реестре. Пока продолжает работать.

avatar
Kenz
26 октября 2020


avatar
andel:

а что у тебя есть: wb.Path и s.Name?

я к сожалению не профи в этом s.name это SaveName
wb WorkBook

Но я нашел уже другой код, который работает как надо, чуть чуть подредактировал его. Убрал в конце команду закрывать файл после сохранения.
Опять же в коде не профи, поэтому некоторые обозначения или команды не могу объяснить зачем нужны. Опять же здесь к примеру первым делом идут команды диалога Сохранить как, и присвоить имя файлу, а уже потом команды Скопировать активный лист, для меня это пока не ясно. Но код работат как и хотел. Единственное, вместо "\" пытался прописать путь куда сохранять, но тогда ошибка.
цитата:
Sub Save_as()
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = ThisWorkbook.Path & "\" & ThisWorkbook.ActiveSheet.Name
If .Show = 0 Then Exit Sub
ThisWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With
здесь было закрытие книги после сохранения.
End Sub

avatar
Kenz
25 октября 2020


Antonov_YS
Возможно и так, тогда перед сохранением не хватает команды ActiveBook или ThisWorkBook, надо попробовать прописать

avatar
Kenz
25 октября 2020


aludov
Попробую у себя на домашнем компе сделать, может на самом деле политика безопасности не позволяет, но это уже никак не исправлю, и антивирус отключить не смогу, доступ закрыт айтишниками.

avatar
Kenz
25 октября 2020


Ну вобщем вот так это происходит. (Макрос назначил на кнопку и добавил на панель быстрого доступа) Макрос сохранён и в этой книге и в книге макросов тоже.
http://www.youtube.com/watch?v=QF-zHIAgWP4

Лист копируется в новый файл а дальше при сохранении ошибка, причем если самому выбрать "Сохранить как", то всё нормально.

avatar
Kenz
25 октября 2020

3

avatar
Anikiy:

На работе хранишь? Это ты ловко придумал.

posted image
🙂

aludov
поковыряюсь, может найду в чем дело. вобщем может быть что угодно, может тупо на сетевой диск не хочет сохранять поэтому пишет объект не найдет. ща попробую если прямо на компе сохранит или нет.

upd
не сработало. ковыряюсь дальше.

avatar
Kenz
25 октября 2020


avatar
aludov:

Ей нужен пустой файл с нужным именем чтобы него писать? вот у тебя файл основной к примеру "Анализ.xls", а писать ты хочешь в "Анализ123.xls". Создай его предварительно в скрипте или руками, права на запись-редактирование, видимость и все такое. Но это так, из опыта написания батников в лохматых годах, может тут так же работает...

Не, когда сохраняю файл причем уже создан и имеет имя с которым и пытаюсь сохранить.
Но пробовал и как новый сохранить всеравно ошибка.
Может быть он хочет сохранить только с автоматически присвоенным именем? Анализ123.
Ща приеду на работу, попробую.

Вся суть в том что у меня книга эксель, в ней листов 50, по итогам работы надо каждый лист сохранить в отдельный файл. В ручную щелкать надоело и много времени уходит на одинаковые операции.
Макрос прописал чтобы активный лист копируется в новую книгу, дальше выходит стандартный запрос «Сохранить как» и вот на этапе выбрал путь и имя, нажимаю сохранить и облом.

avatar
Kenz
25 октября 2020


avatar
aludov:

папка не создана?

Папка создана и путь выбираю туда где находится исходный файл

avatar
Kenz
25 октября 2020


ДОбрый день!
Подскажите по Экселю, код в конце выдает ошибку, На этапе выбираю имя файла и нажимаю сохранить вылазит Object required

Сам код:
Sub Macros01()
'1 Сохраняем лист и отправляем в новую книгу
ThisWorkbook.ActiveSheet.Copy Before:=Workbooks.Add.Worksheets(1)
Dim fName As Variant

'~~> Offer user to Save the file at a particular location
fName = Application.GetSaveAsFilename & wb.Path & "\" & s.Name & ".xlsb"

End Sub