Selasa, 17 Januari 2012

[belajar-excel] Digest Number 1478

Messages In This Digest (25 Messages)

Messages

1a.

Re: REKAP NILAI SISWA MULTI SHEET

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Jan 16, 2012 1:25 pm (PST)



Selamat Pagi Pak Alex,

Coba agregat dengan 3d reference
di sheet hasil rekap,
untuk data pertama, pasang formula :
=SUM(Sheet2:Sheet7!C2)
copy ke data berikutnya.

Syarat :
1. Data harus berurutan dan pada cell yang tetap disetiap sheetnya.
2. Hati-hati dalam memfilter sheet rekap, pastikan seluruh kolom telah
terselect
3. Jangan ubah urutan disheet-sheet data.

Kid.

2012/1/16 Wxwx Tit <wxwxtit@yahoo.co.id>

> **
>
>
> Selamat siang semuanya,
>
> Dear rekan excel
>
> saya lagi rekap semua nilai siswa, yang jadi masalah
> data nilai awal terdiri dari banyak Sheet, dan klo urutan data tiap sheets
> berbeda gimana yah
> data terlapir
>
> Thanks bantuannya,
>
> Alex Purnama
>
>
>
1b.

Re: REKAP NILAI SISWA MULTI SHEET

Posted by: "summonery" summonery@yahoo.com   summonery

Mon Jan 16, 2012 5:17 pm (PST)



Coba juga,
=SUM('*'!C2)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> Selamat Pagi Pak Alex,
>
> Coba agregat dengan 3d reference
> di sheet hasil rekap,
> untuk data pertama, pasang formula :
> =SUM(Sheet2:Sheet7!C2)
> copy ke data berikutnya.
>
> Syarat :
> 1. Data harus berurutan dan pada cell yang tetap disetiap sheetnya.
> 2. Hati-hati dalam memfilter sheet rekap, pastikan seluruh kolom telah
> terselect
> 3. Jangan ubah urutan disheet-sheet data.
>
> Kid.
>
>
> 2012/1/16 Wxwx Tit wxwxtit@...
>
> > **
> >
> >
> > Selamat siang semuanya,
> >
> > Dear rekan excel
> >
> > saya lagi rekap semua nilai siswa, yang jadi masalah
> > data nilai awal terdiri dari banyak Sheet, dan klo urutan data tiap
sheets
> > berbeda gimana yah
> > data terlapir
> >
> > Thanks bantuannya,
> >
> > Alex Purnama
> >
> >
> >
>

1c.

Bls: [belajar-excel] REKAP NILAI SISWA MULTI SHEET

Posted by: "Wxwx Tit" wxwxtit@yahoo.co.id   wxwxtit

Tue Jan 17, 2012 3:09 am (PST)



Terima kasih atas pencerahannya Mr Kid
namun masalah timbul lagi ketika data setiap sheet urutan nama siswanya berbeda-beda
gimana yah caranya,

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 17 Januari 2012 4:25
Judul: Re: [belajar-excel] REKAP NILAI SISWA MULTI SHEET


 
Selamat Pagi Pak Alex,

Coba agregat dengan 3d reference
di sheet hasil rekap,
untuk data pertama, pasang formula :
=SUM(Sheet2:Sheet7!C2)
copy ke data berikutnya.

Syarat :
1. Data harus berurutan dan pada cell yang tetap disetiap sheetnya.
2. Hati-hati dalam memfilter sheet rekap, pastikan seluruh kolom telah terselect
3. Jangan ubah urutan disheet-sheet data.

Kid.

2012/1/16 Wxwx Tit <wxwxtit@yahoo.co.id>


>Selamat siang semuanya,
>
>
>Dear rekan excel
>
>
>
>saya lagi rekap semua nilai siswa, yang jadi masalah
>
>data nilai awal terdiri dari banyak Sheet, dan klo urutan data tiap sheets berbeda gimana yah
>data terlapir
>
>
>
>Thanks bantuannya,
>
>
>
>Alex Purnama
>

2a.

Re: Menggabung kode untuk di jadikan patokan

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Jan 16, 2012 2:22 pm (PST)



maaf baru ada kesempatan pagi ini .... sedang banyak acara kabur-kaburan...

memang repot kalau contoh kemudian ber-Ubah-Ubah tanpa sebelumnya diberi
penjelasan (bahwa: bla bla bla bla....) karena sebenarnyalah yg tahu
tujuan
dibuatnya sheet: hanyaah pembuatnya,
(kecuali sheet yg dibuat oleh konsultan prof kepada clientnya
karena selalu disertai penjelasan sejelas jelasnya)

orang lain hanya melihat sheet sekilas, itupun kalau penjelasannya
memadai...
setelah ini pun siapa yg menjamin kalau pak Yan tidak berubah lagi? ya kan?
he he he ...

tetapi *soal baris tidak SEJAJAR & / tidak SAMA URUTANNYA dengan yg ada*
*di Tabel Rujukan/Sumber-nya,* itu adalah *hal yg basic *
misal ada VLOOKUP ada INDEX + MATCH dsb
Jadi rupanya pak Yan *mau MUNDUR lagi ke BAB itu ??*, Baiklah..

Rumusnya (untuk lebih jelasnya lihat di workbook lampiran sheet

* { =IFERROR(*
* MAX(IF($D$13:$R$13=W$12,*
* OFFSET($D$13:$R$13,MATCH($U14,$B$14:$B$20,0),0,1,))),"") }*

*bagian merah* bisa diganti dengan cara lain misalnya INDEX MATCH
kerjasama* Match dan Offset *untuk menemukan Sebaris-Data (Repord) di tabel
Sumber
YANG CustCode -nya di sebut di kolom U.

*IFERROR* hanya untuk memvalidasi data #N/A (yaitu jika CustCode di tabel
Output
(kolom U) = *tidak ada* di Kolom B (tabel sumber) >> dengan adanya validasi
ini
hasil #N/A akan ditampakkan sbg BLANK (NullString)

[image: Yan_Summaries.PNG]

Pada workbook versi sebelum ini *part RUMUS* tsb ditulis secara *hard-coded
( **$D14:$R14 )*
( sekarang menjadi: OFFSET($D$13:$R$13,MATCH($U14,$B$14:$B$20,0),0,1,) )
yg ternyata membuat pak Yan jadi bingung....
padahal masalah utama yg ditanyakan sudah termasuk level yg seharusnya
tidak
perlu lagi memperbingungkan masalah LOOKUP DATA spt itu
oiya, pemindahannya ke sheet lain saya kira bukan masalah lagi kan ?

satu lagi :
rumus tsb ( W14 ) tetap sebagai array *formula *dlm satu cell (*ArrayFormula
* Hasil-Tunggal)
baru kemudian di copy ke cell di kanan (3 kolom) dan di bawahnya (beberapa
baris)

lampiran:
Konversi SUB_ITEM to CLASS_ITEM nya (Formula - iHaps) urutan diacak
(V4).xlsx

2012/1/16 Yan <yan.novianto@yahoo.com>

> **
>
> Dear Bu Haps dan exel_ers
>
> Hehehe, maksudnya….
> Di kolom hasil adalah data cusomernya lebih banyak ( master ) dari colom
> data ( yg terdistribusi ), sehingga di mungkinkan data yang di cari ( tidak
> sebaris ) dengan data "distribusi".
>
> Sehingga kalo di rubah datanya maka tidak sesuai..maaf kalo salah tangkap.
> Untuk Mr.KID,…rumus bener bener panjaaaaaang dan laaaama…( kayak iklan
> coklat J )
>
> Masalahnya saat saya coba implementasi ke masalah yang sesungguhnya jadi
> mumet…hehehe, mungkin hanya di copi paste saja formula-formula yang di
> bikin oleh Mr.KID ke
>
> Masalah yang sebernarnya. ( pokoknya mantabs deh Mr,KID, nanti akan saya
> baca dan pelajari pelan pelan rumusan Mr.KID).
>
> Saya yang sedikit nyantol adalah rumusan yang di buat oleh ibu Haps dan om
> Ghozi,
>
> Berhubung yang ibu haps juga ada feedback, maka yang saya Tanya lagi ama
> beliaw..hehehe data terlampir ya bu Haps, semoga jawaban dari Bu Haps kali
> ini benar benar bisa sesuai dengan keinginan…
>
> Salam exel…
> Yan
>
> From: belajar-excel@yahoogroups.com On Behalf Of i Haps
> Sent: Monday, January 09, 2012 10:10 PM
>
> (1)
> >> tp juga mengurutkan dahulu no Customernya,
> >> jika tidak urut maka tidak "jalan" / atau harus menyesuaikan manual.
> apa benar dan sudah di check ??
> contoh berikut (terlampir) sudah saya acak-acak tanpa memnyentuh lagi
> rumus2 nya.
> atau yg dimaksud lain lagi ya ..??
> -Mohon di recek apakah hasil menjadi salah ?
>
>
3a.

Re: search dengan criteria tertentu

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Jan 16, 2012 8:13 pm (PST)



Algoritma yg tidak menggunakan fitur yg sudah ada di Excel
tetapi memanfaatkan LOOPING; setiap baris di TabelSumber dikunjungi,
untuk dievaluasi AccountNumber-nya apakah "mengandung" *kriteria*

ini mungkin lebih lamban dari fitur yg sudah ada di Excel (advanced filter)
tetapi baik *untuk melatih logika kita dlm mencari dan mengetahui*
*apa yg dilakukan dan terjadi di dalam code kita*

Sub Saring_Bukan_Search_Doang()
Dim dTabel As Range, dHasil As Range, dCrite As Range
Dim i As Long, r As Long, c As Integer

Set dTabel = Sheets("Combined").Cells(4, 1).CurrentRegion
Set dCrite = Sheets("Search").Cells(4, 2).CurrentRegion
Set dHasil = Sheets("Hasil").Cells(5, 1).CurrentRegion
dHasil.Parent.Activate
dHasil(0, 1).CurrentRegion.Offset(1, 0).ClearContents
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

For i = 2 To dTabel.Rows.Count
*If dTabel(i, 1) Like dCrite(2) _ *
* Or dTabel(i, 1) Like dCrite(3)* Then
r = r + 1
For c = 1 To dTabel.Columns.Count
dHasil(r, c) = dTabel(i, c)
Next c
End If
Next i

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

2012/1/16 Adi Irawan <airawanp@gmail.com>

> **
>
> dear members,
> Mohon bantuannya, seandainya saya ingin filter hasil cirteria tertentu
> contoh seperi:
> 1234.567.000 jadi semua yang ada "567" di tengahnya bisa ke select
> semuanya.
>
> kode macro yang sudah saya buat hasilnya kosong setelah di search. Berikut
> kode yang saya buat :
>
> 'wsDatabase adalah worksheet Database
> Set wsDatabase = Sheets("Combined")
> 'wsHasil adalah worksheet HasilFilter
> Set wsHasil = Sheets("hasil")
> 'Menghapus seluruh data dalam worksheet HasilFilter
> wsHasil.Cells.Delete
> 'Menyalin lebar kolom range A2:F7
> wsDatabase.Range("A2:e2").Copy
> wsHasil.Range("A4").PasteSpecial Paste:=xlPasteColumnWidths
> 'Menyaring data menggunakan Advanced Filter
> wsDatabase.Range("search_gross").AdvancedFilter _
> Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), _
> CopyToRange:=wsHasil.Range("A4")
> 'Menyeleksi worksheet HasilFilter
> wsHasil.Select
> 'Menyeleksi sel A1
> Range("A1").Select
>
> Mohon bantuannya ya...
>
> Terima kasih banyak
>
3b.

Re: search dengan criteria tertentu

Posted by: "Adi Irawan" airawanp@gmail.com

Mon Jan 16, 2012 8:30 pm (PST)



Terima kasih bnyak pak untuk infonya,

O ia, seandainya saya ingin filter tapi criterianya itu " selain" bagaimana
ya ?

Jadi contohnya saya ingin filter semuanya kecuali *567*.
Jadi saya tinggal masukan *567* maka yang akan muncul semuanya kecuali *567*

Mohon bantuan Pak Hendrik dan Members,

Terima kasih

2012/1/16 hendrik karnadi <hendrikkarnadi@yahoo.com>

> **
>
>
> Macronya Ok pak, yang slah kriterianya ganti tanda " " dengan * *
> Contoh terlampir.
>
> ------------------------------
> *From:* Adi Irawan <airawanp@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 16 January 2012, 16:41
> *Subject:* [belajar-excel] search dengan criteria tertentu
>
>
> dear members,
>
> Mohon bantuannya, seandainya saya ingin filter hasil cirteria tertentu
> contoh seperi:
> 1234.567.000 jadi semua yang ada "567" di tengahnya bisa ke select
> semuanya.
>
> kode macro yang sudah saya buat hasilnya kosong setelah di search. Berikut
> kode yang saya buat :
>
> 'wsDatabase adalah worksheet Database
> Set wsDatabase = Sheets("Combined")
> 'wsHasil adalah worksheet HasilFilter
> Set wsHasil = Sheets("hasil")
> 'Menghapus seluruh data dalam worksheet HasilFilter
> wsHasil.Cells.Delete
> 'Menyalin lebar kolom range A2:F7
> wsDatabase.Range("A2:e2").Copy
> wsHasil.Range("A4").PasteSpecial Paste:=xlPasteColumnWidths
> 'Menyaring data menggunakan Advanced Filter
> wsDatabase.Range("search_gross").AdvancedFilter _
> Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), _
> CopyToRange:=wsHasil.Range("A4")
> 'Menyeleksi worksheet HasilFilter
> wsHasil.Select
> 'Menyeleksi sel A1
> Range("A1").Select
>
> Mohon bantuannya ya...
>
> Terima kasih banyak
>
>
>
>
3c.

Re: search dengan criteria tertentu

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Jan 16, 2012 8:58 pm (PST)



kalau pakai loop...

kriteria : *567* tetap ditulis di search!B5
makronya diganti sedikit sekalian koreksi posting sebelum ini
khusus mengenai initial range dHasil

'-----------------------
Sub Saring_Bukan_Search()
Dim dTabel As Range, dHasil As Range, dCrite As Range
Dim i As Long, r As Long, c As Integer

Set dTabel = Sheets("Combined").Cells(4, 1).CurrentRegion
Set dCrite = Sheets("Search").Cells(4, 2).CurrentRegion
Set dHasil = Sheets("Hasil").Cells(4, 1).CurrentRegion.Offset(1, 0)
dHasil.Parent.Activate
dHasil.ClearContents

dHasil.Select

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

For i = 2 To dTabel.Rows.Count
* If Not dTabel(i, 1) Like dCrite(2) Then*
r = r + 1
For c = 1 To dTabel.Columns.Count
dHasil(r, c) = dTabel(i, c)
Next c
End If
Next i

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
'-----------------------

*2012/1/17 Adi Irawan <airawanp@gmail.com>
*
>
> * *
> *Terima kasih bnyak pak untuk infonya, *
> *O ia, seandainya saya ingin filter tapi criterianya itu " selain"
> bagaimana ya ?*
> *Jadi contohnya saya ingin filter semuanya kecuali *567*.*
> *Jadi saya tinggal masukan *567* maka yang akan muncul semuanya kecuali
> *567**
> * *
> *Mohon bantuan Pak Hendrik dan Members,*
> *Terima kasih*
>
>
3d.

Re: search dengan criteria tertentu

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

Mon Jan 16, 2012 9:24 pm (PST)



Tinggal tambah tanda <> di depan*567* (Define Name Criterianya dibuat flexible saja dengan Fungsi Offset, seperti sering dibahas)
File terlampir.

Salam,
Hendrik Karnadi

________________________________
From: Adi Irawan <airawanp@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 17 January 2012, 9:45
Subject: Re: [belajar-excel] search dengan criteria tertentu


 
Terima kasih bnyak pak untuk infonya,
 
O ia, seandainya saya ingin filter tapi criterianya itu " selain" bagaimana ya ?
 
Jadi contohnya saya ingin filter semuanya kecuali *567*.
Jadi saya tinggal masukan *567* maka yang akan muncul semuanya kecuali *567*
 
Mohon bantuan Pak Hendrik dan Members,
 
 
Terima kasih

2012/1/16 hendrik karnadi <hendrikkarnadi@yahoo.com>


>Macronya Ok pak, yang slah kriterianya ganti tanda "   " dengan *  *
>Contoh terlampir.
>
>
>
>________________________________
> From: Adi Irawan <airawanp@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 16 January 2012, 16:41
>Subject: [belajar-excel] search dengan criteria tertentu
>
>
>

>dear members,
>
>Mohon bantuannya, seandainya saya ingin filter hasil cirteria tertentu
>contoh seperi:
>1234.567.000 jadi semua yang ada "567" di tengahnya bisa ke select semuanya.
>
>kode macro yang sudah saya buat hasilnya kosong setelah di search. Berikut
>kode yang saya buat :
>
>'wsDatabase adalah worksheet Database
>Set wsDatabase = Sheets("Combined")
>'wsHasil adalah worksheet HasilFilter
>Set wsHasil = Sheets("hasil")
>'Menghapus seluruh data dalam worksheet HasilFilter
>wsHasil.Cells.Delete
>'Menyalin lebar kolom range A2:F7
>wsDatabase.Range("A2:e2").Copy
>wsHasil.Range("A4").PasteSpecial Paste:=xlPasteColumnWidths
>'Menyaring data menggunakan Advanced Filter
>wsDatabase.Range("search_gross").AdvancedFilter _
>Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), _
>CopyToRange:=wsHasil.Range("A4")
>'Menyeleksi worksheet HasilFilter
>wsHasil.Select
>'Menyeleksi sel A1
>Range("A1").Select
>
>Mohon bantuannya ya...
>
>Terima kasih banyak
>
>
>

4a.

Login Form

Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id   aliif.akbar

Mon Jan 16, 2012 8:31 pm (PST)



Selamat siang rekan,
Mau tanya nee, mengenai userform login, biasanya kalau userform itu mengacu ke range dalam worksheet, contoh :


If worksheets("sheet1").range("a2")="asror" and worksheets("sheet1").range("b2")="asror123" then
MsgBox "Selamat anda bisa login. ",vbInformation,"Berhasil"
Else
MsgBox "Pastikan login anda benar ",vbCritical,"Gagal"
End If

pertanyaan saya, bisa g kalo yang tulisan _worksheets("sheet1").range("a2")_ (tanpa underscore) itu diganti dengan, misalnya, hostname komputer, atau ip address komputer,

Mohon bantuannya, terimakasih.

Asror


Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
4b.

Re: Login Form

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Jan 16, 2012 9:11 pm (PST)



bukan soal apakah mengenai login atau hal lain
men-test suatu kondisi dengan struktur pencabangan IF-THEN-;
logikal testnya bisa apa saja
misal text (misal nama object) dibanding dengan text

itu intinya.

IF *LOGICAL TEST *THEN
' SESUATU YG DIPROGRAMKAN KALAU LOGICAL TEST BENAR
ELSE
' SESUATU YG DIPROGRAMKAN KALAU LOGICAL TEST SALAH
END IF

Logical test adalah kegiatan membandingkan sesuatu
atau mengoperasikan sesuatu yg akhirnya harus memunculkan salah satu
dari dua nilai lojik yaitu : True atau False
Berdasarkan salah satu dari dua nilai yg muncul itu kita
melaksanakan sesuau...

jadi sebaiknya jangan terkungkung oleh :
kalau soal LOGIN harus begini
kalau soal BUKAN LOGIN hrus begitu dst...

cmiiw

*
2012/1/17 Aliif Akbar <aliif.akbar@yahoo.co.id>:
> Selamat siang rekan,
> Mau tanya nee, mengenai userform login, biasanya kalau userform itu
mengacu ke range dalam worksheet, contoh :
>
> If worksheets("sheet1").range("a2")="asror" and
worksheets("sheet1").range("b2")="asror123" then
> MsgBox "Selamat anda bisa login. ",vbInformation,"Berhasil"
> Else
> MsgBox "Pastikan login anda benar ",vbCritical,"Gagal"
> End If
>
> pertanyaan saya, bisa g kalo yang tulisan
_worksheets("sheet1").range("a2")_ (tanpa underscore) itu diganti dengan,
misalnya, hostname komputer, atau ip address komputer,
>
> Mohon bantuannya, terimakasih.
> Asror*
4c.

Re: Login Form

Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id   aliif.akbar

Mon Jan 16, 2012 9:46 pm (PST)



Hem, sip, di mengerti, ini tidak hanya di login ajja, tapi yang menggunakan fungi if - then - else, pertanyaan saya di direvisi menjadi, bisa kah jika logical test-nya itu diganti/ connect ke internet lokal?
Misalnya :

Jika ip komputer = "10.10.10.10" then
Oke
Else
Tidak oke
End if

Apakah bisa?
Terimakasih,

Asror


Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: i Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 17 Jan 2012 12:10:25
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Login Form

bukan soal apakah mengenai login atau hal lain
men-test suatu kondisi dengan struktur pencabangan IF-THEN-;
logikal testnya bisa apa saja
misal text (misal nama object) dibanding dengan text

itu intinya.

IF *LOGICAL TEST *THEN
' SESUATU YG DIPROGRAMKAN KALAU LOGICAL TEST BENAR
ELSE
' SESUATU YG DIPROGRAMKAN KALAU LOGICAL TEST SALAH
END IF

Logical test adalah kegiatan membandingkan sesuatu
atau mengoperasikan sesuatu yg akhirnya harus memunculkan salah satu
dari dua nilai lojik yaitu : True atau False
Berdasarkan salah satu dari dua nilai yg muncul itu kita
melaksanakan sesuau...

jadi sebaiknya jangan terkungkung oleh :
kalau soal LOGIN harus begini
kalau soal BUKAN LOGIN hrus begitu dst...

cmiiw

*
2012/1/17 Aliif Akbar <aliif.akbar@yahoo.co.id>:
> Selamat siang rekan,
> Mau tanya nee, mengenai userform login, biasanya kalau userform itu
mengacu ke range dalam worksheet, contoh :
>
> If worksheets("sheet1").range("a2")="asror" and
worksheets("sheet1").range("b2")="asror123" then
> MsgBox "Selamat anda bisa login. ",vbInformation,"Berhasil"
> Else
> MsgBox "Pastikan login anda benar ",vbCritical,"Gagal"
> End If
>
> pertanyaan saya, bisa g kalo yang tulisan
_worksheets("sheet1").range("a2")_ (tanpa underscore) itu diganti dengan,
misalnya, hostname komputer, atau ip address komputer,
>
> Mohon bantuannya, terimakasih.
> Asror*

4d.

Re: Login Form

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Mon Jan 16, 2012 10:03 pm (PST)



*bisa*
(sebelum tanya, 'gak dicoba dulu KAH ?)
asal IP KOMPUTER diganti dengan IPKOMPUTER atau IP_KOMPUER
atau nama lain untuk variable (dengan pemberian nama yg valid), di mana
variable itu
bisa berisi data type text (karena akan dibandingkan dengan
text "10.10.10.10")

satu lagi,
*IF THEN *itu di VBA* bukan sebuah FUNGSI*
tetapi kalau* IIF *memang nama fungsi
(sintaksnya mirip seperti fungsi IF pada worksheet)

X = IIF(logicaltest, StatementIfTrue, StatementIfFalse)

*o'Seno*

2012/1/17 Aliif Akbar <aliif.akbar@yahoo.co.id>

> **
>
> Hem, sip, di mengerti, ini tidak hanya di login ajja, tapi yang
> menggunakan fungi if - then - else, pertanyaan saya di direvisi menjadi,
> bisa kah jika logical test-nya itu diganti/ connect ke internet lokal?
> Misalnya :
> Jika ip komputer = "10.10.10.10" then
> Oke
> Else
> Tidak oke
> End if
> Apakah bisa?
> Terimakasih,
> Asror
> *From: * i Haps <hapsari.stlizbeth@gmail.com>
>
*Date: *Tue, 17 Jan 2012 12:10:25 +0700
> bukan soal apakah mengenai login atau hal lain
>
>
>
4e.

Re: Login Form

Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id   aliif.akbar

Mon Jan 16, 2012 10:08 pm (PST)



Dear pak Seno,
Saya sudah mencari, tapi belum mengerti, menerjemahkan :jika ip address=bla bla bla" ke dalam tulisan vba-nya,
Mohon pencerahan All,...

asror

Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "o' Seno" <ontoseno84@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 17 Jan 2012 13:03:28
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Login Form

*bisa*
(sebelum tanya, 'gak dicoba dulu KAH ?)
asal IP KOMPUTER diganti dengan IPKOMPUTER atau IP_KOMPUER
atau nama lain untuk variable (dengan pemberian nama yg valid), di mana
variable itu
bisa berisi data type text (karena akan dibandingkan dengan
text "10.10.10.10")

satu lagi,
*IF THEN *itu di VBA* bukan sebuah FUNGSI*
tetapi kalau* IIF *memang nama fungsi
(sintaksnya mirip seperti fungsi IF pada worksheet)

X = IIF(logicaltest, StatementIfTrue, StatementIfFalse)



*o'Seno*



2012/1/17 Aliif Akbar <aliif.akbar@yahoo.co.id>

> **
>
> Hem, sip, di mengerti, ini tidak hanya di login ajja, tapi yang
> menggunakan fungi if - then - else, pertanyaan saya di direvisi menjadi,
> bisa kah jika logical test-nya itu diganti/ connect ke internet lokal?
> Misalnya :
> Jika ip komputer = "10.10.10.10" then
> Oke
> Else
> Tidak oke
> End if
> Apakah bisa?
> Terimakasih,
> Asror
> *From: * i Haps <hapsari.stlizbeth@gmail.com>
>
*Date: *Tue, 17 Jan 2012 12:10:25 +0700
> bukan soal apakah mengenai login atau hal lain
>
>
>

5a.

Mengambil hasil dibawah angka 10

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Mon Jan 16, 2012 9:57 pm (PST)



Rekans,

Misalnya,

Isi sel maka Hasil yang diinginkan di sel sebelah

214 4
214.8 4.8
39.447 9.447

Objective :

1. menampilkan angka dibawah sepuluh
2. Bila ada koma, maka koma juga ditampilkan.

Mohon bantuan formulanya , please

Wassalam
Agung W

5b.

Bls: [belajar-excel] Mengambil hasil dibawah angka 10

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Jan 16, 2012 10:07 pm (PST)



misalkan data di A1
maka formulanya:

MOD(A1;10)

wassalam

Ghozi Alkatiri

--- Pada Sel, 17/1/12, agung_widodo@sanyo.com <agung_widodo@sanyo.com> menulis:

Dari: agung_widodo@sanyo.com <agung_widodo@sanyo.com>
Judul: [belajar-excel] Mengambil hasil dibawah angka 10
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 17 Januari, 2012, 12:58 PM

 

Rekans,

 

Misalnya,

 

Isi sel                maka
Hasil yang diinginkan di sel sebelah

 

214           4

214.8        4.8

39.447      9.447

 

Objective :

menampilkan angka
dibawah sepuluh
Bila ada koma, maka
koma juga ditampilkan.

 

Mohon
bantuan formulanya , please

 

 

Wassalam

Agung
W

 

 

5c.

Re: Mengambil hasil dibawah angka 10

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Mon Jan 16, 2012 10:11 pm (PST)



itu (hasil) adalah sisa pembagian data input jika dibagi 10
bahasanya di formula excel (jika data petama ada ei A1

*=MOD(A2,10)*

*o'Seno*

2012/1/17 <agung_widodo@sanyo.com>

> 214 4****
>
> 214.8 4.8****
>
> 39.447 9.447
>
5d.

Re: Mengambil hasil dibawah angka 10

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Mon Jan 16, 2012 10:13 pm (PST)



waduh ternyata sudah ada jawaban dari pak alkatiri
dan jawaban saya ternyata sama
mohon posting saya di-ignored saja

*o'Seno*

2012/1/17 o' Seno <ontoseno84@gmail.com>

> itu (hasil) adalah sisa pembagian data input jika dibagi 10
> bahasanya di formula excel (jika data petama ada ei A1
>
> *=MOD(A2,10)*
>
>
> *o'Seno*
>
>
> 2012/1/17 <agung_widodo@sanyo.com>
>
> 214 4****
>>
>> 214.8 4.8****
>>
>> 39.447 9.447
>>
>
5e.

Re: Mengambil hasil dibawah angka 10

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Mon Jan 16, 2012 10:20 pm (PST)



Terimakasih pak Ghozi, Pak Seno dan yang lain yang nggak jadi ngirim solusi lantaran kalah duluan atau formula lain.

Objective sudah tercapai.

To Pak seno, jangan kecil hati lantaran kalah cepat pencet tombol dibanding pak Ghozi :)

Saya tetap menghargai kontribusinya

Thanks all

Wassalam
Agung Widodo

________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of ghozi alkatiri
Sent: Tuesday, January 17, 2012 1:07 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Mengambil hasil dibawah angka 10

misalkan data di A1
maka formulanya:

MOD(A1;10)

wassalam

Ghozi Alkatiri

--- Pada Sel, 17/1/12, agung_widodo@sanyo.com <agung_widodo@sanyo.com> menulis:

Dari: agung_widodo@sanyo.com <agung_widodo@sanyo.com>
Judul: [belajar-excel] Mengambil hasil dibawah angka 10
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 17 Januari, 2012, 12:58 PM

Rekans,

Misalnya,

Isi sel maka Hasil yang diinginkan di sel sebelah

214 4

214.8 4.8

39.447 9.447

Objective :

1. menampilkan angka dibawah sepuluh
2. Bila ada koma, maka koma juga ditampilkan.

Mohon bantuan formulanya , please

Wassalam

Agung W

6.

booking calendar

Posted by: "widodo aji" bosseaz@yahoo.com   bosseaz

Mon Jan 16, 2012 10:30 pm (PST)



Dear Pakar Excel,

Bisa tolong bantu saya untuk membuat booking calendar berdasar data tanggal check in/out yang telah diinput menjadi blocking cell dengan warna tertentu di kolom sebelah kanan. Prefer tidak pakai VBA ;).....

Regards
Wied.
7a.

Re: Memasukkan data ke dalam sheet lain dengan dua kriteria

Posted by: "Isti Astro" milisastro@gmail.com   isti_astro

Tue Jan 17, 2012 12:53 am (PST)



Setelah diutak-atik lagi menjadi seperti ini:
===============================================================
Sub Generate_CutiReport()
' coded by: Indri Hapsari
' 12 dec 2012 // jkt. / BeExcelCase #15152
' modified by: oSeno (ontoseno84@gmail.com)
'------------------------------------------
Dim dTabel As Range, dRekap As Range, Libur As Range
Dim TglAwal As Date, TglAkir As Date, vTgl As Date
Dim *TGLRepA As Date, TGLRepZ As Date*
Dim iRow As Integer, iCol As Integer, RekRow As Integer
Dim CriYYMM As String, Tipe As String, IGems As String

Set dTabel = Sheet4.Cells(1).CurrentRegion
Set dRekap = Sheet5.Cells(1).CurrentRegion.Offset(1, 11) 'Karena
ternyata tgl 1 ada di kolom ke 12
Set Libur = Application.Range("LiburNas")
TGLRepA = Sheet5.Cells(2).Value
TGLRepZ = DateSerial(Year(TGLRepA), Month(TGLRepA) + 1, 0)
CriYYMM = Format(TGLRepA, "yyMM")
dRekap.Parent.Activate

For iRow = 2 To dTabel.Rows.Count
IGems = dTabel(iRow, 1)
Set RngFind = Sheet4.Range("B3:B250").Find(IGems,
LookIn:=xlValues)
If Nothing Then Resume Next
RekRow = Right(RngFind.Address, Len(RngFind.Address) - 3)

If LCase(dTabel(iRow, 6)) Like "approved*" Then
TglAwal = dTabel(iRow, 3): TglAkir = dTabel(iRow, 4)
'-------------------------------------------------
* If TglAwal <= TGLRepZ And TglAkir >= TGLRepA Then*
* If TglAwal < TGLRepA Then TglAwal = TGLRepA*
* If TglAkir > TGLRepZ Then TglAkir = TGLRepZ*
'--------------------------------------------------
Tipe = LeaveCode(dTabel(iRow, 5).Value)

' TipeCuti ditulis JIKA :BulanThIni, nonMinggu & NonLibur
For iCol = Day(TglAwal) To Day(TglAkir)
vTgl = dRekap(1, iCol).Value
If Format(vTgl, "yyMM") = CriYYMM Then
If Weekday(vTgl) > 1 Then
dRekap(RekRow, iCol) = Tipe
End If
If WorksheetFunction.CountIf(Libur, vTgl) > 0 Then
dRekap(RekRow, iCol) = vbNullString
End If
End If
Next iCol
End If
End If
Next iRow
End Sub

===============================================================

Nah masalah timbul kembali karena hasil akhir tidak tepat sesuai dengan
address (rekRow) namun malah di row dibawahnya, jadi row-nya kelebihan.
Mohon bantuannya sekali lagi bagaimana mengatasinya....karena saya search
dengan debugging rekRow menghasilkan row number (rngFind.address) benar
namun begitu selesai debugging hasil tidak sesuai atau dibawahnya cell yang
dituju.

Terima kasih banyak atas bantuannya.

Regards,
Isti

2012/1/16 Isti Astro <milisastro@gmail.com>

> Dear Pak Seno,
>
> Kode modifikasi dari Bapak lebih simple dan ringkas, namun mohon maaf
> belum sesuai yang diinginkan. Karena yang diinginkan adalah data di tabel
> rekap sudah fix dan terdiri dari list nomor ID, nama dan tanggal, nah yang
> diinginkan adalah me-lookup data yang terdapat di tabel data kemudian
> dimasukkan ke tabel rekap sesuai dengan nomor ID (posisinya random) menurut
> tanggal awal sampai akhirnya.
>
> Mohon bantuannya sekali lagi. Terima kasih.
>
> Regards,
> Isti
>
>
> 2012/1/14 o' Seno <ontoseno84@gmail.com>
>
>> **
>>
>>
>> -- di-modipikasi sedikitt..
>>
>> Sub Generate_CutiReport()
>> ' coded by: Indri Hapsari
>> ' 12 dec 2012 // jkt. / BeExcelCase #15152
>> ' modified by: oSeno (ontoseno84@gmail.com)
>> '------------------------------------------
>> Dim dTabel As Range, dRekap As Range, Libur As Range
>> Dim TglAwal As Date, TglAkir As Date, vTgl As Date
>> Dim *TGLRepA As Date, TGLRepZ As Date*
>> Dim iRow As Integer, iCol As Integer
>> Dim CriYYMM As String, Tipe As String
>>
>> Set dTabel = Sheet4.Cells(1).CurrentRegion
>> Set dRekap = Sheet5.Cells(1).CurrentRegion.Offset(1, 3)
>> Set Libur = Application.Range("LiburNas")
>> TGLRepA = Sheet5.Cells(2).Value
>> TGLRepZ = DateSerial(Year(TGLRepA), Month(TGLRepA) + 1, 0)
>> CriYYMM = Format(TGLRepA, "yyMM")
>> dRekap.Parent.Activate
>>
>> For iRow = 2 To dTabel.Rows.Count
>> dRekap(iRow, -2) = iRow - 1
>> dRekap(iRow, -1) = dTabel(iRow, 1)
>> dRekap(iRow, 0) = dTabel(iRow, 2)
>> If LCase(dTabel(iRow, 6)) Like "approved*" Then
>> TglAwal = dTabel(iRow, 3): TglAkir = dTabel(iRow, 4)
>> '-------------------------------------------------
>> * If TglAwal <= TGLRepZ And TglAkir >= TGLRepA Then*
>> * If TglAwal < TGLRepA Then TglAwal = TGLRepA*
>> * If TglAkir > TGLRepZ Then TglAkir = TGLRepZ*
>> '--------------------------------------------------
>> Tipe = LeaveCode(dTabel(iRow, 5).Value)
>>
>> ' TipeCuti ditulis JIKA :BulanThIni, nonMinggu & NonLibur
>> For iCol = Day(TglAwal) To Day(TglAkir)
>> vTgl = dRekap(1, iCol).Value
>> If Format(vTgl, "yyMM") = CriYYMM Then
>> If Weekday(vTgl) > 1 Then dRekap(iRow, iCol) = Tipe
>> If WorksheetFunction.CountIf(Libur, vTgl) > 0 Then
>> dRekap(iRow, iCol) = vbNullString
>> End If
>> End If
>> Next iCol
>> End If
>> End If
>> Next iRow
>> End Sub
>>
>> *o'Seno*
>>
>>
>>
>> 2012/1/13 Isti <milisastro@gmail.com>
>>
>>> **
>>>
>>> saya sudah coba utak-atik dengan mengganti coding :
>>> -------------------------------------
>>> IGems = dTabel(i, 2) ' ID
>>> -------------------------------------
>>> dan
>>> ------------------------------------------------------
>>> For c = Day(TglAwal) To Day(TglAkir)
>>> vTgl = dRekap(1, c).Value
>>> If Weekday(vTgl) > 1 Then dRekap(IGems, c) = Tipe
>>>
>>> If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
>>> Then dRekap(i, c) = vbNullString
>>> Next c
>>> ------------------------------------------------------
>>> Namun yang terisi kok cuma tiga employee ID saja, sedangkan yang lain
>>> kosong sedang datanya ada sekitar 500. Mohon bantuannya Bu Haps dan para
>>> master sekalian.
>>>
>>> Regards,
>>> Isti
>>>
>>>
>>> --- In belajar-excel@yahoogroups.com, Isti Astro <milisastro@...> wrote:
>>> >
>>> > Bu Siti ternyata setelah di aplikasikan banyak error terjadi, karena di
>>> > contoh makro dan file solusi Bu siti, untuk tabel drekap diisi lewat
>>> > makro...sedang di data contoh yang saya kirim maksudnya adalah tabel
>>> rekap
>>> > sudah ada dan data yang ada di sember data hanya dipindahkan ke rekap
>>> > sesuai dengan nomor ID dan tanggal pengajuan. (kalo pakai rumus seperti
>>> > vlookup)
>>> > Mohon informasinya
>>>
>>
>>
>
>
8a.

Re: Bls: [belajar-excel] Label Bebas utk Scatter Chart

Posted by: "toton rusmadi" t_rusmadi@yahoo.com   t_rusmadi

Tue Jan 17, 2012 1:40 am (PST)



Terima kasih Pak Supriyadi, walaupun dapat yg masih trial version tapi cukup membantu permasalahan saya.

salam,
t_rusmadi

--- On Mon, 1/16/12, supri yadi <supriyadi_sbm@yahoo.co.id> wrote:

From: supri yadi <supriyadi_sbm@yahoo.co.id>
Subject: Bls: [belajar-excel] Label Bebas utk Scatter Chart
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Date: Monday, January 16, 2012, 6:49 AM

 

Dear pak Toton,

Install PUP7trial.exe

setelah terinstall,

click scatter chart,

chart click pupV7,

click charting tools,

click chart data labeler,

lalu pilih series produk ID,

click pada label range, dan blok range D2:D7 lalu OK. seperti di lampiran.

Semoga membantu.

Best Regards,

Supriyadi,

===============================================

ModsNote:

maaf file pup7trial.exe terpaksa kami cekal

karena berukuran RIBUAN KB !! sedangkan aturan

milis membatasi max 250 KB

Disarankan pak Supriy jika akan menunjukkan

file cukup diberikan link/URL-nya saja.....

misal:

http://spreadsheetpage.com/index.php/pupv7/trial

================================================

________________________________

Dari: toton rusmadi <t_rusmadi@yahoo.com>

Dikirim: Minggu, 15 Januari 2012 8:03

 

Dear Pakar Excel,

Mohon bantuan sehubungan saya yang mencoba memberi label pada titik-titik dalam grafik scatter sesuai dengan isi dalam kolom yg kita inginkan. Contoh kasus filenya ada dalam  lampiran.

Terima kasih banyak sebelumnya atas bantuan exceler semua, semoga sharingya

bisa bermanfaat untuk yg membutuhkan. Mohon maaf apabila ini repost

topik.

Terima kasih.

Salam,

t_rusmadi

9a.

Pada saat insert langsung ada rumusnya

Posted by: "Si Baee" si.baee@yahoo.com   si.baee

Tue Jan 17, 2012 2:48 am (PST)



Dear Master,

saya punya rumus di range(C5:C20) terus saya lakukan insert row pada row C10, dan hasil dari insert itu cell tidak ada rumusnya, yang saya mau pada saat saya insert di anatar cell C5 dan C20 itu langsung ada rumusnya. mohon bantunya gi mana caranya agar pada saat saya insert row rumus yang ada antara cell C5 dan C20 itu tetap ada juga.


terima kasih.

9b.

Re: Pada saat insert langsung ada rumusnya

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Tue Jan 17, 2012 3:14 am (PST)



Dear Bae,

Asumsi pakai Excel 2007 (mungkin LIst Object xl 2003 juga sudah memiliki
kemampuan yang sama).
>> Blok table datanya (semua, termasuk header)
>> ribbon Home -> grup Styles -> klik Format as Table -> pilih salah satu
style yang ada -> centang my table has header -> tekan OK
>> periksa formula beberapa kolom berformula.
>> coba lakukan insert row

Regards,
Kid.

2012/1/17 Si Baee <si.baee@yahoo.com>

> **
>
>
> Dear Master,
>
> saya punya rumus di range(C5:C20) terus saya lakukan insert row pada row
> C10, dan hasil dari insert itu cell tidak ada rumusnya, yang saya mau pada
> saat saya insert di anatar cell C5 dan C20 itu langsung ada rumusnya. mohon
> bantunya gi mana caranya agar pada saat saya insert row rumus yang ada
> antara cell C5 dan C20 itu tetap ada juga.
>
>
> terima kasih.
>
>
>
>
10.

Comtoh format excel untuk inventory logistick

Posted by: "Muhammad Sholeh" sholeh.mdr@gmail.com

Tue Jan 17, 2012 2:49 am (PST)



Dear Rekan's

Langsung saja,
Saya kesulitan mengontrol stock di tempat saya kerja sekarang dikarenakan
banyaknya sisa hasil produksi dengan discription dan tipe item yang sama.

pertanyaannya : Apakah ada cara yang lebih simpel untuk mengontrol stock
tersebut?

contoh terlampir.

jika saya mengikuti format seperti terlampir,cukup memakan waktu untuk
mengerjakannya

Mohon maaf jika ada yang kurang mengerti.

Terima Kasih
wassalam
M.Sholeh

--

 Go green... Please don't print this e-mail unless you really need to
11.

copy file antar file secara otomatis

Posted by: "Anak compak Ac" aanakcompak@yahoo.com   aanakcompak

Tue Jan 17, 2012 2:53 am (PST)



Salam,

Saya member baru milis excel ini.

Mohon dibantu bagaimana caranya melakukan copy data dari satu file (Data1) excel ke file lain (Data2). Keterangan selengkapnya sudah saya sertakan dalam lampiran.

Terima kasih atas bantuan para Bapak dan Ibu sekalian.
Recent Activity
Visit Your Group
Yahoo! Groups

Dog Lovers Group

Connect and share with

dog owners like you

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Tidak ada komentar:

Posting Komentar