[belajar-excel] Digest Number 3600

Milis Belajar Microsoft Excel Group

8 Messages

Digest #3600

1a

Re: Mengatur Fill berdasarkan data di Cell yg berbeda by "Mr. Kid" nmkid.family@ymail.com

1b

Re: Mengatur Fill berdasarkan data di Cell yg berbeda by "Denny" denny_y86

2a

Mengambil data sesuai kriteria dengan macro by "Walsoyo"

2b

Re: Mengambil data sesuai kriteria dengan macro [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

2c

Re: Mengambil data sesuai kriteria dengan macro [1 Attachment] by "Walsoyo"

3a

Re: Menghitung jumlah count aktif by "omeza" icat_omez@ymail.com

3b

Re: Menghitung jumlah count aktif by "omeza" icat_omez@ymail.com

3c

Re: Menghitung jumlah count aktif by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Mengatur Fill berdasarkan data di Cell yg berbeda

Wed Oct 14, 2015 2:13 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Denny,

Coba manfaatkan fitur Conditional Formatting (sebut saja CF)
Caranya :
1. blok B1 dan B2 (pastikan cell B1 yang diklik pertama kali saat memblok
cells)
2. ribbon Home -> group Styles -> Condtiional Formatting -> New Rule ->
muncul dialog window CF
3. pilih Use Formula blablabla
4. isi area penulisan formula (yang bunyinya Format blabla formula is true
atau sebangsanya) bunyi formula berikut :
=$a1="Biaya"
5. klik tombol Format -> tab Fill -> pilih warna merah -> tekan OK (kembali
ke dialog window CF) -> tekan OK (kembali ke worksheet)
6. Ulangi lagi dari nomor 1 untuk membuat CF yang warna hijau dengan bunyi
formula yang disesuaikan dan pilihan warna yang juga sesuai kebutuhan.

Wassalam,
Kid

2015-10-14 14:58 GMT+07:00 denny_y86@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> selamat siang master..
>
> Mohon bantuannya.
>
> -cell A1 saya ketik Biaya dan di cell B1 fill berubah menjadi warna Merah.
> -cell A2 saya ketik pendapatan dan di Cell B2 berubah menjadi warna hijau.
>
> Mohon bantuannya.
> Terima kasih.
>
> Salam
>
>

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

1b

Re: Mengatur Fill berdasarkan data di Cell yg berbeda

Wed Oct 14, 2015 3:49 am (PDT) . Posted by:

"Denny" denny_y86

Noted.. Trims alot..

Setelah melakukan langkah" d bawah, saya atur lagi dari CF - manage rules - pilih this worksheet- pengaturan apllies to ulang..

Trima trims..

> On Oct 14, 2015, at 16:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Hai Denny,
>
> Coba manfaatkan fitur Conditional Formatting (sebut saja CF)
> Caranya :
> 1. blok B1 dan B2 (pastikan cell B1 yang diklik pertama kali saat memblok cells)
> 2. ribbon Home -> group Styles -> Condtiional Formatting -> New Rule -> muncul dialog window CF
> 3. pilih Use Formula blablabla
> 4. isi area penulisan formula (yang bunyinya Format blabla formula is true atau sebangsanya) bunyi formula berikut :
> =$a1="Biaya"
> 5. klik tombol Format -> tab Fill -> pilih warna merah -> tekan OK (kembali ke dialog window CF) -> tekan OK (kembali ke worksheet)
> 6. Ulangi lagi dari nomor 1 untuk membuat CF yang warna hijau dengan bunyi formula yang disesuaikan dan pilihan warna yang juga sesuai kebutuhan.
>
> Wassalam,
> Kid
>
>
>
> 2015-10-14 14:58 GMT+07:00 denny_y86@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>> selamat siang master..
>>
>> Mohon bantuannya.
>>
>> -cell A1 saya ketik Biaya dan di cell B1 fill berubah menjadi warna Merah.
>> -cell A2 saya ketik pendapatan dan di Cell B2 berubah menjadi warna hijau.
>>
>> Mohon bantuannya.
>> Terima kasih.
>>
>> Salam
>>
>
>

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

2a

Mengambil data sesuai kriteria dengan macro

Wed Oct 14, 2015 8:22 am (PDT) . Posted by:

"Walsoyo"

Saya punya masalah dalam mengambil data

kodenya cukup panjang. sebagai contoh file terlampir. adapun kode yang
saya pakai sbb:

Sub AmbilData()
On Error Resume Next
Dim rData As Range, rHasil As Range, wsa As Range, wsb As Range,_
wsc As Range, wsd As Range, wse As Range, wsf As Range, wsg As Range, _
wsh As Range, wsi As Range, wsj As Range, wsk As Range, wss As Range
Dim i As Long, r As Long
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Set rData = Sheets("ANGGARAN").Range("B4").CurrentRegion
Set rHasil = Sheets("SPP").Range("B16").CurrentRegion
Set wsa = Sheets("ANGGARAN").Range("K2").Value
Set wsb = Sheets("ANGGARAN").Range("L2").Value
Set wsc = Sheets("ANGGARAN").Range("M2").Value
Set wsd = Sheets("ANGGARAN").Range("N2").Value
Set wse = Sheets("ANGGARAN").Range("O2").Value
Set wsf = Sheets("ANGGARAN").Range("P2").Value
Set wsg = Sheets("ANGGARAN").Range("Q2").Value
Set wsh = Sheets("ANGGARAN").Range("R2").Value
Set wsi = Sheets("ANGGARAN").Range("S2").Value
Set wsj = Sheets("ANGGARAN").Range("T2").Value
Set wsk = Sheets("ANGGARAN").Range("U2").Value
Set wss = Sheets("ANGGARAN").Range("BF2").Value

ThisWorkbook.Sheets("SPP").Activate
rHasil.Offset(1, 0).ClearContents
Sheets("SPP").Range("A16:k100") = ""
Sheets("SPP").Range("A16:k100").HorizontalAlignment = xlLeft

If rData.Range("BN1").Value >= 1 Then

r = 0
For i = 1 To rData.Rows.Count
If rData(i, 68) = 1 Then
r = r + 1
rHasil(r, 1).Value = rData(i, 2).Value
rHasil(r, 4).Value = rData(i, 10).Value

Mulai Tidak Jalan Hasilnya selalu if yang paling bawah yaitu >> (
If wss = wsk Then
rHasil(r, 5).Value = rData(i, 32).Value
rHasil(r, 6).Value = rData(i, 45).Value )>>
End If

Tidak berfungsi
If wss = wsa Then
rHasil(r, 5).Value = rData(i, 22).Value
rHasil(r, 6).Value = rData(i, 35).Value
End If
If wss = wsb Then
rHasil(r, 5).Value = rData(i, 23).Value
rHasil(r, 6).Value = rData(i, 36).Value
End If
If wss = wsc Then
rHasil(r, 5).Value = rData(i, 24).Value
rHasil(r, 6).Value = rData(i, 37).Value
End If
If wss = wsd Then
rHasil(r, 5).Value = rData(i, 25).Value
rHasil(r, 6).Value = rData(i, 38).Value
End If
If wss = wse Then
rHasil(r, 5).Value = rData(i, 26).Value
rHasil(r, 6).Value = rData(i, 39).Value
End If
If wss = wsf.Value Then
rHasil(r, 5).Value = rData(i, 27).Value
rHasil(r, 6).Value = rData(i, 40).Value
End If
If wss = wsg Then
rHasil(r, 5).Value = rData(i, 28).Value
rHasil(r, 6).Value = rData(i, 41).Value
End If
If wss = wsh Then
rHasil(r, 5).Value = rData(i, 29).Value
rHasil(r, 6).Value = rData(i, 42).Value
End If
If wss = wsi Then
rHasil(r, 5).Value = rData(i, 30).Value
rHasil(r, 6).Value = rData(i, 43).Value
End If
Sampai sini dan dan hasilnya selalu yang bawah

If wss = wsj Then
rHasil(r, 5).Value = rData(i, 31).Value
rHasil(r, 6).Value = rData(i, 44).Value
End If
If wss = wsk Then
rHasil(r, 5).Value = rData(i, 32).Value
rHasil(r, 6).Value = rData(i, 45).Value
End If
rHasil(r, 7).Value = c.Offset(0, 2).Value
rHasil(r, 8).FormulaR1C1 = "=RC[-2]+RC[-1]"
rHasil(r, 9).Value = "=RC[-4]-RC[-1]"
End If
Next i
End If
End Sub

Kenapa

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

2b

Re: Mengambil data sesuai kriteria dengan macro [1 Attachment]

Wed Oct 14, 2015 4:48 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Moga-moga file terlampir bisa memberi ide.

On Wed, Oct 14, 2015 at 10:05 PM, Walsoyo soyomakmur@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Saya punya masalah dalam mengambil data
>
> kodenya cukup panjang. sebagai contoh file terlampir. adapun kode yang
> saya pakai sbb:
>
> Sub AmbilData()
> On Error Resume Next
> Dim rData As Range, rHasil As Range, wsa As Range, wsb As Range,_
> wsc As Range, wsd As Range, wse As Range, wsf As Range, wsg As Range, _
> wsh As Range, wsi As Range, wsj As Range, wsk As Range, wss As Range
> Dim i As Long, r As Long
> Application.EnableEvents = False
> Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
> Set rData = Sheets("ANGGARAN").Range("B4").CurrentRegion
> Set rHasil = Sheets("SPP").Range("B16").CurrentRegion
> Set wsa = Sheets("ANGGARAN").Range("K2").Value
> Set wsb = Sheets("ANGGARAN").Range("L2").Value
> Set wsc = Sheets("ANGGARAN").Range("M2").Value
> Set wsd = Sheets("ANGGARAN").Range("N2").Value
> Set wse = Sheets("ANGGARAN").Range("O2").Value
> Set wsf = Sheets("ANGGARAN").Range("P2").Value
> Set wsg = Sheets("ANGGARAN").Range("Q2").Value
> Set wsh = Sheets("ANGGARAN").Range("R2").Value
> Set wsi = Sheets("ANGGARAN").Range("S2").Value
> Set wsj = Sheets("ANGGARAN").Range("T2").Value
> Set wsk = Sheets("ANGGARAN").Range("U2").Value
> Set wss = Sheets("ANGGARAN").Range("BF2").Value
>
> ThisWorkbook.Sheets("SPP").Activate
> rHasil.Offset(1, 0).ClearContents
> Sheets("SPP").Range("A16:k100") = ""
> Sheets("SPP").Range("A16:k100").HorizontalAlignment = xlLeft
>
> If rData.Range("BN1").Value >= 1 Then
>
> r = 0
> For i = 1 To rData.Rows.Count
> If rData(i, 68) = 1 Then
> r = r + 1
> rHasil(r, 1).Value = rData(i, 2).Value
> rHasil(r, 4).Value = rData(i, 10).Value
>
> Mulai Tidak Jalan Hasilnya selalu if yang paling bawah yaitu >> (
> If wss = wsk Then
> rHasil(r, 5).Value = rData(i, 32).Value
> rHasil(r, 6).Value = rData(i, 45).Value )>>
> End If
>
> Tidak berfungsi
> If wss = wsa Then
> rHasil(r, 5).Value = rData(i, 22).Value
> rHasil(r, 6).Value = rData(i, 35).Value
> End If
> If wss = wsb Then
> rHasil(r, 5).Value = rData(i, 23).Value
> rHasil(r, 6).Value = rData(i, 36).Value
> End If
> If wss = wsc Then
> rHasil(r, 5).Value = rData(i, 24).Value
> rHasil(r, 6).Value = rData(i, 37).Value
> End If
> If wss = wsd Then
> rHasil(r, 5).Value = rData(i, 25).Value
> rHasil(r, 6).Value = rData(i, 38).Value
> End If
> If wss = wse Then
> rHasil(r, 5).Value = rData(i, 26).Value
> rHasil(r, 6).Value = rData(i, 39).Value
> End If
> If wss = wsf.Value Then
> rHasil(r, 5).Value = rData(i, 27).Value
> rHasil(r, 6).Value = rData(i, 40).Value
> End If
> If wss = wsg Then
> rHasil(r, 5).Value = rData(i, 28).Value
> rHasil(r, 6).Value = rData(i, 41).Value
> End If
> If wss = wsh Then
> rHasil(r, 5).Value = rData(i, 29).Value
> rHasil(r, 6).Value = rData(i, 42).Value
> End If
> If wss = wsi Then
> rHasil(r, 5).Value = rData(i, 30).Value
> rHasil(r, 6).Value = rData(i, 43).Value
> End If
> Sampai sini dan dan hasilnya selalu yang bawah
>
> If wss = wsj Then
> rHasil(r, 5).Value = rData(i, 31).Value
> rHasil(r, 6).Value = rData(i, 44).Value
> End If
> If wss = wsk Then
> rHasil(r, 5).Value = rData(i, 32).Value
> rHasil(r, 6).Value = rData(i, 45).Value
> End If
> rHasil(r, 7).Value = c.Offset(0, 2).Value
> rHasil(r, 8).FormulaR1C1 = "=RC[-2]+RC[-1]"
> rHasil(r, 9).Value = "=RC[-4]-RC[-1]"
> End If
> Next i
> End If
> End Sub
>
> Kenapa
>
>

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

2c

Re: Mengambil data sesuai kriteria dengan macro [1 Attachment]

Wed Oct 14, 2015 7:40 pm (PDT) . Posted by:

"Walsoyo"

Terimakasih semoga dapat saya kembangkan

2015-10-15 6:48 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Moga-moga file terlampir bisa memberi ide.
>
> On Wed, Oct 14, 2015 at 10:05 PM, Walsoyo soyomakmur@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Saya punya masalah dalam mengambil data
>>
>> kodenya cukup panjang. sebagai contoh file terlampir. adapun kode yang
>> saya pakai sbb:
>>
>> Sub AmbilData()
>> On Error Resume Next
>> Dim rData As Range, rHasil As Range, wsa As Range, wsb As Range,_
>> wsc As Range, wsd As Range, wse As Range, wsf As Range, wsg As Range, _
>> wsh As Range, wsi As Range, wsj As Range, wsk As Range, wss As Range
>> Dim i As Long, r As Long
>> Application.EnableEvents = False
>> Application.Calculation = xlCalculationManual
>> Application.ScreenUpdating = False
>> Set rData = Sheets("ANGGARAN").Range("B4").CurrentRegion
>> Set rHasil = Sheets("SPP").Range("B16").CurrentRegion
>> Set wsa = Sheets("ANGGARAN").Range("K2").Value
>> Set wsb = Sheets("ANGGARAN").Range("L2").Value
>> Set wsc = Sheets("ANGGARAN").Range("M2").Value
>> Set wsd = Sheets("ANGGARAN").Range("N2").Value
>> Set wse = Sheets("ANGGARAN").Range("O2").Value
>> Set wsf = Sheets("ANGGARAN").Range("P2").Value
>> Set wsg = Sheets("ANGGARAN").Range("Q2").Value
>> Set wsh = Sheets("ANGGARAN").Range("R2").Value

>> Set wsi = Sheets("ANGGARAN").Range("S2").Value
>> Set wsj = Sheets("ANGGARAN").Range("T2").Value
>> Set wsk = Sheets("ANGGARAN").Range("U2").Value
>> Set wss = Sheets("ANGGARAN").Range("BF2").Value
>>
>> ThisWorkbook.Sheets("SPP").Activate
>> rHasil.Offset(1, 0).ClearContents
>> Sheets("SPP").Range("A16:k100") = ""
>> Sheets("SPP").Range("A16:k100").HorizontalAlignment = xlLeft
>>
>> If rData.Range("BN1").Value >= 1 Then
>>
>> r = 0
>> For i = 1 To rData.Rows.Count
>> If rData(i, 68) = 1 Then
>> r = r + 1
>> rHasil(r, 1).Value = rData(i, 2).Value
>> rHasil(r, 4).Value = rData(i, 10).Value
>>
>> Mulai Tidak Jalan Hasilnya selalu if yang paling bawah yaitu >> (
>> If wss = wsk Then
>> rHasil(r, 5).Value = rData(i, 32).Value
>> rHasil(r, 6).Value = rData(i, 45).Value )>>
>> End If
>>
>> Tidak berfungsi
>> If wss = wsa Then
>> rHasil(r, 5).Value = rData(i, 22).Value
>> rHasil(r, 6).Value = rData(i, 35).Value
>> End If
>> If wss = wsb Then
>> rHasil(r, 5).Value = rData(i, 23).Value
>> rHasil(r, 6).Value = rData(i, 36).Value
>> End If
>> If wss = wsc Then
>> rHasil(r, 5).Value = rData(i, 24).Value
>> rHasil(r, 6).Value = rData(i, 37).Value
>> End If
>> If wss = wsd Then
>> rHasil(r, 5).Value = rData(i, 25).Value
>> rHasil(r, 6).Value = rData(i, 38).Value
>> End If
>> If wss = wse Then
>> rHasil(r, 5).Value = rData(i, 26).Value
>> rHasil(r, 6).Value = rData(i, 39).Value
>> End If
>> If wss = wsf.Value Then
>> rHasil(r, 5).Value = rData(i, 27).Value
>> rHasil(r, 6).Value = rData(i, 40).Value
>> End If
>> If wss = wsg Then
>> rHasil(r, 5).Value = rData(i, 28).Value
>> rHasil(r, 6).Value = rData(i, 41).Value
>> End If
>> If wss = wsh Then
>> rHasil(r, 5).Value = rData(i, 29).Value
>> rHasil(r, 6).Value = rData(i, 42).Value
>> End If
>> If wss = wsi Then
>> rHasil(r, 5).Value = rData(i, 30).Value
>> rHasil(r, 6).Value = rData(i, 43).Value

>> End If
>> Sampai sini dan dan hasilnya selalu yang bawah
>>
>> If wss = wsj Then
>> rHasil(r, 5).Value = rData(i, 31).Value
>> rHasil(r, 6).Value = rData(i, 44).Value
>> End If
>> If wss = wsk Then
>> rHasil(r, 5).Value = rData(i, 32).Value
>> rHasil(r, 6).Value = rData(i, 45).Value

>> End If
>> rHasil(r, 7).Value = c.Offset(0, 2).Value
>> rHasil(r, 8).FormulaR1C1 = "=RC[-2]+RC[-1]"
>> rHasil(r, 9).Value = "=RC[-4]-RC[-1]"
>> End If
>> Next i
>> End If
>> End Sub
>>
>> Kenapa
>>
>
>
>

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

3a

Re: Menghitung jumlah count aktif

Wed Oct 14, 2015 7:40 pm (PDT) . Posted by:

"omeza" icat_omez@ymail.com

Terima kasih.
Mr.Kid

--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Menghitung-jumlah-count-aktif-tp5731759p5731767.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.

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

3b

Re: Menghitung jumlah count aktif

Wed Oct 14, 2015 8:05 pm (PDT) . Posted by:

"omeza" icat_omez@ymail.com

Mohon maaf Mr.Kid
kalau dengan rumus yang ada itu kan menghitung keseluruhan data.
nah maksud sya adalah menghitung keseluruhan data dengan batasan tanggal
yang telah ditentukan.
jadi tanggal yang diatas itu tidak terhitung. count_aktif.xlsx
<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5731768/count_aktif.xlsx>
Terima kasih

--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Menghitung-jumlah-count-aktif-tp5731759p5731768.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.

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

3c

Re: Menghitung jumlah count aktif

Wed Oct 14, 2015 8:09 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Kan sudah dipesenin yang bunyinya :
operator <= bisa diubah dengan berbagai operator yang sesuai kebutuhan
seperti < > >= <>

Silakan dicoba dan diatur sendiri lah...

2015-10-15 9:12 GMT+07:00 omeza icat_omez@ymail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Mohon maaf Mr.Kid
> kalau dengan rumus yang ada itu kan menghitung keseluruhan data.
> nah maksud sya adalah menghitung keseluruhan data dengan batasan tanggal
> yang telah ditentukan.
> jadi tanggal yang diatas itu tidak terhitung. count_aktif.xlsx
> <
> http://milis-belajar-excel.1048464.n5.nabble.com/file/n5731768/count_aktif.xlsx>
>
> Terima kasih
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Menghitung-jumlah-count-aktif-tp5731759p5731768.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>

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

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 6

• Privacy • Unsubscribe • Terms of Use