Cara Otomatis Mentransfer Data dari Master ke Sub Lembar di Excel

Jika Anda menggunakan Excel dan ingin secara otomatis mentransfer data dari lembar master ke sub lembar tertentu saat kondisi tertentu terpenuhi, artikel ini akan menjelaskan cara menggunakan VBA ( Visual Basic for Applications ) untuk melakukannya. Contoh ini akan menunjukkan cara mentransfer beberapa kolom secara otomatis dalam satu lembar ke lembar lainnya ketika nilai di salah satu bidang adalah " Ya ". Nilai bidang bersyarat dapat diubah sesuai kebutuhan.

Mentransfer data dari Master ke Sub Lembar di Excel

Untuk memulai, buka dokumen Excel Anda dan buka jendela Microsoft Visual Basic for Applications dengan menekan [Alt] + [F11].

Selanjutnya, cari lembar Anda di kolom kiri dan klik dua kali pada Master . Nama sheet akan tergantung pada apa yang Anda beri nama di Excel. Lembar Master adalah lembar utama tempat data pertama kali dimasukkan, dan Sub lembar adalah lokasi tempat data akan diisi. Selanjutnya, rekatkan kode berikut di bidang putih besar:

 Private Sub Worksheet_Change (Rentang Target Sebagai ByVal) Jika Persimpangan (Target, Kolom ("G")) Tidak Ada Maka Keluar Sub 'Bila tidak ada perubahan dalam' kolom G maka jangan lakukan apa pun. 'Nilai sel yang diubah di kolom G sekarang akan disebut sebagai Target. Jika Target.Value = "Ya" Lalu 'Ketika kondisi terpenuhi ("Ya" di kolom G) maka Rentang (Sel (Target.Row, "A"), Sel (Target.Row, "G")). Salin _ Lembar (Target.Offset (0, -1) .Nilai) .Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) 'Salin baris tempat perubahan dilakukan dari kolom A hingga kolom G. 'Tempel ke lembar yang disebutkan dalam kolom F dan ke baris pertama yang tersedia. End If End Sub 

Sekarang, Anda dapat menutup jendela Microsoft Visual Basic for Applications dan file Anda sekarang akan siap untuk secara otomatis mentransfer data yang dimasukkan pada lembar master ke sub lembar yang dipilih. Ingat bahwa Makro hanya akan berjalan ketika perubahan dibuat di kolom G.

Terima kasih untuk TrowaD untuk tip ini.

Gambar: © Microsoft.

Artikel Sebelumnya Artikel Berikutnya

Tips