workbook yg sudah di minikan itupun masih gendut karena mengandung
begitu banyak NAME yg meLINK ke banyak workbook lain (yg di pc ku) tak dikenal,
makanya: agar lebih mini lagi, names itu dihapus semuah, karena tujuan workbook ini
kan hanya ingin mengotomatiskan JobNo menemilih cells usage.
dengan asumsi bahwa JobNo akan lebih dari 1 (dan akan tertulis di kolom B mulai baris 7)
TextBox1 dipensiun-dini-kan, & tugasnya digantikan oleh Combobox (CboJobNo)
Dgn adanya si Kombo ini kita tidak perlu setiap kali "ngetik" JobNo, (tinggal pilih gitu bang..)
'--------------------------------------------------
' siti Vi /setiyowati.dei@gmail.com / 23 mar 2011
' XL-mania milis case #17872
'--------------------------------------------------
Dim Sufix As Range
Dim Usage As Range
Dim JobNo As Range
Dim c As Integer, r As Long
Private Sub UserForm_Activate()
' manakala Yu Serform diaktipkan, di inisialisasi
' letak & dimensi 2 area range yg mau dimanfaatkan
' juga ada inisialisasi beberapa property object
Dim StackSufix As String
TextBox2.MultiLine = True
TextBox2.WordWrap = True
Set Sufix = Range("C5")
Set Sufix = Range(Sufix, Sufix.End(xlToRight))
Set JobNo = Range("B7")
If Len(JobNo(2, 1)) > 0 Then _
Set JobNo = Range(JobNo, JobNo.End(xlDown))
CboJobNo.RowSource = JobNo.Address
CboJobNo.SetFocus
End Sub
Private Sub CboJobNo_Change()
' manakala isi kombobox diganti (dengan data JobNo yg baru)
' maka diproseslah pekerjaan yg hasilnya seperti keinginan ibnu widia
LbIdx = Format(CboJobNo.ListIndex + 1, "00")
If WorksheetFunction.CountIf(JobNo, CboJobNo) > 0 Then
r = WorksheetFunction.Match(CboJobNo, JobNo, 0)
Else
r = 0
TextBox2 = "Tidak ada Job_No yg sesuai"
Exit Sub
End If
Set Usage = Sufix.Offset(r + 1, 0)
TextBox2 = ""
For c = 1 To Sufix.Columns.Count
If Usage(1, c) = 1 Then TextBox2 = TextBox2 & " " & Sufix(1, c)
Next c
TextBox2 = Trim(TextBox2)
End Sub
' soal penampakan diatur pakai conditional formatting saja....
2011/3/22 ibnu widiasa <ibnuwidiasa@yahoo.com>
Selamat sore para member group xl-mania baik yang sudah guru maupun yang baru berencana menjadi guru..disini saya punya masalah untuk memasukkan multiple cell vaue dengan kondisi tertentu kedalam 1 textbox, untuk membudahkan, saya lampirkan pula file yang saya sederhanakan (untuk memperkecil sekecil mungkin) file aslinya yang berukuran lumayan berpuluh MB beserta masalah yang saya hadapi..Sudilah kiranya saya yang masih awam ini dibantu untuk menyelesaikan masalah ini..Terima kasih banyak atas bantuannyaBest RegradsIbnu Widiasa Putra
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"... |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin 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 |
+-------------------------------------------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"... |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário