Aşağıda listelenen aşağıdaki kodu kullanıyorum. İyi çalışıyorum ama hücrelerimden birindeki formülü siliyor. Sayfamda bir hücreyi atlamak için bu kodu nasıl değiştirebilirim?
Alt MoveRowBasedOnCellValue()
'Tarafından güncellendi Extendoffice 2017/11/10
Aralık olarak Dim xRg
Aralık olarak xCell Dim
Dim i As Long
Dim J Uzun
Dim K As Uzun
i = Çalışma Sayfaları("Veri").UsedRange.Rows.count
J = Çalışma Sayfaları("Tamamlandı").UsedRange.Rows.count
J = 1 ise
Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0 ise J = 0
Eğer son
xRg = Çalışma Sayfaları("Veri").Range("A1:A" & i) olarak ayarlayın
On Error Resume Next
Application.ScreenUpdating = Yanlış
K = 1 için xRg.count
CStr(xRg(K).Value) = "Tamamlandı" ise
xRg(K).EntireRow.Copy Hedef:=Çalışma Sayfaları("Tamamlandı").Range("A" & J + 1)
xRg(K).EntireRow.ClearContents
J = J + 1
Eğer son
Sonraki
Application.ScreenUpdating = True
Sütunlar("A:A").Seç
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("A3:A16") _
, SortOn:=xlSortOnValues, Order:=xlArtan, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Veri") ile.Sırala
.SetRange Aralığı("A2:Q16")
.Header = xlEvet
.MatchCase = Yanlış
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Uygulamak
Application.Goto Reference:=Çalışma Sayfaları("Veri").Range("A3")
İle bitmek
Alt MoveRowBasedOnCellValue()
'Tarafından güncellendi Extendoffice 2017/11/10
Aralık olarak Dim xRg
Aralık olarak xCell Dim
Dim i As Long
Dim J Uzun
Dim K As Uzun
i = Çalışma Sayfaları("Veri").UsedRange.Rows.count
J = Çalışma Sayfaları("Tamamlandı").UsedRange.Rows.count
J = 1 ise
Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0 ise J = 0
Eğer son
xRg = Çalışma Sayfaları("Veri").Range("A1:A" & i) olarak ayarlayın
On Error Resume Next
Application.ScreenUpdating = Yanlış
K = 1 için xRg.count
CStr(xRg(K).Value) = "Tamamlandı" ise
xRg(K).EntireRow.Copy Hedef:=Çalışma Sayfaları("Tamamlandı").Range("A" & J + 1)
xRg(K).EntireRow.ClearContents
J = J + 1
Eğer son
Sonraki
Application.ScreenUpdating = True
Sütunlar("A:A").Seç
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("A3:A16") _
, SortOn:=xlSortOnValues, Order:=xlArtan, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Veri") ile.Sırala
.SetRange Aralığı("A2:Q16")
.Header = xlEvet
.MatchCase = Yanlış
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Uygulamak
Application.Goto Reference:=Çalışma Sayfaları("Veri").Range("A3")
İle bitmek