Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Олег
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 След.
Копирование файлов в облако
 
#
25.09.2020 13:39:53
Вчера наверное был какой то сбой, сегодня всё прекрасно работает
Спасибо всем откликнувшимся
 
Перейти    
Копирование файлов в облако
 
#
24.09.2020 22:47:38
поменял 1 на 0
run error 58 - на эту строку
 
Перейти    
Копирование файлов в облако
 
#
24.09.2020 21:43:25
заменил на
Код
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile sFileName1, sNewFileName1, 1 'копируем файл

но файл по прежнему не копируется, и ошибка не выскакивает
просто макрос выполнился, но ничего не скопировалось
Изменено: Олег - 24.09.2020 21:43:51
 
Перейти    
Копирование файлов в облако
 
#
24.09.2020 21:16:35
заменил
Код
FileCopy sFileName1, sNewFileName1 'копируем файл

на
Код
FileSystemObject.CopyFile sFileName1, sNewFileName1, [True] 'копируем файл

но это не помогло, на этой строке выскакивает ошибка
пробовал и без последнего элемента, синтаксис брал тут
я самоучка, может что то не учёл? менял одну строку
 
Перейти    
Копирование файлов в облако
 
#
24.09.2020 20:49:32
удалять файлы нельзя
в первоисточнике файл должен остаться
в конечном - это гуглдрайв - удалять файл нельзя, нужно именно заменять, т.к. как ни странно при замене публичная ссылка остается действовать, а если файл удаляю и на его место другой с таким же названием - то нужно делать новую публичную ссылку
 
Перейти    
Копирование файлов в облако
 
#
24.09.2020 20:31:50
Необходимо каждый день копировать в облако несколько файлов. Подсмотрел в интернете код тут. Немного подправил его. Но он почему то не работает.
Ошибки не выскакивают, но и файлы не копируются. Помогите поправить. Спасибо
Код
Sub Copy_File()
    Dim sFileName1, sFileName2, sFileName3, sFileName4, sFileName5, sFileName6 As String
    Dim sNewFileName1, sNewFileName2, sNewFileName3, sNewFileName4, sNewFileName5, sNewFileName6 As String
    Dim ПутьКРабочемуСтолу, d, PUT_FILE As String

    ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    d = Format(Date, "DDMM") ' присваиваем переменной d значение текущего дня и месяца
    PUT_FILE = ПутьКРабочемуСтолу & "\MyBook " & d

    sFileName1 = PUT_FILE & "\Прайс оптовый.xlsx"    'имя файла для копирования
    sFileName2 = PUT_FILE & "\Основной прайс.xlsx"    'имя файла для копирования
    sFileName3 = PUT_FILE & "\Прайс как онлайнер.xlsx"    'имя файла для копирования
    sFileName4 = PUT_FILE & "\Прайс под заказ.xlsx"    'имя файла для копирования
    sFileName5 = PUT_FILE & "\Прайс с мин. ценами.xlsx"    'имя файла для копирования
    sFileName6 = PUT_FILE & "\Смарт прайс.xlsx"    'имя файла для копирования
    sNewFileName1 = "G:\Мой диск\Оптовый прайс\Прайс оптовый.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName2 = "G:\Мой диск\Прайсы\Основной прайс.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName3 = "G:\Мой диск\Прайсы\Прайс как онлайнер.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName4 = "G:\Мой диск\Прайсы\Прайс под заказ.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName5 = "G:\Мой диск\Прайсы\Прайс с мин. ценами.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    sNewFileName6 = "G:\Мой диск\Прайсы\Смарт прайс.xlsx"    'имя копируемого файла. Директория(в данном случае диск G) должна существовать
    
    FileCopy sFileName1, sNewFileName1 'копируем файл
    FileCopy sFileName2, sNewFileName2 'копируем файл
    FileCopy sFileName3, sNewFileName3 'копируем файл
    FileCopy sFileName4, sNewFileName4 'копируем файл
    FileCopy sFileName5, sNewFileName5 'копируем файл
    FileCopy sFileName6, sNewFileName6 'копируем файл
End Sub

в конечной папке файлы с таким названием есть, их нужно заменить
 
Перейти    
Наименование валюты прописью
 
#
14.08.2019 18:02:03
Спасибо большое
 
Перейти    
Наименование валюты прописью
 
#
14.08.2019 17:43:12
нужно: 100 рублей 00 копеек
сумма прописью дает: сто рублей ноль копеек
вот вся разница
 
Перейти    
Наименование валюты прописью
 
#
14.08.2019 17:36:19
Добрый день
Нужно сделать прописью валюту
Пример
1,01 – 1 рубль 01 копейка
3,15 – 3 рубля 15 копеек
5,03 – 5 рублей 03 копейки
100 – 100 рублей 00 копеек
Поиском нахожу только сумму прописью, а такой вариант как мне нужен не могу найти. Помогите пожалуйста
Можно макросом
 
Перейти    
Подсчёт повторов на двух листах
 
#
11.12.2018 13:27:43
JayBhagavan, сделал
 
Перейти    
Подсчёт повторов на двух листах
 
#
11.12.2018 12:45:30
Файл по ссылке, он 3 мб, но архиватор его не сжимает
 
Перейти    
Подсчёт повторов на двух листах
 
#
11.12.2018 12:42:02
Добрый день
Написал простой макрос (я не профессионал), который на листе вчера объединяет ячейки по А и В, затем на листе сегодня также объединяет ячейки по А и В, а затем в столбце L считает их. Тем самым понимаю сколько повторяющихся.
Вроде и строк не много, но эксель ибо зависает при выполнении, либо вычисляет около 30 минут. Если всё тоже самое делать вручную, то вместе с написанием формул занимает
минуту.
Помогите подправить макрос
Заранее благодарен
Файл почему то большой и не сжимается
вот ссылка https://yadi.sk/d/SiK9YtqeJX4rag
Изменено: Олег - 11.12.2018 12:43:02
 
Перейти    
Закрепить верхнюю строку., Как сделать, чтобы верхняя строка постоянно была вверху.
 
#
30.07.2018 22:46:39
Код
Sub Macro1()
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("f2:f" & [f65000].End(xlUp).Row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("a2:i" & [f65000].End(xlUp).Row)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Изменено: Олег - 30.07.2018 22:47:11
 
Перейти    
Как подсчитать сумму значений от 350 000 до 600 000?
 
#
27.03.2018 20:20:21
вариант с допстолбцом
 
Перейти    
Извлечь структуру из группированных данных
 
#
27.01.2018 10:43:19
Karataev, спасибо большое за помощь
 
Перейти    
Извлечь структуру из группированных данных
 
#
25.01.2018 12:49:45
Если можно в макросе пометьте как изменить, если структура будет по другим столбцам, чтобы смог сам в дальнейшем изменять макрос
Спасибо
 
Перейти    
Извлечь структуру из группированных данных
 
#
25.01.2018 12:45:14
Добрый день
Есть прайсы, из которых нужно извлечь группировку (как в примере столбцы V и W)
К сожалению своих знаний не хватает как это сделать
На всякий случай прикладываю весь прайс (10 мб) https://yadi.sk/d/-0RM-eNa3RmY72
Заранее благодарен за помощь
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 14:29:53
Юрий М, большое спасибо, теперь то что нужно
Но макрос AAF, работает значительно быстрее
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 14:14:41
Спасибо AAF, ваш вариант отмечает повторяющиеся, и работает очень быстро
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 14:03:19
я не настолько силён в макросах, чтобы самому изменить ваш макрос, к сожалению
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 13:58:40
Заменил, выскакивает ошибка
Named argument not found
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 13:50:52
Юрий М, спасибо, но работает немного не корректно
в Списке лишнего есть позиция Средство защиты от комаров, в примере в Лист 1 Такая позиция представлена один раз, а в оригинале несколько раз, ваш макрос ставит 1 только на первой позиции, а хотелось бы на каждой
Вот пример
 
Перейти    
Поиск соответствий по списку
 
#
21.11.2017 12:38:11
Добрый день!
Помогите решить вопрос
Есть список товаров, размещен на Лист1 и есть список категорий размещен на листе Список лишнего
Нужно напротив каждой строки листа1 поставить 1 если слово из списка на листе Список лишнего присутствует в тексте товара, и соответственно 0 если отсутствует
Всего в Лист1 порядка 200 000 строк, в листе Список лишнего 5 000 строк
Заранее благодарен
 
Перейти    
userform combobox список из другого листа
 
#
01.11.2017 23:45:44
Большое спасибо, увидел ошибку
 
Перейти    
userform combobox список из другого листа
 
#
01.11.2017 23:24:37
Добрый день!
Помогите подправить макрос
Нужно, чтобы при активации ячейки М1:О1 появлялась userform8, в которой combobox1 должен заполниться данными с листа "База данных" столбца О со второго по последний заполненный, выбранные данные из Combobox1 вставлялись в ячейку М1:О2
Где-то в макросе затаилась ошибка и Combobox1 не заполняется
Помогите пожалуйста
Заранее благодарен
 
Перейти    
Как вырезать из текста нужную информацию
 
#
04.10.2017 16:42:22
Спасибо, что то я в конце дня на ровном месте придумал себе работы
 
Перейти    
Как вырезать из текста нужную информацию
 
#
04.10.2017 16:35:41
Добрый день!
В Ячейке А9 есть текст Коммерческое предложение на поставку товара №7102/1410 для СЗАО "ФИДМАШ" (в нём есть символ переноса на другую строку)
В ячейке G1 нужно оставить только такую информацию Комм.пред. №7102/1410 для СЗАО ФИДМАШ
Попытался написать формулу, но почему то она не очень корректно работает. Длинна символов в № заранее не известна
Заранее благодарен
 
Перейти    
Если артикул заканчивается на "0", то удалить "0"
 
#
13.08.2017 22:54:57
В Вашу формулу добавил еслиошибка
=ЕСЛИОШИБКА(ЛЕВСИМВ(A7;НАЙТИ("0";A7)-1);A7)
 
Перейти    
Поставить пробел через каждые 4 символа
 
#
25.07.2017 16:36:27
Всем спасибо, вариант Sanja хоть и длинный, но удобнее остальных
 
Перейти    
Поставить пробел через каждые 4 символа
 
#
25.07.2017 15:13:29
Добрый день!
Помогите решить вопрос.
Есть расчётные счета типа BY58AKBB30120606065776000000
Нужно через каждые 4 символа поставить пробел, чтобы получилось BY58 AKBB 3012 0606 0657 7600 0000
Хотелось бы какой то формулой, т.к. р/с в формате с пробелом будет "сцепляться" с другим текстом
Заранее благодарен
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 След.
Наверх