kalau nama dan jumlah MODELnya sudah fixed / tertentu, walaupun banyak;
sebaiknya TABEL penampung sudah disediakan baris sebanyak MODEL tsb;
kita tidak perlu mempersulit diri-sendiri dengan "AutoInsert" yg (walau pun bisa dimakrokan)
tetapi tidak sebanding antara effort untuk membuat codingnya -vs- hasil yg didapat.
tombol juga tidak perlu dua buah, karena dlm 1 prosedur makro, kita dapat melakukan
BANYAK tindakan.
Sub TombolEnter1()
Dim CelTarget As Range
Dim PosisiKolomTgl As Integer
Dim PosisiBarisMdl As Integer
Dim Tanggal As Date
Dim Tgl_Ada As Boolean
Dim Bar_Tgl As Range
Dim Col_Mdl As Range
Dim ProdTBL As Range
Dim CelTarget As Range
Dim PosisiKolomTgl As Integer
Dim PosisiBarisMdl As Integer
Dim Tanggal As Date
Dim Tgl_Ada As Boolean
Dim Bar_Tgl As Range
Dim Col_Mdl As Range
Dim ProdTBL As Range
Sheets("input").Range("E5").Formula = "=DATE(INDEX(TH,B5),C5,D5)"
Tanggal = Sheets("input").Range("E5").Value
Set Bar_Tgl = Sheets("prod").Range("C8:AG8")
Set Col_Mdl = Sheets("prod").Range("A9:A47")
Set ProdTBL = Bar_Tgl(2, 1)
ProdTBL.Parent.Activate
With WorksheetFunction
Tgl_Ada = .CountIf(Bar_Tgl, Tanggal) > 0
If Not Tgl_Ada Then
MsgBox "tgl " & Format(Tanggal, "dd-mmm-yy") & _
" tsb belum ada di tabel sheet prod", 48
Exit Sub
End If
PosisiKolomTgl = Day(Tanggal)
If .CountIf(Col_Mdl, [iModel]) > 0 Then
PosisiBarisMdl = .Match([iModel], Col_Mdl, 0)
Set CelTarget = ProdTBL(PosisiBarisMdl, PosisiKolomTgl)
Else
MsgBox "Baris untuk Model " & [iModel].Value & _
Tanggal = Sheets("input"
Set Bar_Tgl = Sheets("prod"
Set Col_Mdl = Sheets("prod"
Set ProdTBL = Bar_Tgl(2, 1)
ProdTBL.Parent.
With WorksheetFunction
Tgl_Ada = .CountIf(Bar_Tgl, Tanggal) > 0
If Not Tgl_Ada Then
MsgBox "tgl " & Format(Tanggal, "dd-mmm-yy") & _
" tsb belum ada di tabel sheet prod", 48
Exit Sub
End If
PosisiKolomTgl = Day(Tanggal)
If .CountIf(Col_Mdl, [iModel]) > 0 Then
PosisiBarisMdl = .Match([iModel], Col_Mdl, 0)
Set CelTarget = ProdTBL(PosisiBaris
Else
MsgBox "Baris untuk Model " & [iModel].Value & _
" belum ada di tabel", 48
Exit Sub
End If
End With
CelTarget.Select
CelTarget(1, 1) = [iQty]
CelTarget(2, 1) = [iDefect]
Exit Sub
End If
End With
CelTarget.Select
CelTarget(1, 1) = [iQty]
CelTarget(2, 1) = [iDefect]
End Sub
----- Original Message -----From: MyekoSent: Monday, January 04, 2010 10:09 AMSubject: Re: ]] XL-mania [[ Bagaimana mengotomatisasi input data Produksi & Defect
2. data yg harus masuk ke Sheet [Prod]
yg ingin siti ketahui CELL MANA (di sheet INPUT)
harus dimasukkan ke CELL MANA (di sheet PROD)
detail penjelasan saya lampiran kembali mbak.
mengenai asumsi yang mbak siti berikan sepertinya sudah sesuai dengan
yang diharapkan.
memang untuk sample format pada sheet "prod " baru ada model A & B .
Jika pada form input nanti diisi model baru contoh C, D, E, dst maka
diharapkan pada sheet"prod " row akan auto insert / makro harus
membuat 3 baris baru, dengan kolom MODEL karena baris tsb belum ada.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Resolusi 2010 XL-mania: terbitkan buku lagi... hehehe... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Resolusi 2010 XL-mania: terbitkan buku lagi... hehehe... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário