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

Страницы: 1 2 След.
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
25.11.2022 14:18:56
_Boroda_, Да, все работает, спасибо за помощь!
убрал только букву m в "22.xlsm", файл просто xls
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
25.11.2022 13:18:52
_Boroda_, макрос в книге, имя которой будет переменной, начинаться будет с "DSA_V*******************"
Именно она и активна в момент запуска макроса
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
25.11.2022 12:54:23
_Boroda_, вот эта тема)
Windows("DSA_V5.5.xlsm").Activate
можно ли в этой строке сделать название файла на нестатичное?
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
25.11.2022 12:52:09
_Boroda_, Пардон, не в той теме написал
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
25.11.2022 11:59:41
New, Подскажите пожалуйста, можно ли имя файла сделать непостоянным, просто это не всегда DSA 5.6, его могут обозвать как угодно
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
22.11.2022 21:17:54
New, понял, буду более четко формировать запрос!
спасибо за помощь! очень выручили!
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
21.11.2022 19:42:44
New, ДАААААА!!! СПАСИБО ОГРОМНОЕ!!!
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
21.11.2022 19:17:33
New,
нужно что бы по ручному запросу через MsgBox вводилось условие.
Диапазон условия C30:AG30

Данные для копирования:С41:C45 - всегда
Место для вставки - столбцы С31:C35 и так далее исходя из условия
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
21.11.2022 18:48:49
New, так как мне быть то в итоге?) помогите пожалуйста
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
21.11.2022 16:54:40
Спасибо!
мне хх заменить надо, верно?)

что то не работает у меня :(  
Изменено: Олег Большаков - 21.11.2022 17:30:46
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
21.11.2022 16:21:41
Цитата
написал:
Windows("DSA_V5.5.xlsm").Activate    ActiveWorkbook.Unprotect Password:="123"    With Sheets("PMix")        .Visible = -1        .Select        .Cells.Clear        Windows("12345.xls").ActiveSheet.UsedRange.Copy        .Range("A1").Select        .Paste        Application.CutCopyMode = False        .Visible = 2    End With    ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True
вот этот вариант работает!)
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
21.11.2022 16:09:28
Получилось! спасибо огромное!!!
 
Перейти    
Перенос данных из ячеек в ячейки при условии ввода даты месяца в MsgBox
 
#
21.11.2022 16:08:11
Всем привет!
пожалуйста, помогите!
написал макрос копирования данных в ячейках в другие ячейки,
но мне нужно, чтоб макрос спрашивал день месяца, (1, 2, 3 и тд) и сравнивал с названием столбца и исходя из этого переносил данные
как это сделать?

Sub первое()
'
' первое Макрос
'

'
   Range("C41:C45").Select
   Selection.Copy
   Range("C31:C35").Select
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
End Sub
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
21.11.2022 10:25:37
что то не получается(
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
21.11.2022 06:27:46
Цитата
написал:
'сначала очистим буфер, чтобы там точно ничего лишнего не было    Application.CutCopyMode = False    Windows("12345.xls").Activate    ActiveSheet.UsedRange.Copy    Windows("DSA_V5.5.xlsm").Activate    ActiveWorkbook.Unprotect Password:="123"    Sheets("PMix").Visible = -1    Sheets("PMix").Select    ActiveSheet.Cells.Clear    Range("A1").Select    ActiveSheet.Paste    Application.CutCopyMode = False    Sheets("PMix").Visible = 2    ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True    Sheets("MHP").Select
Про вставку кода понял, спасибо!
все равно та же ошибка(
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
20.11.2022 22:15:19
В общем, я продвинулся дальше) и теперь наткнулся на ошибку метод paste из класса worksheet завершен неверно, что ему не так?
<pre class="bxhtmled-code">Sub Pmix()
'
' Pmix Макрос
'

'
  ActiveWorkbook.Unprotect
  Sheets("PMix").Visible = True
  Windows("12345.xls").Activate
  Cells.Select
  Selection.Copy
  Windows("DSA_V5.5.xlsm").Activate
  Cells.Select
  ActiveSheet.Paste
  Sheets("PMix").Select
  ActiveWindow.SelectedSheets.Visible = False
  Application.CutCopyMode = False
  ActiveWorkbook.Protect Structure:=True, Windows:=False
  Sheets("MHP").Select
End Sub<span id="bx-cursor-node"> </span>
</pre>
Изменено: Олег Большаков - 21.11.2022 10:25:04
 
Перейти    
Макрос переноса данных с листа открытой книги на скрытый лист другой открытой книги при запароленной книге, Как изменить макрос? ПОМОГИИИТЕ!!!
 
#
20.11.2022 13:18:40
Всем привет!
суть вопроса:
нужно, чтоб данные из одной открытой книги переносились в другую открытую, на лист, который скрыт.
книга при этом защищена.
пробовал через простую запись макроса - не получилось)

Помогите пожалуйста!

вот пример:
Sub Pmix()
'
' Pmix Макрос
'

'
   ActiveWorkbook.Unprotect
   Sheets("PMix").Visible = True
   Windows("12345.xls").Activate
   Cells.Select
   Selection.Copy
   Windows("DSA_V5.5.xlsm").Activate
   Cells.Select
   ActiveSheet.Paste
   Sheets("PMix").Select
   ActiveWindow.SelectedSheets.Visible = False
   Application.CutCopyMode = False
   ActiveWorkbook.Protect Structure:=True, Windows:=False
   Sheets("MHP").Select
End Sub
Изменено: Олег Большаков - 20.11.2022 19:00:17 (нашел ошибки))
 
Перейти    
Скрытие ненужных строк, Как скрыть в табеле ненужные строки?
 
#
05.09.2022 17:19:28
Цитата
написал:
Олег Большаков,
воспользуйтесь приемом Николая:
https://www.planetaexcel.ru/techniques/9/121/
Спасибо за помощь!
вариант три подошел, даже запаролить потом смог)
 
Перейти    
Скрытие ненужных строк, Как скрыть в табеле ненужные строки?
 
#
05.09.2022 14:13:42
Цитата
написал:
по картинке скорей всего помощи не будет. а тут еще и пароль. Пароль хоть знаете?
Пароль да.
но вопрос в том что другие (кто собственно сюда данные вносит - они его не знают и знать не должны, просто таблица длинная(универсальная) и не все такая нужна, хотелось бы чтоб скрывались пустые строки
 
Перейти    
Скрытие ненужных строк, Как скрыть в табеле ненужные строки?
 
#
05.09.2022 14:00:42
Цитата
написал:
Фильтр на столбец ФИО не подходит?
Не подходит еще и потому, что почти весь лист запаролен, открыты только некоторые ячейки и все
 
Перейти    
Скрытие ненужных строк, Как скрыть в табеле ненужные строки?
 
#
05.09.2022 13:58:26
Цитата
написал:
Фильтр на столбец ФИО не подходит?
Не, хочу именно макрос)
 
Перейти    
Скрытие ненужных строк, Как скрыть в табеле ненужные строки?
 
#
05.09.2022 13:35:42
Всем доброго дня!
подскажите пожалуйста, как скрыть/открыть ненужные строки в табеле, чтоб перебор шел только по полному/пустому первому столбцу?
На примере - чтоб могли скрываться/открываться строки, где пустые значения в ячейках А6:A14, и т д
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 15:21:33
Цитата
написал:
Цитата
Олег Большаков: Активная - то есть открытая?
открыто может быть несколько книг, а активная - только одна
Кликните на любой ячейке в книге ОТКУДА вы собираетесь копировать (тем самым сделаете её активной) и запустите макрос (который находится в книге, КУДА вы собираетесь копировать)
Дошло! спасибо!!! все прекрасно работает!)
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 15:00:36
Ребята, извините за дуболомство, я только недавно узнал ху из макрос ,учусь :oops:  
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:57:08
Цитата
написал:
Цитата
Олег Большаков: из открытого … [лист] Summary… скопировать в открытый [файл с макросом] [лист] ESTIMATION…Кнопка макроса будет в файле ESTIMATION
     Код. Книга, откуда копируем (не та, в которой макрос) должна быть активной        
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11      Sub   t()    Dim   shFrom   As   Worksheet, shTo   As   Worksheet       If   ActiveWorkbook.Name = ThisWorkbook.Name   Then   MsgBox   "Сделайте активным ДРУГОЙ файл (не тот, что с макросом)!"  , vbExclamation,   "ОШИБКА АЛГОРИТМА"  :   Exit   Sub    Set   shFrom = ActiveWorkbook.Worksheets(  "Summary"  )    Set   shTo = ThisWorkbook.Worksheets(  "ESTIMATION"  )       shTo.Range(  "BI4"  ).Value2 = shFrom.Range(  "C3"  ).Value2    shTo.Range(  "BH6"  ).Value2 = shFrom.Range(  "D13"  ).Value2    shTo.Range(  "BI8"  ).Value2 = shFrom.Range(  "C21"  ).Value2    End   Sub  
 
Активная - то есть открытая?
открыл, но когда нажимаю макрос - происходит примечание и макрос заканчивается
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:46:07
Цитата
написал:
Цитата
Олег Большаков написал:
а как это сделать?)
нужно посмотреть в сообщение 4
смотрю в книгу вижу фигу)
d1 - имя файла в который копируются данные?
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:31:41
Цитата
написал:
в d1 напишите имя файла
выполните
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8      Sub   Macro1()        Dim   fn$        fn = [d1]        Range(  "BH6"  ).FormulaR1C1 =   "='["   & fn &   "]Sales plan'!R34C4"        Range(  "BI8"  ).FormulaR1C1 =   "=["   & fn &   "]Summary!R13C4"        Range(  "BI9"  ).FormulaR1C1 =   "=["   & fn &   "]Summary!R21C3"        Range(  "BI10"  ).FormulaR1C1 =   "=["   & fn &   "]Summary!R30C3"    End   Sub  
 
Имя файла будет меняться постоянно, кто как назовет его (123, 123 -копия, и т.д.) как сделать именно переменное имя?
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:29:43
Цитата
написал:
Олег Большаков, здравствуйте
Запоминайте имя другого файла в переменную и подставляйте ее
а как это сделать?)
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:27:57
Цитата
написал:
Цитата
Олег Большаков написал:
чтоб копировал данные несмотря на имя файла?
А на что нужно смотреть? Куда копировать?
Получается, из открытого с разными именами, вкладка Summary, ячейки С3, D13, C21
Нужно скопировать в открытый файл ESTIMATION (имя останется неизменно), вкладка ESTIMATION, в ячейки BI4, BH6 и BI8 соответственно
Кнопка макроса будет в файле ESTIMATION
 
Перейти    
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
#
09.08.2022 14:25:32
Получается, из открытого с разными именами, вкладка Summary, ячейки С3, D13, C21
Нужно скопировать в открытый файл ESTIMATION (имя останется неизменно), вкладка ESTIMATION, в ячейки BI4, BH6 и BI8 соответственно
Кнопка макроса будет в файле ESTIMATION
 
Перейти    
Страницы: 1 2 След.
Наверх