Макрос при совпадении текста в яейке коприование строки на другой лист и сохранение в PDF

Автор Посетитель, 09 декабря 2022, 10:23

Посетитель

Уважаемые знатоки, помогите решить задачку по созданию макроса.

На листе Data будет обновлятся информация и при совпадении знаяченяи в Ячейке С2 копировать и вставить строку на требуемый лист полсе сохранить в PDF и переход к следующей строке и выполнение аналогичныйх действий

Проблема как указать, если сопало в ячейке DS то копирование на лист с одноименным названием DS и полсе сохранение, если MOTOR то копировать лист MOTOR. Значение в ячейке C2 будет переменной и в зависимости от значения лист для копирования должен выбираться соответственно. Количество листчо в полседсиви будет увеличенно по аналогииб количество строк достигает 200+ еженедельно.

  For i = 2 To 300
    ' JP C-MP02-DS
    If Worksheets("Data").Cells(i, 3).Value = "C-MP02-DS" Then
   
   
    Range("A2:I2").Select
    Selection.Copy
    Sheets("MP02-DS").Select
    Range("L3").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
               
    '  Save to PDF Activesheet
    ActiveSheet.ExportAsFixedFormat _
    Filename:=ThisWorkbook.Path & "\" & Range("L1") & ".pdf", _
    Type:=xlTypePDF, _
    Quality:=xlQualityMinimum
       
    End If
    Next

Администратор

Написал вам письмо на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.