Minggu, 08 September 2013

[belajar-excel] Digest Number 2521

15 New Messages

Digest #2521
1a
Combobox tidak bekerja semestinya by "neza ibaneza" nezaibaneza
1b
2a
hapus tabel????? by "Shenly" shenly_excelmania
2b
Re: hapus tabel????? by "De Premor" de.premor
3a
Bls: [belajar-excel] Menghilangkan simbol pagar by "ghozi alkatiri" ghozialkatiri
4a
4b
Re: Menghilangkan simbol pagar by "De Premor" de.premor
4c
Re: Menghilangkan simbol pagar by "Heri Pamungkas ( Gmail )" dchoosen88
4f
Re: Menghilangkan simbol pagar by "summonery" summonery
4g
Re: Menghilangkan simbol pagar by "summonery" summonery
5a
Re: Terbilang Mata Uang by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
6a
Re: rumus yang tidak running by "dwint ruswanto"
6b
Re: rumus yang tidak running by "dwint ruswanto"

Messages

Sun Sep 8, 2013 7:38 am (PDT) . Posted by:

"neza ibaneza" nezaibaneza

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�

Sun Sep 8, 2013 6:20 pm (PDT) . Posted by:

"De Premor" de.premor

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

Sun Sep 8, 2013 7:39 am (PDT) . Posted by:

"Shenly" shenly_excelmania

Assalamu'alaikum (lebih bagus daripada Mikum)
mau tanya, gimana yah delet Tabel di Name Manager,�
saya coba delet ko ga bisa

makasih
�
Salam
Shenly ^^*

Sun Sep 8, 2013 4:23 pm (PDT) . Posted by:

"De Premor" de.premor

Musti kudu diconvert dulu menjadi data range, caranya, pilih dulu salah
satu cell didalam tabel untuk mengaktikan menu Table Tools
Dari menu tersebut dibawahnya ada tab bernama Design

Kemudian cari kata2 => "Convert To Range" kalau sudah ketemu dipencet
aja itu

Pada 08/09/2013 11:51, Shenly menulis:
>
> Assalamu'alaikum (lebih bagus daripada Mikum)
> mau tanya, gimana yah delet Tabel di Name Manager,�
> saya coba delet ko ga bisa
>
> makasih
> �
> Salam
> Shenly ^^*
>
>

Sun Sep 8, 2013 4:48 pm (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

coba tambahkan formulanya mennjadi :
=IF(COUNTA(A2:D2)=0,"",(D2+C2)-SUM(A2:B2)-1)

wassalam

Ghozi Alkatiri

________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 14:35
Judul: [belajar-excel] Menghilangkan simbol pagar


 
Dear all,
Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula, saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
Mohon bantuan dan pencerahannya, attach terlampir
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®

Sun Sep 8, 2013 5:52 pm (PDT) . Posted by:

"Bagus" bagus4bls

Dear Tiny;

Coba masuk ke format Cell.
Pada tab Number, Pilih general.

Wassalam

~ Bagus ~

----- Original Message -----
From: hartini_80@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Sunday, September 08, 2013 2:35 PM
Subject: [belajar-excel] Menghilangkan simbol pagar

Dear all,
Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula, saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
Mohon bantuan dan pencerahannya, attach terlampir
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®

Sun Sep 8, 2013 6:24 pm (PDT) . Posted by:

"De Premor" de.premor

Coba rumusnya ditambahi tes tesan buat ngecek sel A2 s/d D2 nya

*=IF(OR(ISBLANK(A2),ISBLANK(B2),ISBLANK(C2),ISBLANK(D2)),"",(D2+C2)-SUM(A2:B2)-1)*

Formula diatas akan melakukan pemeriksaan mulai cell A2 sampai D2, jika
salah satunya belum diisi maka hasilnya akan blank

On 08-09-2013 14:35, hartini_80@yahoo.co.id wrote:
>
> Dear all,
> Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
> saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> Mohon bantuan dan pencerahannya, attach terlampir
> Terima kasih
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
>

Sun Sep 8, 2013 6:46 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88

Semangat pagi,

Mungkin kalau casenya ######## ketika semua blank
bisa di ganti Format Numbernya menjadi *_ddd, dd.mmm.yy;""_*
Bila settingan komputer anda Eng ganti karakter ; menjadi ,

Semoga work ya,.

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain

Salam Excell-ent

On 08/09/2013 14:35, hartini_80@yahoo.co.id wrote:
>
> Dear all,
> Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
> saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> Mohon bantuan dan pencerahannya, attach terlampir
> Terima kasih
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
>

Sun Sep 8, 2013 7:22 pm (PDT) . Posted by:

hartini_80

Terima kasih pak, akan saya coba dulu
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Heri Pamungkas ( Gmail )" <ghery.dharma@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 09 Sep 2013 08:58:45
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan simbol pagar

Semangat pagi,

Mungkin kalau casenya ######## ketika semua blank
bisa di ganti Format Numbernya menjadi *_ddd, dd.mmm.yy;""_*
Bila settingan komputer anda Eng ganti karakter ; menjadi ,

Semoga work ya,.

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain

Salam Excell-ent


On 08/09/2013 14:35, hartini_80@yahoo.co.id wrote:
>
> Dear all,
> Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
> saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> Mohon bantuan dan pencerahannya, attach terlampir
> Terima kasih
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
>

Sun Sep 8, 2013 7:23 pm (PDT) . Posted by:

hartini_80

Terima kasih pak, saya coba dulu ya
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: De Premor <de@premor.net>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 09 Sep 2013 08:23:10
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan simbol pagar

Coba rumusnya ditambahi tes tesan buat ngecek sel A2 s/d D2 nya

*=IF(OR(ISBLANK(A2),ISBLANK(B2),ISBLANK(C2),ISBLANK(D2)),"",(D2+C2)-SUM(A2:B2)-1)*

Formula diatas akan melakukan pemeriksaan mulai cell A2 sampai D2, jika
salah satunya belum diisi maka hasilnya akan blank


On 08-09-2013 14:35, hartini_80@yahoo.co.id wrote:
>
> Dear all,
> Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
> saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> Mohon bantuan dan pencerahannya, attach terlampir
> Terima kasih
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
>


Sun Sep 8, 2013 7:51 pm (PDT) . Posted by:

"summonery" summonery

Coba juga,
=IF((D2+C2)-SUM(A2:B2)-1,"",1)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, hartini_80@... wrote:
>
> Dear all,
> Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> Mohon bantuan dan pencerahannya, attach terlampir
> Terima kasih
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>

Sun Sep 8, 2013 8:16 pm (PDT) . Posted by:

"summonery" summonery

Ooops,, ada yang salah dengan postingan saya sebelumnya, mohon
diabaikan.Opsi
lainnya:=IF(((D4+C4)-SUM(A4:B4)-1)<0,"",(D4+C4)-SUM(A4:B4)-1)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "summonery&quot; wrote:
>
> Coba juga,
> =IF((D2+C2)-SUM(A2:B2)-1,"",1)
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, hartini_80@ wrote:
> >
> > Dear all,
> > Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula,
> saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
> > Mohon bantuan dan pencerahannya, attach terlampir
> > Terima kasih
> > Salam
> > Tiny
> > Powered by Telkomsel BlackBerry®
> >
>

Sun Sep 8, 2013 6:20 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Dear be-Exel,

untuk melengkapi file yang sudah ada, terlampir adalah fungsi terbilang
tanpa menggunakan vba dalam bahasa Indonesia dan bahasa inggris.
mohon bantuannya jika masih ditemukan kesalahan.

terimakasih
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: Friday, September 06, 2013 10:37 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Terbilang Mata Uang

 
coba jalan-jalan ke sini
http://groups.yahoo.com/neo/groups/belajar-excel/files

dan cari segala sesuatu yang berbunyi Terbilang

[dibutuhkan id Yahoo! untuk dapat melakukan download file]

-Miss Jan Raisin-

Sun Sep 8, 2013 8:39 pm (PDT) . Posted by:

"dwint ruswanto"

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&quot;).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
>
>
>
>
>
>
>
>
>

Sun Sep 8, 2013 9:06 pm (PDT) . Posted by:

"dwint ruswanto"

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&quot;).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
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 21.06

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)