Excel mendorong data ke buku kerja lain

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(Jumlah Baris, 5) = Penjual Barang
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) = Deskripsi barang
Offset(RowCount, 13) = keterangan item

Berakhir dengan

data saya. Menyimpan
data saya. Menutup
Akhir Sub

Aman Gaur berkata.

Pak, Seperti yang telah Anda jelaskan dengan sangat jelas tentang cara mentransfer data dari satu lembar excel ke lembar excel lainnya secara otomatis. Saya memiliki masalah serupa

Saya memiliki satu lembar kerja sebagai "Proyek PM Aktif" dan ada lembar kerja lain yang diberi nama setelah masing-masing Manajer Proyek. Karena setiap Manajer Proyek memperbarui lembar kerjanya di buku kerja yang sama dengan menambahkan data baru di baris dan kolom baru, saya memerlukan data tersebut untuk ditransfer secara otomatis ke lembar kerja "Proyek PM Aktif"

Ketika saya melihat video Anda menjelaskan bagaimana data ditransfer dari satu sel tertentu ke sel lain, saya mencobanya dan berhasil, tetapi karena setiap kali Manajer proyek ini menambahkan data baru ke lembar kerja mereka di baris dan kolom baru, bagaimana cara melakukan

Saya harap saya menyatakan masalah saya dengan jelas. Nantikan balasan Anda. Semoga harimu menyenangkan

Terima kasih,
Aman Gaur

Parrish .

HAI

Saya memiliki 2 buku kerja terpisah, keduanya dengan banyak tab. Saya ingin menambahkan, mengubah data dalam sel, serta menyisipkan/menghapus baris/kolom pada satu sel dan memperbarui buku kerja "Master" saya setiap kali ada perubahan...baik dibuka atau ditutup. Saya menemukan rumus yang tampaknya berhasil, tetapi hanya untuk Lembar pertama buku kerja saya. Saya memiliki orang lain yang saya butuhkan juga tetapi tidak bisa mendapatkan jalur yang benar

=OFFSET(TIDAK LANGSUNG(“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(Jumlah Baris, 11) = Nama Ayah
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(Jumlah Baris, 49) = Kode Resmi
Offset(Jumlah Baris, 50) = Nama Resmi

Berakhir dengan

data saya. Menyimpan

Akhir 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(Jumlah Baris, 11) = Nama Ayah
'. 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(Jumlah Baris, 49) = Kode Resmi
'. Offset(Jumlah Baris, 50) = Nama Resmi

Berakhir dengan

data saya. Menyimpan

Akhir Sub

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

MsgBox “Formulir Telah Direset”

Akhir 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

Akhir 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). Salinan
'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 mendorong data dari satu buku kerja Excel ke yang lain?

Bagaimana cara mengisi data secara otomatis dari satu buku kerja Excel ke buku kerja Excel lainnya?