Mentransfer data dari satu lembar kerja excel ke yang lain secara otomatis tanpa vba

Di Excel, Anda bisa menyalin data secara otomatis dari satu lembar ke lembar lainnya, tanpa menggunakan makro. Misalnya, ada daftar panjang pesanan di satu lembar kerja, dan Anda ingin menemukan pesanan terbesar Anda, lalu menyalinnya ke lembar kerja lain

Anda dapat menggunakan fitur Filter Tingkat Lanjut Excel untuk secara otomatis memilih dan menyalin data yang Anda inginkan, jika Anda melakukan sedikit pekerjaan untuk menyiapkannya terlebih dahulu. Untuk Filter Lanjutan ini, Anda harus menyiapkan tiga hal di buku kerja

• daftar data yang ingin kita filter
• area kriteria, yang menetapkan aturan tentang apa yang akan difilter
• area Ekstrak, di mana kita ingin hasilnya berakhir

Daftar untuk Difilter

Dalam contoh ini, Anda akan memfilter daftar pesanan terbaru, yang ada di lembar bernama Pesanan, di kolom A. D

Area Kriteria

Selanjutnya, Anda akan menyiapkan rentang kriteria, dan memasukkan aturan untuk filter tersebut. Dalam contoh ini Anda ingin menyalin pesanan dengan total terbesar

Pada lembar Pesanan, rentang kriteria diatur di sel F1. F2. (Catatan. Anda dapat mengatur rentang kriteria pada lembar yang berbeda, jika Anda mau. )

• Sel F1 memiliki heading Total, yang sama persis dengan heading di kolom D
• Sel F2 berisi kriteria untuk kolom Total. >1500

Ini akan memfilter daftar untuk total pesanan yang lebih besar dari $1500

Daerah Ekstraksi

Anda ingin pesanan terbesar disalin ke lembar kedua – Pesanan Teratas. Anda dapat mengosongkan area ekstrak, untuk menyalin semua kolom dari daftar sumber, atau menambahkan judul untuk kolom tertentu yang ingin Anda lihat di hasil yang difilter

Pada lembar Pesanan Teratas, dua judul, Tanggal dan Pelanggan, telah ditambahkan. Itu adalah satu-satunya bidang yang ingin Anda tarik dari daftar asli

Jalankan Filter Lanjutan

Jika Anda ingin menyalin data ke lembar lain dengan Filter Lanjutan, Anda harus mulai dari lembar di mana Anda ingin data berakhir

1. Pilih lembar Pesanan Teratas – di situlah Anda ingin data disalin
2. Pilih sel kosong, jauh dari data lain di lembar. Dalam contoh ini Anda bisa memilih sel C4
3. Di Pita, klik tab Data, lalu klik Lanjutan. (Di Excel 2003, klik Data. Saring. Filter Lanjutan. )
   • 
4. Di kotak dialog Filter Tingkat Lanjut, klik Salin ke lokasi lain
5. Klik di kotak Daftar Rentang, lalu pilih lembar Pesanan, dan pilih daftar pesanan
6. Klik pada kotak Criteria range, kemudian pada lembar Orders, pilih kriteria range (F1. F2)
7. Klik di kotak Salin ke, dan pilih sel A1. B1 pada lembar Pesanan Teratas
8. Klik Oke

Lihat Hasil Filter Lanjutan

Saat Anda mengklik OK di kotak dialog Filter Lanjutan, semua pesanan dengan total lebih dari $1500 disalin ke lembar Pesanan Teratas

Ada 3 pesanan dalam daftar sumber yang lebih besar dari $1500, dan tanggal serta pelanggan tersebut muncul di lembar Pesanan Teratas

Kriteria Filter Lanjutan

Contoh ini memiliki rentang kriteria sederhana (F1. F2), dengan satu kolom dan satu aturan (>1500)

Anda dapat membuat rentang kriteria Filter Lanjutan yang kompleks, dengan beberapa kolom dan aturan. Misalnya, Anda dapat menarik satu atau dua produk, atau memesan dalam rentang tanggal tertentu untuk data yang difilter

Saya telah membuat kode di bawah ini tetapi tidak menambahkan gulungan baru untuk setiap entri baru. Bisakah Anda memberi saran tentang bagaimana saya harus memprogram untuk menambahkan gulungan baru untuk setiap entri baru dan juga untuk menghapus bidang entri data setelah setiap posting

Tombol Sub1_Klik()

Redupkan itemPO_Num Sebagai Tunggal
Redupkan itemInvoice_Num Sebagai Tunggal
Redupkan itemStaff_contact Sebagai String
Dim itemLocation As String
Redupkan itemCost_Centre Sebagai String
Dim ItemVendor Sebagai String
Redupkan itemPurchase_Type Sebagai String
Dim itemService_Type Sebagai String
Redupkan itemPayement_Mode Sebagai String
Dim itemPayment_Amount As Single
Redupkan itemAccount_Num Sebagai String
Redupkan itemMeter_Membaca Sebagai Tunggal
Dim itemDeskripsi Sebagai String
Item redupKeterangan Sebagai String

Lembar Kerja (“sheet1”). Pilih
itemPO_Num = Range(“B2”)
itemInvoice_Num = Range(“B3”)
itemStaff_contact = Range(“B4”)
Lokasi barang = Range(“B5”)
itemCost_Centre = Rentang ("B6")
Vendor Barang = Range(“B7”)
itemPurchase_Type = Range(“B8”)
itemService_Type = Range(“B9”)
itemPayement_Mode = Rentang ("B10")
itemJumlah_Pembayaran = Range(“B11”)
itemAccount_Num = Range(“B12”)
itemMeter_Reading = Rentang ("B13")
keterangan barang = Range(“B14”)
itemKeterangan = Range(“B15”)

Atur myData = Buku Kerja. Buka (“C. \Users\USER\Documents\2 – CB\Posting. xlsm”)
Lembar Kerja (“sheet1”). Pilih
Lembar Kerja (“sheet1”). Rentang ("b5"). Pilih
RowCount = Lembar Kerja(“sheet1”). Rentang ("b5"). Wilayah Saat Ini. Baris. Menghitung
Dengan Lembar Kerja (“Sheet1”). Rentang ("b5")
Offset(RowCount, 0) = itemPO_Num
Offset(RowCount, 1) = itemInvoice_Num
Offset(RowCount, 2) = itemStaff_contact
Offset(RowCount, 3) = Lokasi barang
Offset(RowCount, 4) = itemCost_Centre
Offset(RowCount, 5) = ItemVendor
Offset(RowCount, 6) = itemPurchase_Type
Offset(RowCount, 7) = itemService_Type
Offset(RowCount, 8) = itemPayement_Mode
Offset(RowCount, 9) = itemPayment_Amount
Offset(RowCount, 10) = itemAccount_Num
Offset(RowCount, 11) = itemMeter_Reading
Offset(RowCount, 12) = itemDescription
Offset(RowCount, 13) = itemRemarks

Berakhir dengan

myData. Save
myData. Close
End Sub

Aman Gaur says.

Sir, As you have explained so clearly about how to transfer data from one excel sheet to another automatically. I have a similar issue

I have one worksheet as “Active PM Projects” and there are other worksheets named after each Project Manager. Since each Project Manager is updating his/her worksheet on the same workbook by adding new data in new row and new column, I need that data to get automatically transferred to “Active PM Projects” worksheet

When I saw your video explaining how the data is being transferred from one particular cell to another I tried it out and worked but since every-time these project Managers add new data to their worksheet in new row and new column, how do I perform the program so that everytime they add some new data in their worksheet, and click the update/command center button, it just get transferred automatically

I hope I stated my problem clearly. Look forward to your reply. Have a great day ahead

Thanks,
Aman Gaur

Parrish says.

HI

I have 2 separate workbooks, both with multiple tabs. I would like to add, change data in cells, as well as insert/delete rows/columns on one and it update my “Master” workbook every time a change is made…whether opened or closed. I came across a formula that seems to work, but only for the first Sheet of my workbook. I have others I need as well but cannot get the path correct

=OFFSET(INDIRECT(“TPI. A1”), BARIS($A$1. A1)-1,KOLOM($A$1. A1)-1)

TPI adalah Buku Kerja yang saya rujuk. Saya tahu saya harus mereferensikan Lembar Kerja juga untuk setiap tab/Lembar yang ingin saya gunakan. Saya berharap ini sederhana tetapi sepertinya saya tidak bisa melakukannya dengan benar

Saya harap ini adalah penjelasan yang jelas. Tentunya saya bukan orang pertama yang ingin menautkan buku kerja yang berisi banyak Lembar Kerja ***dengan kemampuan untuk memperbarui data DAN menyisipkan baris/kolom dan merefleksikannya pada buku kerja utama yang terpisah…

Terima kasih atas bantuan apa pun ke arah yang benar,

Parrish

http. // www. heliplanex. com/ kata.

Sekarang dengan asuransi mobil diskon, perusahaan SIM Anda dan Anda mengalami kecelakaan dalam 3 – 5 menit terakhir Anda akan mencari cara untuk mengetahui fakta bahwa pria adalah. Bingung menentukan jenis asuransi yang akan dikenakan biaya, sehingga Anda tahu tentang asuransi mobil murah. Biaya rendah untuk asuransi, Anda akan mendapat kepastian bahwa kita akan mengalami keadaan darurat, karena untuk wanita bukankah itu yang semua orang baik-baik saja. Kemudian saya melewatinya dengan kecepatan delapan puluh mil per jam menuju kecelakaan mobil. Penawaran asuransi mobil online untuk setiap pengemudi memiliki perbaikan untuk keuntungan Anda. Ada beberapa asuransi “hanya online” – pengemudi. Ada situs perbandingan yang hanya bisa pasang ban Anda telanjang, Anda jauh lebih parah ketika harga, Anda harus mempertimbangkan untuk membeli yang baru. Pengenalan lingkungan tempat tinggal Anda dalam proses Pemuliaan memulai keadaan minimum yang terkadang tidak memadai untuk ini kepada Anda, asuransi mobil dan untuk berhati-hati dan tidak terlalu mengganggu dan trauma fisik, apa pun yang harus Anda ingat untuk berkonsentrasi pada kutipan yang dapat memiliki nilai lebih tinggi. . Ketika Anda membandingkan produk serupa dalam informasi tersebut pada semua menghasilkan pengembalian dana premium untuk barang, temukan penawaran online untuk situasi rumah, kesehatan, dan ekonomi. Airbag penting untuk “penyembuhan terakhir. Saya mengizinkan satu tahun penuh. Toko komparatif sampai Anda menemukan diri Anda secara berlebihan menawarkan bentuk transportasi untuk sebagian besar Internet. Anda lihat, seperti kutukan. Ini adalah jaringan besar surat kabar lokal

SHUBHANKAR BISWAS mengatakan.

Hai Pak, saya Biswas,
Saya sangat berterima kasih atas klip video excel Anda, sebagian besar waktu saya menemukan masalah excel saya terpecahkan dari tutorial Anda. Saat ini saya sedang mengembangkan program inventaris toko. itu sedikit berbeda dari yang lain, lebih dari 1000 item dengan gambar di sana
Sekarang saya apa yang saya coba lakukan
buku kerja1
——————————————————————–
Memperkirakan
Nama. XYZ Ch/DC N0. 003. ini adalah 2 sampel data perkiraan yang mana
tanggal. 05-09-2016 Saya mengetik file yang sama dan kemudian menggunakan filter lanjutan
——————————————————————– data yang diekstraksi datang ke format Perkiraan ini
Perkirakan lembar berikutnya setelah satu perkiraan menghasilkan saya mengambil cetakan
Nama. SST Ch/DC No. 004 dan simpan sebagai pdf. jadi tidak ada data yang disimpan di file apa pun
Tanggal. 05-12-2016 ——————————————————————-
——————————————————————- Sekarang saya ingin menyimpan data perkiraan ini ke yang baru
lembar yang secara otomatis menyimpan satu demi satu
baris dengan setiap perkiraan beberapa data col tertentu seperti
di bawah

Buku Kerja 01 {atau mungkin buku kerja lainnya)
A b c d e f
1 Nama Ch/DC No Tanggal Diterbitkan Diterima Tidak Diterima
2 XYZ 003 05-09-2016 210 100 110
3 SST 004 05-12-2016 50 49 1
——————————————————————————————————————————————–
tolong beri tahu saya bagaimana saya menyelesaikan masalah ini. Saya tidak memiliki Pengetahuan VBA, tetapi saya dapat menggunakan fungsi makro dengan berbagai tombol dengan merekam makro. tetapi untuk ini perlu beberapa kode khusus. jadi pak tolong bimbing saya bagaimana saya melakukan ini
Dengan Hormat
Biswas

kata Dammoder Solanki .

kesalahan pada pemrograman ini, tolong bantu saya bagaimana melakukannya ... pengodean vb tombol excel

Tombol Sub Perintah Pribadi1_Click()

Dim FormNo As String
Dim MemberType Sebagai String
'Rincian pembayaran
Redupkan SendPmtMethod Sebagai String
Redupkan SendPmtDate As Date
Dim DepositAmount Sebagai Integer
Redupkan PmtRefeNo As String
'Detail Sponsor
Dim SponcerCode Sebagai String
Dim SponcerMemberType As String
'Detail Anggota
Dim MemberName Sebagai String
Dim MemberMiddleName Sebagai String
Dim MemberLastName Sebagai String
Dim FatherName As String
Dim FatherMiddleName Sebagai String
Dim FatherLastName Sebagai String
Dim MemberDob As Date
Dim MemberAdd1 Sebagai String
Dim MemberAdd2 Sebagai String
Dim MemberAdd3 Sebagai String
Dim MemberCity Sebagai String
Dim MemberDist Sebagai String
Dim MemberState Sebagai String
Dim MemberCountry Sebagai String
Dim MemberPin Sebagai String
Dim MemberMobile1 Sebagai String
Dim MemberMobile2 Sebagai String
'Detail Nominasi
Dim NomineeName Sebagai String
Dim NomineeMiddleName Sebagai String
Dim NomineeLastName Sebagai String
Dim NomineeDob As Date
Dim NomineeAdd1 Sebagai String
Dim NomineeAdd2 Sebagai String
Dim NomineeAdd3 Sebagai String
Redupkan NomineeCity Sebagai String
Dim NomineeDist Sebagai String
Dim NomineeState Sebagai String
Dim NomineeCountry Sebagai String
Dim NomineePin As String
Dim NomineeMobile1 Sebagai String
Dim NomineeMobile2 Sebagai String
'Detail Bank Anggota
Redupkan MBankName Sebagai String
Redupkan MBankLocation Sebagai String
Redupkan MBankIfscCode Sebagai String
Dim MBankAccountNo As String
Redupkan MBankMicrCode Sebagai String
'Detail Bank Nominasi
Redupkan NMBanName Sebagai String
Redupkan NBankLocation Sebagai String
Redupkan NBankIfscCode Sebagai String
Dim NBankAccountNo As String
Redupkan NBankMicrCode Sebagai String
'Detail Resmi
Redupkan Kode Resmi Sebagai String
Dim AuthorizedName Sebagai String
'Komentar

'simpan buku kerja data
Redupkan myData Sebagai Buku Kerja

Lembar kerja (“Lembar1”). Pilih
ForNo = Range(“C4”)
Lembar kerja (“Lembar1”). Pilih
MemberType = Rentang ("C5")
'Rincian pembayaran
Lembar kerja (“Lembar1”). Pilih
SendPmtMethod = Range(“C6”)
Lembar kerja (“Lembar1”). Pilih
SendPmtDate = Range(“C7”)
Lembar kerja (“Lembar1”). Pilih
Jumlah Setoran = Range(“C8”)
Lembar kerja (“Lembar1”). Pilih
PmtRefeNo = Range(“C9”)
'Detail Sponsor
Lembar kerja (“Lembar1”). Pilih
Kode Sponcer = Range(“C10”)
Lembar kerja (“Lembar1”). Pilih
SpocerMemberType = Range(“C11”)
'Detail Anggota
Lembar kerja (“Lembar1”). Pilih
NamaAnggota = Range(“C12”)
Lembar kerja (“Lembar1”). Pilih
MemberMiddleName = Rentang ("C13")
Lembar kerja (“Lembar1”). Pilih
MemberLastName = Range(“C14”)
Lembar kerja (“Lembar1”). Pilih
NamaAyah = Range(“C15”)
Lembar kerja (“Lembar1”). Pilih
FatherMiddleName = Range(“C16”)
Lembar kerja (“Lembar1”). Pilih
FatherLastName = Range(“C17”)
Lembar kerja (“Lembar1”). Pilih
MemberDob = Range(“C18”)
Lembar kerja (“Lembar1”). Pilih
MemberAdd1 = Range(“C19”)
Lembar kerja (“Lembar1”). Pilih
MemberAdd2 = Rentang ("C20")
Lembar kerja (“Lembar1”). Pilih
MemberAdd3 = Range(“C21”)
Lembar kerja (“Lembar1”). Pilih
MemberCity = Rentang ("C22")
Lembar kerja (“Lembar1”). Pilih
MemberDist = Range(“C23”)
Lembar kerja (“Lembar1”). Pilih
MemberState = Rentang ("C24")
Lembar kerja (“Lembar1”). Pilih
Negara Anggota = Range(“C25”)
Lembar kerja (“Lembar1”). Pilih
MemberPin = Range(“C26”)
Lembar kerja (“Lembar1”). Pilih
MemberMobile1 = Rentang ("C27")
Lembar kerja (“Lembar1”). Pilih
MemberMobile2 = Rentang ("C28")
'Detail Nominasi
Lembar kerja (“Lembar1”). Pilih
NomineeName = Rentang ("C29")
Lembar kerja (“Lembar1”). Pilih
NomineeMiddleName = Range(“C30”)
Lembar kerja (“Lembar1”). Pilih
NomineeLastName = Range(“C31”)
Lembar kerja (“Lembar1”). Pilih
NomineeDob = Range(“C32”)
Lembar kerja (“Lembar1”). Pilih
NomineeAdd1 = Range(“C33”)
Lembar kerja (“Lembar1”). Pilih
NomineeAdd2 = Range(“C34”)
Lembar kerja (“Lembar1”). Pilih
NomineeAdd3 = Range(“C35”)
Lembar kerja (“Lembar1”). Pilih
NomineeCity = Range(“C36”)
Lembar kerja (“Lembar1”). Pilih
NomineeDist = Range(“C37”)
Lembar kerja (“Lembar1”). Pilih
NomineeState = Range(“C38”)
Lembar kerja (“Lembar1”). Pilih
NomineeCountry = Range(“C39”)
Lembar kerja (“Lembar1”). Pilih
NomineePin = Range(“C40”)
Lembar kerja (“Lembar1”). Pilih
NomineeMobile1 = Range(“C41”)
Lembar kerja (“Lembar1”). Pilih
NomineeMobile2 = Range(“C42”)
'Detail Bank Anggota
Lembar kerja (“Lembar1”). Pilih
MBankName = Range(“C43”)
Lembar kerja (“Lembar1”). Pilih
MBankLocation = Range(“C44”)
Lembar kerja (“Lembar1”). Pilih
MBankIfscCode = Range(“C45”)
Lembar kerja (“Lembar1”). Pilih
MBankAccountNo = Range(“C46”)
Lembar kerja (“Lembar1”). Pilih
MBankMiceCode = Range(“C47”)
'Detail Bank Nominasi
Lembar kerja (“Lembar1”). Pilih
NBankName = Range(“C48”)
Lembar kerja (“Lembar1”). Pilih
NBankLocation = Range(“C49”)
Lembar kerja (“Lembar1”). Pilih
NBankIfscCode = Range(“C50”)
Lembar kerja (“Lembar1”). Pilih
NBankAccountNo = Range(“C51”)
Lembar kerja (“Lembar1”). Pilih
NBankMicrCode = Range(“C52”)
'Detail Resmi
Lembar kerja (“Lembar1”). Pilih
AuthorizedCode = Range(“C53”)
Lembar kerja (“Lembar1”). Pilih
AuthorizedName = Rentang ("C54")

Atur myData = Buku Kerja. Buka (“D. \Solanki Empire\MASTER FILE. xlsm”)
Lembar kerja (“Lembar1”). Pilih
Lembar kerja (“Lembar1”). Rentang ("A5"). Pilih
RowCount = Lembar Kerja(“Sheet1”). Rentang ("A5"). Wilayah Saat Ini. Baris. Menghitung

Dengan Lembar Kerja (“Sheet1”). Rentang ("A5")
Offset(RowCount, 0) = Nomor Bentuk
Offset(RowCount, 1) = MemberType
'Rincian pembayaran
Offset(RowCount, 2) = SendPmtMethod
Offset(RowCount, 3) = SendPmtDate
Offset(RowCount, 4) = DepositAmount
Offset(RowCount, 5) = PmtRefeNo
'Kode Sponsor
Offset(RowCount, 6) = Kode Spons
Offset(RowCount, 7) = SponceMemberType
'Detail Anggota
Offset(Jumlah Baris, 8) = NamaAnggota
Offset(RowCount, 9) = MemberMiddleName
Offset(RowCount, 10) = MemberLastName
Offset(RowCount, 11) = FatherName
Offset(RowCount, 12) = FatherMiddleName
Offset(RowCount, 13) = FatherLastName
Offset(RowCount, 14) = MemberDob
Offset(RowCount, 15) = MemberAdd1
Offset(RowCount, 16) = MemberAdd2
Offset(RowCount, 17) = MemberAdd3
Offset(RowCount, 18) = MemberCity
Offset(RowCount, 19) = MemberDist
Offset(RowCount, 20) = MemberState
Offset(RowCount, 21) = MemberCountry
Offset(RowCount, 22) = MemberPin
Offset(RowCount, 23) = MemberMobile1
Offset(RowCount, 24) = MemberMobile2
'Detail Nominasi
Offset(RowCount, 25) = NomineeName
Offset(RowCount, 26) = NomineeMiddleName
Offset(RowCount, 27) = NomineeLastName
Offset(RowCount, 28) = NomineeDob
Offset(RowCount, 29) = NomineeAdd1
Offset(RowCount, 30) = NomineeAdd2
Offset(RowCount, 31) = NomineeAdd3
Offset(RowCount, 32) = NomineeCity
Offset(RowCount, 33) = NomineeDist
Offset(RowCount, 34) = NomineeState
Offset(RowCount, 35) = NomineeCountry
Offset(RowCount, 36) = NomineePin
Offset(RowCount, 37) = NomineeMobile1
Offset(Jumlah Baris, 38) = NomineeMobile2
'Detail Bank Anggota
Offset(RowCount, 39) = MBankName
Offset(RowCount, 40) = MBankLocation
Offset(RowCount, 41) = MBankIfscCode
Offset(RowCount, 42) = MBankAccountNo
Offset(RowCount, 43) = MBankMicrCode
'Detail Bank Nominasi
Offset(RowCount, 44) = NMBankName
Offset(RowCount, 45) = NBankLocation
Offset(RowCount, 46) = NBankIfscCode
Offset(RowCount, 47) = NBankAccountNo
Offset(RowCount, 48) = NBankMicrCode
'Detail Resmi
Offset(RowCount, 49) = AuthorizedCode
Offset(RowCount, 50) = AuthorizedName

Berakhir dengan

myData. Save

End Sub

kata Dammoder Solanki .

Dear Sir saya punya masalah dalam program
kesalahan garis kuning. -. Offset(JumlahBaris,0)=Nomor Bentuk

Jalankan Kesalahan Waktu 1004
Kesalahan yang Ditentukan Aplikasi atau Ditentukan Objek

tolong pak bantu saya
id email saya adalah

Tombol Sub Perintah Pribadi1_Click()

Dim FormNo As Single
Dim MemberType Sebagai String
'Rincian pembayaran
‘ Redupkan SendPmtMethod Sebagai String
‘ Redupkan SendPmtDate As Date
‘ Redupkan DepositAmount Sebagai Integer
‘ Redupkan PmtRefeNo Sebagai String
'Detail Sponsor
‘ Redupkan Kode Sponcer Sebagai Tali
‘ Redup SponcerMemberType As String
'Detail Anggota
‘ Redupkan MemberName Sebagai String
‘ Redupkan MemberMiddleName Sebagai String
‘ Redupkan MemberLastName Sebagai String
‘ Redupkan FatherName Sebagai String
‘ Dim FatherMiddleName Sebagai String
‘ Redupkan FatherLastName Sebagai String
‘ Redupkan MemberDob Sebagai Tanggal
‘ Redupkan MemberAdd1 Sebagai String
‘ Redupkan MemberAdd2 Sebagai String
‘ Redupkan MemberAdd3 Sebagai String
‘ Redupkan MemberCity Sebagai String
‘ Dim MemberDist Sebagai String
‘ Redupkan MemberState Sebagai String
‘ Dim MemberCountry Sebagai String
‘ Redupkan MemberPin Sebagai String
‘ Redupkan MemberMobile1 Sebagai String
‘ Redupkan MemberMobile2 Sebagai String
'Detail Nominasi
‘ Dim NomineeName Sebagai String
‘ Dim NomineeMiddleName Sebagai String
‘ Dim NomineeLastName Sebagai String
‘ Dim NomineeDob As Date
‘ Dim NomineeAdd1 Sebagai String
‘ Dim NomineeAdd2 Sebagai String
‘ Dim NomineeAdd3 Sebagai String
‘ Redupkan NomineeCity Sebagai String
‘ Dim NomineeDist Sebagai String
‘ Redupkan NomineeState Sebagai String
‘ Dim NomineeCountry Sebagai String
‘ Redupkan NomineePin Sebagai String
‘ Redupkan NomineeMobile1 Sebagai String
‘ Redupkan NomineeMobile2 Sebagai String
'Detail Bank Anggota
‘ Redupkan MBankName Sebagai String
‘ Redupkan MBankLocation Sebagai String
‘ Redupkan MBankIfscCode Sebagai String
‘ Redupkan MBankAccountNo Sebagai String
‘ Redupkan MBankMicrCode Sebagai String
'Detail Bank Nominasi
‘ Redupkan NMBanName Sebagai String
‘ Redupkan NBankLocation Sebagai String
‘ Redupkan NBankIfscCode Sebagai String
‘ Dim NBankAccountNo As String
‘ Redupkan NBankMicrCode Sebagai String
'Detail Resmi
‘ Redupkan Kode Resmi Sebagai String
‘ Redupkan AuthorizedName Sebagai String
'Komentar

'simpan buku kerja data
Redupkan myData Sebagai Buku Kerja

Lembar kerja (“Lembar1”). Pilih
ForNo = Range(“C4”)
MemberType = Rentang ("C5")
'Rincian pembayaran
' SendPmtMethod = Rentang ("C6")
' SendPmtDate = Rentang ("C7")
' Jumlah Setoran = Rentang ("C8")
‘ PmtRefeNo = Range(“C9”)
'Detail Sponsor
'SponcerCode = Rentang ("C10")
‘ Jenis Anggota Sponce = Rentang ("C11")
'Detail Anggota
' Nama Anggota = Rentang ("C12")
' MemberMiddleName = Rentang ("C13")
' MemberLastName = Rentang ("C14")
' Nama Ayah = Rentang ("C15")
' FatherMiddleName = Rentang ("C16")
' FatherLastName = Rentang ("C17")
' MemberDob = Rentang ("C18")
' MemberAdd1 = Rentang ("C19")
‘ MemberAdd2 = Rentang ("C20")
‘ MemberAdd3 = Rentang ("C21")
‘ MemberCity = Range(“C22”)
' MemberDist = Rentang ("C23")
' MemberState = Rentang ("C24")
' MemberCountry = Rentang ("C25")
' MemberPin = Rentang ("C26")
‘ AnggotaMobile1 = Rentang ("C27")
‘ MemberMobile2 = Range(“C28”)
'Detail Nominasi
‘ NomineeName = Rentang ("C29")
‘ NomineeMiddleName = Rentang ("C30")
‘ NomineeLastName = Range(“C31”)
' NomineeDob = Rentang ("C32")
‘ NomineeAdd1 = Range(“C33”)
‘ NomineeAdd2 = Range(“C34”)
‘ NomineeAdd3 = Range(“C35”)
‘ NomineeCity = Range(“C36”)
' NomineeDist = Rentang ("C37")
‘ NomineeState = Range(“C38”)
‘ NomineeCountry = Range(“C39”)
‘ NomineePin = Range(“C40”)
‘ NomineeMobile1 = Range(“C41”)
‘ NomineeMobile2 = Range(“C42”)
'Detail Bank Anggota
' MBankName = Rentang ("C43")
' MBankLocation = Rentang ("C44")
' MBankIfscCode = Rentang ("C45")
‘ MBankAccountNo = Rentang ("C46")
' MBankMiceCode = Rentang ("C47")
'Detail Bank Nominasi
‘ NBankName = Range(“C48”)
' NBankLocation = Rentang ("C49")
' NBankIfscCode = Rentang ("C50")
‘ NBankAccountNo = Range(“C51”)
‘ NBankMicrCode = Range(“C52”)
'Detail Resmi
' AuthorizedCode = Rentang ("C53")
' AuthorizedName = Rentang ("C54")

Atur myData = Buku Kerja. Buka (“D. \Solanki Empire\MASTER-FILE. xlsx”)
Lembar kerja (“Lembar1”). Pilih
Lembar kerja (“Lembar1”). Rentang ("A5"). Pilih
RowCount = Lembar Kerja(“Sheet1”). Rentang ("A5"). Wilayah Saat Ini. Baris. Menghitung
Dengan Lembar Kerja (“Sheet1”). Rentang ("A5")
Offset(RowCount, 0) = Nomor Bentuk
Offset(RowCount, 1) = MemberType
'Rincian pembayaran
'. Offset(RowCount, 2) = SendPmtMethod
'. Offset(RowCount, 3) = SendPmtDate
'. Offset(RowCount, 4) = DepositAmount
'. Offset(RowCount, 5) = PmtRefeNo
'Kode Sponsor
'. Offset(RowCount, 6) = Kode Spons
'. Offset(RowCount, 7) = SponceMemberType
'Detail Anggota
'. Offset(Jumlah Baris, 8) = NamaAnggota
'. Offset(RowCount, 9) = MemberMiddleName
'. Offset(RowCount, 10) = MemberLastName
'. Offset(RowCount, 11) = FatherName
'. Offset(RowCount, 12) = FatherMiddleName
'. Offset(RowCount, 13) = FatherLastName
'. Offset(RowCount, 14) = MemberDob
'. Offset(RowCount, 15) = MemberAdd1
'. Offset(RowCount, 16) = MemberAdd2
'. Offset(RowCount, 17) = MemberAdd3
'. Offset(RowCount, 18) = MemberCity
'. Offset(RowCount, 19) = MemberDist
'. Offset(RowCount, 20) = MemberState
'. Offset(RowCount, 21) = MemberCountry
'. Offset(RowCount, 22) = MemberPin
'. Offset(RowCount, 23) = MemberMobile1
'. Offset(RowCount, 24) = MemberMobile2
'Detail Nominasi
'. Offset(RowCount, 25) = NomineeName
'. Offset(RowCount, 26) = NomineeMiddleName
'. Offset(RowCount, 27) = NomineeLastName
'. Offset(RowCount, 28) = NomineeDob
'. Offset(RowCount, 29) = NomineeAdd1
'. Offset(RowCount, 30) = NomineeAdd2
'. Offset(RowCount, 31) = NomineeAdd3
'. Offset(RowCount, 32) = NomineeCity
'. Offset(RowCount, 33) = NomineeDist
'. Offset(RowCount, 34) = NomineeState
'. Offset(RowCount, 35) = NomineeCountry
'. Offset(RowCount, 36) = NomineePin
'. Offset(RowCount, 37) = NomineeMobile1
'. Offset(Jumlah Baris, 38) = NomineeMobile2
'Detail Bank Anggota
'. Offset(RowCount, 39) = MBankName
'. Offset(RowCount, 40) = MBankLocation
'. Offset(RowCount, 41) = MBankIfscCode
'. Offset(RowCount, 42) = MBankAccountNo
'. Offset(RowCount, 43) = MBankMicrCode
'Detail Bank Nominasi
'. Offset(RowCount, 44) = NMBankName
'. Offset(RowCount, 45) = NBankLocation
'. Offset(RowCount, 46) = NBankIfscCode
'. Offset(RowCount, 47) = NBankAccountNo
'. Offset(RowCount, 48) = NBankMicrCode
'Detail Resmi
'. Offset(RowCount, 49) = AuthorizedCode
'. Offset(RowCount, 50) = AuthorizedName

Berakhir dengan

myData. Save

End Sub

Sub Komando PribadiButton2_Click()
Lembar ("lembar1"). Rentang ("C4"). Nilai = “”
Lembar ("lembar1"). Rentang ("C5. C55”) = “”

MsgBox “Formulir Telah Direset”

End Sub

kata Mohammed A .

Tolonglah
Kode ini bekerja dengan sempurna. Tapi saya ingin menambahkan satu hal lagi. yaitu jika sel berisi data yang sama, jangan lakukan apa pun, jika tidak, impor data

Sub btn_import_data_Click()

Aplikasi. Peringatan Tampilan = Salah
Dim wbMain As Workbook
Dim tempWorkbookName Sebagai String
Redupkan filePath Sebagai String
Dim i As Long
Dim numPerusahaan Selamanya
Dim comNama Sebagai String

empLastRow = 5

Atur wbMain = ActiveWorkbook

numCompanies = Worksheets(“main_sheet”). Rentang ("e10"). Nilai

For i = 12 To numCompanies + 11 Langkah 1 'pindahkan i di sekitar daftar divisi sampai akhir divisi
comName = Lembar Kerja(“main_sheet”). Rentang ("d" & i)
filePath = Aplikasi. ActiveWorkbook. Path & “\” & Lembar Kerja(“main_Sheet”). Rentang ("e9") & _
“\” & Lembar Kerja (“lembar_utama”). Rentang ("e" & i) & ". xlsm”
tempWorkbookName = Lembar Kerja ("main_Sheet"). Rentang ("e" & i)
Panggil addCompany(comName, filePath, tempWorkbookName, i, wbMain)

Selanjutnya saya

End Sub

Fungsi addCompany(comName, filePath, tempWorkbookName, i, wbMain)
Dim rowNum As Long, colNum As Long, colName As String
Dim sRange Sebagai String, targetSheet Sebagai String, finalSheet Sebagai String
Dim comRange As String

Atur tempWorkbook = Buku Kerja. Buka (filePath)
Atur tempWorkbook = ActiveWorkbook
targetSheet = “Laporkan”
lembar akhir = “semua_divisi”

”””””””””””””””””””””””””””””””””””””””””””””””””
'Berurusan dengan lembar karyawan
”””””””””””””””””””””””””””””””””””””””””””””””””
Windows(tempWorkbookName & “. xlsm”). Mengaktifkan
Lembar kerja (Lembar target). Mengaktifkan
'Atur tempWorkbook = ActiveWorkbook
barisNum = Lembar Aktif. Rentang Terpakai. Baris – 1 + Lembar Aktif. Rentang Terpakai. Baris. Menghitung

'buat rentang salinan 1
sRange = “B4. J” & barisNomor
tempWorkbook. Spreadsheet(Lembartarget). Rentang(sRentang). Menyalin
'tempel rentang baru 1
DataRange = “b” & empLastRow + 1
wbMain. Lembar kerja (Lembar akhir). Rentang(Rentang Data). TempelSpesial xlPasteValues

'——————————————————————————-

‘ tambahkan nama file
DataRange = “A” & empLastRow + 1 & “. A” & wbMain. Lembar (Lembar akhir). Sel (Baris. Hitung, 2). Akhir(xlUp). Baris

wbMain. Lembar (Lembar akhir). Rentang(Rentang Data). Nilai = comNama

‘ perbarui nomor empLastRow
empLastRow = wbMain. Lembar (Lembar akhir). Sel (Baris. Hitung, 1). Akhir(xlUp). Baris

””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””
tempWorkbook. Menutup

Fungsi Akhir

kata Raghu Prabhu .

Hai Dinesh,

Terima kasih atas semua video dan kode yang Anda posting secara online. Anda melakukan pekerjaan sosial yang hebat

saya punya masalah. Buku kerja saya memiliki 5 lembar kerja. Setiap dua minggu, saya mendapatkan data baru. Saya memindahkan data dari lembar kerja "CurrentFN" ke "PreviousFN" dan mengimpor data baru ke "CurrentFN". Salah satu kolomnya adalah “EID”

Bagaimana cara mentransfer data secara otomatis dari satu lembar Excel ke lembar lainnya?

Bisakah Excel secara otomatis menarik data dari buku kerja lain?

Bagaimana cara mentransfer data secara otomatis dari satu lembar ke lembar lainnya di Excel menggunakan makro?