p = p + 1 не работает?

Question

Надеюсь, быстрые вопросы. Приведенный ниже код работает так, как мне нужно, однако, похоже, он не копирует строку на другой лист. На самом деле ... Excel, похоже, ничего не делает с p = p + 1. Я уверен, что это простая ошибка, но я не могу найти проблему. Любые идеи о том, почему это не может происходить? Очень ценится.

Sub Pending(): Dim wp As Worksheet, wa As Worksheet, a As Long, p As String
Set wp = Sheets("Pending"): Set wa = Sheets("Projects"):
p = Application.Max(3, wp.Range("A" & Rows.Count).End(xlUp).Row + 1)
For a = 5 To wa.UsedRange.Rows.Count

If wa.Range("Q" & a) = "Move" Then
wa.Range("A" & a).Resize(1, 19).Value = wa.Range("A" & p).Resize(1, 19).Value
wp.Range("A" & p) = "": p = p + 1:

End If
Next a
End Sub

Answer 1

Возможно, вам следует перейти к следующей строке после двоеточия. Изменить это:

wp.Range("A" & p) = "": p = p + 1:

К этому:

wp.Range("A" & p) = "":
p = p + 1:

Извините за ошибку ранее