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>
>>
>>
>
>
>
