Messages In This Digest (10 Messages)

1a.: Re: Belajar Pencarian From: hendrik karnadi
1b.: Re: Belajar Pencarian From: Mr Pecut

2a.: Fw: [belajar-excel] Belajar Pencarian From: hendrik karnadi

3a.: Re: jumlah nilai cell warna dengan kriteria (vba noob) From: jkssxls Sudarsono
3b.: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba no From: KSM Absolute - Udin
3c.: Re: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vb From: jkssxls Sudarsono

4a.: Bls: [belajar-excel] User Login (ctv_Login_v2.xls) First In - Last R From: Muhammad Robin

5.: Penjumlahan sederhana yang bikin MUMET From: irwan wijaya

6a.: Re: Menggabung Frame menjadi Tabel From: Ki Semprul

7.: menentukan jumlah orang berdasarkan range usia From: Dwi Hadwan Ridho

View All Topics | Create New Topic

Messages

1a.: Re: Belajar Pencarian

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Mar 6, 2012 10:04 pm (PST)

Yang ini main Variable, lebih fleksible kaya burble walupun ga terlalu simple.....

Salam,
Hendrik Karnadi

________________________________
From: Jokoplo <koplosukoplo@rocketmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 7 March 2012, 12:44
Subject: [belajar-excel] Re: Belajar Pencarian

ternyata banyak cara ya..
ini satu lagi, gaya jurus wudang perguruan BaruKlinting... (="kebanyakan" menyiapkan variables)

Private Sub CommandButton1_Click()
'Untuk Mengisi Sheet1 Kolom 2
Dim i As Integer, LookupVal As Variant
Dim dTulis As Range, dTabel As Range, fun As Object

Set dTabel = Sheet2.Range("A1").CurrentRegion.Offset(1, 0)
Set dTulis = Sheet1.Range("B3:D3")
LookupVal = dTulis(1, 0).Value
fun = Application.WorksheetFunction
For i = 1 To 3
dTulis(i).Value = fun.VLookup(LookupVal, dTabel, i + 1, False)
Next i
End Sub

--- In belajar-excel@yahoogroups.com, Mr Pecut <pecutmr@...> wrote:
>
> B-excel,
> Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari salah satu web lain,
> kasih pencerahannya dong untuk aplikasinya....
> Maaf, banyak bertanya-tanya...
> Best Regards,
> Mr Pecut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
1b.: Re: Belajar Pencarian

Posted by: "Mr Pecut" pecutmr@yahoo.co.id pecutmr

Wed Mar 7, 2012 2:43 am (PST)

Terima kasih atas pencerahannya Pak Jokoplo, Pak Hendrik & Pak Sudarsono...
Utk Ki Semprul : Bukannya saya memposting tema ini tidak ada problemnya Ki Semprul, hal ini ada keterkaitannya dengan tema saya terdahulu mengenai lemotnya excel saya, bekerja dengan memakai banyak excel. Konon kata Mr Kid diuraiannya, bisa di dimple-kan dengan VBA Macro...
Mohon maaf barangkali posting saya gak berkenan bagi Ki Semprul atau member lainnya..
Cuma bagaimana pun, saya ucapkan banyak terima kasih bagi semuanya...
Salam,Mr Pecut

--- Pada Rab, 7/3/12, hendrik karnadi <hendrikkarnadi@yahoo.com>
menulis:

Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Tanggal: Rabu, 7 Maret, 2012, 4:32 AM

Coba ganti Codenya seperti ini:
Private Sub CommandButton1_Click()
'Untuk Mengisi Sheet1 Kolom 2, 3 dan 4
Range("B3") = "=VLookup(A3, Data!A2:D9, 2, False)"
Range("C3") = "=VLookup(A3, Data!A2:D9, 3, False)"
Range("D3") = "=VLookup(A3, Data!A2:D9, 4, False)"
'langsung divalue
Range("B3:D3") = Range("B3:D3").ValueEnd Sub

Regards,Hendrik Karnadi

From: Mr Pecut <pecutmr@yahoo.co.id>
Sent: Wednesday, 7 March 2012, 9:38

B-excel,
Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari salah satu web lain, kasih pencerahannya dong untuk aplikasinya....
Maaf, banyak bertanya-tanya...
Best Regards,
Mr Pecut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

2a.: Fw: [belajar-excel] Belajar Pencarian

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Mar 6, 2012 10:15 pm (PST)

Kalau link "bukabuku" nya ga bisa dibuka, bisa langsung buka bukunya di TB Gramedia.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Ki Semprul <semprul.ki@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 7 March 2012, 11:09
Subject: Re: [belajar-excel] Belajar Pencarian

1:
Beli bukunya saja, tulisan teman sendiri di milis ini ... gak ada ruginya..
Lagi pula bukunya juga oke, buat pemula maupun menengah..
http://www.bukabuku.com/browse/bookdetail/102444/tingkatkan-kinerja-excel-2007-2010-anda-dengan-vba-excel-cd.html

2:
di badan email anda belum terlihat apa keperluan / masalah/ problem anda
(fadahal ini yg paling perlu [dan sudah diatur pula di "Peraturan MILIS" ]

Mohon diingat, tidak semua member pada saat membuka post ini ybs sedang berkemampuan membuka pula lampirannya
Lain kali mungkin bisa tetapi sudah tidak tertarik lagi... karena sudah ada posting baru lagi yg lebih informatip ...

Semprul..Ki!

2012/3/7 Mr Pecut <pecutmr@yahoo.co.id>
> B-excel,
> Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari salah satu web lain,
> kasih pencerahannya dong untuk aplikasinya....
> Maaf, banyak bertanya-tanya...
> Best Regards,
> Mr Pecut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

3a.: Re: jumlah nilai cell warna dengan kriteria (vba noob)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Tue Mar 6, 2012 11:10 pm (PST)

Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
Dim SelAkhir As Range
Dim SumKuning, SumBiru, SumHijau As Double

For Each Selrow In daerah.Rows
SumKuning = 0
SumBiru = 0
SumHijau = 0
For Each sel In Selrow.Cells
Select Case sel.Interior.Color
Case 65535 ' Kuning
SumKuning = SumKuning + sel.Value
Case 12611584 ' Biru
Nilai = sel.Value
If Nilai > 8 Then
SumKuning = SumKuning + Nilai - 8
Nilai = 8
End If
SumBiru = SumBiru + Nilai
Case 5287936 'Hijau
SumHijau = SumHijau + sel.Value
End Select
' untuk menyimpan posisi sel terakhir tiap baris
Set SelAkhir = sel
Next
' isi julah warna
SelAkhir.Offset(0, 1) = SumKuning
SelAkhir.Offset(0, 2) = SumBiru
SelAkhir.Offset(0, 3) = SumHijau
Next
End SubSub Button1_Click()
Call sumcolor(Range("B3:F7"))
End Sub

To: belajar-excel@yahoogroups.com
From: omnivora@yahoo.com
Date: Mon, 5 Mar 2012 21:09:45 -0800
Subject: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba noob)

saya ingin menjumlah nilai cell yang berwarna kuning, biru, hijau.

1. Jumlah nilai sel kuning = (nilai cell yang berwarna kuning) + ((nilai cell biru > 8)-(8))

2. Jumlaj nilai sel biru = total nilai cell biru, jika ada cell biru yang nilainya > 8 maka nilainya dianggap 8

3. Jumlah nilai sel hijau = Jumlah nilai cell hijau

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3b.: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba no

Posted by: "KSM Absolute - Udin" omnivora@yahoo.com omnivora

Wed Mar 7, 2012 2:54 am (PST)

pak bagaimana cara menjalankan source kode itu ke excel?, trima kasih

________________________________
Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
Dikirim: Rabu, 7 Maret 2012 14:10

Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
� Dim SelAkhir As Range
� Dim SumKuning, SumBiru, SumHijau As Double
�
� For Each Selrow In daerah.Rows
� SumKuning = 0
SumBiru = 0
SumHijau = 0
For Each sel In Selrow.Cells
Select Case sel.Interior.Color
Case 65535 ' Kuning
SumKuning = SumKuning + sel.Value
Case 12611584 ' Biru
Nilai = sel.Value
If Nilai > 8 Then
SumKuning = SumKuning + Nilai - 8
Nilai = 8
End If
SumBiru = SumBiru + Nilai
Case 5287936 'Hijau
SumHijau = SumHijau + sel.Value
End Select
' untuk menyimpan posisi sel terakhir tiap baris
Set SelAkhir = sel
Next
' isi julah warna
SelAkhir.Offset(0, 1) = SumKuning
SelAkhir.Offset(0, 2) = SumBiru
SelAkhir.Offset(0, 3) = SumHijau
Next
End Sub

Sub Button1_Click()
Call sumcolor(Range("B3:F7"))
End Sub

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3c.: Re: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vb

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Wed Mar 7, 2012 5:25 am (PST)

Saya anjurkan belu buku karangan Hendrik .... ( Pak Henrik , maaf saya lupa judulnya )
To: belajar-excel@yahoogroups.com
From: omnivora@yahoo.com
Date: Wed, 7 Mar 2012 00:35:41 -0800
Subject: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba noob)

pak bagaimana cara menjalankan source kode itu ke excel?, trima kasih

________________________________

Dari: jkssxls Sudarsono <jkssxls@hotmail.com>

Dikirim: Rabu, 7 Maret 2012 14:10

Sub sumcolor(daerah As Range)

Dim Selrow As Range

Dim sel As Range

� Dim SelAkhir As Range

� Dim SumKuning, SumBiru, SumHijau As Double

�

� For Each Selrow In daerah.Rows

� SumKuning = 0

SumBiru = 0

SumHijau = 0

For Each sel In Selrow.Cells

Select Case sel.Interior.Color

Case 65535 ' Kuning

SumKuning = SumKuning + sel.Value

Case 12611584 ' Biru

Nilai = sel.Value

If Nilai > 8 Then

SumKuning = SumKuning + Nilai - 8

Nilai = 8

End If

SumBiru = SumBiru + Nilai

Case 5287936 'Hijau

SumHijau = SumHijau + sel.Value

End Select

' untuk menyimpan posisi sel terakhir tiap baris

Set SelAkhir = sel

Next

' isi julah warna

SelAkhir.Offset(0, 1) = SumKuning

SelAkhir.Offset(0, 2) = SumBiru

SelAkhir.Offset(0, 3) = SumHijau

Next

End Sub

Sub Button1_Click()

Call sumcolor(Range("B3:F7"))

End Sub

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4a.: Bls: [belajar-excel] User Login (ctv_Login_v2.xls) First In - Last R

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Wed Mar 7, 2012 2:46 am (PST)

ooo, Mba ctv lagi sakit. moga cepet sembuh ya

________________________________
Dari: Ki Semprul <semprul.ki@gmail.com>
Dikirim: Selasa, 6 Maret 2012 19:06

1 :
Sesuai "wisik" (bisikan ghoib) dari si empunya project (ctv, yg sedang mengasingkan diri (semoga lekas sehat kembali ya mbak...)
katanya begini:

Prosedur ini ( ada di dalam module Frm_NewUser)

Sub SaveIt(sUser As String, sPass As String, sSheet As String)
'---
End Sub

di modifikasi menjadi seperti ini

Sub SaveIt(sUser As String, sPass As String, sSheet As String)
'---
End Sub

2 :
Pertanyaan ini dulu pernah ditanyakan dan dijawab
penambahan New User tsb tidak akan di codekan jika ditulisnya tanpa mengunakan UDF Krip spt ini

3:
Waduh mundur lagi ini ke masalah cara merujuk range (kok gak pernah berkisar dari sini ya)

Semprul..Ki!

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5.: Penjumlahan sederhana yang bikin MUMET

Posted by: "irwan wijaya" irwan2307@yahoo.com irwan2307

Wed Mar 7, 2012 6:04 am (PST)

saya diminta pimpinan untuk membuat daftar umur piutang untuk customer kami yang jumlahnya ratusan, saya lampirkan file yang bikin saya mumet 7 keliling
para pakar excel tolong bantuannya ya.....

irwan wijaya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

6a.: Re: Menggabung Frame menjadi Tabel

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Wed Mar 7, 2012 6:06 am (PST)

Dear Pak RHDS,

(nuwun sewu Ni Mas siti, aki mau memodifikasi coding, kalau ada kurangnya
muhun di korek-korek si!..)

Sub MenyusunTabel()
' coded by: siti vi / 28 dec 2010
'--------------------------------
Dim sht As Worksheet
Dim TablePart As Range, NextPaste As Range, IsiArea As Range

Columns("A:K").Clear
Set NextPaste = Cells(1)

For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then

'--- modifikasi KiSemprul 7 mar 2012 ----
If LCase(sht.Name) Like "isitabel*" Then
Set IsiArea = sht.Range("F2").CurrentRegion
Set IsiArea = IsiArea.Offset(-1, 0). _
Resize(IsiArea.Rows.Count + 1, IsiArea.Columns.Count)
sht.PageSetup.PrintArea = IsiArea.Address
End If
'--- end of modifikasi ------------------

Set TablePart = sht.Range(sht.PageSetup.PrintArea)
TablePart.Copy
NextPaste.PasteSpecial xlPasteAll
Set NextPaste = NextPaste.Offset(TablePart.Rows.Count, 0)
End If
Next

NextPaste.PasteSpecial xlPasteColumnWidths
Application.CutCopyMode = False
Cells(3, 8).Activate

MsgBox "Penyusunan Tabel: telah selesai Boss !!", 64, "Thuing ... !"

End Sub

Dengan BLOK IF *modifikasi-an* itu, maksud aki adalah:
memperbarui Print Area *di tiap sheet yg bernama "isitabel*"*
Nilai baru-nya adalah *RANGE sesuai dimensi tabel *yg ada di dalamnya

' pada setiap sheet yg namadepannya seperti * 'isitabel...."*
If LCase(sht.Name) Like "isitabel*" Then
' di set sebuah variable object Range "isiTabel" yg merujuk ke area
tabel yg ada
' (ditambah satu baris kosong di atasnya)
Set IsiArea = sht.Range("F2").CurrentRegion
Set IsiArea = IsiArea.Offset(-1, 0). _
Resize(IsiArea.Rows.Count + 1, IsiArea.Columns.Count)
' kemudian* PrintArea *di sheet itu, diganti dengan *alamat Range
isiTabel*
sht.PageSetup.PrintArea = IsiArea.Address
End If

sudah! .. 'gitu saja bukan ?!
mohon berita dari pak RHDS, apakah makro "jalan" dengan baik-baik??

*Semprul..Ki!*

2012/3/6 Ratno Hadi Suswanto <rh_suswanto@hotmail.com>

> **
> Dear Be-exceler,
> Ada satu file dari Mbak Siti (boleh kan kekayaan intelektualnya dipakai
> buat diskusi?) mengenai penggabungan beberapa frame menjadi satu frame.
> Saya terus terang (sedang) akan menggunakan karya mbak Siti ini untuk
> suatu membuat suatu form, tetapi saya terkendala sheet "isitabel" yang
> dibatasi oleh
> "print area"...padahal tabel yang saya akan buat bersifat dinamik..row-nya
> bisa bertambah atau berkurang.
>
> Isi dari "isitable" tidak akan dilakukan manual melalui sheet isitable
> bersangkutan, karena akan dilookup dengan file terpisah dengan fungsi
> filter/sort.
>
> Bagaiman mengubah makronya, sehingga otomatis print area akan mengikuti
> jumlah penambahan atau pengurangan row...
>
> Terima kasih dan salam,
> RHDS.
>
>
> ------------------------------
> Sub MenyusunTabel()
> ' coded by: siti Vi / 28 dec 2010
> '--------------------------------
>
> Dim sht As Worksheet
> Dim TablePart As Range
> Dim NextPaste As Range
>
> Columns("A:K").Clear
> Set NextPaste = Cells(1)
>
> For Each sht In Worksheets
> If sht.Name <> ActiveSheet.Name Then
> Set TablePart = sht.Range(sht.PageSetup.PrintArea)
> TablePart.Copy
> NextPaste.PasteSpecial xlPasteAll
> Set NextPaste = NextPaste.Offset(TablePart.Rows.Count, 0)
> End If
> Next sht
>
> NextPaste.PasteSpecial xlPasteColumnWidths
> Application.CutCopyMode = False
> Cells(3, 8).Activate
> MsgBox "Penyusunan Tabel: telah selesai Boss !!", 64, "Thuing ... !"
>
> End Sub
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

7.: menentukan jumlah orang berdasarkan range usia

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Wed Mar 7, 2012 7:34 am (PST)

Assalamu'alaikum warahmatullahi wabarakatuh,

Dear Temen-teman pakar excel,

Mohon bantuannya, untuk rumus menentukan jumlah orang berdasarkan range usia
seperti contoh terlampir..

Atas perhatian dan bantuannya temen-temen, saya ucapkan terima kasih.

Wassalamu'alaikum warahmatullahi wabarakatuh.

Best Regards,

Dwi Hadwan Ridho (Wawan)

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

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

EXCEL FEED

Rabu, 07 Maret 2012

[belajar-excel] Digest Number 1539

Messages In This Digest (10 Messages)

Messages

Re: Belajar Pencarian

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Mar 6, 2012 10:04 pm (PST)

Re: Belajar Pencarian

Posted by: "Mr Pecut" pecutmr@yahoo.co.id pecutmr

Wed Mar 7, 2012 2:43 am (PST)

Fw: [belajar-excel] Belajar Pencarian

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Mar 6, 2012 10:15 pm (PST)

Re: jumlah nilai cell warna dengan kriteria (vba noob)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Tue Mar 6, 2012 11:10 pm (PST)

Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba no

Posted by: "KSM Absolute - Udin" omnivora@yahoo.com omnivora

Wed Mar 7, 2012 2:54 am (PST)

Re: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vb

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Wed Mar 7, 2012 5:25 am (PST)

Bls: [belajar-excel] User Login (ctv_Login_v2.xls) First In - Last R

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Wed Mar 7, 2012 2:46 am (PST)

Penjumlahan sederhana yang bikin MUMET

Posted by: "irwan wijaya" irwan2307@yahoo.com irwan2307

Wed Mar 7, 2012 6:04 am (PST)

Re: Menggabung Frame menjadi Tabel

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Wed Mar 7, 2012 6:06 am (PST)

menentukan jumlah orang berdasarkan range usia

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Wed Mar 7, 2012 7:34 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me