Rabu, 29 Februari 2012

[belajar-excel] Digest Number 1531

Messages In This Digest (9 Messages)

Messages

1a.

Re: mohon infonya : Apa maksud formula ='.'!BC15

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

Tue Feb 28, 2012 12:30 am (PST)



Kalau anda pakai *Excel 2007; *
*Klik kanan salah satu Tab Sheet* yg ada; pada Context-menu yng
muncul >*pilih Unhide
*

[image: Inline image 1]

Pengguna *Excel 2003* dapat menemukan motoda ini pada menu Format
*Format > Sheet > Hide / UnHide*
*
*
[image: Inline image 2]

Kalau gak mau beli buku di tokobuku, mintalah eBooknya (Excel DASAR) ke
mbak Haps,
via jalurpribadi.. dia lagi bagi-bagi 2 eBooks tuh... (5.5 MB dan 13.3 MB
in PDF flie).

*o'Seno*

*2012/2/28 harso89 <harso89@yahoo.com>
> Rekan Seno,
> kalau itu berarti diambil dari sheet yang bernama "." (titik),
> tetapi tidak ada sheet yang bernama "." (titik)
> apakah ada sheet yang di hide, kl ada bgm cara bukanya.
> salam
> 2012/2/27 harso89 <harso89@...>*
>
>
> --- In belajar-excel@yahoogroups.com, "o' Seno" <ontoseno84@...> wrote:
>> di cell tertulis *='.'!BC15* maksudnya bgm ya ?
>> ='.'!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
>> "." (TITIK)*
>> =sheet1!BC15 maksudnya merujuk *cell BC15* yg berada di *Sheet yg bernama
>> "Sheet1"*
>> *o'Seno*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2a.

Re: Coding Macro : Cek Station

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

Tue Feb 28, 2012 1:44 am (PST)



Hai Ridwan, Hai Kurrei recca, Hai yusajing ehm,
bgmana kabar kalian bertiga, baik bukan ?

Sub MingguanTotal()
Dim Station, Daft As Range, Hsil As Range, Found As Boolean
Dim i As Integer, x As Integer, r As Integer

Station = Split(
"RCTI,SCTV,IVM,MNCTV,TVRI1,TRANS7,TRANS,GTV,ANTV,TVONE,METRO", ",")
Set Daft = Sheets("Makro").Range("A4")
Set Daft = Range(Daft, Daft.End(xlDown))
Set Hsil = Daft.Offset(0, 4)

For x = 1 To Daft.Rows.Count
Found = False
For i = 0 To UBound(Station)
If Daft(x, 1) = Station(i) Then
r = r + 1
Found = True
Hsil(r, 1) = Daft(x, 1)
Exit For
End If
Next i
If Not Found Then
r = r + 1
Hsil(r, 1) = "Other"
End If
Next x
Hsil.CurrentRegion.Offset(2, 0).Name = "xhsl"
End Sub

wassalam..
*o'Seno*

*2012/2/28 Kurei recca <yusajing_ehm@yahoo.com>
> Salam Para Master Excel,
>
> Saya Ingin bertanya tentang Coding Macro yang sedang saya Buat,
> Saya sedang membuat coding macro untuk mengecek apakah Station-Station *
*> yang saya kelompokkan ada di dalam daftar,
> Untuk Lebih Jelasnya dapat dilihat di dalam lampiran
> Best Regards,
> Ridwan*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2b.

Bls: [belajar-excel] Coding Macro : Cek Station

Posted by: "Kurei recca" yusajing_ehm@yahoo.com   yusajing_ehm

Tue Feb 28, 2012 8:24 pm (PST)



Oke, Makasih ya mas,

tapi kok di password mas ??

________________________________
Dari: o' Seno <ontoseno84@gmail.com>
Dikirim: Selasa, 28 Februari 2012 1:44
 
Hai Ridwan,  Hai Kurrei recca,  Hai yusajing ehm,
bgmana kabar kalian bertiga, baik bukan ?

Sub MingguanTotal()
   Dim Station, Daft As Range, Hsil As Range, Found As Boolean
   Dim i As Integer, x As Integer, r As Integer
   
   Station = Split("RCTI,SCTV,IVM,MNCTV,TVRI1,TRANS7,TRANS,GTV,ANTV,TVONE,METRO", ",")
   Set Daft = Sheets("Makro").Range("A4")
   Set Daft = Range(Daft, Daft.End(xlDown))
   Set Hsil = Daft.Offset(0, 4)
   
   For x = 1 To Daft.Rows.Count
      Found = False
      For i = 0 To UBound(Station)
         If Daft(x, 1) = Station(i) Then
            r = r + 1
            Found = True
            Hsil(r, 1) = Daft(x, 1)
            Exit For
         End If
      Next i
      If Not Found Then
         r = r + 1
         Hsil(r, 1) = "Other"
      End If
   Next x
   Hsil.CurrentRegion.Offset(2, 0).Name = "xhsl"
End Sub

wassalam..o'Seno

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

Re: Coding Macro : Cek Station

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

Tue Feb 28, 2012 8:57 pm (PST)



ya, memang vba-project-nya dilocked (for viewing);
karena isi makronya sudah di gelar di badan email
Pak Kurei Ehm, mau lihat apanya lagi ya.. di dalam modulenya ?
(dijamin sama dengan yg ada di badan email)

maksud lain:
(bagi yg tidak bisa membongkar lockingnya); agar bisa latihan menuliskan
code vba di module, dengan tangan dan jarinya sendiri..

kalau tetap gak mau latihan, bisa di-cop-past dari badan email ke module...
tetapi cara ini akan memperlama proses perjalanan anda menuju *"menjadi *
*penulis makro"* yang okeh..."

belajar-excel, kurang efektip kalau hanya memakai/pandai menggunakan rumus
atau coding yg siap pakai

*o'Seno*
~belajar-excel ? 'gak akan nyesel !!

On Wed, Feb 29, 2012 at 9:51 AM, Kurei recca <yusajing_ehm@yahoo.com> wrote:

> **
>
> Oke, Makasih ya mas,
> tapi kok di password mas ??
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3a.

Bls: [belajar-excel] Pembukuan Yang Buruk

Posted by: "Hadi Sukisno" hadi_sukisno@ymail.com   hadi_sukisno@ymail.com

Tue Feb 28, 2012 2:39 am (PST)



Kepada Yth. Bapak Raya Hidayat

File yang Bapak kirimkan sungguh bekerja dengan baik, dan sejauh ini berjalan dengan baik pada workbook aktual yang sedang saya kerjakan.
Semoga Tuhan membalas kebaikan yang telah bapak kerjakan.

Lemah garing -- lemahe teles

sukisno hadi

________________________________
Dari: raya hidayat <raya.hidayat@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 27 Februari 2012 8:32
Judul: Re: [belajar-excel] Pembukuan Yang Buruk

dear bapak sukisno hadi,
terlampir file yang mudah-mudahan sesuai dengan yang diinginkan.

terima kasih
Raya

2012/2/26 Hadi Sukisno <hadi_sukisno@ymail.com>
> 
>Yang terhormat Bapak Raya Hidayat
>Terima kasih Bapak sudah meluangkan waktu untuk sekedar memberikan pencerahan kepada saya.
>Apa yang Bapak sampaikan sungguh sangat membantu saya dalam mengatasi problem "manualisasi".
>Tetapi, seandainya berkas anggarannya berubah, isian pada kolom 'Grup' (kolom B) dikosongkan bagaimana caranya ya Pak ??
>
>Berikut saya lampirkan contoh filenya (di Sheet 2)
>
>Terima kasih
>sukisno hadi

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

Mencocokkan Control Pada Form dengan yang ada di sheet

Posted by: "PT. ADHI KARYA (PERSERO) Tbk" adhi_tax_dk3@yahoo.com   adhi_tax_dk3

Tue Feb 28, 2012 8:23 pm (PST)



Be Excel,
Aku coba utak-atik membuat suatu form inputan tanggal & bulan yang dilengkapi dengan control pengawas. Sebetulnya keinginan saya begini :

jika yang tertulis pada sheet 1 range H5 tertulis Bulan Februari 2011, maka yang diizinkan untuk diinput pada form hanya bulan Februari 2011 saja, artinya jika selain Bulan Februari 2011, maka keluar suatu peringatan untuk menolak exekusi....

Tapi , sudah aku putar2 otak ne, ga bisa juga. Jadi jika para pakar XL berkenan, bantulah saya untuk mencerahkan ilmuku yang lagi mampet ini yah...

Aku juga lampirkan contoh filenya...

Best Regard
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.

Re: Mencocokkan Control Pada Form dengan yang ada di sheet

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

Tue Feb 28, 2012 10:47 pm (PST)



== Userform Module ==

Dim YYMMbox As String, YYMMcel As String, InDate As Date

Private Sub UserForm_Initialize()
YYMMcel = Format(DateValue(Cells(5, 8)), "yyyyMM")
End Sub

Private Sub CommandButton1_Click()
'Ki Semprul - 29 feb 2012
Dim R As Long
If YYMMcel = YYMMbox Then
R = Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(Cells(R, 1)) Then R = R + 1
Range("A" & R).Value = DateValue(txt_Tgl.Value)
txt_Tgl = ""
txt_Tgl.SetFocus
Else
MsgBox "Anda Tak Diizinkan Untuk Memasukan Bulan & Tahun Tersebut", 48
End If
End Sub

Private Sub txt_Tgl_AfterUpdate()
'Ki Semprul - 29 feb 2012
On Error Resume Next
InDate = DateValue(txt_Tgl)
If InDate > 0 Then
txt_Tgl = Format(InDate, "dd MMMM yyyy")
YYMMbox = Format(InDate, "yyyyMM")
Else
MsgBox "Input di TextBox tidak valid sbg data Tanggal!", 48
End If
End Sub

Note: agar memasukkan data DATE selalu akurat, textbox di userform bisa
dibantu
oleh Userform berisi Calendar control; atau Textbox diganti dgn DTPicker
control.

*Semprul..Ki!*

2012/2/29 PT. ADHI KARYA (PERSERO) Tbk <adhi_tax_dk3@yahoo.com>
>
> Be Excel,
> Aku coba utak-atik membuat suatu form inputan tanggal & bulan yang
dilengkapi dengan control pengawas. Sebetulnya keinginan saya begini :
>
> jika yang tertulis pada sheet 1 range H5 tertulis Bulan Februari 2011,
maka yang diizinkan untuk diinput pada form hanya bulan Februari 2011 saja,
artinya jika selain Bulan Februari 2011, maka keluar suatu peringatan untuk
menolak exekusi....
>
> Tapi , sudah aku putar2 otak ne, ga bisa juga. Jadi jika para pakar XL
berkenan, bantulah saya untuk mencerahkan ilmuku yang lagi mampet ini yah...
>
> Aku juga lampirkan contoh filenya...
>
> Best Regard
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5a.

Re: Filter tanggal

Posted by: "Contract Mining Assistant, Asam-Asam" apassistant@arutmin.com

Tue Feb 28, 2012 8:28 pm (PST)



Dear Hartini,
Dengan Sumproduct juga bisa dijadikan pilihan.

=SUMPRODUCT((Sumber data nya=kreteria yang di inginkan)*angka dari
kriteria yang di inginkan.)

Salam: |Rasyid|

--- Pada Sab, 25/2/12, hartini_80@yahoo.co.id menulis:
Dear Mr Kid, Pak Hendrik dan Ki Semprul.
Terima kasih sebelumnya pak, karena telah membantu saya, bener ki
ternyata saya telah memiliki file filter tanggal tetapi yg saya inginkan bukan filter tanggalnya ki, dan maaf kemarin salah kirim lampirannya, maaf banget ya, please dimaafkan ya,
berikut saya kirimkan pertanyaan dan lampiran yang saya inginkan
Salam

Best Regard's
Hartini
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
6a.

Bls: [belajar-excel] Re: mohon infonya : Apa maksud formula ='.'!BC1

Posted by: "Nang Agus" nangagus1@yahoo.com   nangagus1

Tue Feb 28, 2012 8:32 pm (PST)



ada dua cara untuk memunculkan sheet yang disembunyikan.
1. Klik kanan pada sheet yang tampak, pilih unhide kemudian pilih sheet yang akan di unhide.
cara lain menggunakan menu format sheet unhide ( di 2007 format hide unhide, sheet)

2. cara kedua sheet yang disembunyikan menggunakan VBA. tekan Alt F11 (open Visual Basic) pilih sheetnya (select) pada properties ganti visible 2xlSheetVeryHidden menjadi -1xlSheetVisible
salam

--- Pada Sel, 28/2/12, harso89 <harso89@yahoo.com> menulis:
Dari: harso89 <harso89@yahoo.com>
Tanggal: Selasa, 28 Februari, 2012, 7:02 AM

Rekan Seno,
kalau itu berarti diambil dari sheet yang bernama "." (titik),
tetapi tidak ada sheet yang bernama "." (titik); apakah ada sheet yang di hide,
kl ada bgm cara bukanya.
salam

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.24

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)