Dear Bu Siti, BTW, bisa dg cara lain nggak selain macro, krn maaf saya nggak ngerti macronya, atau ada rumus lain spt Vlookup gitu ?
Dengan syrat-syarat seperti itu, menurut pendapatku kok kurang lengkap dari sheet original diambil records yg QTY (nilai kolom N) nya > 0 dan yg diambil hanya 2 kolom tertentu [hans] sorry, emang kurang lengkap, harusnya 2 kolom itu disort & hanya diambil satu row aja dari sekian kembarannya,contoh styles sama,tapi season beda : HO2008 217272 SP2009 217272 kolom lain diisi dengan kolom dari sheet forecast bulan terakhir (tanpa syarat) artinya tiap records yg baru diambil dari sheet original, akan berpasangan dengan records dari sheet forecast bulan terakhir secara untung-untungan (mendapat pasangan sebaris yg saat itu "kebetulan" urutannya sama tetapi bila memang seperti itu yg dikehendaki pak hans, otomatisasinya dengan makro -lah algor-nya kira kira : diadakan loop yg mengunjungi tiap records di tabel ORIGINAL tiap kunjungan; kolom N dilihat: jika > 0, kolom B dan E di salin ke sheet baru (forecast bulan ini) dari sheet Forecast May diambil data kolom D,E,F,G,H ditulis sebaris dengan records yg baru saja diambil dari sheet ORIGINAL pengulangan selesai jika semua records di tabel ORIGINAL sudah mendapat kunjungan. Kesulitannya : menentukan Forecast Bulan Terakhir itu sheet yg mana, terus Sheet penerima data juga sheet mana (soalnya pak hans sunhau, hanya mengatakan May dan Jun; yang untuk bulan depan kan tidak spt itu lagi). Hal ini dapat diatasi dengan formulir : yg harus diisi oleh user; kita tanyakan saja : Sheet Sumber 1 = "Original" Sheet Sumber 2 = (harus diisi oleh user) Sheet Hasil = (harus diisi oleh user) [hans] pengulangan untuk bulan selanjutnya, kalo hasil masih sama untuk 2 kolom season+style, maka tinggal copy aja, tapi kalo lain, maka harus diisi dg data baru oleh user. -------------------------------------------------------------------------------- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of siti Vi Sent: Saturday, July 19, 2008 7:03 AM To: [email protected] Subject: Re: ]] XL-mania [[ ambil data dari 2 sheet dg kondisi tertentu Dengan syrat-syarat seperti itu, menurut pendapatku kok kurang lengkap dari sheet original diambil records yg QTY (nilai kolom N) nya > 0 dan yg diambil hanya 2 kolom tertentu kolom lain diisi dengan kolom dari sheet forecast bulan terakhir (tanpa syarat) artinya tiap records yg baru diambil dari sheet original, akan berpasangan dengan records dari sheet forecast bulan terakhir secara untung-untungan (mendapat pasangan sebaris yg saat itu "kebetulan" urutannya sama tetapi bila memang seperti itu yg dikehendaki pak hans, otomatisasinya dengan makro -lah algor-nya kira kira : diadakan loop yg mengunjungi tiap records di tabel ORIGINAL tiap kunjungan; kolom N dilihat: jika > 0, kolom B dan E di salin ke sheet baru (forecast bulan ini) dari sheet Forecast May diambil data kolom D,E,F,G,H ditulis sebaris dengan records yg baru saja diambil dari sheet ORIGINAL pengulangan selesai jika semua records di tabel ORIGINAL sudah mendapat kunjungan. Kesulitannya : menentukan Forecast Bulan Terakhir itu sheet yg mana, terus Sheet penerima data juga sheet mana (soalnya pak hans sunhau, hanya mengatakan May dan Jun; yang untuk bulan depan kan tidak spt itu lagi). Hal ini dapat diatasi dengan formulir : yg harus diisi oleh user; kita tanyakan saja : Sheet Sumber 1 = "Original" Sheet Sumber 2 = (harus diisi oleh user) Sheet Hasil = (harus diisi oleh user) '------------------mmuuuulai-------------------- Sub KerjakanSepertiYgDiceritakkanOlehHansSanHau() Dim Origin As String Dim LastMo As String Dim Destin As String Dim OrigRg As Range Dim LastRg As Range Dim DestRg As Range Dim w As Worksheet Dim r As Long, i As Long, c As Integer With iFace ' (iFace adalah CodeName untuk sheet formulir) If .Range("E9") = "" Or .Range("E10") = "" Or .Range("E11") = "" Then MsgBox "nama sheet belum anda tentukan", 48, "-----makroh----" Exit Sub End If Origin = .Range("E9").Value LastMo = .Range("E10").Value Destin = .Range("E11").Value End With For Each w In ThisWorkbook.Worksheets If UCase(w.Name) = Origin Or _ UCase(w.Name) = LastMo Or _ UCase(w.Name) = Destin Then Worksheets.Add ActiveSheet.Name = Destin ' "ColLabel" nama range jiplakan dari judul tabel forecast Jun Range("ColLabel").Copy ActiveSheet.Range("A3") Set DestRg = Sheets(Destin).Range("B5") Set OrigRg = Sheets(Origin).Range("B4") Set OrigRg = Range(OrigRg, OrigRg.End(xlDown)) Set LastRg = Sheets(LastMo).Range("D6") ' proses penulisan data di sheet baru For i = 1 To OrigRg.Rows.Count If OrigRg(i, 13).Value > 0 Then r = r + 1 DestRg(r, 0) = r ' = Nomor Urut Records di tabel baru DestRg(r, 1) = OrigRg(i, 1) DestRg(r, 2) = OrigRg(i, 4) For c = 3 To 7 DestRg(r, c) = LastRg(r, c - 2) Next c DestRg(r, 10) = OrigRg(i, 13) End If Next i End If Next w MsgBox "Ya - Gitu - Deh; dah betul belum ya..?", 64, "----- makroh -----" End Sub '----------------------eop---------------- note: Kolom N ikut ditulis, sekedar untuk recek, bila tidak terpakai kolom tsb bisa segera di delete. On Sun, Jul 13, 2008 at 9:53 PM, <[EMAIL PROTECTED]> wrote: Dear Pakar XL Mania, Salam perkenalan, saya baru bergabung & mohon dibantu gimana caranya supaya setiap kali update terbaru tidak perlu manual lagi(contoh terlampir) Tks sebelumnya sheet june forecast, awal nya data di ambil dari sheet original==> colom E , B & N(qty > 0) lalu data di input ke sheet Jun Forecast di colom C & B lalu colom berikutnya D-E-F-G-H, datanya diambil dari sheet May Forecast Mohon petunjuknya & maaf kalau sudah pernah dibahas sebelumnya. Kalau ya, boleh di infokan dimana saya bisa dapat contoh filenya....Tks a lot. B.Rgds, Hans
