maaf sy mw tny lagi setelah sy coba2 lg yg diinput bs msk ke sheet yg sy
inginkan hingga ke baris brikutnya... ttpi ketika sy input data yg msk dobel jd
misal sy mskan no induk sekian dgn nama AAN maka pada row A9-A10 akan terinput
nama AAN, dan sy input lg nama IIN pd row A11-A12 akan terinput IIN...
Formulanya seperti ini :
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets("KALKULATOR").Select
Range("N11").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("GLOBAL REPORT").Select
ActiveCell.Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("KALKULATOR").Select
ActiveCell.Select
ActiveCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GLOBAL REPORT").Select
ActiveCell.Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Terima kasih bnyk atas bantuannya...
________________________________
Dari: Jan Raisin <[email protected]>
Kepada: [email protected]
Dikirim: Senin, 3 Desember 2012 9:50
Judul: Re: [belajar-excel] Input data berdasar no induk
Dear Debora,
karena Anda sudah biasa dengan langsung menuliskan script ke VB, maka saya
bantu solusinya sbb:
1. deklarasikan beberapa variabel sbb di dalam sebuah prosedur di dalam sebuah
modul
a. NomerIndukNasabah tipenya String (untuk jaga-jaga jika nanti ada
kombinasi huruf & angka di dalam NomerInduk, atau ada nol di depan NomerInduk)
b. sebuah variabel yang akan digunakan untuk pencarian NoInduk tipenya range
c. TotalBunga, TotalDenda, TotalPokok bertipe Double untuk menyimpan nilai
dari sheet Kalkulator
2. Masukkan masing-masing nilai ke dalam variabel tersebut, nilainya diambil
dari masing-masing nilai sesuai hasil perhitungan di sheet Kalkulator
3. Lakukan pencarian di sheet Nasabah kolom B berdasarkan NomerInduk nasabah
contoh pencarian:
Set VariabelNomer1B =
sheets("nasabah").range("b:b").cells.find(NomerIndukNasabah)
4. Lakukan pengecekan apakah ditemukan datanya menggunakan:
If VariabelNomer1B is nothing then
jika tidak ditemukan maka beritahu user dengan messange box bahwa data
tidak ditemukan
keluar dari prosedur
End if
5. Jika ditemukan maka lakukan proses seperti ini
ambil nilai denda, gunakan OffSet untuk menunjuk cellnya berdasarkan
rujukan hasil pencarian di atas, lalu nilainya ditambah dengan TotalDenda yang
tadi sudah disimpan dalam sebuah variabel.
lakukan juga untuk nilai bunga dan pokoknya
6. Buat sebuah shape lalu assign macro yang sudah ditulis ke dalam shape
tersebut, jika tidak terbiasa dengan shape bisa menggunakan tombol (command
button) lalu panggil prosedur tersebut.
Selamat mencoba, semoga berhasil dan tetap semangat :D
Best Regard,
-Ms. Jan Raisin-
Pada 1 Desember 2012 21:57, Debora Christy <[email protected]>
menulis:
>
>Miss sy sedikit bingung dgn proses rekam makro, krn sy sendiri msh awam soal
>rekam makro...
>Dlm penggunaan makro biasanya sy lgsg msk ke vb utk memasukkan formula
makro... Td sdh sy coba dgn langkah2 tsb ttpi utk makronya sendiri tdk
terekam...
>Apakah formula tsb dpt lgsg dimskkan melalui vb ato hrs melalui proses rekam
>makro? Trima kasih sebelumnya...
