Новости:

Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин

Главное меню

Обновление данных в текущей книге взяв данные из второй книги при условии

Автор igorek72rus, 24.10.2022, 15:21:11

« назад - далее »

igorek72rus

Sub DDDR()

   Dim shV As Worksheet, shITR As Worksheet, rng As Range, nil As Range
   Dim ActualDate As Date, Nudost As String, Nudust As String, r0 As Long, r1 As Long, i As Long
   Dim oXL As Workbook
   Dim FileToOpen As String, sStr As Worksheet
   
   Set shV = ThisWorkbook.Sheets("Вахта+Подменные")
   Set shITR = ThisWorkbook.Sheets("ИТР")
   
FileToOpen = "C:\Users\t506.hse\Desktop\Ознакомление Игоря\TestVBA\Электронная форма по ОТ2 VBA test 1.xlsm"
Set oXL = Workbooks.Open(FileToOpen)
Set sStr = oXL.Sheets("01-Журнал")



   ActualDate = sStr.Range("B4")
   r0 = 4
   r1 = 42

   For i = r0 To r1
       If ActiveSheet.Cells(i, "D") <> "" Or ActiveSheet.Cells(i, "E") <> "" Then
           Nudost = ActiveSheet.Cells(i, "D")
           Nudust = ActiveSheet.Cells(i, "E")
           Set rng = shV.Columns(2).Find(What:=Nudost, LookAt:=xlWhole)
           Set nil = shV.Columns(3).Find(What:=Nudust, LookAt:=xlWhole)
           If Not rng Is Nothing And Not nil Is Nothing Then
               rng.Offset(1, 4) = DateAdd("yyyy", 1, ActualDate)
           Else
               Set rng = shITR.Columns(2).Find(What:=Nudost, LookAt:=xlWhole)
               Set nil = shITR.Columns(3).Find(What:=Nudust, LookAt:=xlWhole)
               If Not rng Is Nothing And Not nil Is Nothing Then rng.Offset(1, 4) = DateAdd("yyyy", 1, ActualDate)
           End If
       End If
   Next i
End Sub


Добрый день, подскажите пожалуйста как отредактировать код чтобы он мог обновлять данные в столбце F документа (текущего) используя данные из другого документа (на которого я создал команду для его открытия)
При условии если ФИО+должность совпадают с таким же фио+должность во втором документе, то из второго документа в первый будут переноситься значения "номер удостоверения" и значение "Даты"+1год в соответствующие ячейки первого документа.

Нюансы:
Может быть такое что ФИО у двух человек одинакова но должность разная.
Также хотел бы обратить внимание, что в первом документе два листа, и тот и другой лист сообщаются с общим вторым документом.
Может быть такое что Олегов Олег Олегович пройдет внеплановую проверку знаний и во втором документе он будет записан заново но уже с более свежей датой, как в этом случае макрос будет работать? Когда будут две одинаковые записи но у них буду отличаться лишь даты и номер удостоверения.

Дмитрий Щербаков(The_Prist)

А к Word это какое отношение имеет? Вы тему создали в ветке "Вопросы по Word и VBA - Обсуждение вопросов, связанных с проблемами по Word и написанию кодов в VBA модели Word"
Цитата: igorek72rus от 24.10.2022, 15:21:11как в этом случае макрос будет работать?
ровно так, как его напишут.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Яндекс.Метрика Рейтинг@Mail.ru