Копирование и вставка VBA, когда ячейка содержит определенный текст

Обновить

April 2019

Просмотры

174 раз

1

У меня есть VBA написано, но я хочу, чтобы скопировать, если ячейки в столбце содержат слово новое. Например; У меня есть новые, Создать- удалить, New-добавить, новый доступный и так далее. Так что я действительно хочу, чтобы искать слово нового независимо от того, что после того, как и копии. Это то, что я до сих пор, но это только захватывая любое значение, я сказать ему.

Private Sub CommandButton2_Click()

a = Worksheets("Combined2").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Worksheets("Combined2").Cells(i, 1).Value = "New delete" Then

Worksheets("Combined2").Rows(i).Copy
Worksheets("Running Data").Activate
b = Worksheets("Running Data").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Running Data").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Combined2").Activate
End If

Next
Application.CutCopyMode = False


End Sub

0 ответы