Saya butuh bantuan! Saya mencoba membuat lembar kerja untuk membantu di tempat kerja kecuali saya tidak benar-benar melek komputer. Saya menggunakan kode yang ada yang ajaib kecuali untuk minggu kecil yang sepertinya tidak berhasil saya edit. Saya perlu memindahkan data dari pilihan pada Lembar 1 berdasarkan nilai ke Lembar 2. Saya perlu kode untuk menghapus dalam rentang tertentu dan bukan seluruh baris. Saya memiliki data lain di baris yang tidak ingin saya hapus. Saya telah menamai rentang pada Lembar 1 menjadi "RESTORASI" (=Sheet1!$A$15:$F$54) dengan harapan saya dapat memasukkan nama tersebut ke dalam kode. Saya tidak tahu bagaimana mengubah kode untuk memindahkan dan menghapus informasi dalam rentang bernama "RESTORASI". Ini adalah kode asli yang perlu saya edit:
Sub
Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim
xRg
As
Range
Dim
xCell
As
Range
Dim
I
As
Long
Dim
J
As
Long
Dim
K
As
Long
I = Worksheets(
"Sheet1"
).UsedRange.Rows.Count
J = Worksheets(
"Sheet2"
).UsedRange.Rows.Count
If
J = 1
Then
If
Application.WorksheetFunction.CountA(Worksheets(
"Sheet2"
).UsedRange) = 0
Then
J = 0
End
If
Set
xRg = Worksheets(
"Sheet1"
).Range(
"C1:C"
& I)
On
Error
Resume
Next
Application.ScreenUpdating =
False
For
K = 1
To
xRg.Count
If
CStr
(xRg(K).Value) =
"Done"
Then
xRg(K).EntireRow.Copy Destination:=Worksheets(
"Sheet2"
).Range(
"A"
& J + 1)
xRg(K).EntireRow.Delete
If
CStr
(xRg(K).Value) =
"Done"
Then
K = K - 1
End
If
J = J + 1
End
If
Next
Application.ScreenUpdating =
True
End
Sub