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 <[email protected]> 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 <[email protected]> > >> ** >> >> >> 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 <[email protected]> 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> >>> >>> >> >> > >
