Здравствуйте, напишите пожалуйста макрос. Задача такая:  
У меня есть выделенные (Select) ячейки, выделение всегда разное, допустим A1;A6;A12.  
Необходимо, что бы макрос добавил в выделение ячейки в соседнем столбце B1;B6;B12.

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

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

Здравствуйте,обыскался - не нашел :(  
Необходимо что бы форма после события Resize отцентровывалась в центре экрана, экраны будут с разным расширением.

Здравствуйте, цель такая - отображать в 3-х столбах listbox 3-и столба с листа начиная с 5-й строки листа и до последней заполненой.  
 
Вот код, но добавляет квакозяброй....Помогите поправить пожалуйта  
   With ListBox1  
        Dim iCell As Range  
        Dim ilastrow As Long  
        ilastrow = Cells(Rows.Count, 3).End(xlUp).Row  
        For Each iCell In Range(Cells(5, 1), Cells(ilastrow))  
            .AddItem: iCount& = .ListCount - 1  
            .List(iCount&, 0) = CStr(iCell(1, 1))  
            .List(iCount&, 1) = CStr(iCell(1, 2))  
            .List(iCount&, 2) = CStr(iCell(1, 3))  
        Next  
        .ColumnCount = 3  
    End With

Здравствуйте, столкнулся с такой проблемой:  
Установлен Microsoft Office 2007  
Создаю книгу, сохраняю, хочу открыть файл, но он отображается не как книга excel а просто белый листок, так как будто у файла нет формата. Открыть его можно только открыв excel и через "открыть файл".  
Через свойсва выбираю "Открыть с помощью..." выбираю EXCEL.EXE но он не появляется в списке программ для открытия. Пробовал восстановить ассоциации, но ничего не происходит.  
Файлы .xls .xlsm открывает нормально.  
Подскажите может кто то знает решение проблемы? ПО Window Ultimate

Здравствуйте, помогите пожалуйста дописать макрос.  
Цель такая, макрос должен выделить последнюю пустую чейку в двух несвязных диапазонах.  
Например диапазон 1 - "A2:A33", 2 - "C2:C33"  
 
Sub пустая_ячейка()  
Dim list As Object  
Dim c As Range  
Set list = Sheets("1")  
Set c = list.Range(Cells(2, 1), Cells(33, 1)).End(xlUp)  
Do While c > ""  
Set c = c.Offset(1)  
Loop  
c.Select  
End Sub

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

Доброго времени суток, столкнулся с такой проблемой, создавал форму, рисовал кнопки, действия и тд... Сохранил файл и все, больше excel запускаться не хочет...  
При запуске выдает ошибку и предлагает закрыть программу.  
Пробовал открыть сам excel, открывается только в безопасном режиме.  
После ошибки выдает окно "Ошибка при направлении команды приложению".  
Сигнатура проблемы:  
 Имя события проблемы: APPCRASH  
 Имя приложения: EXCEL.EXE  
 Версия приложения: 12.0.4518.1014  
 Отметка времени приложения: 45428263  
 Имя модуля с ошибкой: EXCEL.EXE  
 Версия модуля с ошибкой: 12.0.4518.1014  
 Отметка времени модуля с ошибкой: 45428263  
 Код исключения: c0000005  
 Смещение исключения: 00bbd97b  
 Версия ОС: 6.1.7601.2.1.0.768.2  
 Код языка: 1049  
Хотел в безопасном попробовать отключить "Игнорировать DDE-запросы от других приложений", но в безопасном режиме вкладка Основные недоступна.  
Офис переустанавливал.  
Может быть кто то сталкивался и знает решение?  
Стоит 2007.

Доброго времени суток!  
Подскажите пожалуйста, как задать макросу условие выполнения при вводе в textbox определенного количества символов.  
Идея такая, после того как пользователь вводит в textbox 17 символов, необходимо что бы срабатывал макрос, то есть вызвать его методом "Call".  
Пробовал варианты, но моих знаний недостаточно...  
Поиск юзал...

Здравствуйте, пошарил в поиске нужного к сожалению не нашел, задача вроде бы простая.  
Необходимо из ячейки вытянуть последние 4 внесенные значения.  
Например в ячейке А1 внесено число - 8877665544, необходимо что бы в ячейке В1 отображались последние 4 значения ячейки А1, в данном случае - 5544.  
Формула, функция, не важно.

Здравствуйте, есть функция создания письма, в тело вставляется текст из ячеек, каждая с новой строки, подскажите как задать условие что бы если .Text = "" ячейка не добавлялась в тело письма и не было пустой строки, а когда .Text > "" то текст ячейки добавляется?  
 
 
Function Письмо(sTo As String, sSabj As String)  
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 = sTo  
.Subject = sSabj  
.Body = Range("K3").Text & vbLf & _  
Range("K4").Text & vbLf & _  
Range("K5").Text & vbLf & _  
Range("K6").Text & vbLf & _  
Range("K7").Text & vbLf & _  
Range("K8").Text  
.Display  
End With  
On Error GoTo 0  
Set OutMail = Nothing  
 
cleanup:  
Set OutApp = Nothing  
Application.ScreenUpdating = True  
End Function

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

Здравствуйте, помогите пожалуйста исправить проверку данных в ComboBox.  
Необходимо что бы при не совпадении значений в ComboBox с заданными в условии, скрывались отмеченные кнопки.  
На такой код VBA ругается:  
 
If Me.ComboBox1 <> "Port" Or "Port5" Or "Port7" Then  
Me.CommandButton1.Visible = False  
Me.CommandButton2.Visible = False  
End If

Здравствуйте подскажите пожалуйста возможно ли реализовать:  
1. в TextBox'е автоматическую замену символов - \ / ? > < , на точку?  
В данном TextBox'е будут вводиться ФИО, с сокращенными инициалами, а дальше из полученного текста формироваться тема письма. Если есть возможность реализации ограничения ввода только кириллицы, пробела и точки тоже очень поможет.  
2. Так же необходимо,, что бы после каждой точки в TextBox'е автоматом ставился пробел.

Здравствуйте, помогите пожалуйста дописать код так, что бы при нажатии крестика формы выпадал вопрос с ответом да\нет и при выборе определенного форма или закрывалась или оставалась без изменений (тоесть отменить действие крестика):  
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)  
lReply = MsgBox("Закрыть форму?", vbYesNo + vbQuestion)  
       If lReply = vbNo Then  
 
       If lReply = vbYes Then

Добрый вечер, подскажите, пожалуйста!  
как можно вытащить данные из одной таблицы в другую, если вторая таблица постоянно разная.  
Т.е. Есть табл.1 с тремя столбцами: 1. наименование 2. сумма 3. символ  
и есть массив, где хранятся символа. табл.2: 1. наименование 2. символ  
Вопрос, как можно макросом проставить правильные символа в таблицу1 из таблицы2, если она не постоянна, имеет разное кол-во наименований?    
Может по кнопке, как сделать?!

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

такую последовательность чисел Excel воспринимает как текст, а мне нужна сумма...