Asslamualaikum dan Salam Sejahtera untuk semuany
Kepada para suhu yg mahir excel mohon bantuannya untuk mengajari saya bagaimana caranya memasukkan fungsi rumus yang telah saya buat ke dalam data base agar bisa dimasukkan kedalam format excel macro. Krn kapasitas file akan besar jika menggunakan rumus manual pada umumnya. Sample rumus dalam sheet database yg ditandai warna kuning dan formula untuk sheet print outnya. Terima kasih atas bantuannya, semoga saya jg bisa menambah ilmu di forum ini
setelah saya pelajari file anda, ada beberapa formula yang sebenarnya tidak perlu jika anda ingin menggunakan makro. terlampir contoh yang sudah saya edit2 sedikit. silahkan dipelajari dan di kembangkan
baik terima kasih saya pelajari dahulu ya
Sdr @manweljs_ untuk keterangan baris terakhir tersebut maksudnya diisi angka baris terakhir (misal : 25000) atau berdasarkan range nya (A12:A2500). Mohon pencerahannya, krn saya baru belajar utk VBA excel nya
@Yanuary Bastian itu untuk mencari baris terakhir
Mohon bantuannya untuk koreksi kembali, krn ada beberapa sheet ada yg error. Data yg terinput jd hilang dan beberapa kolom tidak mau menampilkan data yg diminta. ????. Dan apakah bisa menampilkan data otomatis tanpa harus menekan atau menggunakan tombol makronya. Terima kasih sebelumnya atas bantuan dan ilmunya
Mohon bantuannya untuk koreksi kembali, krn ada beberapa sheet ada yg error. Data yg terinput jd hilang dan beberapa kolom tidak mau menampilkan data yg diminta...
sebenarnya skrip yang anda susun sudah benar, penyebab error karena data di sheet UNIT terhapus. penyebab terhapus adalah karena anda menjalankan skrip untuk sheet PRINT saat sheet UNIT sedang aktif. lebih tepatnya pada baris ini :
Range("B14:Q213").ClearContents sheets("PRINT").Range("B14:Q213").ClearContents...Dan apakah bisa menampilkan data otomatis tanpa harus menekan atau menggunakan tombol makronya...
cek file terlampir, sudah saya perbaiki dan dan tambahkan contoh ini untuk sheet PRINT. anda hanya perlu mengganti nilai di R1
demikian
Baik, akan saya pelajari kembali
Mohon bantuannya kembali suhu, sheet printnya error padahal hanya rubah sedikit formulanya dari format sebelumnya.
kalo yang dimaksud error itu adalah makro tidak berjalan otomatis saat Nilai pada T1 diganti maka, pada module worksheet objectnya, pastekan skrip berikut:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [t1]) Is Nothing Then Call untukprint End Sub
Jika kalkulasi datanya lama di sheet print itu karna faktor apa ya. krn utk sample yg di awal begitu data inputnya dimasukkan semuanya lama untuk menampilkan valuenya pada sheet print.
lamanya seperti apa? disaya masih kategori normal menurut saya. btw, data anda menjadi besar karena sel yang 'aktif' itu sampai sel paling paling paling paling bawah. saya bingung bagaimana cara anda menginput data sampai bisa terpakai semua baris seperti itu.
terlampir file yang sudah hapus baris yang tidak perlu, sehingga dari file anda yang ukuran 2mb lebih sekarang hanya 50kb
jika dikalkulasi dr data yg masuk di setiap bulannya itu bisa mencapai 25000 row utk database nya. krn di awal saya masih menggunakan rumus yg konvensional. dan akhir-akhir ini saya mulai tertarik utk belajar menggunakan excel macro krn filenya lebih ringan. makanya saya dapat forum ini untuk belajar
karena perintah looping nya itu menggunakan For Each sel jadi excel akan melakukan pengecekan data untuk setiap sel 1 per 1 dalam range yang ditentukan tersebut. kalo mau disiasati dengan difilter dahulu, jadi loopingnya dibuat khusus yg visible aja (jadi lebih sedikit sel yang diproses).
Demikian
Baik terima kasih atas masukannya, krn masih newbie jd bnyak yg harus dipelajari
@Yanuary Bastian Baik terima kasih atas masukannya, krn masih newbie jd bnyak yg harus dipelajari
kalo belum ketemu caranya, cek di file terlampir
Mohon bantuannya suhu, di sheet print data yg tampil lari jauh ke bawah. mohon bantuannya untuk koreksi
Mohon bantuannya suhu, di sheet print data yg tampil lari jauh ke bawah. mohon bantuannya untuk koreksi
@Yanuary Bastian Mohon bantuannya suhu, di sheet print data yg tampil lari jauh ke bawah. mohon bantuannya untuk koreksi
pada baris :
y = Range("B215").End(xlUp).Row + 1
edit menjadi :
y = Range("B124").End(xlUp).Row + 1