Wah terima kasih mas Jan Raisin & Mr. Kid atas bantuannya, sangat membantu sekali. Sudah saya test dah sudah jalan.
--- In [email protected], Jan Raisin <miss.jan.raisin@...> wrote: > > Terima kasih atas koreksinya mr Kid, > > maklum tadi nulisnya cuma dibayangin saja, tidak dites dulu xixixix :D > > -Ms. Jan Raisin- > > Pada 2 Januari 2013 15:38, Mr. Kid <mr.nmkid@...> menulis: > > > ** > > > > > > Ikutan lihat script ya miss Jan. > > > > Bagian : > > > > If Cells(idxRow, Tgl + 3).Value <> "" Then > > If MsgBox("Ada data sebelumnya, akan diganti dengan data yang > > baru?", vbOKCancel, "Peringatan") = vbOK Then > > Cells(idxRow, Tgl + 3).Value = Qty > > Else > > Exit Sub > > End If > > End If > > > > Bagian kondisi yang merah untuk cek keberadaan data lama. > > >> Jika ada data lama maka cek kondisi (IF) yang biru, yang bahasa > > manusianya : > > -> jika user pilih OK, maka akan me-replace data lama dengan data > > baru (bagian latar kuning) > > -> jika user pilih selain OK, maka akan keluar dari proses (hijau) > > >> Jika tidak ada data lama, maka *belum ada prosesnya*. > > > > Dengan mengubah menjadi : > > If Lenb(Cells(idxRow, Tgl + 3).Value) <> 0 Then > > If MsgBox("Ada data sebelumnya, akan diganti dengan data yang > > baru?", _ > > vbOKCancel, "Peringatan") <> vbOK Then > > > > Exit Sub > > End If > > End If > > Cells(idxRow, Tgl + 3).Value = Qty > > maka akan didapat suatu proses dengan uraian sebagai berikut : > > >> Jika ada data lama, maka cek kondisi biru > > -> Jika user pilih selain OK, maka keluar dari proses (hijau) > > -> Jika user pilih OK, maka lanjutkan proses (masuk ke baris latar > > kuning) > > >> Jika tidak ada data lama, maka lanjutkan proses ke baris berikut (masuk > > ke baris latar kuning) > > > > Wassalam, > > Kid. > > > > > > 2013/1/2 Jan Raisin <miss.jan.raisin@...> > > > >> ** > >> > >> > >> coba script berikut: > >> > >> Option Explicit > >> > >> Sub InputData() > >> Dim Tgl As Byte, Kode As String, Qty As Long > >> Dim rgData As Range, idxRow As Long > >> > >> Tgl = Range("an4").Value > >> Kode = Range("an5").Value > >> Qty = Range("an7").Value > >> > >> Set rgData = Range("a:a").Find(Kode) > >> If rgData Is Nothing Then > >> MsgBox "Data tidak ditemukan", vbOKOnly, "Pesan" > >> Exit Sub > >> End If > >> idxRow = rgData.Row > >> If Cells(idxRow, Tgl + 3).Value <> "" Then > >> If MsgBox("Ada data sebelumnya, akan diganti dengan data yang > >> baru?", vbOKCancel, "Peringatan") = vbOK Then > >> Cells(idxRow, Tgl + 3).Value = Qty > >> Else > >> Exit Sub > >> End If > >> End If > >> End Sub > >> > >> by the way, any way, bus way.. > >> kenapa tidak membuat database yang baik dan benar saja? sehingga akan > >> memudahkan pembuatan laporan harian, mingguan, bulanan, tahunan dll. Bukan > >> begitu bukan? > >> > >> -Ms. Jan Raisin- > >> > >> Pada 2 Januari 2013 13:52, Harie Yanto <harieisday@...> menulis: > >> > >> ** > >>> > >>> > >>> Tolong para masta/sesepuh membantu saya, > >>> > >>> Bagaimana ya agar data yang di input bisa langsung masuk sesuai dengan > >>> kolom tanggal dan sesuai dengan kodenya? > >>> > >>> Terima kasih atas bantuannya . > >>> > >>> > >>> contoh kasus : download > >>> disini<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5714298/TES.xlsm> > >>> > >>> > >> > >> > > > > >
