Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Копирование данных с одного листа на другой
 
Я начал сам пробовать изменить его и к сожалению на строчке
Код
With Sheet2        iarr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
макрос дает ошибку Overflow ((

По задумке, макрос должен сверять значения в столбце 59 на первом листе со вторым листои и так же столбцом номер 59 и если кода совпали, то перезаписывать строчку, если нет, то создать новую.
Код
Sub baseupd59()
    Dim arr(), iarr(), x
    Dim i, j, dic As New Scripting.Dictionary
    With Sheet1
        arr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    With Sheet2
        iarr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    For i = 2 To UBound(iarr)
        dic.Item(CStr(iarr(i, 59))) = i
    Next i
    ReDim larr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        If Not dic.Exists(CStr(arr(i, 59))) Then
            x = x + 1
            For j = 1 To UBound(arr, 59): larr(x, j) = arr(i, j): Next j
        Else: For j = 1 To UBound(arr, 2): iarr(dic.Item(CStr(arr(i, 59))), j) = arr(i, j): Next j
        End If
    Next i
    With Sheet2
        .Columns(59).NumberFormat = "@"
        .[a2].Resize(UBound(iarr), UBound(iarr, 2)).Value = iarr
        i = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        If Not IsEmpty(larr(1, 1)) Then .Range("a" & i).Resize(i, UBound(larr, 2)).Value = larr
    End With
End Sub

Помогите пожалуйста
Копирование данных с одного листа на другой
 
Может кто-нибудь сможет помочь?
Копирование данных с одного листа на другой
 
Уважаемые форумчане!
Обращаюсь к Вам снова за помощью. Можно ли изменить нижеуказанный код так, чтоб он брал информацию с первого листа, 4 столбца и сверял ее со вторым листом и столбцом номер 7.
Остальной функционал макроса остается точно таким же.
Код
Sub update()
    Dim arr(), iarr(), x&
    Dim i&, j&, dic As New Scripting.Dictionary
    With Sheet1
        arr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    With Sheet2
        iarr = .Range(.[a2].End(xlToRight), .[a2].End(xlDown)).Value
    End With
    For i = 2 To UBound(iarr)
        dic.Item(CStr(iarr(i, 2))) = i
    Next i
    ReDim larr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        If Not dic.Exists(CStr(arr(i, 2))) Then
            x = x + 1
            For j = 1 To UBound(arr, 2): larr(x, j) = arr(i, j): Next j
        Else: For j = 1 To UBound(arr, 2): iarr(dic.Item(CStr(arr(i, 2))), j) = arr(i, j): Next j
        End If
    Next i
    With Sheet2
        .Columns(2).NumberFormat = "@"
        .[a2].Resize(UBound(iarr), UBound(iarr, 2)).Value = iarr
        i = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        If Not IsEmpty(larr(1, 1)) Then .Range("a" & i).Resize(x, UBound(larr, 2)).Value = larr
    End With
End Sub

Заранее спасибо!
Изменено: oggis - 19 Ноя 2019 15:41:46
Копирование данных с одного листа на другой
 
Nordheim, спасибо большое!
Копирование данных с одного листа на другой
 
Nordheim, спасибо Вам, что откликнулись! Во время работы макроса, заметил, что при первом запуске он обрабатывает только первые три строки, но при повторном уже обрабатывает все нормально. Не знаете в чем может быть проблема?
Изменено: oggis - 18 Апр 2018 22:11:45
Копирование данных с одного листа на другой
 
Nordheim, При нажатие кнопки SAVE нужно копировать строки со страницы "Info" на страницу "AML Table", при копировании сверять Type Code со страницы "Info" со Type Code на странице "AML Table", и если кода совпали, то перезаписывать строчку, если нет, то создать новую.
Копирование данных с одного листа на другой
 
Получилось загрузить файл пример из дома
Копирование данных с одного листа на другой
 
Уважаемые форумчане!

Вот уже почти год пользуемся вашим решением, спасибо вам еще раз за помощь. Но спустя время форма шаблона немного изменилась и теперь информация на обоих листах в горизонтальном формате (не получается загрузить файл, все зависает на 90%, размер файла 15кб). Можно подкорректировать код, чтоб он копировал данные строчки, а не столбца? Остальные условия те же:

Цитата
oggis написал:
чтоб там стояла проверка на повтор, то есть после нажатия кнопки "SAVE" он сверяет Type code со страницы "Info" cо с Type code на странице "AMLTable" и если кода совпали, то перезаписывает строчку, если нет, создает новую

Спасибо большое за помощь!
Изменено: oggis - 17 Апр 2018 10:11:13
Web-запрос и получение результата
 
Jungl, спасибо большое!
Web-запрос и получение результата
 
Здравствуйте, уважаемые форумчане

Помогите пожалуйста с вопросом, нужно создать запрос к сайту 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
Макрос для веб-запроса: поиск по всему столбцу
 
Jungl, к сожалению макрос с сегодняшнего утра стал вместо результата возвращать #VALUE!
Подскажите в чем может быть дело?
Изменение строчки кода VBA с помощью VBA
 
Sanja, А как быть в моменте со SWIFT-ом, где поиск должен происхоть с 5го символа?. Спасибо Вам за форму выбора кодов
Изменение строчки кода VBA с помощью VBA
 
Цитата
Sanja написал:
И зачем Вам несколько ИДЕНТИЧНЫХ макросов
В них меняются столбцы поиска, и так же начиная с с какого символа начинать поиск. Например вышеуказанный код ищет страну по 5-6 символу SWIFT-а, а другой ищет конкретные слова в адресе.
Изменение строчки кода VBA с помощью VBA
 
Просьба к модератором изменить название темы на - "Изменить код макроса с помощью другого кода".
Спасибо
Изменение строчки кода VBA с помощью VBA
 
Здравствуйте уважаемый форумчане,

У меня есть несколько идентичных макросов (макросы в определенном стоблце ищут совпадения со списком), в которых часто меняется строка 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

Спасибо.
Копирование данных с листа на лист и дальнейшая печать страниц
 
tolstak, огромное Вам спасибо!
Копирование данных с листа на лист и дальнейшая печать страниц
 
tolstak,так, только макрос вроде подставляет не правильно. Н-р вместо Имени вставляется номер паспорта, вместо паспорта Application Number  
Копирование данных с листа на лист и дальнейшая печать страниц
 
Здравствуйте еще раз!
Уважаемые форумчане помогите еще раз, надо изменить макрос так, что он не спрашивал ряд на печать, а номер пасспорта и искал точное совпадение на листе "Card Order" в столбце D. И после нахождения копирует данные на лист "Info".

Заранее Вам благодарен!
Копирование данных с листа на лист и дальнейшая печать страниц
 
tolstak, cпасибо Вам большое!
Копирование данных с листа на лист и дальнейшая печать страниц
 
tolstak,cпасибо большое, все работает! Не подскажите, можно ли дать возможность указать несколько рядов или диапазон рядов? И как это реализовать?

Цитата
tolstak написал:
о, что листы Print 1 и Print 2 - пустые - так и должно быть, позже заполните?
да, позже заполню, после добавления привязанных договоров.
Еще раз спасибо!
Изменено: oggis - 22 Авг 2017 23:59:16
Копирование данных с листа на лист и дальнейшая печать страниц
 
Добрый день!

Уважаемые форумчане помогите в следующем вопросе:

Нужно, чтоб при нажатии кнопки "Print" выводилось input cообщение с вопросом о номере ряда клиента который нужен для распечатки, после указания номера ряда со страницы "Card Order" копируется информация соответствующего ряда (нужные столбцы указаны зеленым цветом) и копируется на лист "Info" и после этого дается на печать страницы "Print 1" и "Print 2".

Cпасибо заранее за любую помощь!
С уважением.
Копирование данных с одного листа на другой
 
Nordheim, webley, спасибо!
Копирование данных с одного листа на другой
 
Здравствуйте,

У меня еще одна просьба, можно ли слегка подкорректирвоать код, чтоб там стояла проверка на повтор, то есть после нажатия кнопки "SAVE" он сверяет Type code со страницы "Info" cо с Type code на странице "AMLTable" и если кода совпали, то перезаписывает строчку, если нет, создает новую

Заранее благодарю за помощь
Изменено: oggis - 30 Июл 2017 11:52:16
Копирование данных с одного листа на другой
 
webley,спасибо!
Копирование данных с одного листа на другой
 
Уважаемые форумчане!

Помогите макросом, задача которого при нажатии на кнопку SAVE заключается в копирование данных с листа "Info" столбец "B" и вставить данные на лист "AMLTable" начиная со строки А2. При повторном нажатии на кнопку, данные на листе "AMLTable" не перезаписывались, а дополнялись.

Заранее благодарю.
Макрос для копирования заданных значений на другой лист
 
Здравствуйте. А можно изменить этот макрос, чтоб он записывал данные на лист Б подряд и убрать привязку к дате?
Спасибо.
Изменено: faridvg - 11 Июл 2017 13:15:49
Макрос для веб-запроса: поиск по всему столбцу
 
Jungl, спасибо Вам большое!
Макрос для веб-запроса: поиск по всему столбцу
 
Jungl, точно такое же
Код
{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}
Макрос для веб-запроса: поиск по всему столбцу
 
Jungl, одно из значений - 4401174785
Макрос для веб-запроса: поиск по всему столбцу
 
Здравствуйте,

Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку 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

Спасибо большое
Страницы: 1 2 След.
Наверх