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

Страницы: 1 2 3 4 След.
Как разнести информацию на разные Листы
 
#
04.06.2017 18:04:56
Kuzmich,А как сделать пошаговый просмотр?
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 18:02:23
Kuzmich,Спасибо большое.
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 17:55:26
Kuzmich,Супер, только не могу понять как оно работает. Спасибо большое.
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 16:59:02
Kuzmich,Да
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 16:28:49
Kuzmich,Да Их пока 3, когда будет больше переделаю макрос
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 15:38:12
Кто нибудь может помочь?
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 14:51:00
Юрий М,Извинете, Вставка и распределение происходит с формы. Так выглядит конечный результат обработки. Но есть проблемка мой код работает, если все числа были заполнены, а если взять строителей, там вылетело 31 число из-за этого формула не переносит данные после 31 числа. Помогите пожалуйста.
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 14:42:09
Прикрепил что должно быть на выходе. Но колонок может быть больше или меньше. И кол-во строк тоже увеличивается по каждому магазину
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 13:58:02
Цитата
JayBhagavan написал:
риложите файл(ы) с примером (общим весом не более 100 Кб) в
Не можу сжать. Просто таблица весит 500кб((
 
Перейти    
Как разнести информацию на разные Листы
 
#
04.06.2017 13:48:36
Здравствуйте. Такая задача: есть отчёт. Нужно, чтоб находило Текстовое определённое значение и всё что относится к этому значению вырезало и перемещало на определённый лист. Есть код, но его нужно подправить, так как столкнулся с пустым значением и оно вырезает до него.
Код
Private Sub ВставкаПК_Click()
Application.ScreenUpdating = False
Sheets("П-К").Select
    Range("A1").Select
    ActiveSheet.Paste
    Rows("1:6").Delete Shift:=xlUp
    Rows("4:4").Delete Shift:=xlUp
    Rows("1:3").Copy
    Sheets("П-С").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("П-Т").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("П-К").Select
    Range("A4:C4").Select
    Cells.Find(What:="Тарабукина Магазин", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
        Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("П-Т").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("П-К").Select
    Range("A4:C4").Select
    Cells.Find(What:="Строителей Магазин", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Sheets("П-С").Select
    Range("A4").Select
    ActiveSheet.Paste
    Columns("B:B").ColumnWidth = 70.01
    Columns("D:N").ColumnWidth = 9.14
    Cells.Select
    Cells.EntireRow.AutoFit
    Sheets("П-К").Select
    Columns("B:B").ColumnWidth = 70.01
    Columns("D:N").ColumnWidth = 9.14
    Cells.Select
    Range("A1780").Activate
    Cells.EntireRow.AutoFit
    Range("A4:C4").Select
    Sheets("П-С").Select
    Range("A4:C4").Select
    Sheets("П-Т").Select
    Columns("B:B").ColumnWidth = 70.01
    Columns("D:N").ColumnWidth = 9.14
    Cells.Select
    Cells.EntireRow.AutoFit
    Range("A4:C4").Select
    Sheets("П-К").Select
Application.ScreenUpdating = True
MsgBox "Продажи вставлены и распределены по магазинам!!!"
End Sub
Помогите пожалуйста.
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
11.05.2016 04:24:26
Исправил, всё сохраняет без форм и макросов, а вот на компе где установлен 2003 оффис - файл открывается ироглифами. Кто знает ответ?  :)
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
10.05.2016 22:01:21
Hugo, Не помогает. Ошибка 1004 и всё. Пишет данное расширение нельзя использовать.
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
10.05.2016 20:44:14
Что не так я делаю??? Ошибка на первом действии.
Код
   Application.ScreenUpdating = False
ActiveWorkbook.SaveAs ("\\KVCEN05-FILE001.officekiev.fozzy.lan\Shared Documents\KR\EVPAT8\COMMON\Переоценка\2016\Май\" & Date & ".xlsx")
  ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\\KVCEN05-FILE001.officekiev.fozzy.lan\Shared Documents\KR\EVPAT8\COMMON\Переоценка\2016\Май\" & Date & ".xlsx"
    ChDir _
        "\\KVCEN05-FILE001.officekiev.fozzy.lan\Shared Documents\KR\EVPAT8\COMMON\Переоценка\2016\Май"
    ActiveWorkbook.SaveAs Filename:= _
        "\\KVCEN05-FILE001.officekiev.fozzy.lan\Shared Documents\KR\EVPAT8\COMMON\Переоценка\2016\Май\" & Date & ".xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
  Application.ScreenUpdating = True
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
09.05.2016 11:40:58
Hugo, Формы и макросы всё равно остаются.((
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
09.05.2016 10:32:15
Hugo, А кодом можете?
 
Перейти    
Сохранение файла Ексель 2007 в Ексель 2003, Сохранение без форм и макросов
 
#
09.05.2016 10:00:11
Здравствуйте. Помогите с задачкой. Нужно, чтоб файл Ексель 2007 сохранялся в Ексель 2003, но приетом: не формы, не макросы. не переносились в тот файл.
Мой код для сохранения токов: (Нужно усовершенствовать. заранее спасибо.
Код
Private Sub CommandButton1_Click()
     Application.ScreenUpdating = False
ActiveWorkbook.SaveAs ("\\KVCEN05-FILE001.officekiev.fozzy.lan\Shared Documents\KR\EVPAT8\COMMON\Переоценка\2016\Май\" & Date & ".xls")
    Application.ScreenUpdating = True
 
Перейти    
Запуск файла Excel с Outlook, При этом не открывать сам файл Excel, только форму
 
#
09.05.2016 09:35:11
The_Prist, Благодарочка, помогло.
 
Перейти    
Запуск файла Excel с Outlook, При этом не открывать сам файл Excel, только форму
 
#
07.05.2016 03:41:10
Пытливый, Ничего не понял, а что именно не так?
 
Перейти    
Запуск файла Excel с Outlook, При этом не открывать сам файл Excel, только форму
 
#
06.05.2016 22:23:49
Здравствуйте. Нужно помочь разобраться с одним интересным принцыпом.
Суть: Нужно с почты запустить макрос, чтоб открыл определённый файл Excel.
Это я сделал, запускается, но хочется, чтоб запускалась форма, а файл сам не открывался. Когда вставил код в книгу, то файл перестал запускаться. Ошибок не выдаёт. Просто файл запускаешь, форма запускается. Не могу понять. чего не хватает. Кто поможет разгадать загадку? Спасибо

Это код для Outlook
Код
Sub Zapusk_Excel_iz_Outlook2()Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\мингачёв\Файл переоценка (Крым).xlsm" 'укажите путь и имя существующего файла
objXls.Application.Visible = True
Set objXls = Nothing
End Sub
Это код для Excel
Код
Private Sub Workbook_Open()
MenuForm.Show
End Sub
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 11:57:59
Андрей VG, Супер. то что надо. Спасибо. Спасибо всем.
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 11:38:39
The_Prist, Я же говорю, я создал стандартный модуль, но не могу на него сослаться. Как эту строчку прописать?
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 11:33:14
vikttur, Не могу понять смысла. Зачем нужен пример, если нужно одна строчка ссылки на макрос?
Код
Private Sub Yes_Click()
Call Print_BT
MenuPrint.Hide
MenuSave.Show
End Sub
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 11:27:24
The_Prist, А как сослаться на модуль? Как модуль привязать к нопке? Допустим создал модуль Print_BT, как мне привязать кнопу, чтоб на неё сослаться?
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 11:24:45
Андрей VG, С удовольствием, но файл весит 8мб. L1-L10 - Это краткое обозначение Лист1-Лист10, Если в Листе есть инфа после 4 строчки, то происходит печать, если нет, то данный лист на печать не выводится.
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 10:41:10
Андрей VG, Есть тонкости. печать происходит нескольких листов в файле, но с доп. значениями.
Код
    'Печать переоценки
    Application.ScreenUpdating = False
    Worksheets("Титульный лист").Select: ActiveSheet.PrintOut
    Worksheets("Сортировка").Select: ActiveSheet.PrintOut
    If L1 > 4 Then Worksheets("Продтовары").Select: ActiveSheet.PrintOut
    If L2 > 4 Then Worksheets("Гастрономия").Select: ActiveSheet.PrintOut
    If L3 > 4 Then Worksheets("Пекарня").Select: ActiveSheet.PrintOut
    If L4 > 4 Then Worksheets("Овощи").Select: ActiveSheet.PrintOut
    If L5 > 4 Then Worksheets("Кулинария").Select: ActiveSheet.PrintOut
    If L6 > 4 Then Worksheets("Рыба").Select: ActiveSheet.PrintOut
    If L7 > 4 Then Worksheets("Непродтовары").Select: ActiveSheet.PrintOut
    If L8 > 4 Then Worksheets("Табак").Select: ActiveSheet.PrintOut
    If L9 > 4 Then Worksheets("Мясо").Select: ActiveSheet.PrintOut
    If L10 > 4 Then Worksheets("Кондитерка").Select: ActiveSheet.PrintOut
  Application.ScreenUpdating = True
Изменено: Элимдар Мингачёв - 02.05.2016 11:22:34
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 10:18:17
vikttur, Допустим я создаю модуль специальный для печати, как мне прописать кнопку, чтоб он ссылался на этот модуль. Такого я ещё не знаю. Нужна помошь.
 
Перейти    
Вызов макроса печати из разных форм
 
#
02.05.2016 10:06:09
Здравствуйте. Вопросик как написать правильно строку, для вызова кнопрки из другой формы?  
MenuForm.( форма на которой находится кнопка)  
btn_print (Название кнопки)  
Суть в том, что другая форма задаёт вопрос о печати, если нажимаешь "ДА", то нужно, чтоб эта кнопка ссылалась на кнопку печати из формы "MenuForm"  
Заранее спасибо.
 
Перейти    
Внедрение прогресс бара в сущесвующую форму
 
#
23.04.2016 08:19:04
Превышен размер. (( А по макросам нельзя сделать прогрессбар??
 
Перейти    
Внедрение прогресс бара в сущесвующую форму
 
#
23.04.2016 07:44:34
Юрий М, Файл когда-то был такой, но после изминился (Добавились макросы и изменилась форма)
 
Перейти    
Внедрение прогресс бара в сущесвующую форму
 
#
23.04.2016 07:12:28
Вложил файл формой. на ворме всавил Погресс бар и текст, который должен отображать выпоняемое действие. Кнопка со спидометром -Это и есть объеденяющая порядок кнопок. как-то так. Сможете помочь? Сам не пойму как это сделать. А хочется научиться.
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх