Jumat, 08 Juli 2011

[belajar-excel] Digest Number 1236

Messages In This Digest (25 Messages)

1a.
Re: Mail Merge di excell From: STDEV(i)
1b.
Re: Mail Merge di excell From: Yusril Ramadani
1c.
Re: Mail Merge di excell From: STDEV(i)
2a.
Macro untuk hide row jika sel kosong From: hartini_80@yahoo.co.id
2b.
Re: Macro untuk hide row jika sel kosong From: STDEV(i)
2c.
Re: Macro untuk hide row jika sel kosong From: Mr. Kid
2d.
Re: Macro untuk hide row jika sel kosong From: summonery
2e.
Re: Macro untuk hide row jika sel kosong From: hartini_80@yahoo.co.id
2f.
Re: Macro untuk hide row jika sel kosong From: Mr. Kid
2g.
Re: Macro untuk hide row jika sel kosong From: hartini_80@yahoo.co.id
3a.
Re: Formula/Makro untuk me-Replace dengan referensi sel lain. From: Sudarsono Suhenk
4a.
Re: bagaimana rumus untuk menarik data difile yg terlampir From: Mr. Kid
5a.
Menarik data menggunakan tanggal From: Rey
5b.
Re: Menarik data menggunakan tanggal From: Mr. Kid
5c.
Re: Menarik data menggunakan tanggal From: Haps
5d.
Re: Menarik data menggunakan tanggal From: Haps
6a.
Membuat Laporan kerja dalam Sheet From: Tjahya Hartono
6b.
Re: Membuat Laporan kerja dalam Sheet From: tjahyahartono@yahoo.co.id
7.
Bls: [belajar-excel] Mail Merge di excell From: ghozi alkatiri
8a.
Macro + lookup From: hartini_80@yahoo.co.id
8b.
Re: Macro + lookup From: Mr. Kid
8c.
Re: Macro + lookup From: STDEV(i)
8d.
Re: Macro + lookup From: hartini_80@yahoo.co.id
8e.
Re: Macro + lookup From: hartini_80@yahoo.co.id
8f.
Re: Macro + lookup From: STDEV(i)

Messages

1a.

Re: Mail Merge di excell

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jul 8, 2011 12:53 am (PDT)



berarti nomor surat akan punya KOLOM sendiri dlm tabel kan ya

misal nomor ditaruh di kolom I pada tabel
maka rumus di B2 pada sheet FormSurat
="No : "&*OFFSET(Data!$I$4,$N$2,0)*
&"/List-pst/"&MONTH(TODAY())&"/"&YEAR(TODAY())

2011/7/8 Yusril Ramadani <yusrilramadani@gmail.com>

> **
>
>
> Terima kasih Mba Siti
> begini Mba Siti No Surat tidak sama dg No List Mba, bagaiman ya merubahnya
>
>
>
>
> 2011/7/8 STDEV(i) <setiyowati.devi@gmail.com>
>
>> seperti ini kah yang dimaksod ??
>>
>> 1.
>> perubahan data di FORM surat: hanya mengandalkan RUMUS
>> Rumusnya pun sangat sederhana, karena hanya sekitar Ofset-ofset-an saja...
>> (boleh digandi denan index-index-an (ndak usah pakai If-If-an !! he he)
>>
>> 2.
>> perubahan record (baris data) 1 ke berikutnya (di tabel data) dibantu
>> oleh
>> SPIN BUTTON (itu lho pak, tombol yg kalo diceklik angkanya "maju" atau
>> "mundur")
>>
>> 3.
>> Spin Butoon diberi nilai MAX = sebanyak jumlah records (agar tidak
>> kebablasan
>> merujuk ke data kosong)
>> lha... ini baru perlu makro !!
>> makro dijalankan setiap kali ada orang men-*DeAktifkan sheet Data*
>> (berarti baru saja melihat data, entah mengediit atau hanya melihat saja)
>> pokoknya urusan kita merefresh nilai MAX milis si SpinButton.
>>
>> 4.
>> untuk dapat mencetak secara BULK ( anda hanya membatasi NOMOR "MULAI"
>> dan NOMOR "SAMPAIDENGAN" juga perlu makro
>>
>> 5
>> jadi ada dua kelompok makro
>>
>> 1 ada di module sheet data
>>
>> Private Sub Worksheet_Deactivate()
>> Dim dTabel As Range, T As Long
>> Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0)
>> T = dTabel.Rows.Count - 2
>> Sheets("contoh surat").SpinButton1.Min = 1
>> Sheets("contoh surat").SpinButton1.Max = T
>> End Sub
>>
>>
>> 2 ada di module sheet FORM surat
>>
>> Private Sub Print1_Button_Click()
>> Me.PrintPreview
>> ' Me.PrintOut
>> End Sub
>>
>> Private Sub Print2_Button_Click()
>> Dim i As Long
>> For i = Range("N11") To Range("N13")
>> Range("N2") = i
>> Me.PrintPreview
>> ' Me.PrintOut
>> Next i
>> End Sub
>>
>> ' note
>> selama untuk coba coba pakai PrintPreview dulu
>> kalau sudah oke baru diganti perintah PrintOut.
>>
>> ~ siti
>>
>>
>>
1b.

Re: Mail Merge di excell

Posted by: "Yusril Ramadani" yusrilramadani@gmail.com   yusril_rmd

Fri Jul 8, 2011 2:26 am (PDT)



Thanks teman2

Mba Siti, setelah saya coba, Spin buttonnya hanya untuk Print previewkah,
apa bisa lgsng cetak
mis saya mau bikin 10 surat

Terimakasih sebelumnya

2011/7/8 STDEV(i) <setiyowati.devi@gmail.com>

> **
>
>
> berarti nomor surat akan punya KOLOM sendiri dlm tabel kan ya
>
> misal nomor ditaruh di kolom I pada tabel
> maka rumus di B2 pada sheet FormSurat
> ="No : "&*OFFSET(Data!$I$4,$N$2,0)*
> &"/List-pst/"&MONTH(TODAY())&"/"&YEAR(TODAY())
>
>
>
> 2011/7/8 Yusril Ramadani <yusrilramadani@gmail.com>
>
>> **
>>
>>
>> Terima kasih Mba Siti
>> begini Mba Siti No Surat tidak sama dg No List Mba, bagaiman ya
>> merubahnya
>>
>>
>>
>> 2011/7/8 STDEV(i) <setiyowati.devi@gmail.com>
>>
>>> seperti ini kah yang dimaksod ??
>>>
>>> 1.
>>> perubahan data di FORM surat: hanya mengandalkan RUMUS
>>> Rumusnya pun sangat sederhana, karena hanya sekitar Ofset-ofset-an
>>> saja...
>>> (boleh digandi denan index-index-an (ndak usah pakai If-If-an !! he he)
>>>
>>> 2.
>>> perubahan record (baris data) 1 ke berikutnya (di tabel data) dibantu
>>> oleh
>>> SPIN BUTTON (itu lho pak, tombol yg kalo diceklik angkanya "maju" atau
>>> "mundur")
>>>
>>> 3.
>>> Spin Butoon diberi nilai MAX = sebanyak jumlah records (agar tidak
>>> kebablasan
>>> merujuk ke data kosong)
>>> lha... ini baru perlu makro !!
>>> makro dijalankan setiap kali ada orang men-*DeAktifkan sheet Data*
>>> (berarti baru saja melihat data, entah mengediit atau hanya melihat saja)
>>> pokoknya urusan kita merefresh nilai MAX milis si SpinButton.
>>>
>>> 4.
>>> untuk dapat mencetak secara BULK ( anda hanya membatasi NOMOR "MULAI"
>>> dan NOMOR "SAMPAIDENGAN" juga perlu makro
>>>
>>> 5
>>> jadi ada dua kelompok makro
>>>
>>> 1 ada di module sheet data
>>>
>>> Private Sub Worksheet_Deactivate()
>>> Dim dTabel As Range, T As Long
>>> Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0)
>>> T = dTabel.Rows.Count - 2
>>> Sheets("contoh surat").SpinButton1.Min = 1
>>> Sheets("contoh surat").SpinButton1.Max = T
>>> End Sub
>>>
>>>
>>> 2 ada di module sheet FORM surat
>>>
>>> Private Sub Print1_Button_Click()
>>> Me.PrintPreview
>>> ' Me.PrintOut
>>> End Sub
>>>
>>> Private Sub Print2_Button_Click()
>>> Dim i As Long
>>> For i = Range("N11") To Range("N13")
>>> Range("N2") = i
>>> Me.PrintPreview
>>> ' Me.PrintOut
>>> Next i
>>> End Sub
>>>
>>> ' note
>>> selama untuk coba coba pakai PrintPreview dulu
>>> kalau sudah oke baru diganti perintah PrintOut.
>>>
>>> ~ siti
>>>
>>>
>>>
>
1c.

Re: Mail Merge di excell

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jul 8, 2011 3:01 am (PDT)



spin button hanya untuk berpindah satu persatu dari record ke record
kalau perlu: satu tampilan bisa dicetak ( tombol print 1 x)

kalau mau cetak banyak (dari record 1 sampai terakhir, atau misalnya dari
record 3 sampai ke 7 ) pakai tombol PRINT di bawahnya dan mengisi nomor
MULAI dan NOMOR SAMPAI-DGN (nomor = urutan / index record)

( apakah GAMBAR yg ada belum intuitif ?? )

di makronya hidupkan perintah PrintOUT
(saat ni masih PrintPreview)

2011/7/8 Yusril Ramadani <yusrilramadani@gmail.com>

> **
>
> Thanks teman2
> Mba Siti, setelah saya coba, Spin buttonnya hanya untuk Print previewkah,
> apa bisa lgsng cetak
> mis saya mau bikin 10 surat
>
> Terimakasih sebelumnya
>
>
2a.

Macro untuk hide row jika sel kosong

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 12:55 am (PDT)



Dear all

Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara otomatis baris ke 5 akan terhide.
Salam
Tiny
Powered by Telkomsel BlackBerry®
2b.

Re: Macro untuk hide row jika sel kosong

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jul 8, 2011 1:57 am (PDT)



*tanpa makro*
range sekolom tsb dikenakan AutoFilter
lalu difilter dengan kriteria *Non-Blank*
*
*
[image: autoFilter_NonBlanks.GIF]

*dengan makro*
sebelum di jalankan makronya range sekolom tsb diSELECT dulu

Sub Bla()
Dim i As Long
For i = 1 To Selection.Rows.Count
If Selection(i, 1) = vbNullString Then
Selection(i, 1).EntireRow.Hidden = True
End If
Next i
End Sub

2011/7/8 <hartini_80@yahoo.co.id>

> Dear all
>
> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong
> maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang
> berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara
> otomatis baris ke 5 akan terhide.
> Salam
> Tiny
2c.

Re: Macro untuk hide row jika sel kosong

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

Fri Jul 8, 2011 2:05 am (PDT)



Bagaimana jika menggunakan fitur autofilter saja. Hilangkan centang dari
item bernama (Blanks)

Kid.

2011/7/8 <hartini_80@yahoo.co.id>

> Dear all
>
> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong
> maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang
> berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara
> otomatis baris ke 5 akan terhide.
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
2d.

Re: Macro untuk hide row jika sel kosong

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

Fri Jul 8, 2011 2:09 am (PDT)



coba,
Private Sub Worksheet_Change(ByVal Target As
Range)Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
TrueEnd Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, hartini_80@... wrote:
>
> Dear all
>
> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut
kosong maka secara otomatis akan terhide, contohnya saya memiliki baris
1-10 yang berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka
secara otomatis baris ke 5 akan terhide.
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>

2e.

Re: Macro untuk hide row jika sel kosong

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 2:34 am (PDT)



Kalo pakai autofilter bisa untuk 1 kolom aja kah mba? Kemarin saya coba bisa (hasil dari utak atik) abis itu coba lagi ndak bisa hehehe
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Jul 2011 15:28:13
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro untuk hide row jika sel kosong

*tanpa makro*
range sekolom tsb dikenakan AutoFilter
lalu difilter dengan kriteria *Non-Blank*
*
*
[image: autoFilter_NonBlanks.GIF]


*dengan makro*
sebelum di jalankan makronya range sekolom tsb diSELECT dulu

Sub Bla()
Dim i As Long
For i = 1 To Selection.Rows.Count
If Selection(i, 1) = vbNullString Then
Selection(i, 1).EntireRow.Hidden = True
End If
Next i
End Sub



2011/7/8 <hartini_80@yahoo.co.id>

> Dear all
>
> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong
> maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang
> berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara
> otomatis baris ke 5 akan terhide.
> Salam
> Tiny

2f.

Re: Macro untuk hide row jika sel kosong

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

Fri Jul 8, 2011 2:39 am (PDT)



Jika ingin filter kriteria beberapa kolom, jika seluruhnya blank akan
di-hide, buat 1 kolom bantu misal di kolom D dan data di A sampai C.
Isi dengan formula :
=Len(a2)+len(b2)+len(c2)

Kemudian filter dikolom D, hilangkan centang dari angka 0. Atau filter yang
> 0

Kid.

2011/7/8 <hartini_80@yahoo.co.id>

> **
>
>
> ** Kalo pakai autofilter bisa untuk 1 kolom aja kah mba? Kemarin saya coba
> bisa (hasil dari utak atik) abis itu coba lagi ndak bisa hehehe
>
> Salam
> Tiny
>
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "STDEV(i)" <setiyowati.devi@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 8 Jul 2011 15:28:13 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Macro untuk hide row jika sel kosong
>
>
>
> *tanpa makro*
> range sekolom tsb dikenakan AutoFilter
> lalu difilter dengan kriteria *Non-Blank*
> *
> *
> [image: autoFilter_NonBlanks.GIF]
>
>
> *dengan makro*
> sebelum di jalankan makronya range sekolom tsb diSELECT dulu
>
> Sub Bla()
> Dim i As Long
> For i = 1 To Selection.Rows.Count
> If Selection(i, 1) = vbNullString Then
> Selection(i, 1).EntireRow.Hidden = True
> End If
> Next i
> End Sub
>
>
>
> 2011/7/8 <hartini_80@yahoo.co.id>
>
>> Dear all
>>
>> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong
>> maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang
>> berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara
>> otomatis baris ke 5 akan terhide.
>> Salam
>> Tiny
>
>
>
>
>
2g.

Re: Macro untuk hide row jika sel kosong

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 2:43 am (PDT)



Terima kasih atas informasinya ya mr kid. Ternyata bisa ^_^
Salam
Tiny

Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Jul 2011 16:39:11
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro untuk hide row jika sel kosong

Jika ingin filter kriteria beberapa kolom, jika seluruhnya blank akan
di-hide, buat 1 kolom bantu misal di kolom D dan data di A sampai C.
Isi dengan formula :
=Len(a2)+len(b2)+len(c2)

Kemudian filter dikolom D, hilangkan centang dari angka 0. Atau filter yang
> 0

Kid.

2011/7/8 <hartini_80@yahoo.co.id>

> **
>
>
> ** Kalo pakai autofilter bisa untuk 1 kolom aja kah mba? Kemarin saya coba
> bisa (hasil dari utak atik) abis itu coba lagi ndak bisa hehehe
>
> Salam
> Tiny
>
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "STDEV(i)" <setiyowati.devi@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 8 Jul 2011 15:28:13 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Macro untuk hide row jika sel kosong
>
>
>
> *tanpa makro*
> range sekolom tsb dikenakan AutoFilter
> lalu difilter dengan kriteria *Non-Blank*
> *
> *
> [image: autoFilter_NonBlanks.GIF]
>
>
> *dengan makro*
> sebelum di jalankan makronya range sekolom tsb diSELECT dulu
>
> Sub Bla()
> Dim i As Long
> For i = 1 To Selection.Rows.Count
> If Selection(i, 1) = vbNullString Then
> Selection(i, 1).EntireRow.Hidden = True
> End If
> Next i
> End Sub
>
>
>
> 2011/7/8 <hartini_80@yahoo.co.id>
>
>> Dear all
>>
>> Bisa kah saya dibantu untuk membuat macro, yaitu jika row tersebut kosong
>> maka secara otomatis akan terhide, contohnya saya memiliki baris 1-10 yang
>> berisi angka, tetapi pada baris ke 5 sel tersebut kosong, maka secara
>> otomatis baris ke 5 akan terhide.
>> Salam
>> Tiny
>
>
>
>
>

3a.

Re: Formula/Makro untuk me-Replace dengan referensi sel lain.

Posted by: "Sudarsono Suhenk" jkssbma@live.com   jkssbma

Fri Jul 8, 2011 1:00 am (PDT)




Atau gunakan Find dan FindNextSub GantiKata()
Dim awal, daerah As Range
With Range("e1:e12")
Set daerah = .Find(What:="Yes", LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
End With
If daerah Is Nothing Then
GoTo labeltakketemu
End If
Set awal = daerah
Do
If daerah.Offset(1, -4) = 2 Then MsgBox "Ambil Tindakan juga"
With Range("e1:e12")
Set daerah = .FindNext(daerah)
End With
Loop While daerah.Address <> awal.Address
labeltakketemu:
End Sub

To: belajar-excel@yahoogroups.com
From: agung_widodo@sanyo.com
Date: Fri, 8 Jul 2011 15:32:51 +0900
Subject: RE: [belajar-excel] Formula/Makro untuk me-Replace dengan referensi sel lain.

Terimakasih Suster Haps,

Sepertinya bisa saya pakai resep anda.
Ini juga sampai dibantu Ibu yang satu itu posting japri reply
dari sampeyan juga
Mungkin berhubung pak posnya lagi makan siang sama sholat
jumat jadinya email baru diterima.

Sekali lagi terimakasih para suster
cantik..

From: belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] On Behalf Of Haps
Sent:
Friday, July 08, 2011 11:35 AM
To:
belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel]
Formula/Makro untuk me-Replace dengan referensi sel lain.

Saya bukan pakar, tetapi hanya meniru apa yg sudah dicontohkan

Agar
makro mudah dijalankan, dibuat tombol (activeX control)
Commandbutton1
makronya sendiri dituils di module sheet dimana commandbutton
tergambar
(module sheet 1 )

Private Sub
CommandButton1_Click() Dim
Rng As Range, r As Long Set
Rng = Cells(1).CurrentRegion For
r = 1 To Rng.Rows.Count If
Rng(r, 5) = "Yes" Then If
Rng(r - 1, 1) = 2 Then Rng(r, 5) = "Shift Malam" End
If
NextEnd
Sub
Mudah
mudahan, "jalan"

Penggunakan method Find menurut saya
yg masih awam, tidak menguntungkan
karena ada syarat berupa nilai cell lain
pada jarak tertentu dari
found-cellsnya

wassalam,
hapsari.-

2011/7/8 <agung_widodo@sanyo.com>

Para Excellers,



Mohon bantuannya,
Formula atau makro apa yang dipakai untuk
mereplace suatu kata di kolom E
berdasar nilai yang ada di kolom A,row
diatasnya.








2
20:13
5:19
0
No




0
Shift Malam

1
20:13
5:19
0
No




0
Yes

2
20:13
5:19
0
No




0
Yes

2
20:13
5:19
0
No




0
Yes













Saya ingin mengganti / Replace semua
kata "Yes"

yang ada di kolom E kata "Shift
Malam"


Bila di kolom A di row sebelumnya
bernilai "2"







Apa formulanya untuk dipasang didalam
"Replace with" pada pop up windows Replace)?




Bagaimana bunyi makronya?



Untuk lebih jelas ada dalam
lampiran.

Terimakasih sebelumnya.

Salam
Agung
Widodo

4a.

Re: bagaimana rumus untuk menarik data difile yg terlampir

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

Fri Jul 8, 2011 1:36 am (PDT)



Andai boleh usul, sebaiknya hasil pengambilan data berupa tabel yang lebih
normal.
File terlampir adalah contohnya, meskipun baru normal level 1.

Thank You and Regards.
Kid.

2011/7/8 Tarigan Mergana <anwartarigan@gmail.com>

> **
>
>
> terimakasih pak atas penyelesaiaanya
>
> 2011/7/8 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Dear Mr. Anwar,
>>
>> Mungkin seperti file terlampir.
>>
>> Kid.
>>
>>
>> 2011/7/6 Tarigan Mergana <anwartarigan@gmail.com>
>>
>>> **
>>>
>>>
>>> dear excel mania, disini saya lampirkan masalah saya, walaupun mungkin
>>> masalah biasa tapi saya belum bisa menyelesaikannya, semoga ada yang
>>> berkenan untuk menjawabnya.
>>>
>>>
>>> Salam,
>>> Anwar Tarigan
>>>
>>>
>>
>
>
5a.

Menarik data menggunakan tanggal

Posted by: "Rey" personalia_manado@ag.co.id

Fri Jul 8, 2011 1:42 am (PDT)



Mohon dibantu..
saya ingin menarik data di sheet yang ada tapi hanya mengimput tanggal saja..hasil yang saya inginkan munculnya nama, tanggal dan data-datanya.
terima kasih...

Rey

PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER:

This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager. This message contains confidential information
and is intended only for the individual named. If you are not the
named addressee you should not disseminate, distribute or copy this
e-mail. Please notify the sender immediately by e-mail if you have
received this e-mail by mistake and delete this e-mail from your
system. If you are not the intended recipient you are notified that
disclosing, copying, distributing or taking any action in reliance on
the contents of this information is strictly prohibited.
5b.

Re: Menarik data menggunakan tanggal

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

Fri Jul 8, 2011 2:19 am (PDT)



Mungkin seperti file terlampir.

Sayang, datanya tidak tersusun sebagai tabel berkaidah database, padahal
keinginannya bisa membuat summary dengan banyak macam bentuk.
Summary akan semakin sulit kedepannya jika struktur data seperti itu masih
dipertahankan. Sebaiknya upayakan penyusunan atau penggunaan data yang
tersusun berkaidah database.

Contoh header tabel untuk seluruh nama orang :
Nama Tanggal DataA DataB DataC DataD

Jika DataA sampai DataD adalah suatu item berupa satu jenis makna (seperti
nama cabang), maka susunan header bisa :
Nama Tanggal Cabang Nilai

Regards.
Kid.

On Fri, Jul 8, 2011 at 15:45, Rey <personalia_manado@ag.co.id> wrote:

> **
>
>
> **
> Mohon dibantu..
> saya ingin menarik data di sheet yang ada tapi hanya mengimput tanggal
> saja..hasil yang saya inginkan munculnya nama, tanggal dan data-datanya.
> terima kasih...
>
> Rey
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER:
>
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they
> are addressed. If you have received this email in error please notify
> the system manager. This message contains confidential information
> and is intended only for the individual named. If you are not the
> named addressee you should not disseminate, distribute or copy this
> e-mail. Please notify the sender immediately by e-mail if you have
> received this e-mail by mistake and delete this e-mail from your
> system. If you are not the intended recipient you are notified that
> disclosing, copying, distributing or taking any action in reliance on
> the contents of this information is strictly prohibited.
>
>
>
5c.

Re: Menarik data menggunakan tanggal

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Jul 8, 2011 2:19 am (PDT)



untuk memanggil data dari sheet agus

*=OFFSET(AGUS!$B$3:$F$3,MAX(IF(AGUS!B4:B7=B1,ROW(1:4))),0,,)*

untuk memanggil data dari sheet roy

*=OFFSET(AGUS!$B$3:$F$3,MAX(IF(AGUS!B4:B7=B1,ROW(1:4))),0,,)*

keduanya array formula yg ditulis pada multi cell sekaligus B4:F4 dan B5:F5

Ini hanya berlaku jika kita yakin bahwa di setiap sheet : data yg
memenuhi * kriteria
tanggal*
pasti = *hanya 1 records saja*

(thanks to mbak siti, atas trci rumusnya 3 bulan y.l.)

On Fri, Jul 8, 2011 at 3:45 PM, Rey <personalia_manado@ag.co.id> wrote:

> **
>
> **
> Mohon dibantu..
> saya ingin menarik data di sheet yang ada tapi hanya mengimput tanggal
> saja..hasil yang saya inginkan munculnya nama, tanggal dan data-datanya.
> terima kasih...
>
> Rey
>
5d.

Re: Menarik data menggunakan tanggal

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Jul 8, 2011 2:22 am (PDT)



rumus yg kedua salah tulis harusnya

*=OFFSET(ROY!$B$3:$F$3,MAX(IF(ROY!B4:B7=B1,ROW(1:4))),0,,)*

2011/7/8 Haps <hapsari.stlizbeth@gmail.com>

> untuk memanggil data dari sheet agus
>
> *=OFFSET(AGUS!$B$3:$F$3,MAX(IF(AGUS!B4:B7=B1,ROW(1:4))),0,,)*
>
> untuk memanggil data dari sheet roy
>
> *=OFFSET(AGUS!$B$3:$F$3,MAX(IF(AGUS!B4:B7=B1,ROW(1:4))),0,,)*
>
> keduanya array formula yg ditulis pada multi cell sekaligus B4:F4 dan
> B5:F5
>
> Ini hanya berlaku jika kita yakin bahwa di setiap sheet : data yg memenuhi
> * kriteria tanggal*
> pasti = *hanya 1 records saja*
>
> (thanks to mbak siti, atas trci rumusnya 3 bulan y.l.)
>
>
>
> On Fri, Jul 8, 2011 at 3:45 PM, Rey <personalia_manado@ag.co.id> wrote:
>
>> **
>>
>> **
>> Mohon dibantu..
>> saya ingin menarik data di sheet yang ada tapi hanya mengimput tanggal
>> saja..hasil yang saya inginkan munculnya nama, tanggal dan data-datanya.
>> terima kasih...
>>
>> Rey
>>
>
6a.

Membuat Laporan kerja dalam Sheet

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id

Fri Jul 8, 2011 2:11 am (PDT)



Dear para master X-cel,
 
 
Saya sering kali menghadapi rutinitas kerja yang sama setiap bulannya, yaitu membuat laporan kegiatan sales dalam setiap kunjungan saya, Apakah bisa dari menginput ke master data bisa secara otomatis membuat laporan dalam masing2 sheet. Data dalam company bisa dalam satu sheet yang sama karena berulang kali dikunjungi, tetapi lain bila company yang dikunjungi berbeda...
 
Saya belajar Vb-X cel tetapi selalu kesulitan dalam pemberian logika, mungkin dari setiap kasus yang saya sendiri temui saya menjadi lebih mengerti dan termotivasi.
Terima kasih sebanyak-banyaknya.
 
Regard
 
 
Tjahya Hartono

-- Mods --
Mohon lain kali tidak cross posting.
6b.

Re: Membuat Laporan kerja dalam Sheet

Posted by: "tjahyahartono@yahoo.co.id" tjahyahartono@yahoo.co.id

Fri Jul 8, 2011 2:22 am (PDT)



Maaf ya,kok bs lupa sih.baik bpk/ibu moderator.trm kasih
Sent from my BlackBerry®

-----Original Message-----
From: Tjahya Hartono <tjahyahartono@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Jul 2011 17:07:42
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Cc: tjahyahartono<tjahyahartono@yahoo.co.id>
Subject: [belajar-excel] Membuat Laporan kerja dalam Sheet

Dear para master X-cel,
 
 
Saya sering kali menghadapi rutinitas kerja yang sama setiap bulannya, yaitu membuat laporan kegiatan sales dalam setiap kunjungan saya, Apakah bisa dari menginput ke master data bisa secara otomatis membuat laporan dalam masing2 sheet. Data dalam company bisa dalam satu sheet yang sama karena berulang kali dikunjungi, tetapi lain bila company yang dikunjungi berbeda...
 
Saya belajar Vb-X cel tetapi selalu kesulitan dalam pemberian logika, mungkin dari setiap kasus yang saya sendiri temui saya menjadi lebih mengerti dan termotivasi.
Terima kasih sebanyak-banyaknya.
 
Regard
 
 
Tjahya Hartono

-- Mods --
Mohon lain kali tidak cross posting.
7.

Bls: [belajar-excel] Mail Merge di excell

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

Fri Jul 8, 2011 2:19 am (PDT)



selama pola penulisan no surat di cell B2
konstan  yaitu berawal satu spasi  kosong 
setelah ( :) titik dua  dan
berakhir  sebelum (/) garis miring yang
pertama , maka formula di bawah ini akan menjadi  Konstanta untuk mengeluarkan  no surat 
dari  data  di cell 
B2.

=VALUE(LEFT(SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);"");FIND("/";SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);""))-1))

selanjutnya 
dari  hasil
formula  ini di jadikan nomer indek
dari  baris tabel  di 
daftar member

sesuai  dengan 
tabel  data yang diinginkan

jika
nama member yang diingikan  maka
formulanya

=INDEX(Data!$E$5:$E$17;VALUE(LEFT(SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);"");FIND("/";SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);""))-1)))

jika
nama alamat member  yang diingikan  maka formulanya

=INDEX(Data!$H$5:$H$17;VALUE(LEFT(SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);"");FIND("/";SUBSTITUTE($B$2;LEFT($B$2;FIND(":";$B$2)+1);""))-1))) 

wassalam

Ghozi Alkatiri

--- Pada Jum, 8/7/11, Yusril Ramadani <yusrilramadani@gmail.com> menulis:

Dari: Yusril Ramadani <yusrilramadani@gmail.com>
Judul: [belajar-excel] Mail Merge di excell
Kepada: belajar-excel@yahoogroups.com
Tanggal: Jumat, 8 Juli, 2011, 9:58 AM

 

Dear para pakar

Mohon bantuannya

Saya ingin membuat surat otomatis yang seperti Mail merge di excell
Suratnya cukup sederhana sih tapi kalau bisa dengan macro dan otomoatis akan sangat memudahkan

Dengan list tabel yang ada bisa dibuat progarm untuk otomatisasi surat sehingga tinggal print

Mohon solusinya para pakar

terimakasih banyak seblumnya
terlampir contoh sederhananya

Salam

YR

8a.

Macro + lookup

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 2:50 am (PDT)



Dear mod.
Mod, sekedar ingin tau, apakah macro itu bisa digabungkan dgn rumus lookup? Dalam 1 bahasa VB gitu? Kalo bisa ada punya contoh ndak mod?
Salam
Tiny
Powered by Telkomsel BlackBerry®
8b.

Re: Macro + lookup

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

Fri Jul 8, 2011 3:00 am (PDT)



Ingin menggunakan fungsi-fungsi built-in Excel di VBA ? Gunakan
WorksheetFunction di VBA.
Ingin membuat fungsi baru yang belum ada di daftar fungsi built-in Excel dan
bisa digunakan di worksheet layaknya fungsi-fungsi built-in, buat prosedur
fungsi dengan scope minimal publi di VBA.

Contoh :
Pakai fungsi lookup di VBA :
WorksheetFunction.LookUp( bla-blab-blah )

Buat fungsi di VBA :
'ambil nomor baris suatu range >> setara fungsi row di fungsi built in
excel
Public Function Fungsiku(optional rng as range=nothing) as long
if rng is nothing then
fungsiku=activecell.row
else
Fungsiku=rng.row
endif
end function

Cara pakai di worksheet :
=fungsiku(A2)
=fungsiku()

Ingin pasang formula di suatu cell dengan VBA :
range("a2").formula = "=Sum(B$1:B2)"

formula array juga bisa, dengan property formulaarray

Kid.

On Fri, Jul 8, 2011 at 16:49, <hartini_80@yahoo.co.id> wrote:

> Dear mod.
> Mod, sekedar ingin tau, apakah macro itu bisa digabungkan dgn rumus lookup?
> Dalam 1 bahasa VB gitu? Kalo bisa ada punya contoh ndak mod?
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
8c.

Re: Macro + lookup

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jul 8, 2011 3:05 am (PDT)



apa mbak tiny punya sheet berisi data yg akan di-GITUKAN ?
kirimlah kamareeee.

jangan biarkan kami BUTA meraba raba maksud orang yg gak jelas...
walaupun akhirnya bisa, cara seperti ini = KELAMAAN bok !!

On Fri, Jul 8, 2011 at 4:49 PM, <hartini_80@yahoo.co.id> wrote:

> Dear mod.
> Mod, sekedar ingin tau, apakah macro itu bisa digabungkan dgn rumus lookup?
> Dalam 1 bahasa VB gitu? Kalo bisa ada punya contoh ndak mod?
> Salam
> Tiny
8d.

Re: Macro + lookup

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 3:10 am (PDT)



Ndak punya mbakyu.., kan tadi tiny bilang sekedar ingin tau...sopo ngerti mbakyu punya contoh penerapan atas pertanyaan tiny tersebut.
Malu bertanya sesat dijalan, dari pada pertanyaan tsb muncul di otak tp tdk ada jawaban ya tiny tanya ama ahlinya, begitu mbak, maaf jika merepotkan.
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Jul 2011 17:05:30
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro + lookup

apa mbak tiny punya sheet berisi data yg akan di-GITUKAN ?
kirimlah kamareeee.

jangan biarkan kami BUTA meraba raba maksud orang yg gak jelas...
walaupun akhirnya bisa, cara seperti ini = KELAMAAN bok !!




On Fri, Jul 8, 2011 at 4:49 PM, <hartini_80@yahoo.co.id> wrote:

> Dear mod.
> Mod, sekedar ingin tau, apakah macro itu bisa digabungkan dgn rumus lookup?
> Dalam 1 bahasa VB gitu? Kalo bisa ada punya contoh ndak mod?
> Salam
> Tiny

8e.

Re: Macro + lookup

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Fri Jul 8, 2011 3:12 am (PDT)



Ternyata bisa ya Mr kid, baiklah akan tiny coba pahami, terima kasih infonya.
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Jul 2011 17:00:26
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro + lookup

Ingin menggunakan fungsi-fungsi built-in Excel di VBA ? Gunakan
WorksheetFunction di VBA.
Ingin membuat fungsi baru yang belum ada di daftar fungsi built-in Excel dan
bisa digunakan di worksheet layaknya fungsi-fungsi built-in, buat prosedur
fungsi dengan scope minimal publi di VBA.

Contoh :
Pakai fungsi lookup di VBA :
WorksheetFunction.LookUp( bla-blab-blah )

Buat fungsi di VBA :
'ambil nomor baris suatu range >> setara fungsi row di fungsi built in
excel
Public Function Fungsiku(optional rng as range=nothing) as long
if rng is nothing then
fungsiku=activecell.row
else
Fungsiku=rng.row
endif
end function

Cara pakai di worksheet :
=fungsiku(A2)
=fungsiku()

Ingin pasang formula di suatu cell dengan VBA :
range("a2").formula = "=Sum(B$1:B2)"

formula array juga bisa, dengan property formulaarray

Kid.

On Fri, Jul 8, 2011 at 16:49, <hartini_80@yahoo.co.id> wrote:

> Dear mod.
> Mod, sekedar ingin tau, apakah macro itu bisa digabungkan dgn rumus lookup?
> Dalam 1 bahasa VB gitu? Kalo bisa ada punya contoh ndak mod?
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>

8f.

Re: Macro + lookup

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jul 8, 2011 3:15 am (PDT)



kita *tidak bisa bilang PUNYA atau NDAK PUNYA* sesuatu hal *yg tidak kita
ketahui* bentuknya atau spesifikasinya

2011/7/8 <hartini_80@yahoo.co.id>

> **
>
>
> ** Ndak punya mbakyu.., kan tadi tiny bilang sekedar ingin tau...sopo
> ngerti mbakyu punya contoh penerapan atas pertanyaan tiny tersebut.
> Malu bertanya sesat dijalan, dari pada pertanyaan tsb muncul di otak tp tdk
> ada jawaban ya tiny tanya ama ahlinya, begitu mbak, maaf jika merepotkan.
>
> Salam
> Tiny
>
> *From: * "STDEV(i)" <setiyowati.devi@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 8 Jul 2011 17:05:30 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Macro + lookup
>
>
>
> apa mbak tiny punya sheet berisi data yg akan di-GITUKAN ?
> kirimlah kamareeee.
>
> jangan biarkan kami BUTA meraba raba maksud orang yg gak jelas...
> walaupun akhirnya bisa, cara seperti ini = KELAMAAN bok !!
>
>
>
>
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

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

Tidak ada komentar:

Posting Komentar