Messages In This Digest (9 Messages)
- 1a.
- Combo Box multi coloumn disertai validasi From: Yudha Saptiadi
- 1b.
- Re: Combo Box multi coloumn disertai validasi From: Haps
- 1c.
- Re: Combo Box multi coloumn disertai validasi From: Haps
- 2a.
- Packing list dengan kondisi tertentu secara otomatis From: Sodikin, Akhmad
- 2b.
- Re: Packing list dengan kondisi tertentu secara otomatis From: Mr. Kid
- 2c.
- Packing list dengan kondisi tertentu secara otomatis From: Sodikin, Akhmad
- 2d.
- Re: Packing list dengan kondisi tertentu secara otomatis From: Mr. Kid
- 2e.
- Re: Packing list dengan kondisi tertentu secara otomatis From: Sodikin, Akhmad
- 3a.
- Re: Mencari rata-rata persentase From: Budhi Cahyanto
Messages
- 1a.
-
Combo Box multi coloumn disertai validasi
Posted by: "Yudha Saptiadi" yudhasaptiadi@gmail.com yudhasaptiadi
Tue Sep 13, 2011 3:28 pm (PDT)
Dear Para Pakar...
Mohon bantuan macro-nya agar bisa menampilkan combo box dengan multi coloumn
disertai validasinya
berikut lampirannya.
sebelumnya saya ucapkan terimakasih untuk waktu yang disediakan...
Regards,
Yudha
- 1b.
-
Re: Combo Box multi coloumn disertai validasi
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Tue Sep 13, 2011 5:37 pm (PDT)
*ada dua prosedur*
*
*
*(1)*
*--- ditulis di module sheet2 (sheet yg ada comboboxnya)---*
*
*
Private Sub CboScope_Change()
' menampilkan data sesuai piihan di cbobox
' pada saat terjadi *event Change* pada Combobox
' modified by: Haps 15 sept 2011
'-------------------- --------- ----
Dim R As Long, xList As Range
Set xList = Application.Range("List_ SCOPE")
R = 0
With CboScope
R = .ListIndex + 1
Range("B7") = xList(R, 1)
Range("B8") = xList(R, 2)
End With
End Sub
*(2)*
*--- ditulis di module sheet1 (sheet yg ada Tabel yag akan dijadikan
list)---*
Private Sub Worksheet_Activate()
'--- dari mba ct ----'
' mengisi combobox dgn list dari sheet1 2 kolom
' modif by: Haps 15 sept 2011
'-------------------- --------- ----
Dim PKRJN As Range
Set PKRJN = Sheets("sheet1").Range(" B1").CurrentRegi on.Offset( 1, 0)
Set PKRJN = PKRJN.Resize(PKRJN.Rows. Count - 1, 2)
PKRJN.Name = "List_SCOPE"
With Sheets("Sheet2").CboScope
.LinkedCell = ""
.ListFillRange = PKRJN.Name
.ColumnCount = 2
.BoundColumn = 1
.LinkedCell = ""
.ListRows = 20
.ColumnWidths = "70 pt;200 pt"
End With
End Sub
2011/9/14 Yudha Saptiadi <yudhasaptiadi@gmail.com >
>
> Mohon bantuan macro-nya agar bisa menampilkan combo box dengan multi
coloumn disertai validasinya
> berikut lampirannya.
> sebelumnya saya ucapkan terimakasih untuk waktu yang disediakan...
> Regards,
> Yudha
- 1c.
-
Re: Combo Box multi coloumn disertai validasi
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Tue Sep 13, 2011 5:50 pm (PDT)
Koreksi makro di module sheet1;
harusnya " Private Sub Worksheet_*Deactivate() "*
*
*
bukan * " *Private Sub Worksheet_*Activate*() "
maksudnya
makro dijalankan jika *sheet1* di-non-aktifkan (pernah diaktifkan kemudian
mengaktifkan sheet lain (sheet2)
(barangkali SETELAH user meng-edit isi Sheet1.)
artinya: jika terjadi *event DeActivate* terhadap sheet1; makro mengUpdate
isi combobox dengan isi tabel di sheet1
CMIIW... / haps
2011/9/14 Haps <hapsari.stlizbeth@gmail.com >
> *
> *
> *(2)*
> *--- ditulis di module sheet1 (sheet yg ada Tabel yag akan dijadikan
> list)---*
>
> Private Sub Worksheet_Activate()
> ' mengisi combobox dgn list dari sheet1 2 kolom
> Dim PKRJN As Range ' dst.....
>
End Sub
>
>
- 2a.
-
Packing list dengan kondisi tertentu secara otomatis
Posted by: "Sodikin, Akhmad" akhmad.sodikin@bluescopesteel.com
Tue Sep 13, 2011 6:25 pm (PDT)
HI..
Salam kenal semuanya xl mania...krn kebetulan saya baru bergabung di forum yg keren ini
Dlm kesempatan ini, mohon bantuannya kalau ada teman2 yg mengerti dan tau solusi utk problem saya seperti terlampir
Sebelumnya mohon maaf kalau ada yg kurang berkenan
Salam,
Sodik
_____________________ _________ __
NOTICE - This message and any attached files may contain information that is confidential, legally privileged or proprietary. It is intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error. Any dissemination, copying, use or re-transmission of this message or attachment, or the disclosure of any information therein, is strictly forbidden. BlueScope Steel Limited does not represent or guarantee that this message or attachment is free of errors, virus or interference.
If you have received this message in error please notify the sender immediately and delete the message. Any views expressed in this email are not necessarily the views of BlueScope Steel Limited.
- 2b.
-
Re: Packing list dengan kondisi tertentu secara otomatis
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Sep 13, 2011 10:00 pm (PDT)
Hai Sodik,
Mungkin seperti file terlampir.
Kid.
On Wed, Sep 14, 2011 at 08:21, Sodikin, Akhmad <
akhmad.sodikin@bluescopesteel. > wrote:com
> **
>
>
> **
>
> HI..
> Salam kenal semuanya xl mania...krn kebetulan saya baru bergabung di forum
> yg keren ini
>
> Dlm kesempatan ini, mohon bantuannya kalau ada teman2 yg mengerti dan tau
> solusi utk problem saya seperti terlampir
> Sebelumnya mohon maaf kalau ada yg kurang berkenan
>
> Salam,
> Sodik
>
>
>
>
> **
>
>
> --------------------- ---------
>
>
> NOTICE - This message and any attached files may contain information that
> is confidential, legally privileged or proprietary. It is intended only for
> use by the intended recipient. If you are not the intended recipient or the
> person responsible for delivering the message to the intended recipient, be
> advised that you have received this message in error. Any dissemination,
> copying, use or re-transmission of this message or attachment, or the
> disclosure of any information therein, is strictly forbidden. BlueScope
> Steel Limited does not represent or guarantee that this message or
> attachment is free of errors, virus or interference.
>
> If you have received this message in error please notify the sender
> immediately and delete the message. Any views expressed in this email are
> not necessarily the views of BlueScope Steel Limited.
>
>
>
- 2c.
-
Packing list dengan kondisi tertentu secara otomatis
Posted by: "Sodikin, Akhmad" akhmad.sodikin@bluescopesteel.com
Wed Sep 14, 2011 12:53 am (PDT)
Resend (maaf
Mas Kid...terima kasih banyak atas responnya yg cepat dan sharing ilmu excel nya
Namun yg saya maksud adalah bagaimana caranya supaya pack list tersebut langsung terbentuk....Dengan cara saya copy paste aja data dari system saya..ke master data (sheet1)
Jadi...jika saya paste data di worksheet "sheet1" pack list di worksheet PACK_L_TDK1 (2) sdh terbentuk berupa data terlampir (secara otomatis)
Mohon pencerahannya teman2 semua
Best Regards,
Sodik
PT. Bluescope Lysaght Indonesia
_____________________ _________ __
NOTICE - This message and any attached files may contain information that is confidential, legally privileged or proprietary. It is intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error. Any dissemination, copying, use or re-transmission of this message or attachment, or the disclosure of any information therein, is strictly forbidden. BlueScope Steel Limited does not represent or guarantee that this message or attachment is free of errors, virus or interference.
If you have received this message in error please notify the sender immediately and delete the message. Any views expressed in this email are not necessarily the views of BlueScope Steel Limited.
- 2d.
-
Re: Packing list dengan kondisi tertentu secara otomatis
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Sep 14, 2011 2:04 am (PDT)
Bukannya tinggal dikembangkan dengan memasang fprmula filter ?
Kid.
On Wed, Sep 14, 2011 at 13:57, Sodikin, Akhmad <
akhmad.sodikin@bluescopesteel. > wrote:com
> **
>
>
> **
> Resend (maaf
> Mas Kid...terima kasih banyak atas responnya yg cepat dan sharing ilmu
> excel nya
>
> Namun yg saya maksud adalah bagaimana caranya supaya pack list tersebut
> langsung terbentuk....Dengan cara saya copy paste aja data dari system
> saya..ke master data (sheet1)
> Jadi...jika saya paste data di worksheet "sheet1" pack list di worksheet
> PACK_L_TDK1 (2) sdh terbentuk berupa data terlampir (secara otomatis)
>
>
> Mohon pencerahannya teman2 semua
>
> Best Regards,
> Sodik
> PT. Bluescope Lysaght Indonesia
>
> --------------------- ---------
>
>
> NOTICE - This message and any attached files may contain information that
> is confidential, legally privileged or proprietary. It is intended only for
> use by the intended recipient. If you are not the intended recipient or the
> person responsible for delivering the message to the intended recipient, be
> advised that you have received this message in error. Any dissemination,
> copying, use or re-transmission of this message or attachment, or the
> disclosure of any information therein, is strictly forbidden. BlueScope
> Steel Limited does not represent or guarantee that this message or
> attachment is free of errors, virus or interference.
>
> If you have received this message in error please notify the sender
> immediately and delete the message. Any views expressed in this email are
> not necessarily the views of BlueScope Steel Limited.
>
>
>
>
- 2e.
-
Re: Packing list dengan kondisi tertentu secara otomatis
Posted by: "Sodikin, Akhmad" akhmad.sodikin@bluescopesteel.com
Wed Sep 14, 2011 3:07 am (PDT)
OK Mr. Kid :) saya akan pelajari dulu...trm kasih sebelumnya
Best Regards,
Sodik
PT. Bluescope Lysaght Indonesia
_____________________ _________ __
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Mr. Kidcom
Sent: Wednesday, September 14, 2011 4:04 PM
Bukannya tinggal dikembangkan dengan memasang fprmula filter ?
Kid.
- 3a.
-
Re: Mencari rata-rata persentase
Posted by: "Budhi Cahyanto" budhi.cahyanto@id.certissecurity.com
Tue Sep 13, 2011 9:08 pm (PDT)
Mr Kid,
Thanks untuk formulasinya.
Salam.
_____
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mr. Kid
Sent: Tuesday, September 13, 2011 2:38 PM
Hai Budhi,
Sheet1.
=IF(A2<"T",6,3)%*(B2+C2)
Sheet2. Array Formula (jangan lupa CSE)
=AVERAGE(IF($B$3:$M$3= B$14,$B4: $M4/$D4:$ O4))
Salam.
Kid.
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar