Уважаемые знатоки, помогите решить задачку по созданию макроса.
На листе 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". Написал именно на почту, а не на форум.