Hai tim,
Saya harus menambahkan data untuk kolom tertentu dalam file xlsm. dari mana data berasal dari antrian
Struktur file terlampir
Mohon, sarankan bagaimana cara menambahkannya & langkah apa yang harus diikuti
jolivanes
Profesional
697.134Postingan1.309
Ulang. Makro untuk menambahkan data dari sheet1 ke sheet2
Seperti ini?
Kode
Sub Maybe() Sheets("Sheet1").Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) End SubApakah ada cara untuk mengambil data dari rentang lembar kerja atau tabel dan menambahkannya ke tabel yang sudah ada dalam model data excel?
1) tulis skrip VBA atau R untuk menambahkan data yang dipilih ke file CSV dan gunakan ini sebagai sumber untuk model data, atau
2) memuat data ke dalam database sql melalui siss atau cara lain. Tujuannya adalah memuat data ini dalam model data ke power bi untuk memperbarui dasbor.
Saya memiliki beberapa data di lembar kerja yang berbeda. Saya perlu menambahkan semua data ke dalam lembar kerja baru atau satu file master (buku kerja)
Dengan merekam makro saya bisa melakukannya sampai batas tertentu. (Saya telah meletakkan kode di bawah ini). Dalam kode ini saya telah mempertimbangkan 4 lembar untuk disalin ke buku kerja baru sebagai contoh
Tapi pahamilah bahwa masih ada yang kurang.
Bagaimana saya bisa memodifikasi kode untuk memeriksa jumlah lembar di buku kerja (karena jumlah lembar kerja di setiap file dapat bervariasi. )
RRachelBrown
Anggota baru
BergabungJul 6, 2017Pesan11
- 7 Juli 2017
- #1
Saya memiliki makro yang menambahkan data ke bagian bawah kolom, ini berfungsi pertama kali tetapi terus menempel di tempat berbeda di lembar kerja saya. Bisakah seseorang menemukan apa yang salah? Kode Dim lastRow As String
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Notes").Select
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False_
Joe4
MrExcel MVP, Admin MudaBergabung 1 Agustus 2002Pesan66,469Versi Office
- 365
- Windows
- 7 Juli 2017
- #2
Anda memecahkan untuk lastRow, tetapi kemudian tidak menggunakan perhitungan itu dalam menentukan di mana akan menempelkan data Anda Kode Range("A" & lastRow).Activate
Ke kolom mana Anda mencoba menempelkan data ini?
Jika kolom A, coba tambahkan baris ini di atas "ActiveSheet. Tempel" baris
Scott T
Anggota terkenalBergabungDec 14, 2016Messages2,635Office Version
- 365
- 2016
- Windows
- 7 Juli 2017
- #3
Ini menempel ke sel yang dipilih saat ini Kode ActiveSheet.Paste Kode Cells(lastRow,1).paste_
Anda harus menentukan tempat untuk menempelkan misalnya
Kkvsrinivasamurthy
Anggota terkenal
BergabungNov 6, 2013Messages1,015
- 7 Juli 2017
- #4
Ganti kode seperti di bawah ini Kode [COLOR=#333333]Dim lastRow As long[/COLOR]
lastRow = Sheets("Notes").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Copy Sheets("Notes").Range("A" & lastRow)
RRachelBrown
Anggota baru
BergabungJul 6, 2017Pesan11
- 7 Juli 2017
- #5
Terima kasih atas bantuan Anda. Semua solusi Anda bekerja dengan baik
Joe4
MrExcel MVP, Admin MudaBergabung 1 Agustus 2002Pesan66,469Versi Office
- 365
- Windows
- 7 Juli 2017
- #7
Saya akhirnya memilih ini, tetapi sebaliknya. Aktifkan, saya menggunakan. Pilih Klik untuk meluaskan
Salah satu akan bekerja. Mereka pada dasarnya melakukan hal yang sama
RRachelBrown
Anggota baru
BergabungJul 6, 2017Pesan11
- 7 Juli 2017
- #8
kata Joe4 Salah satu akan bekerja. Mereka pada dasarnya melakukan hal yang sama Klik untuk meluaskan
Hm, saya mencoba. Aktifkan dulu dan itu menyebabkan kesalahan
Joe4
MrExcel MVP, Admin MudaBergabung 1 Agustus 2002Pesan66,469Versi Office
- 365
- Windows
- 7 Juli 2017
- #9
Aneh. Itu berhasil untuk saya
Lakukan saja apa pun yang cocok untuk Anda