Как-то странно работает переход по страницам при поиске по форуму.
Вбиваем что-нибудь для поиска нажимаем найти, нажимает на страницу, например 2 и вместо перехода на эту страницу с результатами поиска, появляется дефолтное окно поиска.Если снова ввести тот же запрос и нажать поиск, то окажемся на второй странице.
Это только у меня так?

Доброго всем дня.  
Что-то я не могу понять почему суммесли считает неправильно. Сумма должна быть 20 168,00.  
Ячейки которые нужно суммировать выделены синим, итоговые формулы красным.

Доброго дня.  
 
Я не могу понять, почему в макросе по нажатию на кнопку игнорируется проверка доступности web browser  и код выполняется дальше.  
...  
Do While Me.WebBrowser1.Busy Or (Me.WebBrowser1.ReadyState <> 4)  
DoEvents  
Loop  
...  
Если выполнять его пошагово, то все нормально проверяется и данные подтягиваются.  
Да и при инициализации формы нормально работает.

Есть сайт www.egrul.nalog.ru , пытаюсь с этого сайта парсить данные, но мешает капча.  Как сохранить капчу (http://egrul.nalog.ru/i/def.png) через Inernet Explorer , аналогично ПКМ на картинке – сохранить как?  
 
Сохранение с помощью этого кода  выдает неверную картинку, т.е. сохраняется одна,    
а в IE отображается другая.  
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _  
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _  
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long  
 
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean  
Dim lngRetVal As Long  
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)  
If lngRetVal = 0 Then DownloadFile = True  
End Function  
 
Sub Kapcha()  
sPath = ThisWorkbook.Path & "\" & "Code.jpg"  
DownloadFile oIE.locationurl & "/i/def.png", sPath  
End sub

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

Добрый день.  
 
Для получения данных по ИНН с http://www.valaam-info.ru/ использовался следующий код см вложение. Но, где-то неделю назад, начались проблемы  с капчей.  Можно как-то получить капчу в виде картинки через VBA?

Доброго, дня.  
 
При экспорте кода страницы PlanetaExcel вместо кириллицы получаются вот такие символы :￿￿￿￿￿￿￿￿ ￿￿ ￿￿. Я так понимаю, что это из-за кодировки страницы. Как это можно исправить?

Добрый день.  
 
Есть два столбца с данными, в одном с пробелом в другом без пробела. Эти данные переносятся в массив, затем из массива на лист. Почему во втором случае из данных пропадает запятая?

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

Добрый день.  
В форме должен формироваться список в Listbox2 на основе значений Listbox1. Но формирования не происходит  в примере при значении ООО "Агенство безопасности" с.Кораблино.  
Не могу понять почему?  И активация ячейки при выборе, как-то криво работает.

Добрый день.  
 
Есть такой код:  
For z = ilastrow1 To 12 Step -1  
NP = Sum(--(IsNumber(Search("эквайр", Cells(z, i)))))  
If NP <> 0 Then  
Rows(z).Delete  
End If  
Next  
На Search VBA ругается. Подскажите чем можно заменить?

Добрый день.  
Есть файл, в котором сортировку делаю с помощью формулы. Как сделать это с помощью макроса?

Добрый день.  
Есть такой макрос:  
Sub gg()  
On Error Resume Next  
For Each cl In Selection.Cells  
If cl.Value = xlErrValue Or xlErrName Or xlErrNull Or xlErrNum Or xlErrRef Or xlErrValue Then  
           clfrm = Right(cl.Formula, Len(cl.Formula) - 1)  
           cl.FormulaLocal = "=если(еошибка(" & clfrm & ");"""";" & clfrm & ")"  
           Else  
           If cl.Value = xlErrNA Then  
           clfrm = Right(cl.Formula, Len(cl.Formula) - 1)  
           cl.FormulaLocal = "=если(енд(" & clfrm & ");"""";" & clfrm & ")"  
           End If  
           End If  
           Next  
End Sub  
 
По идее он должен исправлять ошибки в формулах, но кроме деления на 0, он, ни одну ошибку не исправляет. Подскажите в чем прблема.

Добрый день.  
При использовании такой конструкции для вставки кода из модуля в лист по нажатию кнопки VBA не переваривает лишние кавычки:  
Code = Code & " If sh.Name = "LOG" Then Exit Sub" & vbCrLf  
 
Как можно поправить код, чтобы он работал?

Доброго времени суток.  
Есть макрос, который по выбранным значениям из листбокса выделяет ячейку на листе, которая содержит это значение.    
 
Private Sub ListBox1_Click()  
   If ListBox1.ListIndex = -1 Then Exit Sub  
   Cells(ListBox1.Value, 1).Select      
End Sub  
 
 
Как сделать, так, чтобы при выборе нескольких значений в листбоксе (через мультиселект)  выделялись ячейки, содержащие, выбранные значения ?

Доброго времени суток.  
При выгрузке из SAP в Excel, создается новый процесс, при уже запущенном, в котором открывается выгрузка. В этой выгрузке не подгружаются надстройки. При закрытии книги новый процесс остается висеть, и при повторном открытии книги с выгрузкой не позволяет использовать надстройки. Приходится закрывать Excel, убивать все процессы. И запускать все заново.  
 
Как убить лишний процесс через VBA ?

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

Добрый день.  
Возник вопрос: как можно в выпадающем списке запретить изменять первоначально выбранный вариант ?

Проблема заключается в следующем. При подключении надстройки координатное выделение от ZVI в определенных  пользователем функциях появляются 3 функции:  
MakeSelection  
InitApp  
InitSettings  
Можно как-нибудь от этого избавиться?

Есть формула для обработки банковской выписки, с ее помощью отбираются, только нужные оплаты. Можно ли как-то сократить формулу?

Есть макрос по вставке пустых строк,он предлагает выбор количества вставляемых строк, а как сделать чтобы он предлагал выбор через сколько строк вставлять?  
 
Sub InsertRows()  
Dim i As Long, nRow As Long, k As Long  
Dim x As Long  
   With Application  
       .ScreenUpdating = False  
       .Calculation = xlCalculationManual  
       nRow = Cells(Rows.Count, 1).End(xlUp).Row  
         
       k = InputBox("Введите количество строк для вставки между строками", , 1)  
             
           For i = nRow To 2 Step -1  
             Cells(i, 1).EntireRow.Insert  
                If k > 1 Then  
                   For x = k To 2 Step -1  
                      Cells(i, 1).EntireRow.Insert  
                   Next x  
                End If  
           Next i  
       .Calculation = xlCalculationAutomatic  
       .ScreenUpdating = True  
   End With  
   MsgBox "Строки добавлены!", vbInformation, "Вставка строк"  
End Sub

Есть таблица, нужно, чтобы коды по которым есть ошибки( условия в примере) выносились в отдельный столбец.