Ștergerea conținutului

Folosesc următorul cod de mai jos. Funcționează bine, dar șterge formula dintr-una dintre celulele mele. Cum modific acest cod pentru a sări peste o celulă din foaia mea?

Sub MoveRowBasedOnCellValue()
„Actualizat de Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim i As Long
Dim J As Long
Dim K As Long
i = Foi de lucru(„Date”).UsedRange.Rows.count
J = Foi de lucru(„Finalizate”).UsedRange.Rows.count
Dacă J = 1, atunci
Dacă Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0, atunci J = 0
Final, dacă
Set xRg = Foi de lucru(„Date”).Range(„A1:A” și i)
La data de eroare CV următoare
Application.ScreenUpdating = Fals
Pentru K = 1 To xRg.count
Dacă CStr(xRg(K).Value) = „Finalizat” atunci
xRg(K).EntireRow.Copy Destination:=Foaie de lucru(„Finalizat”).Range(„A” și J + 1)

xRg(K).EntireRow.ClearContents


J = J + 1
Final, dacă
Pagina Următoare →
Application.ScreenUpdating = Adevărat
Coloane("A:A").Selectați
ActiveWorkbook.Worksheets(„Date”).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(„Date”).Sort.SortFields.Add2 Key:=Range(„A3:A16”) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Cu ActiveWorkbook.Worksheets(„Date”).Sort
.SetRange Range("A2:Q16")
.Header = xlDa
.MatchCase = Fals
.Orientare = xlTopToBottom
.SortMethod = xlPinYin
.Aplica
Application.Goto Reference:=Foaie de lucru(„Date”).Range(„A3”)
Se termina cu