Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 28 de setembro de 2009

Re: ]] XL-mania [[ Otomatisasi Penentuan qty prod per day sesuai dengan kelipatan qty box dan kapasitas line area

 

Om om ....... keterangannya gak jelas oom kamsudnya  dari kapasitas tiap line area........tapi udah ane bikinin untuk lini satu minggu pertama dulu oom tanpa kapasitas lini area ... Kodingannya :

Option Explicit
Dim InputSheet As Worksheet
Dim i As Long, r As Long
Dim QtyBox, QtyWeek As Integer
Dim kolom, kolawal As Integer
Dim baris As Integer
Dim kaplini1 As Integer
Dim batasproduksi As Integer
   
   
Sub LiniSatu()
     
    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet
  
    InputSheet.Activate
    r = 10
    kolom = 7
    baris = 10
    kaplini1 = 160
   
For r = 10 To 22

        QtyBox = Int(Cells(r, 5))
        QtyWeek = Int(Cells(r, 6))

        batasproduksi = 0
        kolawal = QtyWeek
        For i = 0 To kaplini1
           
                ' validasi apakah jumlah box > dari kuantitas mingguan
                If batasproduksi >= QtyWeek Then
                    kolom = 7
                    Exit For
                Else
                    InputSheet.Cells(r, kolom) = QtyBox
                    batasproduksi = batasproduksi + QtyBox
                    kolom = kolom + 1
                End If

        Next i
       
   
 
Next r
End Sub

Pertanyaan ane. kenapa dari Lini produksi mau dibikin Pemerataan Produksi  Kalo gak salah sesudahnya ingin dibuat menggunakan Kanban/JIT (Kalau dilihat dari Sheet sebelum dan sesudah), parameternya Qtybox sebagai acuan jumlah kartu agar rata produksinya ?,.......


...
Puthut Wibowo

--- On Sat, 9/26/09, Johan Wibowo <johan_w@sami.co.id> wrote:

From: Johan Wibowo <johan_w@sami.co.id>
Subject: ]] XL-mania [[ Otomatisasi Penentuan qty prod per day sesuai dengan kelipatan qty box dan kapasitas line area
To: XL-mania@yahoogroups.com
Date: Saturday, September 26, 2009, 8:32 AM

 

Dear pakar XL,

minta bantuannya dong.

 

saya ingin format ini secara otomatis yang ingin saya tanyakan :

Bagaimana cara untuk menentukan rumus, agar setiap kolom di tgl prod terisi secara otomatis dan saya hanya memasukkan angka di "QTY PRD per WEEK nya". Angka yang akan terisi disetiap kolom tsb angka kelipatan dari QTY BOX contoh : bila saya isi qty prd week 128 dng qty box 32 maka disetiap kolom akan terisi 32 dihari 1 kmd 32 ke 2 dst smp jml 128.

dan jml angka di setiap kolom tgl prd dibatasi sesuai kapasitas tiap line area(utk area 1 dg kapasitas 160, area 2 : 100 dan area 3 : 90).

Thanks ya untuk pencerahannya.

 

(di sheet SEBELUM saya perlihatkan yang manual yang selama ini saya lakukan)

 

Salam,

Joe


__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat Idul Fitri... Mohon maap dari momods...                   |
| 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              |
+-------------------------------------------------------------------+
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___

Nenhum comentário:

Arquivo do blog