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