Сранение двух столбцов в разных книгах и копирование

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сранение двух столбцов в разных книгах и копирование (Макросы/Sub)

kleo90

Дата: Вторник, 07.06.2016, 11:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Кто знает помогите, как мне сделать макрос так чтобы при изменении значения ячейки в одной книги менялось значение в другой.
Например, у номера заказа 10622-04/16 поменялась стоимость, следовательно в другой книге у заказа номер 10622-04/16 тоже должна меняться стоимость.
Пока кроме вот такого макроса ничего не пришло в голову, но он не та работает как хотелось бы, он заново вставляет заказ в книгу

[vba]

Код

Sub example2()
Dim i As Integer
Workbooks.Open("C:\Users\Отчет.xlsx")

For i = 1 To 20153
If ThisWorkbook.Worksheets("1").Cells(i, 2).Value = Workbooks("Отчет.xlsx").Worksheets("1").Cells(i, 2).Value Then
  If ThisWorkbook.Worksheets("1").Cells(i, 2).Offset(, 4) <> Workbooks("Отчет.xlsx").Worksheets("1").Cells(i, 2).Offset(, 1) Then

   ThisWorkbook.Worksheets("1").Cells(i, 2).Offset(, 4) = Workbooks("Отчет.xlsx").Worksheets("1").Cells(i, 2).Offset(, 1)
     End If
      End If
      Next

End Sub

[/vba]

К сообщению приложен файл: 5639252.xlsx (10.0 Kb) · 8907134.xlsx (8.5 Kb)

Сообщение отредактировал kleo90 - Вторник, 07.06.2016, 11:55

Ответить

Karataev

Дата: Вторник, 07.06.2016, 13:00 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Макрос запускается из H1.
В книге, в которую надо вставить данные, макрос работает с первым листом.

К сообщению приложен файл: Macro_Kar.xlsm (19.9 Kb)

Ответить

sboy

Дата: Вторник, 07.06.2016, 13:07 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Мое предложение вносить изменения по кнопке, с указанием пользователя конкретного договора (правда в макросе надо сделать "защиту от дурака" и обработчик ошибок)

[vba]

Код

Sub Прямоугольник1_Щелчок()
Dim rf As Range
Dim rFr As Range
Dim sn As String
Dim isum As Currency
Dim irow As Integer

On Error GoTo ex
Set rf = Application.InputBox("Выберите номер заказа по которому проводим изменения", "выбор данных", "", Type:=8)
sn = rf.Value
isum = rf.Offset(0, 4).Value
'Workbooks.Open("D:\Мои документы\Downloads\8907134.xlsx").Sheets(1).Activate
Workbooks.Open("C:\Users\Отчет.xlsx").Sheets(1).Activate
irow = Cells(Rows.Count, 2).End(xlUp).Row
Set rFr = Range(Cells(1, 2), Cells(irow, 2)).Find(what:=sn)
rFr.Offset(0, 1).Value = isum

ex: Exit Sub
End Sub

[/vba]

К сообщению приложен файл: 5639252.xlsm (16.8 Kb)

Яндекс: 410016850021169

Сообщение отредактировал sboy - Вторник, 07.06.2016, 13:46

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сранение двух столбцов в разных книгах и копирование (Макросы/Sub)

Страница 1 из 1
1