А как быть если второй метод необходим?

Столкнулась с той же проблемой. На моем компе все идеально работает, а у конечного пользователя таблицы - нет.
Button1 - срабатывает безотказно.
Button2 - не срабатывает на другой машине.
Помогите пожалуйста решить проблему.


Private Sub CommandButton1_Click()
If Me.OptionButton1.Value = True Then
'Сортировка в алфавите
    Range("B5:GI3504").Select
   ActiveWorkbook.Worksheets("База").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("База").Sort.SortFields.Add Key:=Range( _
       "B5:B3504"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("База").Sort
       .SetRange Range("B5:GI3504")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
     Range("B5").Select
   
   Unload Me
          End If
         
         
   If Me.OptionButton2.Value = True Then
'Сортировка в инвентарном порядке
   Range("B5:GI3504").Select
   ActiveWorkbook.Worksheets("База").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("База").Sort.SortFields.Add2 Key:=Range( _
       "GI5:GI3505"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortTextAsNumbers
   ActiveWorkbook.Worksheets("База").Sort.SortFields.Add2 Key:=Range("D5:D3505" _
       ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("База").Sort
       .SetRange Range("B5:GI3504")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
  End With
   Range("B5").Select
   
   Unload Me
          End If

Sub AddComments()
Dim ActiveCell As Range
For Each ActiveCell In Range("E4:E3504, I4:I3504, M4:M3504")
    If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
   ActiveCell.Comment.Text ActiveCell.Offset(0, 3).Text
         Next
     End Sub

Берет описание которое находится на три столбца правее от текущего столбца куда добавляются примечания.  

Добрый день, форумчане. Не нашла в поиске по форму ответа.

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

Либо может можно пойти другим путем и создать макрос который добавит только в те ячейки, которые не =0?

Пример не прилагаю, т.к мне кажется что он не будет информативен.

Заранее благодарна.

Идеально! Спасибо огромное!

Добрый вечер, любимый форум!
Ребята, помогите пожалуйста с макросом.
Задача такая - в таблице в столбце А2:А21 нужно подсветить примечанием информацию из двух соседних столбцов (они будут скрыты)
Если оба соседних столбца не несут информацию, то примечание не добавляется.

Заранее благодарна!

Прошу помощи.
Я сделала все по инструкции, все работает идеально в случае с одним TextBox на форме.
Но у меня их 4.
И получается что если прописываешь все TextBox в процедурах, то добавляя в одну строку скопированный текст, он добавляется во все 4.

Необходимо прописать привязку вставки к полю TextBox, по которому вызвано это меню.

Огромное спасибо!

Большое спасибо за советы. Изучу темы.

Добрый день. Нужна помощь.
Есть юзер форма в которой есть элемент textbox.
В это поле нужно вставлять текстовое значение скопированные из вне.
Это получается сделать через Ctrl+V, но по клику правой клавиши мышки не появляется контекстное меню с возможностью вставки через него.

Форму нужно будет предоставить людям, которые врядли смогут вставить значения через Ctrl+V.
Может в свойствах textbox эта опция включается?

И тут мне стало стыдно!
Как же можно было не увидеть элементарного, несколько часов голову ломаю. А там всего-то символ не тот.
Благодарю!  

Подскажите пожалуйста как поступить в том случае, если вместо знака ";" нужно поставить знак тире "-"?
Т.е все, что после тире удалить, оставить только текст перед ним.
Но формула упорно не срабатывает когда в формулу ввожу "-".
С любым другим символом работает прекрасно, а в случае с тире все время получаю #ЗНАЧ!

vikttur неа. Они все-равно не хотят работать вместе. Или юзер форма, или данный модуль

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

Добрый день, уважаемые специалисты.

Столкнулась с такой задачей "подружить" два кода Private Sub Worksheet_Change(ByVal Target As Range) в одном модуле.
Функции совершенно разные, совместить не получается. Одна функция вызывает юзер-форму, вторая - должна запустить всплывающие окна с подсказками в определенном диапазоне.

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

Дна процедура запускает юзер-форму для определенного диапазона.
Вторая должна была запустить подсказки к другому диапазону.
Поэтому не могу добавить в одну. Это совсем разные операции и они не связаны друг с другом.


vikttur, к сожалению код не помог справиться с проблемой.

Благодарю всех за помощь

 Ничего не получается. Диапазоны разные.
Отдельно друг от друга срабатывают хорошо. Когда записаны в модуль оба, появляется ошибка.

МатросНаЗебре, огромное спасибо.
Подскажите пожалуйста, если у меня в коде листа уже есть процедура

как можно переименовать чтобы они работали. А то пока конфликтуют, а меняю название, перестает работать.

Добрый день. Подскажите пожалуйста, можно ли сделать такую функцию, только чтобы текст во всплывающем окне брался из другой ячейки?

Другими словами, чтобы в диапазоне А1:А10 при наведении на ячейку всплывала подсказка с тестом, хранящимся в В1:В10

vikttur, Благодарю Вас!
Целый день мучалась, думала самостоятельно справлюсь!

Благодарю.
Я пробовала так делать, ничего не получилось. Выдает ошибку
Может быть дело в этой строке?

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

Макрос на скрытие/отображение пустых строк в таблице сам пишет название кнопке. Когда скрыты - кнопка именуется как "отобразить", Когда в таблице нет скрытых строк - на кнопке написано "скрыть"

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

Дмитрий(The_Prist) Щербаков, благодарю Вас!

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

Заранее благодарна

Огромное спасибо. Оба варианта работают.

Друзья, помогите пожалуйста решить задачу.

Нужна кнопка при нажатии на которую первый лист документа xlsm будет сохраняться как копия, но в формате xlsx.
Т.е лист2, лист3 и тд при сохранении в xlsx должны игнорироваться.
Возможно ли такое?

Благодарю Вас!!! Оба кода работают отлично.
Верно, я первый код не в тот модуль залила, поэтому не срабатывало.

Огромное спасибо!!!!

Почему-то не срабатывает    

Добрый день, уважаемые специалисты.
Помогите пожалуйста оживить ЮзерФорму.
Простейшая форма всего с двумя значениями.

Помогите пожалуйста запрограммировать так, что бы форма запускалась при нажатии на ячейку в заданном диапазоне (Е3:Е15).
А результат чтобы записывался в той же стоке, но в столбце І.

Заранее благодарна  

Игорь, Огромное спасибо! Работает!

Это можно, но макрос нужен на InputBox в формулу.