Cara memindahkan banyak baris di excel ke sheet lain

Seperti gambar di bawah yang ditampilkan, Anda perlu memindahkan seluruh baris dari Sheet1 ke Sheet2 jika kata tertentu "Selesai" ada di kolom C. Anda dapat mencoba kode VBA berikut

1. Tekan tombol Alt+ F11 secara bersamaan untuk membuka jendela Microsoft Visual Basic for Applications

2. Di jendela Microsoft Visual Basic for Applications, klik Sisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela

Kode VBA1. Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel

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

Catatan. Pada kode, Sheet1 adalah worksheet berisi baris yang ingin dipindahkan. Dan Sheet2 adalah lembar kerja tujuan tempat Anda akan menemukan baris. “ C. C ” adalah kolom yang berisi nilai tertentu, dan kata “ Done ” adalah nilai tertentu yang akan Anda pindahkan . Silakan mengubahnya berdasarkan kebutuhan Anda.

3. Tekan tombol F5 untuk menjalankan kode, maka baris yang memenuhi kriteria di Sheet1 akan segera dipindahkan ke Sheet2

Catatan. Kode VBA di atas akan menghapus baris dari data asli setelah pindah ke lembar kerja tertentu. Jika Anda hanya ingin menyalin baris berdasarkan nilai sel alih-alih menghapusnya. Silakan terapkan kode VBA di bawah ini 2

Kode VBA2. Salin seluruh baris ke lembar lain berdasarkan nilai sel

Sub MoveRowBasedOnCellValue()
'Updated by 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 = 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)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel dengan Kutools for Excel

Jika Anda pemula dalam kode VBA. Di sini saya memperkenalkan utilitas Select Specific Cells dari Kutools for Excel. Dengan utilitas ini, Anda dapat dengan mudah memilih semua baris berdasarkan nilai sel tertentu atau nilai sel berbeda dalam lembar kerja, dan menyalin baris yang dipilih ke lembar kerja tujuan sesuai kebutuhan. Silakan lakukan sebagai berikut

Sebelum menerapkan Kutools for Excel, silakan unduh dan instal terlebih dahulu

1. Pilih daftar kolom berisi nilai sel yang akan Anda pindahkan berdasarkan baris, lalu klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar

2. Di kotak dialog Select Specific Cells pembuka, pilih Seluruh baris di bagian Jenis pilihan, pilih Sama dengan di daftar drop-down Jenis khusus, masukkan nilai sel ke dalam kotak teks dan kemudian klik tombol OK

Kotak dialog Pilih Sel Spesifik lainnya muncul untuk menunjukkan kepada Anda jumlah baris yang dipilih, dan sementara itu, semua baris berisi nilai yang ditentukan dalam kolom yang dipilih telah dipilih. Lihat tangkapan layar

3. Tekan tombol Ctrl + C untuk menyalin baris yang dipilih, lalu tempelkan ke lembar kerja tujuan yang Anda perlukan

Catatan. Jika Anda ingin memindahkan baris ke lembar kerja lain berdasarkan dua nilai sel yang berbeda. Misalnya, pindahkan baris berdasarkan nilai sel baik "Selesai" atau "Memproses", Anda dapat mengaktifkan kondisi Atau di kotak dialog Pilih Sel Spesifik seperti gambar di bawah ini yang ditampilkan

  Jika Anda ingin mendapatkan uji coba gratis ( 30 -hari) utilitas ini, klik untuk mendownloadnya, lalu buka .

Artikel terkait

• Bagaimana cara memindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel di Excel?

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab di Word, Excel, PowerPoint , Publisher, Access, Visio, dan Project.
• Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru
• Meningkatkan produktivitas Anda hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 299 )

Belum ada peringkat. Jadilah yang pertama menilai

Ciaran

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, saya menemukan panduan khusus ini sangat membantu orang lain yang pernah saya lihat. Terima kasih. Masalah yang saya alami adalah jika saya mengubah nilai yang saya inginkan menjadi 'Tertutup', saya harus menjalankan F5 untuk memindahkan baris. Saya ingin itu bergerak secara otomatis. Saya baru mengenal Excel sehingga bantuan Anda sangat kami hargai. Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long I = Worksheets("ECR Incident Tracker"). Rentang Terpakai. Baris. Hitung J = Lembar Kerja ("Masalah Terselesaikan"). Rentang Terpakai. Baris. Hitung Jika J = 1 Maka Jika Permohonan. WorksheetFunction. CountA(Lembar Kerja("Masalah Terselesaikan"). RentangUsed) = 0 Kemudian J = 0 Selesai Jika Setel xRg = Lembar Kerja ("ECR Incident Tracker"). Rentang("B1. B" & I) Pada Kesalahan Lanjutkan Aplikasi Berikutnya. Pembaruan Layar = Salah Untuk Setiap xCell Di xRg If CStr(xCell. Nilai) = "Tertutup" Lalu xCell. Seluruh baris. Salin Tujuan. =Lembar Kerja("Masalah Terselesaikan"). Range("A" & J + 1) xCell. Seluruh baris. Hapus J = J + 1 Akhir Jika Selanjutnya Aplikasi. Pembaruan Layar = True End Sub

Membalas

0

0

Talia     Ciaran

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, saya mencoba mengotomatiskan pemindahan sel tanpa harus membuka modul dan menekan F5 juga. Apakah Anda pernah menyelesaikan pertanyaan ini?

Membalas

0

0

David Vidler     Talia

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Crystal memberikan informasi tentang cara melakukannya hari ini - lihat halaman pertama utas ini untuk melihat tanggapannya. Secara otomatis memindahkan baris dengan tanggal hari ini di kolom (L dalam kasus saya) ke lembar kerja yang berbeda

Membalas

Laporan

0

0

David     Ciaran

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya menjalankan kode ini dan mencoba memindahkan baris berdasarkan tanggal hari ini yang muncul di kolom I - Saya telah mengubah Range("B1. B" & I) untuk membaca Rentang (I1. saya" & saya). Saya telah mengubah "Selesai" dalam contoh Anda menjadi Tanggal. Namun, saat tanggal hari ini muncul di mana saja dalam baris, tidak hanya di kolom I seperti yang diperlukan, baris tersebut berpindah ke lembar kerja alternatif. Adakah yang tahu mengapa ini terjadi dan bagaimana saya dapat memindahkan baris hanya ketika tanggal hari ini ada di kolom I, terlepas dari apakah tanggal hari ini muncul di kolom lain?

Membalas

0

0

Yoav

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jika saya ingin memiliki banyak nilai dan banyak lembar untuk memindahkan baris saya, saya harus menulis seluruh kode lagi dengan nilai berbeda untuk sel itu?

Membalas

0

0

Maddie

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

hai, ini sangat membantu. Apakah ada cara untuk melakukan ini tanpa memindahkan baris data ke lembar kedua, melainkan menyalinnya?

Membalas

0

0

bava

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai kodenya sangat membantu, tetapi alih-alih menyalin seluruh baris, saya memerlukan pemilihan baris tertentu untuk dipindahkan ke lembar berikutnya. bagaimana saya bisa mendefinisikan rentang alih-alih seluruh baris Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long I = Worksheets("Sheet1"). Rentang Terpakai. Baris. Hitung J = Lembar Kerja("Sheet2"). Rentang Terpakai. Baris. Hitung Jika J = 1 Maka Jika Permohonan. WorksheetFunction. HitungA(Lembar Kerja("Sheet2"). RentangUsed) = 0 Lalu J = 0 Selesai Jika Diset xRg = Lembar Kerja("Sheet1"). Rentang ("C1. C" & I) Pada Kesalahan Lanjutkan Aplikasi Berikutnya. Pembaruan Layar = Salah Untuk Setiap xCell Di xRg If CStr(xCell. Nilai) = "Selesai" Lalu xCell. Seluruh baris. Salin Tujuan. =Lembar Kerja("Lembar2"). Range("A" & J + 1) J = J + 1 Berakhir Jika Aplikasi Selanjutnya. Pembaruan Layar = True End Sub

Membalas

0

0

Pos Afke

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

apa kodenya jika saya ingin menyalin baris (sel tertentu) ke lembar lain ke sel tertentu? . warna gambar produk string white blender 2 whiteblender2 black juicer 3 blackjuicer3 red tv 1 redtv1 green iron 4 greeniron4 Saya ingin string disalin ke lembar lain tetapi nomor di kolom gambar memberi tahu berapa kali harus disalin (jadi, dalam hal ini

Membalas

0

0

Sampler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, potongan kode yang sangat bagus, bekerja dengan sangat baik. Bagaimana cara mengubah kode ini untuk memindahkan baris dari satu tabel ke tabel lain, bukan dari satu lembar ke lembar lainnya?

Membalas

0

0

francesco

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, saya mencoba menggunakan kode, tetapi saya menerima kesalahan sintaks pada  Dim xCell As Range. Bisakah Anda membantu?

Membalas

0

0

kay

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long I = Worksheets("Sheet1"). Rentang Terpakai. Baris. Hitung J = Lembar Kerja("Sheet2"). Rentang Terpakai. Baris. Hitung Jika J = 1 Maka Jika Permohonan. WorksheetFunction. HitungA(Lembar Kerja("Sheet2"). RentangUsed) = 0 Lalu J = 0 Selesai Jika Diset xRg = Lembar Kerja("Sheet1"). Rentang ("C1. C" & I) Pada Kesalahan Lanjutkan Aplikasi Berikutnya. Pembaruan Layar = Salah Untuk Setiap xCell Di xRg If CStr(xCell. Nilai) = "Selesai" Lalu xCell. Seluruh baris. Salin Tujuan. =Lembar Kerja("Lembar2"). Range("A" & J + 1) xCell. Seluruh baris. Hapus J = J + 1 Akhir Jika Selanjutnya Aplikasi. ScreenUpdating = True End Sub bagaimana cara menambahkan lembar kerja kedua agar baris dipindahkan ke sheet2?

Membalas

0

0

Betania Gordon

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apa yang harus saya masukan jika saya ingin menyertakan tanggal sebagai nilai saya?

Membalas

0

0

sy

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

[quote] hai, ini sangat membantu. Apakah ada cara untuk melakukan ini tanpa memindahkan baris data ke lembar kedua, melainkan menyalinnya?

Membalas

0

0

Jach     sy

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hapus "xCell. Seluruh baris. Hapus" dari kode

Membalas

0

0

bex     Jach

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saat saya menghapus baris kode itu dan menjalankan makro lagi, Excel membeku. Mengapa dan bagaimana cara memperbaikinya?? . TIA

Membalas

0

0

Kristel     bex

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

apakah ada jawaban untuk ini?

Membalas

0

0

kristal     Kristel

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Selamat tinggal,
Kode VBA di bawah ini dapat membantu Anda hanya menyalin baris alih-alih menghapusnya

Sub Cheezy()
Dim xRg Sebagai Kisaran
Redupkan xCell Sebagai Kisaran
Redupkan Aku Selamanya
Dim J Selama
Redupkan K Selama
I = Lembar Kerja("Lembar1"). Rentang Terpakai. Baris. Menghitung
J = Lembar Kerja("Lembar2"). Rentang Terpakai. Baris. Menghitung
Jika J = 1 Maka
Jika Aplikasi. WorksheetFunction. HitungA(Lembar Kerja("Sheet2"). RentangUsed) = 0 Maka J = 0
Berakhir jika
Atur xRg = Lembar Kerja("Sheet1"). Rentang ("C1. C" & saya)
Pada Kesalahan Lanjutkan Berikutnya
Aplikasi. Pembaruan Layar = Salah
Untuk K = 1 Ke xRg. Menghitung
Jika CStr(xRg(K). Nilai) = "Selesai" Kemudian
xRg(K). Seluruh baris. Salin Tujuan. =Lembar Kerja("Lembar2"). Rentang("A" & J + 1)
J = J + 1
Berakhir jika
Berikutnya
Aplikasi. Pembaruan Layar = Benar
Akhir Sub

Membalas

Laporan

0

0

rampok

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, saya sedang mencari variasi untuk ini. Saya memerlukan skrip untuk berjalan terus menerus, atau gagal setiap kali nilai dalam bidang tertentu itu berubah. Kode itu sendiri berfungsi tetapi perlu dijalankan secara mandiri. Saya ingin ini otomatis. Adakah yang bisa membantu?

Selain itu, jika saya hanya ingin menyalin sel tertentu dalam rentang, bagaimana cara melakukannya?

Membalas

Laporan

0

0

kristal     Rob

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Rob sayang,

Jika Anda memerlukan skrip untuk berjalan secara otomatis saat sel di bidang itu berubah, kode VBA di bawah ini dapat membantu Anda. Silakan klik kanan tab sheet saat ini (sheet dengan baris yang akan Anda pindahkan secara otomatis), lalu pilih Lihat Kode dari menu konteks. Kemudian salin dan tempel skrip VBA di bawah ini ke jendela Kode

Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)

Redupkan xCell Sebagai Kisaran

Redupkan Aku Selamanya
Pada Kesalahan Lanjutkan Berikutnya

Aplikasi. Pembaruan Layar = Salah

Tetapkan xCell = Target(1)
Jika xCell. Nilai = "Selesai" Lalu
I = Lembar Kerja("Sheet2"). Rentang Terpakai. Baris. Menghitung
Jika I = 1 Maka

Jika Aplikasi. WorksheetFunction. HitungA(Lembar Kerja("Sheet2"). RentangUsed) = 0 Lalu I = 0

Berakhir jika

xCell. Seluruh baris. Salin Lembar Kerja ("Sheet2"). Rentang("A" & I + 1)

xCell. Seluruh baris. Menghapus
Berakhir jika

Aplikasi. Pembaruan Layar = Benar

Akhir Sub


Untuk pertanyaan kedua Anda, maksud Anda hanya menyalin beberapa sel, bukan seluruh baris?

Salam Terbaik, Kristal

Membalas

Laporan

0

0

MaryJ     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kristal,


Bantuan Anda lebih dibutuhkan. )



Bagaimana kita dapat menambahkan kriteria lain di sini, misalnya saya ingin mentransfer Selesai di samping Selesai


Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)

Redupkan xCell Sebagai Kisaran

Redupkan Aku Selamanya
Pada Kesalahan Lanjutkan Berikutnya

Aplikasi. Pembaruan Layar = Salah

Tetapkan xCell = Target(1)
Jika xCell. Nilai = "Selesai" Lalu
I = Lembar Kerja("Sheet2"). Rentang Terpakai. Baris. Menghitung
Jika I = 1 Maka

Jika Aplikasi. WorksheetFunction. HitungA(Lembar Kerja("Sheet2"). RentangUsed) = 0 Lalu I = 0

Berakhir jika

xCell. Seluruh baris. Salin Lembar Kerja ("Sheet2"). Rentang("A" & I + 1)

xCell. Seluruh baris. Menghapus
Berakhir jika

Aplikasi. Pembaruan Layar = Benar

Akhir Sub

Membalas

Laporan

0

0

Stusurrey     kristal

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Kristal
Ini adalah info paling berguna yang saya temukan di web dan makro ini melakukan apa yang saya inginkan. Tapi saya memindahkan baris dari satu tabel ke tabel lain - dan dengan makro ini informasi berpindah dari baris bebas pertama di luar tabel, bukan baris bebas berikutnya dalam tabel?

Membalas

0

0

Daud

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya menjalankan kode ini dan mencoba memindahkan baris berdasarkan tanggal hari ini yang muncul di kolom I - Saya telah mengubah Range("B1. B" & I) untuk membaca Rentang (I1. saya" & saya). Saya telah mengubah "Selesai" dalam contoh Anda menjadi Tanggal. Namun, saat tanggal hari ini muncul di mana saja dalam baris, tidak hanya di kolom I seperti yang diperlukan, baris tersebut berpindah ke lembar kerja alternatif. Adakah yang tahu mengapa ini terjadi dan bagaimana saya dapat memindahkan baris hanya ketika tanggal hari ini ada di kolom I, terlepas dari apakah tanggal hari ini muncul di kolom lain?

Membalas

0

0

kristal     Daud

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

David sayang,

Kode berfungsi dengan baik untuk saya setelah mengubah rentang dan nilai variate hingga saat ini. Format tanggal dalam kode Anda harus sesuai dengan format tanggal yang Anda gunakan di lembar kerja. Atau apakah nyaman bagi Anda untuk melampirkan lembar kerja Anda?

Membalas

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Kristal,


Saya tidak jelas apa yang Anda maksud ketika Anda mengatakan bahwa kode dan format tanggal spreadsheet harus cocok - Saya bukan ahli VB, lebih merupakan level pemula. Di spreadsheet saya, saya memasukkan tanggal hari ini di kolom F sebagai tanggal masuk baris, dalam format ctrl +. Saya memasukkan tanggal kedaluwarsa di kolom "I" dalam format mm/dd/yyyy. Namun, hal ini menyebabkan masalah saat membuat entri baris baru dan memasukkan tanggal hari ini di kolom F karena begitu dimasukkan, baris tersebut dipindahkan ke lembar kerja baru. Selain itu, kode tambahan untuk dijalankan setiap kali buku kerja dibuka tampaknya tidak berjalan tanpa saya memaksanya. Maaf untuk apa yang mungkin bagi Anda masalah yang sangat sepele, tetapi saya tidak bisa mendengarkan masalah ini. Bantuan apa pun akan dihargai

Membalas

Laporan

0

0

kristal     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

David sayang,

Saya telah mencoba persis seperti yang Anda sebutkan di atas, tetapi masalah dosis tidak muncul dalam kasus saya. Bisakah Anda memberikan versi Excel Anda? . Maaf merepotkanmu lagi

Salam Terbaik, Kristal

Membalas

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Crystal, ini lembar kerja yang bersangkutan. Anda akan melihat dalam kode yang disalin bahwa saya mencari "hingga" tanggal hari ini di kolom L dan jika "hingga" dan termasuk tanggal hari ini ada di kolom itu maka saya ingin memindahkan baris yang berisi tanggal itu ke lembar kerja baru. Saat ini, ketika saya memasukkan tanggal hari ini di mana saja di baris (misalnya kolom F jika permohonan dikeluarkan hari ini) secara otomatis memindahkan seluruh baris ke spreadsheet yang diarsipkan. Saya biasanya memasukkan tanggal hari ini dengan menggunakan ctrl +. kombinasi, biasanya di kolom F
Selain itu, saya ingin langkah ini terjadi saat saya membuka buku kerja. Saat ini saya harus pergi untuk menunjukkan kode lalu tekan F5. Setiap saran tentang bagaimana melakukan itu akan disambut baik

Membalas

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sayangnya buku kerja saya yang mengaktifkan makro tidak akan diunggah karena dikatakan format tidak didukung. Ini ada di Excel 2016

Laporan

0

0

kristal     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

David sayang,

Kode VBA berikut dapat membantu Anda mencapainya

Sub Buku Kerja Pribadi_Buka()
Dim xRg Sebagai Kisaran
Redupkan xCell Sebagai Kisaran
Redupkan Aku Selamanya
Dim J Selama
I = Lembar Kerja("PELUANG OASIS SAAT INI"). Rentang Terpakai. Baris. Menghitung
J = Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang Terpakai. Baris. Menghitung
Jika J = 1 Maka
Jika Aplikasi. WorksheetFunction. CountA(Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). RentangUsed) = 0 Maka J = 0
Berakhir jika
Atur xRg = Lembar Kerja("Peluang OASIS SAAT INI"). Rentang("L1. L" & saya)
Pada Kesalahan Lanjutkan Berikutnya
Aplikasi. Pembaruan Layar = Salah
Untuk Setiap xCell Di xRg
Jika CStr(xCell. Nilai) = Tanggal Kemudian
xCell. Seluruh baris. Salin Tujuan. =Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang("A" & J + 1)
xCell. Seluruh baris. Menghapus
J = J + 1
Berakhir jika
Berikutnya
Akhir Sub

Catatan
1. Anda perlu memasukkan skrip VBA ke dalam jendela kode ThisWorkbook;
2. Buku kerja Anda harus disimpan sebagai Buku Kerja Excel Macro-Enabled

Setelah operasi di atas, setiap kali Anda membuka buku kerja, seluruh baris akan dipindahkan ke lembar kerja ARCHIVED jika sel di kolom L mencapai tanggal hari ini

Salam Binatang, Crystal

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih Kristal,
Ini berfungsi dengan baik jika tanggal hari ini dicapai di kolom L. Apakah ada cara untuk menyertakan tanggal hari ini di kolom L juga, sehingga jika saya tidak memeriksa buku kerja selama beberapa hari, tanggal tersebut akan secara otomatis menyertakan tanggal sebelumnya sebelum hari ini?

Laporan

0

0

kristal     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

David sayang,

Maaf saya tidak yakin saya mendapat pertanyaan Anda. Jika demikian, semua baris akan dipindahkan asalkan tanggal sebelumnya muncul di kolom L?

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Kristal,

Jika saya tidak membuka lembar kerja saya selama beberapa hari dan tanggal yang dimasukkan di kolom L sekarang telah lewat, mis. e. tanggal di sel di kolom L adalah 11 September 2017 tapi jangan buka lembar kerja saya sampai 13 September, saya ingin semua entri di kolom L diperiksa untuk setiap tanggal hingga tanggal hari ini lalu pindahkan baris yang sesuai ke . Saat ini dengan kode yang Anda berikan dengan anggun, hanya baris dengan tanggal saat ini di kolom L yang dipindahkan ke lembar baru meninggalkan baris dengan tanggal sebelumnya di kolom L, yang saat ini saya pindahkan secara manual ke lembar baru. Terima kasih atas bantuan Anda

Laporan

0

0

kristal     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

David sayang,



Saya mengerti maksud Anda. Silakan coba skrip VBA di bawah ini. Saat membuka buku kerja, semua baris dengan tanggal hingga tanggal hari ini di kolom L akan dipindahkan ke lembar baru yang ditentukan



Sub Buku Kerja Pribadi_Buka()
Dim xRg Sebagai Kisaran
Dim xRgRtn Sebagai Kisaran
Redupkan xCell Sebagai Kisaran
Redupkan xLastRow Selama
Redupkan Aku Selamanya
Dim J Selama
Pada Kesalahan Lanjutkan Berikutnya
xLastRow = Lembar Kerja("PELUANG OASIS SAAT INI"). Rentang Terpakai. Baris. Menghitung
Jika xLastRow < 1 Lalu Keluar dari Sub
J = Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang Terpakai. Baris. Menghitung
Jika J = 1 Maka
Jika Aplikasi. WorksheetFunction. CountA(Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). RentangUsed) = 0 Maka J = 0
Berakhir jika
Atur xRg = Lembar Kerja("Peluang OASIS SAAT INI"). Rentang("L1. L" & xLastRow)
Untuk I = 2 Ke xLastRow
Jika xRg(I). Nilai > Tanggal Kemudian Keluar dari Sub
Jika xRg(I). Nilai <= Tanggal Kemudian
xRg(I). Seluruh baris. Salin Tujuan. =Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang("A" & J + 1)
xRg(I). Seluruh baris. Menghapus
J = J + 1
saya = saya - 1
Berakhir jika
Berikutnya
Akhir Sub

Anda perlu memasukkan skrip VBA ke dalam jendela kode Buku Kerja Ini dan menyimpan buku kerja sebagai Buku Kerja yang Diaktifkan Makro Excel

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih Crystal, Itu bekerja dengan baik

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Crystal, saya agak terburu-buru dalam menanggapi bahwa kodenya berfungsi. Saya membuka buku kerja saya hari ini dan baris yang berisi entri tanggal sebelumnya di sel kolom L masih ada di "lembar kerja peluang oasis saat ini" dan belum dipindahkan ke "lembar kerja oasis yang diarsipkan" seperti yang diharapkan. Adakah ide mengapa ini terjadi?

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sel-sel yang disorot ada di kolom L sehubungan dengan pertanyaan di atas dan merupakan kriteria (hingga tanggal hari ini) untuk memindahkan baris ke lembar kerja baru. Semoga gambar ini membantu

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini juga merupakan salinan jendela VBA yang terkait dengan hal di atas

Laporan

0

0

David Vidler     kristal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Crystal, saya agak terburu-buru dalam menanggapi bahwa kodenya berfungsi. Saya membuka buku kerja saya hari ini dan baris yang berisi entri tanggal sebelumnya di sel kolom L masih ada di "lembar kerja peluang oasis saat ini" dan belum dipindahkan ke "lembar kerja oasis yang diarsipkan" seperti yang diharapkan. Adakah ide mengapa ini terjadi?

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kristal,

Karena saya tidak dapat mengunggah buku kerja saya, saya akan mereproduksi baris & kolom di sini

ABCD EFGH IJKL
# Jenis Permohonan Sisihkan Ubah # Tanggal Terbit Pertanyaan Lokasi Pengiriman Pelanggan Proposal Proyek Jatuh Tempo

1 SS SB 1234567 1 09/6/17 No Nama Tentara Tempat Drive Tank 09/10/17

Dengan menggunakan kode di bawah ini, saya ingin memindahkan seluruh baris ke lembar kerja baru saat kolom L mencapai tanggal hari ini. Juga jika saya belum menyelesaikan lembar kerja selama beberapa hari, saya ingin menggunakan pencarian "hingga hari ini" di kolom L untuk melakukan hal yang sama. Saya juga ingin melakukannya secara otomatis ketika saya membuka buku kerja jika memungkinkan. Saat ini jika saya memasukkan tanggal hari ini di sel mana pun di baris, misalnya kolom F saat memasukkan data, seluruh baris berpindah ke lembar kerja arsip. (Menggunakan Excel 2016)

[Kode Modul 1]

Sub DaveV()

Dim xRg Sebagai Kisaran

Redupkan xCell Sebagai Kisaran

Redupkan Aku Selamanya

Dim J Selama

I = Lembar Kerja("PELUANG OASIS SAAT INI"). Rentang Terpakai. Baris. Menghitung

J = Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang Terpakai. Baris. Menghitung

Jika J = 1 Maka
Jika Aplikasi. WorksheetFunction. CountA(Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). RentangUsed) = 0 Maka J = 0

Berakhir jika

Atur xRg = Lembar Kerja("Peluang OASIS SAAT INI"). Rentang("L1. L" & saya)

Pada Kesalahan Lanjutkan Berikutnya

Aplikasi. Pembaruan Layar = Salah

Untuk Setiap xCell Di xRg

Jika CStr(xCell. Nilai) = Tanggal Kemudian

xCell. Seluruh baris. Salin Tujuan. =Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang("A" & J + 1)
xCell. Seluruh baris. Menghapus

J = J + 1
Berakhir jika

Berikutnya
Aplikasi. Pembaruan Layar = Benar

Akhir Sub

Laporan

0

0

David Vidler     David Vidler

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

[Kode Lembar 1]

Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)
Redupkan xCell Sebagai Kisaran
Redupkan Aku Selamanya
Pada Kesalahan Lanjutkan Berikutnya
Aplikasi. Pembaruan Layar = Salah
Tetapkan xCell = Target(1)
Jika xCell. Nilai = Tanggal Kemudian
I = Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang Terpakai. Baris. Menghitung
Jika I = 1 Maka
Jika Aplikasi. WorksheetFunction. CountA(Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). RentangUsed) = 0 Maka I = 0 End If
xCell. Seluruh baris. Salin Lembar Kerja("Peluang OASIS YANG DIARSIPKAN"). Rentang("A" & I + 1)
xCell. Seluruh baris. Menghapus
Berakhir jika
Aplikasi. Pembaruan Layar = Benar
Akhir Sub

Semoga bantuan di atas tetapi saya bukan orang VBA karena itu tidak mengerti bagaimana membuat kode melakukan apa yang saya butuhkan. Bantuan Anda akan dihargai

Laporan

0

0

Shai Alon

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ada kesalahan besar dalam skrip Anda

Katakanlah Anda mendeteksi bahwa baris 7 memiliki kata "Selesai" di kolom C, jadi Anda menyalinnya dan menghapus baris tersebut
Setelah Anda menghapus baris, baris berikutnya dalam daftar akan menjadi baris 9 dan bukan 8, karena setelah Anda menghapus baris ke-7, sekarang konten baris ke-8 berada di baris ke-7, dan semua baris naik 1 baris. Jadi baris berikutnya yang harus diperiksa adalah baris #8, tetapi sekarang berisi data yang sebelumnya ada di baris #9, jadi setiap kali Anda menghapus baris, Anda benar-benar melewatkan satu baris untuk diperiksa.

Membalas

0

0

kristal     Shai Alon

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Shau ​​Alon yang terhormat,

Terima kasih atas komentarmu. Kode telah diperbarui dengan kesalahan diperbaiki. Terima kasih banyak untuk asisten Anda

Salam Terbaik, Kristal

Membalas

Laporan

0

0

Fred     kristal

sekitar 5 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya pikir ini terjadi pada saya, terus menyalin baris yang sama berulang kali meskipun dikatakan kode telah diperbarui. Inilah yang saya miliki

Sub Cheezy()
'Diperbarui oleh Kutools untuk Excel 2017/8/28
Dim xRg Sebagai Kisaran
Redupkan xCell Sebagai Kisaran
Redupkan Aku Selamanya
Dim J Selama
Redupkan K Selama
I = Lembar Kerja("PERKIRAAN PEMBELIAN"). Rentang Terpakai. Baris. Menghitung
J = Lembar Kerja("Beli Arsip"). Rentang Terpakai. Baris. Menghitung
Jika J = 1 Maka
Jika Aplikasi. WorksheetFunction. CountA(Lembar Kerja("Beli Arsip"). RentangUsed) = 0 Maka J = 0
Berakhir jika
Atur xRg = Lembar Kerja("PERKIRAAN PEMBELIAN"). Rentang("H3. HAI)
Pada Kesalahan Lanjutkan Berikutnya
Aplikasi. Pembaruan Layar = Salah
Untuk K = 1 Ke xRg. Menghitung
Jika CStr(xRg(K). Nilai) = "Ya" Lalu
xRg(K). Seluruh baris. Salin Tujuan. =Lembar Kerja("Beli Arsip"). Rentang("A" & J + 1)
xRg(K). Seluruh baris. Menghapus
Jika CStr(xRg(K). Nilai) = "Ya" Lalu
K = K - 1
Berakhir jika
J = J + 1
Berakhir jika
Berikutnya
Aplikasi. Pembaruan Layar = Benar
Akhir Sub

Membalas

0

0

kristal     Fred

sekitar 5 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Fred,
Setiap kali Anda menjalankan kode, kode mencari rentang yang ditentukan, sehingga menyalin baris yang sama berulang kali karena tidak dapat mengetahui baris mana yang telah disalin. Untuk menghindari penyalinan baris yang sama berulang kali, Anda dapat menjalankan kode secara otomatis saat nilai yang cocok dimasukkan ke dalam sel yang ditentukan
Di lembar kerja bernama "PURCHASE FORCAST", klik kanan tab sheet dan klik View Code dari menu konteks. Kemudian salin kode VBA berikut di jendela Lembar (Kode).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Kutools for Excel 20220830
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("PURCHASE FORCAST").UsedRange.Rows.Count
J = Worksheets("Purchase Archive").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Purchase Archive").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("PURCHASE FORCAST").Range("H3:H" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Yes" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Purchase Archive").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Yes" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub

Membalas

Laporan

0

0

Kylie Cole

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bisakah seseorang membantu saya membuat ini berhasil?

Membalas

Laporan

0

0

Kylie Cole     Kylie Cole

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

katanya file tidak didukung ketika saya mencoba mengunggah file excel. Maaf. berjuang dengan ini hari ini

Membalas

Laporan

0

0

Michael Ghodsi

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya ingin bantuan untuk tugas serupa, tetapi sedikit berbeda. Saya memiliki 5 kolom angka, sekitar 25000 per kolom, setiap kolom dengan heading 1-5. Saya ingin menyalin seluruh baris ke lembar lain jika nilai kolom 1 lebih besar dari nol, ATAU kolom 2 lebih besar dari nol, ATAU kolom 3 kurang dari nol, ATAU kolom 4 lebih besar dari lima ATAU kolom 5 lebih besar . apakah ini mungkin?

Bagaimana cara menyalin beberapa baris dari satu lembar Excel ke lembar lainnya?

Bagaimana cara memindahkan baris ke lembar lain di Excel?

Bagaimana cara memindahkan sekelompok sel ke lembar lain di Excel?