Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 След.
Отобразить скрытый лист с помощью гиперссылки привязанная к рисунку
 
Цитата
Александр Моторин написал:
простым макросом
Код
    [URL=#]?[/URL]       1  2  3  4      Sub   Rectangle1_Щелчок()          Sheet2.Visible = xlSheetVisible          Sheet2.  Select    End   Sub   
 
Благодарствую!  :idea:  :)  
По почерку принтера можно судить о том, как нервничает компьютер
Отобразить скрытый лист с помощью гиперссылки привязанная к рисунку
 
Здравствуйте,

Помогите пожалуйста с решением. Есть скрытые листы. Для их отображения есть гиперссылки привязанные к ячейке. Хотелось бы чтобы срытые листы можно было отобразить с помощью гиперссылки привязанная к рисунку. ;)  
По почерку принтера можно судить о том, как нервничает компьютер
Сборка данных с нескольких листов макросом на VBA
 
New, Jack Famous, Спасибо! :D  :idea:  
По почерку принтера можно судить о том, как нервничает компьютер
Сборка данных с нескольких листов макросом на VBA
 
Здравствуйте,

Столкнулся со статьёй https://www.planetaexcel.ru/techniques/12/7453/ где возможно собрать данные со всех листов книги в один лист. А возможно ли дополнить этот макрос, если в книге 10 листов, а надо чтобы собирало данные с нескольких листов (Например: "Лист1", "Лист2").
Код
Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
     
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
     
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
        Set rngData = ws.UsedRange                 'всё, что есть на листе или
        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
         
    Next ws
End Sub
По почерку принтера можно судить о том, как нервничает компьютер
Доступ к листам по паролю (защита листов)
 
Дмитрий(The_Prist) Щербаков, Большое спасибо!  :D  :idea:  
Изменено: Шаин - 02.03.2021 08:44:28
По почерку принтера можно судить о том, как нервничает компьютер
Доступ к листам по паролю (защита листов)
 
Дмитрий(The_Prist) Щербаков, Показало на эту строку
Код
Private Sub UserForm_Initialize()
    Dim li As Long
    With ThisWorkbook.Sheets("Users")
        For li = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            cmbUsers.AddItem .Cells(li, 1)
        Next li
    End With
    bClose = True
End Sub
Код
cmbUsers.AddItem .Cells(li, 1)
Изменено: Шаин - 02.03.2021 09:08:22
По почерку принтера можно судить о том, как нервничает компьютер
Доступ к листам по паролю (защита листов)
 
sokol92, Когда я нажимаю на кнопку "Выбор пользователя" выходит ошибка что я указал выше.
Изменено: Шаин - 01.03.2021 13:41:34
По почерку принтера можно судить о том, как нервничает компьютер
Доступ к листам по паролю (защита листов)
 
Здравствуйте,

У меня по какой то причине не хочет работать макрос! Можете помочь? Выдаёт ошибку "Run-time error`-2147352571 (80020005) ссылаясь на эту команду frmIndicateUser.Show. Язык компьютера английский. Жму на "Debug". Там жёлтым цветом в макросе указывает ошибку! Когда хочу войти в форму пишет "Can`t perform requested operation".
Код
Sub Main()
    frmIndicateUser.Show
End Sub
Изменено: Шаин - 01.03.2021 15:51:27
По почерку принтера можно судить о том, как нервничает компьютер
Блокировка книги в заданное время
 
Ігор Гончаренко, Wiss, спасибо! :)
vikttur, Извиняюсь!) Спасибо!  
Изменено: Шахин - 10.02.2021 14:21:27
По почерку принтера можно судить о том, как нервничает компьютер
Блокировка книги в заданное время
 
Wiss, Идея полезная! Спасибо! Я перерыл весь гугл в поисках защиты книги с условием окончании пробного периода, нигде ничего про это нет.

Ігор Гончаренко, То есть это бесполезно? Искать и не стоит?
По почерку принтера можно судить о том, как нервничает компьютер
Блокировка книги в заданное время
 
Здравствуйте,

Прошёлся по поиску, но ничего не смог найти по этой теме как не странно. Подскажите пожалуйста как с помощью макроса можно выполнить желаемое условие блокировки. Есть рабочий файл. Надо чтобы, допустим на 20.02.2021 книга уже просила пароль доступа. Буду очень признателен.
Можно и линк
По почерку принтера можно судить о том, как нервничает компьютер
Запретить командой ESC отмены команды сохранить...
 
Borrusale, Большое спасибо! :D  :idea:  
По почерку принтера можно судить о том, как нервничает компьютер
Запретить командой ESC отмены команды сохранить...
 
Здравствуйте,

Есть такая небольшая проблема с макросом. Когда я сохраняю файл и в продолжении процесса жму на команду ESC далее команды END разблокируются все ячейки что были блокированы макросом. Надо чтобы при отмене команды ячейки оставались блокированными. Помогите пожалуйста!
По почерку принтера можно судить о том, как нервничает компьютер
[ Закрыто] Макрос блокировки ячеек..., Блокировка ячеек отменятся командой ESC и тем самым идёт разблокировка всех ячеек...
 
vikttur, В будущем я возьму на заметку это замечание. А сможете помочь с задачей?
По почерку принтера можно судить о том, как нервничает компьютер
[ Закрыто] Макрос блокировки ячеек..., Блокировка ячеек отменятся командой ESC и тем самым идёт разблокировка всех ячеек...
 
Здравствуйте,

Есть такая небольшая проблема с макросом. Когда я сохраняю файл и в продолжении процесса жму на команду ESC далее команды END разблокируются все ячейки что были блокированы макросом. Надо чтобы при отмене команды ячейки оставались блокированными. Помогите пожалуйста!
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
_Igor_61,  Я разобрался! Респект! :D  :idea:  
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
_Igor_61, Что я делаю не правильно? Формула не работает  :(
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
Dim lc&, lr&
ThisWorkbook.Worksheets("Sheet1").Activate
With Application
        .ScreenUpdating = False   
        .Calculation = xlManual     
For lc = 1 To Cells(1, Columns.Count).End(xlToLeft).Column       
For lr = 2 To Cells(Rows.Count, lc).End(xlUp).Row                
  If Cells(lr, lc).Value <> 0 Then
     Cells(lr, lc).Value = Cells(lr, lc).Value
  End If
Next lr
Next lc
.Calculation = xlAutomatic  
        .ScreenUpdating = True     
End With
End Sub
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
_Igor_61, Для каждого столбца по отдельности?
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
_Igor_61, Ну, там не так уж и много столбцов и строк )) Допустим надо от столбца  A1 до столбца L2000.
Изменено: Шахин - 06.04.2020 12:32:45
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
_Igor_61, Про то чтобы поменять значения на 0 я смог, но вот чтобы для всего листа?
Изменено: Шахин - 06.04.2020 12:28:56
По почерку принтера можно судить о том, как нервничает компьютер
Преобразование формул в значения где значение больше нуля...
 
Здравствуйте ещё раз уважаемые,

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

Текущий макрос выглядит так:
Код
ThisWorkbook.Worksheets("Serfiyyat 2").Activate
With Application
        .ScreenUpdating = False   'отключаем обновление экрана
        .Calculation = xlManual     'отключаем автоматический пересчет формул
For i = 6 To Cells(Rows.Count, 10).End(xlUp).Row
 If Cells(i, 10).Value <> "" Then
    Cells(i, 10).Value = Cells(i, 10).Value
 End If
Next i
.Calculation = xlAutomatic  'включаем автоматический пересчет формул
        .ScreenUpdating = True     'включаем обновление экрана
End With
End Sub
По почерку принтера можно судить о том, как нервничает компьютер
Оставить блокированными некоторые ячейки при общем доступе к книге...
 
Дмитрий(The_Prist) Щербаков, Понятно! Спасибо!)
По почерку принтера можно судить о том, как нервничает компьютер
Оставить блокированными некоторые ячейки при общем доступе к книге...
 
Дмитрий(The_Prist) Щербаков, Я тут столкнулся и с таким решением задачи.
Код
ActiveWorkbook.SaveAs AccessMode:=xlShared 
Задать общий доступ пользователям кодом. Как это код добавить в книгу?

Код
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If
Изменено: Шахин - 06.03.2020 13:51:16
По почерку принтера можно судить о том, как нервничает компьютер
Оставить блокированными некоторые ячейки при общем доступе к книге...
 
Здравствуйте,

Возможно ли при включении общего доступа к книге с возможностью использования макросов оставить некоторые ячейки заблокированными. На блокированные ячейки ссылается макрос.
Когда я пытаюсь это сделать то у меня выдаёт ошибка 1004. "Method "Unprotect Of Object" Worksheet failed"

Пароль блокировки: 123as
Изменено: Шахин - 06.03.2020 13:28:24
По почерку принтера можно судить о том, как нервничает компьютер
Выпадающий список от nerv 1.6 макрос не может блокировать
 
RAN, Респект!)  Только вот, надстройка перестаёт работать при закрытии и открытии документа. Приходится заново установить. С чем это может быть связано?

Предполагаю, что это связано с форматом файла, так как другие надстройки у меня в формате xlam, а эта в формате xla. Как поменять формат?
Изменено: Шахин - 06.03.2020 08:36:26
По почерку принтера можно судить о том, как нервничает компьютер
Копировать галочки с условием перемещения ссылки на нижнюю ячейку...
 
vikttur, я нашёл что то похожее в форумах. Не то, чтобы то что я хотел, но делу поможет. Спасибо за участие и желание помочь! :)  
По почерку принтера можно судить о том, как нервничает компьютер
Копировать галочки с условием перемещения ссылки на нижнюю ячейку...
 
vikttur, Постараюсь найти и разобраться в форуме. Спасибо!
По почерку принтера можно судить о том, как нервничает компьютер
Копировать галочки с условием перемещения ссылки на нижнюю ячейку...
 
vikttur, а как это можно сделать? И поможет ли это моему условию? :sceptic:  
По почерку принтера можно судить о том, как нервничает компьютер
Копировать галочки с условием перемещения ссылки на нижнюю ячейку...
 
Здравствуйте,

Помогите пожалуйста с задачей. Есть таблица где надо указать галочку для каждой ячейки в отдельности. Когда же я копирую галочку в нижнюю ячейку, то ссылка не перемещается и при нажатии на одну, выделяются все.
По почерку принтера можно судить о том, как нервничает компьютер
Выпадающий список от nerv 1.6 макрос не может блокировать
 
vikttur, ))))) Это я случайно
По почерку принтера можно судить о том, как нервничает компьютер
Страницы: 1 2 3 4 5 6 7 8 9 След.
Наверх