В настоящее время у меня есть несколько листов для хранения записей о платежах (например, Pay и CantPay).Я пытаюсь написать макрос, который будет копировать и вставлять ячейки A: M в каждую строку, где столбец T = "Resolved" на листе CantPay (где следующая пустая строка - это следующая строка, где "a" & row-number = blank) к листу «Оплата».
На листе, который я хочу скопировать, есть данные в столбцах A: T, но N: T не нужны после устранения проблемы.Поэтому, как только я скопировал и вставил данные в ячейки A: M, я хочу просто удалить всю строку.Я написал код из того, что я знал, и смотрю в Интернете, который не работает.Любая помощь будет принята с благодарностью.
Спасибо
Я попытался записать макрос и написать свой собственный, но кажется, что макрос, который я написал, удаляет строку 1, где находятся все мои заголовки столбцовсохранено.
Sub MoveToPay()
Dim CantPay As Worksheet: Set CopySheet = Sheets("Can't Pay")
Dim ReadyToPay As Worksheet: Set PasteSheet = Sheets("£ Pay")
Dim lr As Long
Dim S As String
Application.ScreenUpdating = False
Columns(20).AutoFilter 1, "Resolved"
With Range("a2", Range("M" & Rows.Count).End(3))
.Copy PasteSheet.Cells(Rows.Count, 1).End(3).Offset(1)
.EntireRow.Delete
End With
Columns(20).AutoFilter
Application.ScreenUpdating = True
End Sub