Здравствуйте, помоги те пожалуйста разобраться.
Есть форма, на ней кнопка, caption кнопки берется из ячейки, но ширина формы и кнопки ограничены. Возможно ли как то задать свойство, что бы при достижении текста правого края кнопки, он писался с новой строки?

Здравствуйте, помогите пожалуйста поправить код, хочу оформить форму поиска с выводом результата в label, но при поиске следующего похожего значения выдаёт ошибку, что не правильно делаю?

Здравствуйте, помогите подажуйста дописать код:

Скрытый текст
Код Sub My_1() sPer = ("A1") With Application.ReplaceFormat.Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 .PatternTintAndShade = 0 End With Cells.Replace What:="1", Replacement:= "2", LookAt:=xlPart, SearchOrder :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True End Sub

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

Приветствую, столкнулся с такой задачей, нужно отсортировать столбцы по количеству заполненых ячеек
Например в столбце A 25 ячеек с текстом, в B 32, в С 28 и т. д. таких столбцов около 50, надо отсортировать именно столбцы от большего к меньшему, руками это делать довольно рутинно, помогите написать макрос для этой задачи, если это конечно возможно

Доброго времени суток уважаемые гуру, есть макрос:

Это действие я провожу с ячейки "B40", то есть у меня получается 39 "если...", Покажите пожалуйста как можно записать эти 39 действий в одном "если..."
Допустим "если в массиве "B2:B40" есть ячейки >0 то от найденой расширяем выделение и копируем выделенное в первую пустую ячейку столбца "D", далее со следующей найденой и тд. до конца массива

Доброго времени суток, есть два макроса:
1. Создает письмо в Outlook и вставляет в тело заданную область таблицы
2. Создает письмо и вкладывает активный лист книги
Помогите пожалуйста объеденить их, что бы и в тело письма вставляло часть таблицы и во вложение вставлялся этот лист

Доброго времени суток, поиском пользовался, но никак не могу найти нужное.  
Помогите пожалуйста написать макрос.  
Есть userform, в ней 1 кнопка и 1 текстбокс, вводим в текстбокс искомое значение, искать должно в активной книге на всех листах, а не на активном листе... Помогите пожалуйста.

Всем привет, встал перед таким вопросом, есть реестр по действиям, идея такая, автоматизировать заполнение темы письма и вставки адреса, так как реестр постепенно будет заполняться, для каждой строки нужно будет использовать свой макрос, но таких строк допустим 1000, нужно для каждой кнопки писать свой макрос или можно как то упростить это?  
использую этот макрос:  
 
Sub Письмо()  
   Dim OutApp As Object  
   Dim OutMail As Object  
   Dim cell As Range  
     
 
   Application.ScreenUpdating = False  
   Set OutApp = CreateObject("Outlook.Application")  
   OutApp.Session.Logon  
   On Error GoTo cleanup  
   Set OutMail = OutApp.CreateItem(0)  
   On Error Resume Next  
     
 
   With OutMail  
       .To = Range("").Value  
       .Subject = Range("").Value  
       .Display  
   End With  
 
   On Error GoTo 0  
   Set OutMail = Nothing  
 
cleanup:  
   Set OutApp = Nothing  
   Application.ScreenUpdating = True  
End Sub

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

Здравствуйте, перерыл кучу статей но нигде не нашел, подскажите, возможно ли реализовать выпадающий список, что бы при выборе пункта выходил новый список привязанный к этому пункту в первом списке. Аналог связанных списков, но с использованием 1 ячейки.  
 
Пример:  
"склад 1"  
"склад 2"->"Приход"     - при выборе "склад 2" выпадает новый список и конечная информация    
"склад 3"  "Перемещение"  в ячейке будет из 2 списка

Здравствуйте, необходимо что бы при заполнении 1 ячейки соседняя заполнялась, использую данный макрос:  
     
Private Sub Worksheet_Change(ByVal Target As Range)    
       If Target.Cells.Count > 1 Then Exit Sub    
           If Not Intersect(Target, Range("A2:A100")) Is Nothing Then    
               With Target(1, 2)    
                   .Value = Now    
                   .EntireColumn.AutoFit    
               End With    
           End If    
   End Sub    
 
Но когда начинаю протягивать(размножать) данные, соседние ячейки не заполняются, подскажите, что нужно исправить в коде?

Здравствуйте как сделать чтобы при активации макроса выделялась ячейка (дата), но перед этим три ячейки перед ней выделены. Пробовал записать макрос, но он привязывается к определенным ячейкам, а надо что бы он с выделенных ячеек перемещался на 1 влево от них