Помогите пожалуйста с вопросом, нужно создать запрос к сайту https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp в поле поиска брать значения из столбца "А" , осуществить поиск и полученный результат вставить в соответствующую ячейку в столбце "B". Пытался сам что-то составить, пока получилось только вбить первое значение и имитировать клик. Спасибо.
Код
Sub getdatastuff()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp"
ie.Visible = True
While ie.Busy
DoEvents
Wend
ie.Document.all("name").Value = Cells(1, 1).Value
ie.Document.all("submit").Click
End Sub
У меня есть несколько идентичных макросов (макросы в определенном стоблце ищут совпадения со списком), в которых часто меняется строка c кодом "Const codesToFind". Возможно ли дать возможность через UserForm выбирая в каком макросе сделать изменения отредактировать эту строку?
Код
Sub offshorecountryben(control As IRibbonControl)
Dim rng As Range, c As Range, sToFind() As String
Dim i As Long, n As Long, k As Long, f As Boolean
Dim rFst As Long, rLst As Long
Const codesToFind = "LU AD MU BS BH CW KY CY JE MT PA UY GG MC BZ VU BM BN BB AG AI AW IM CK WS DM GI CR SC LI CV BW KN MO SX MS NR MH PW LC VC GD VG LV NU LT MV AN VI LR LI HK AN"
Application.ScreenUpdating = False
With ActiveWorkbook
n = .Sheets.count
With .Sheets("Report 1")
With .UsedRange
With .Find("Beneficiary Bank")
k = .Column
rFst = .Row + 1
End With
rLst = .Row + .Rows.count - 1
End With
Set rng = .Range(.Cells(rFst, k), .Cells(rLst, k))
.Copy After:=ActiveWorkbook.Sheets(n)
End With
With .Sheets(n + 1)
.Range(rng.Address).EntireRow.Delete
For Each c In rng
f = False
For i = 0 To UBound(sToFind)
If c Like "????" & sToFind(i) & "*" Then
f = True
Exit For
End If
Next i
If f Then
c.EntireRow.Copy .Rows(rFst)
rFst = rFst + 1
End If
Next c
End With
End With
Application.ScreenUpdating = True
End Sub
Нужно, чтоб при нажатии кнопки "Print" выводилось input cообщение с вопросом о номере ряда клиента который нужен для распечатки, после указания номера ряда со страницы "Card Order" копируется информация соответствующего ряда (нужные столбцы указаны зеленым цветом) и копируется на лист "Info" и после этого дается на печать страницы "Print 1" и "Print 2".
Помогите макросом, задача которого при нажатии на кнопку SAVE заключается в копирование данных с листа "Info" столбец "B" и вставить данные на лист "AMLTable" начиная со строки А2. При повторном нажатии на кнопку, данные на листе "AMLTable" не перезаписывались, а дополнялись.
Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку B
Код
Sub URL_Get_VOEN_status()
strSearch = Range("$A$1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://e-taxes.gov.az/isvatpayer/" & strSearch, _
Destination:=Range("$B$1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
Помогите упростить работу и затрачивать на все операции меньшее количество времени. Есть 3 файла: Файл «А» – Который каждый день выгружается из операционной системы, состоит из списка операций по счетам. Файл «Б» – База данных в котором находятся информация о владельцах счетов и сами счета непосредственно. Файл «В» – Пустой файл в котором будет составляться отчет
Нужно: Чтоб макрос производил поиск по счетам из файла «А» в файле «Б», после совпадения, копировал всю строчку из файла «Б» в файл «В». Потом опять возвращался в файл «А» и копировал суммы и тип операций и некоторые данные в соответствующие ячейки в файле «В» и так по всем операциям. В конце же выдавалось окно которое говорило об успешности копирования или же списком ненайденных счетов в базе.
К сожалению файлы приложить не могу, но могу послать в ЛС если понадобится. На счет цен, я не знаю, так как это мой первый заказ, но если задача Вас заинтересует, Вы обращайтесь, я думаю мы сможем договориться. Просьба писать в личку.