[belajar-excel] Digest Number 2523

Milis Belajar Microsoft Excel Group

6 New Messages

Digest #2523

1a

Re: Data Group menjadi Grey by "hendrik karnadi" hendrikkarnadi

2a

Re: Bls: [belajar-excel] Combobox tidak bekerja semestinya by "hendrik karnadi" hendrikkarnadi

2b

Re: Bls: [belajar-excel] Combobox tidak bekerja semestinya by "De Premor" de.premor

2c

Bls: Bls: [belajar-excel] Combobox tidak bekerja semestinya by "neza ibaneza" nezaibaneza

3a

Bls: [belajar-excel] rumus yang tidak running by "neza ibaneza" nezaibaneza

4a

Bls: [belajar-excel] Menghitung Rombongan Belajar Siswa by "ISMI YATI" dik_is

Messages

1a

Re: Data Group menjadi Grey

Mon Sep 9, 2013 12:51 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Lampiran filenya oversize, jadi harus dikompres. kompres pake Zip lebih gede lagi.
Kalau sudah "terlihat"; perbedaannya, file ga perlu dilampirkan lagi kan?

Salam,
HK

________________________________
From: Ahmad Adriansyah <ahmad007832@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 14:21
Subject: Re: [belajar-excel] Data Group menjadi Grey


 
Terima kasih Pak Hendrik atas solusinya, cuma filenya gak bisa dibuka Pak,
kebetulan gak ada aplikasi Rar-nya he..he..

Rgds,
Ahmad A
Pada 9 Sep 2013 14.17, "hendrik karnadi" <hendrikkarnadi@yahoo.com> menulis:

> **
>
>
> Coba klik salah satu sheet untuk menghilangkan grup selectionnya (lihat
> lampiran Sheet digrup dan tidak digruo).
>
> Lihat perbedaaan tambpilan posisi Sheet Tab pada bagian bawah dan menu
> pada bagian atas.
>
> Salam,
> HK
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

2a

Re: Bls: [belajar-excel] Combobox tidak bekerja semestinya

Mon Sep 9, 2013 12:59 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Mungkin masalahnya ada pada penulisan "Offset" untuk merujuk alamat "listdata";.
Silakan pelajari file warisan si Mbah mengenai visual Offset (terlampir).

Salam,
HK

________________________________
From: neza ibaneza <nezaibaneza@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 9 September 2013, 9:13
Subject: Bls: [belajar-excel] Combobox tidak bekerja semestinya


dear all master,
tp setelah saya buat seperti itu, pada properties combobox1, name listdata tidak mau  masuk (tersimpan)...
mohon pencerahannya..

Neza  

________________________________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 9 September 2013 9:19
Judul: Re: [belajar-excel] Combobox tidak bekerja semestinya


Coba datanya dibuat name rangenya dulu, misal kasih nama LISTDATA

Kemudian di Properti si ComboBoxnya, di item Property ListFillRange
isikan LISTDATA sebagai FillRange nya

Kalau ingin datanya dinamis mengikuti angka pada subtotal yang di
Cell B1, maka ListData nya dibuat formula
=offset(Sheet1!$B$3,0,0,Sheet1!$B$1)

On 08-09-2013 15:51, neza ibaneza wrote:

 
>Salam B-Excel
>Saya punya case untuk program ini adalah
>combo box, entah kenapa data list di sheet1 g kelihatan di
combobox di sheet2...
>file terlampir.. (apa salah code ya???)
>
>salam�
>Neza�
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

2b

Re: Bls: [belajar-excel] Combobox tidak bekerja semestinya

Mon Sep 9, 2013 1:18 am (PDT) . Posted by:

"De Premor" de.premor

Terlampir sesuai yang saya maksud pada post sebelumnya, dibagian mananya
yang tidak mau masuk ya ?, cara ini sama sekali tidak memerlukan bantuan
VBA jadi si excel saja yang ngerjain

On 09-09-2013 9:13, neza ibaneza wrote:
> dear all master,
> tp setelah saya buat seperti itu, pada properties combobox1, name
> listdata tidak mau masuk (tersimpan)...
> mohon pencerahannya..
>
> Neza
>
> ----------------------------------------------------------
> *Dari:* De Premor <de@premor.net>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 9 September 2013 9:19
> *Judul:* Re: [belajar-excel] Combobox tidak bekerja semestinya
>
> Coba datanya dibuat name rangenya dulu, misal kasih nama LISTDATA
>
> Kemudian di Properti si ComboBoxnya, di item Property ListFillRange
> isikan LISTDATA sebagai FillRange nya
>
>
>
> Kalau ingin datanya dinamis mengikuti angka pada subtotal yang di Cell
> B1, maka ListData nya dibuat formula =offset(Sheet1!$B$3,0,0,Sheet1!$B$1)
>
>
>
> On 08-09-2013 15:51, neza ibaneza wrote:
>> Salam B-Excel
>> Saya punya case untuk program ini adalah
>> combo box, entah kenapa data list di sheet1 g kelihatan di combobox
>> di sheet2...
>> file terlampir.. (apa salah code ya???)
>>
>> salam�
>> Neza�
>>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

2c

Bls: Bls: [belajar-excel] Combobox tidak bekerja semestinya

Mon Sep 9, 2013 2:10 am (PDT) . Posted by:

"neza ibaneza" nezaibaneza

Thanks banget Master Hendrik

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 9 September 2013 15:59
Judul: Re: Bls: [belajar-excel] Combobox tidak bekerja semestinya


Mungkin masalahnya ada pada penulisan "Offset" untuk merujuk alamat "listdata";.
Silakan pelajari file warisan si Mbah mengenai visual Offset (terlampir).

Salam,
HK

________________________________
From: neza ibaneza <nezaibaneza@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 9 September 2013, 9:13
Subject: Bls: [belajar-excel] Combobox tidak bekerja semestinya


dear all master,
tp setelah saya buat seperti itu, pada properties combobox1, name listdata tidak mau  masuk (tersimpan)...
mohon pencerahannya..

Neza  

________________________________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 9 September 2013 9:19
Judul: Re: [belajar-excel] Combobox tidak bekerja semestinya


Coba datanya dibuat name rangenya dulu, misal kasih nama LISTDATA

Kemudian di Properti si ComboBoxnya, di item Property ListFillRange
isikan LISTDATA sebagai FillRange nya

Kalau ingin datanya dinamis mengikuti angka pada subtotal yang di
Cell B1, maka ListData nya dibuat formula
=offset(Sheet1!$B$3,0,0,Sheet1!$B$1)

On 08-09-2013 15:51, neza ibaneza wrote:

 
>Salam B-Excel
>Saya punya case untuk program ini adalah
>combo box, entah kenapa data list di sheet1 g kelihatan di
combobox di sheet2...
>file terlampir.. (apa salah code ya???)
>
>salam�
>Neza�
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

3a

Bls: [belajar-excel] rumus yang tidak running

Mon Sep 9, 2013 1:05 am (PDT) . Posted by:

"neza ibaneza" nezaibaneza

terima kasih master tas jawabannya...

salam 
Neza

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 9 September 2013 12:45
Judul: Re: [belajar-excel] rumus yang tidak running


Maaf, rupanya sdh dikoreksi sebelum ditanyakan.

Yang ini pas dan mantab (20 saya ganti 19, hanya agar kolomnya sesuai dengan keinginan user).

Saya lampirkan hasil tesnya.

Terima kasih Miss, Jan, Pak Dwint dan Pak De atas variasi codenya.

Salam,
HK

________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 11:06
Subject: Re: [belajar-excel] rumus yang tidak running


 
maaf.. koreksi sedikit

    Dim rgNpb As Range, cel As Range
    Dim lRow As Long, lCel As Long
    
    lRow = Cells(Rows.Count, 2).End(xlUp).Row
    Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
    For Each cel In rgNpb
        lCel = cel.Row
        cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" & lCel & ",B" & lCel & ")")
    Next cel

tadi salah ambil kolom.. seharusnya dari kolom B tetapi salah ambil menjadi kolom J

yang warna hijau adalah script yang dimunculkan kembali
yang warna biru dalam blok hijau adalah cara penggunaan Evaluate-nya

Wassalam,

-dwint-

Pada 9 September 2013 10.39, dwint ruswanto <dwint.ruswanto@gmail.com> menulis:

izin pinjam script dari Miss Jan dan modifikasi sedikit ya..
>
>
>script awal:
>
>
>    Dim rgNpb As Range, cel As Range, rgCount As Range
>    Dim lRow As Long, lCel As Long
>    Dim iCount As Integer
>    
>    lRow = Cells(Rows.Count, 2).End(xlUp).Row
>    Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
>    For Each cel In rgNpb
>        lCel = cel.Row
>        Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
>        iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>        cel.Offset(, 20).Value = cel.Value & "-" & iCount
>    Next cel
>
>
>
>
>script hasil modifikasi:
>
>
>    Dim rgNpb As Range, cel As Range
>    Dim lRow As Long
>    
>    lRow = Cells(Rows.Count, 2).End(xlUp).Row
>    Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
>    For Each cel In rgNpb
>        cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(J$6:J6,J6)")
>    Next cel
>
>
>
>
>yang diwarnai merah adalah script asli yang dihilangkan
>yang warna biru dalam blok hijau adalah script pengganti
>
>
>btw, foto profilenya Miss Jan yang baru keren 
>
>
>Wassalam,
>
>
>-dwint-
>
>
>
>Pada 8 September 2013 11.52, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>
>
>
>> 
>>Pak Dwint,
>>Jika iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value) diganti dengan iCount = Evaluate("=CountIf(rgCount, cel.Value") maka ketika macro dijalankan akan timbul error "Type mismatch".
>>
>>
>>Salam,
>>HK
>>
>>
>>
>>________________________________
>> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Sunday, 8 September 2013, 5:34
>>
>>Subject: Re: [belajar-excel] rumus yang tidak running
>>
>>
>>
>> 
>>mungkin seperti ini
>>Cells("alamat_celnya").Value = Evaluate("=formulanya";)
>>jadi script yang berbunyi
>>Application.WorksheetFuntion.Formulanya(blablabla)
>>langsung diganti dengan Evaluate
>>secara logika script tersebut akan berjalan lebih cepat karena:
>>memangkas waktu yang digunakan untuk memanggil formula di worksheet untuk diaplikasikan ke dalam vba, karena prosesnya langsung digantikan oleh fungsi internal vba itu sendiri
>>kira2 seperti itu.. untuk pembuktian mungkin dapat diuji kecepatan proses dengan beberapa baris data yabg lebih banyak.
>>maaf jika penjelasannya berantakan, karena diketik menggunakan handphone.
>>cmiiw.
>>-dwint-
>>On Sep 7, 2013 10:17 PM, "hendrik karnadi" <hendrikkarnadi@yahoo.com> wrote:
>>
>>
>>> 
>>>Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita yang bernama "Evaluate";.
>>>
>>>
>>>Salam,
>>>HK
>>>
>>>
>>>
>>>________________________________
>>> From: Mr. Kid <mr.nmkid@gmail.com>
>>>To: BeExcel <belajar-excel@yahoogroups.com>
>>>Sent: Saturday, 7 September 2013, 19:10
>>>Subject: Re: [belajar-excel] rumus yang tidak running
>>>
>>>
>>>
>>> 
>>>Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu bisa lebih cepat.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>>>
>>>
>>>> 
>>>>Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan For....., dengan meminjam codes dari MJR (boleh kan Miss?),
>>>>maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat dimana No. NPB, No. PR dan No. PO mau diletakkan.
>>>>
>>>>
>>>>Codes pada VBE Sheet3(tabel):
>>>>Option Explicit
>>>>
>>>>
>>>>
>>>>Private Sub Worksheet_Change(ByVal Target As Range)
>>>>    If Target.Address = "$U$5" Then
>>>>        If Target.Count = 1 Then
>>>>            With Target
>>>>                If .Value = "No. NPB" Then
>>>>                    Call NPB
>>>>                ElseIf .Value = "No. PR" Then
>>>>                    Call PR
>>>>                ElseIf .Value = "No. PO" Then
>>>>                    Call PO
>>>>                
>>>>                End If
>>>>            End With
>>>>        End If
>>>>    End If
>>>>End Sub
>>>>
>>>>
>>>>Codes pada Module1 (setelah insert module):
>>>>Option Explicit
>>>>
>>>>
>>>>
>>>>Sub NPB()
>>>>    Dim rgNpb As Range, cel As Range, rgCount As Range
>>>>    Dim lRow As Long, lCel As Long
>>>>    Dim iCount As Integer
>>>>    
>>>>    lRow = Cells(Rows.Count, 2).End(xlUp).Row
>>>>    Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
>>>>    For Each cel In rgNpb
>>>>        lCel = cel.Row
>>>>        Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
>>>>        iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>>>>        cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya tertulis 20)
>>>>    Next cel
>>>>End Sub
>>>>
>>>>
>>>>Sub PR()
>>>>    Dim rgPR As Range, cel As Range, rgCount As Range
>>>>    Dim lRow As Long, lCel As Long
>>>>    Dim iCount As Integer
>>>>    
>>>>    lRow = Cells(Rows.Count, 10).End(xlUp).Row '2 diganti 10
>>>>    Set rgPR = Range(Cells(6, 10), Cells(lRow, 10)) '2 diganti 10
>>>>    For Each cel In rgPR
>>>>        lCel = cel.Row
>>>>        Set rgCount = Range(Cells(6, 10), Cells(lCel, 10)) '2 diganti 10
>>>>        iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>>>>        cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
>>>>    Next cel
>>>>End Sub
>>>>
>>>>
>>>>Sub PO()
>>>>    Dim rgPO As Range, cel As Range, rgCount As Range
>>>>    Dim lRow As Long, lCel As Long
>>>>    Dim iCount As Integer
>>>>    
>>>>    lRow = Cells(Rows.Count, 16).End(xlUp).Row '2 diganti 16
>>>>    Set rgPO = Range(Cells(6, 16), Cells(lRow, 16)) '2 diganti 16
>>>>    For Each cel In rgPO
>>>>        lCel = cel.Row
>>>>        Set rgCount = Range(Cells(6, 16), Cells(lCel, 16)) '2 diganti 16
>>>>        iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>>>>        cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
>>>>    Next cel
>>>>End Sub
>>>>
>>>>
>>>>Semoga bermanfaat (pinjam slogan pak Anton).
>>>>
>>>>
>>>>Salam,
>>>>HK
>>>>
>>>>
>>>>File dilampirkan untuk uji materi
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: neza ibaneza <nezaibaneza@yahoo.co.id>
>>>>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>>>Sent: Friday, 6 September 2013, 7:19
>>>>Subject: [belajar-excel] rumus yang tidak running
>>>>
>>>>
>>>>
>>>> 
>>>>Salam B-Excel
>>>>
>>>>
>>>>Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada sebagian yang tidak running
>>>>masalahnya dimana ya?
>>>>
>>>>
>>>>Salam
>>>>Neza
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (22) . Top ^

4a

Bls: [belajar-excel] Menghitung Rombongan Belajar Siswa

Mon Sep 9, 2013 1:11 am (PDT) . Posted by:

"ISMI YATI" dik_is

terima kasih banyak mr.kid atas bantuan dari mr.kid akhirnya pekerjaan saya sangat terbantu.

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 6 September 2013 6:09
Judul: Re: [belajar-excel] Menghitung Rombongan Belajar Siswa


 
Hai Ismi,

Coba file terlampir.

Wassalam,
Kid.

2013/9/5 ISMI YATI <dik_is@yahoo.co.id>

> 
>Teman-teman groups,
>
>kami datang membawa permasalahan yang sampai
sekarang kami belum bisa memecahkannya, mohon bantuan dari teman-teman
untuk memecahkan masalah yang kami bawa.
>
>Keterangan :
>Tabel 1 adalah tabel sumber data yang kami punya.
>
>dari data di Tabel 1 tersebut, kami ingin mengisikan form di Tabel 2
>Kami menemukan kesulitan di rumusnya karena data siswanya teramat banyakkk semoga teman-teman bisa membantu kami dalam perumusannya jadi meringankan kerja kami.
>
>Mohon bantuan teman-teman dan terima kasih sebelum dan sesudahnya. 

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

17 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>