Rabu, 25 Januari 2012

[belajar-excel] Digest Number 1489

Messages In This Digest (8 Messages)

1a.
Re: Mohon disempurnakan From: o' Seno
1b.
Re: Mohon disempurnakan From: Supriyanto S
1c.
Re: Mohon disempurnakan From: Supriyanto S
1d.
Re: Mohon disempurnakan From: Supriyanto S
2.
Mengurutkan tanggal dan departement From: jajang muhammad siddik
3.
Bagaimana Menentukan Tanggal Naik Gaji From: guru muda
4a.
Re: Fw: Program Laporan Keuangan dengan PivotTable From: hendrik karnadi
5a.
Re: lacak nomor From: YULIANTO PRIMA WIXLI

Messages

1a.

Re: Mohon disempurnakan

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

Wed Jan 25, 2012 3:41 am (PST)



Mengenai pertanyaan sebelum ini (case #15345); apa kabarnya bung ?
misal tanggapan2 gak ada gunanya, juga konfirmlah ke penanggap
Lha wong yg lama belum "selesai" kok sudah tanya baru lagi ...
Sudah pernah dengar cerita "orang dan mesin ATM" kah ??
(..geleng-geleng-kepala...cara orang jawa mengexpressikan perasaan..)

'------------
Sub cFindID()
' coded by o'Seno / BeExcel Case #15396
'--------------------------------------
Dim SearchStr As String, FoundAt As Range
SearchStr = Sheets("dBASE").Range("E5").Value

With Sheets("dBASE").Range("T15:T5014")
*Set FoundAt* = .Find(What:=SearchStr)
End With

If FoundAt Is Nothing Then
MsgBox "Tidak ada data [ " & SearchStr & " ] di area tsb.", 48
Else
Sheets("F_INPUT").Range("AD5") = FoundAt.Value
MsgBox FoundAt.Value & " Ketemu di " & FoundAt.Address, 64
End If

End Sub
'--------------------

perhatikan cell tempat ketemunya string yg dicari kita set sebagai range

*o'Seno*

2012/1/25 Supriyanto S <priyant37@gmail.com>

> **
>
> Saya mohon bantuannya, untuk vb di bawah ini disempurnakan sesuai
> keinginan saya.
> Yang saya inginkan bahwa hasil dari pencarian (*=Search*) disini bisa
> diterjemahkan ke dalam Range atau alamat (=*("T508")* shingga bisa
> dilakukan copypaste.
> Demikian dan sebelumnya terima kasih atas bantuannya
> supriy
>
> Sub cFindID()
> Dim Search As String
> On Error GoTo ErrorCatch
>
> Search = Range("E5").Value
> Sheets("dBASE").Select
> Range("T15:T5014").Select
> Selection.Find(What:*=Search*, After:=ActiveCell, LookIn:=xlValues, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
>
> Range*("T508")*.Select
> Selection.Copy
> Sheets("F-INPUT").Select
> Range("AD5").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Application.CutCopyMode = False
> Exit Sub
>
> ErrorCatch:
> MsgBox "ga nemuken..?!"
>
> End Sub
>
>
1b.

Re: Mohon disempurnakan

Posted by: "Supriyanto S" priyant37@gmail.com   priweto

Wed Jan 25, 2012 4:05 am (PST)



maaf pak zainul, untuk vb copy nya belum berfungsi.
vb hya berjalan pada vb searchnya aja....
mungkin bisa dbantu lebih lanjut pak zainul.
terima kasih

2012/1/25 zainul_ulum <zainul_ulum@yahoo.com>
>
> maaf salah dikit, kurang syntax selection didepan .find
>
> Sub cFindID()
> Dim Search As String
> On Error GoTo ErrorCatch
>
> Search = Range("E5").Value
> Sheets("dBASE").Select
> Range("T15:T5014").Select
> 'Selection.Find(What:=Search, After:=ActiveCell, LookIn:=xlValues, _
> 'LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> 'MatchCase:=False, SearchFormat:=False).Activate
>
> Set c = Selection.Find(Search, LookIn:=xlValues, SearchOrder:=xlByColumns)
>
> If Not c Is Nothing Then exit sub
> c.copy
>
> 'Range("T508").Select
> 'Selection.Copy
> Sheets("F-INPUT").Select
> Range("AD5").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
> _
> :=False, Transpose:=False
> Application.CutCopyMode = False
> Exit Sub
>
> ErrorCatch:
> MsgBox "ga nemuken..?!"
>
> End Sub

1c.

Re: Mohon disempurnakan

Posted by: "Supriyanto S" priyant37@gmail.com   priweto

Wed Jan 25, 2012 4:14 am (PST)



heheheee coly em sory pak seno...., untuk yg kmarin belum memenuhi apa yang
saya harapkan. karena yg saya inginkan sperti yg pertyan baru ini... but
kulo inggih matursuwun pun pean bantu...

lha sing niki kulo coba rumiyen nggihhhhh

Pada 25 Januari 2012 19:41, o' Seno <ontoseno84@gmail.com> menulis:

> Mengenai pertanyaan sebelum ini (case #15345); apa kabarnya bung ?
> misal tanggapan2 gak ada gunanya, juga konfirmlah ke penanggap
> Lha wong yg lama belum "selesai" kok sudah tanya baru lagi ...
> Sudah pernah dengar cerita "orang dan mesin ATM" kah ??
> (..geleng-geleng-kepala...cara orang jawa mengexpressikan perasaan..)
>
> '------------
> Sub cFindID()
> ' coded by o'Seno / BeExcel Case #15396
> '--------------------------------------
> Dim SearchStr As String, FoundAt As Range
> SearchStr = Sheets("dBASE").Range("E5").Value
>
> With Sheets("dBASE").Range("T15:T5014")
> *Set FoundAt* = .Find(What:=SearchStr)
> End With
>
> If FoundAt Is Nothing Then
> MsgBox "Tidak ada data [ " & SearchStr & " ] di area tsb.", 48
> Else
> Sheets("F_INPUT").Range("AD5") = FoundAt.Value
> MsgBox FoundAt.Value & " Ketemu di " & FoundAt.Address, 64
> End If
>
> End Sub
> '--------------------
>
> perhatikan cell tempat ketemunya string yg dicari kita set sebagai range
>
>
> *o'Seno*

1d.

Re: Mohon disempurnakan

Posted by: "Supriyanto S" priyant37@gmail.com   priweto

Wed Jan 25, 2012 4:42 am (PST)



Alhamdulillah..,clear sdh permasalahannya...
Pak Zainul dan Pak Seno matursuwun atas bantuannya. hanya saja untuk vb
dari pak seno ada sedikit koreksi...

Nah skarang untuk case #15345 dan #15396 boleh kita clouse kan pak
seno/zainul...

Terima kasih saya ucapkan semoga kedepan jika ada pertanyaan ato mohon
bantuan dari saya bapak bapak tetep siap membantu saya.

supriy

'------------
Sub cFindID()
' coded by o'Seno / BeExcel Case #15396
'--------------------------------------
Dim SearchStr As String, FoundAt As Range
'SearchStr = Sheets("dBASE").Range("E5").Value
SearchStr = Sheets("F-INPUT").Range("E5").Value

With Sheets("dBASE").Range("T15:T5014")
Set FoundAt = .Find(What:=SearchStr)
End With

If FoundAt Is Nothing Then
MsgBox "Tidak ada data [ " & SearchStr & " ] di area tsb.", 48
Else
Sheets*("F-INPUT")*.Range("AD5") = FoundAt.Value
MsgBox FoundAt.Value & " Ketemu di " & FoundAt.Address, 64
End If

End Sub
'--------------------

Pada 25 Januari 2012 20:07, Supriyanto S <priyant37@gmail.com> menulis:

> heheheee coly em sory pak seno...., untuk yg kmarin belum memenuhi apa
> yang saya harapkan. karena yg saya inginkan sperti yg pertyan baru ini...
> but kulo inggih matursuwun pun pean bantu...
>
> lha sing niki kulo coba rumiyen nggihhhhh
>
>
> Pada 25 Januari 2012 19:41, o' Seno <ontoseno84@gmail.com> menulis:
>
> **
>>
>>
>> Mengenai pertanyaan sebelum ini (case #15345); apa kabarnya bung ?
>> misal tanggapan2 gak ada gunanya, juga konfirmlah ke penanggap
>> Lha wong yg lama belum "selesai" kok sudah tanya baru lagi ...
>> Sudah pernah dengar cerita "orang dan mesin ATM" kah ??
>> (..geleng-geleng-kepala...cara orang jawa mengexpressikan perasaan..)
>>
>> '------------
>> Sub cFindID()
>> ' coded by o'Seno / BeExcel Case #15396
>> '--------------------------------------
>> Dim SearchStr As String, FoundAt As Range
>> SearchStr = Sheets("dBASE").Range("E5").Value
>>
>> With Sheets("dBASE").Range("T15:T5014")
>> *Set FoundAt* = .Find(What:=SearchStr)
>> End With
>>
>> If FoundAt Is Nothing Then
>> MsgBox "Tidak ada data [ " & SearchStr & " ] di area tsb.", 48
>> Else
>> Sheets("F_INPUT").Range("AD5") = FoundAt.Value
>> MsgBox FoundAt.Value & " Ketemu di " & FoundAt.Address, 64
>> End If
>>
>> End Sub
>> '--------------------
>>
>> perhatikan cell tempat ketemunya string yg dicari kita set sebagai range
>>
>>
>> *o'Seno*
>>
>>
>> 2012/1/25 Supriyanto S <priyant37@gmail.com>
>>
>>> **
>>>
>>> Saya mohon bantuannya, untuk vb di bawah ini disempurnakan sesuai
>>> keinginan saya.
>>> Yang saya inginkan bahwa hasil dari pencarian (*=Search*) disini bisa
>>> diterjemahkan ke dalam Range atau alamat (=*("T508")* shingga bisa
>>> dilakukan copypaste.
>>> Demikian dan sebelumnya terima kasih atas bantuannya
>>> supriy
>>>
>>> Sub cFindID()
>>> Dim Search As String
>>> On Error GoTo ErrorCatch
>>>
>>> Search = Range("E5").Value
>>> Sheets("dBASE").Select
>>> Range("T15:T5014").Select
>>> Selection.Find(What:*=Search*, After:=ActiveCell, LookIn:=xlValues,
>>> _
>>> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
>>> MatchCase:=False, SearchFormat:=False).Activate
>>>
>>> Range*("T508")*.Select
>>> Selection.Copy
>>> Sheets("F-INPUT").Select
>>> Range("AD5").Select
>>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>>> SkipBlanks _
>>> :=False, Transpose:=False
>>> Application.CutCopyMode = False
>>> Exit Sub
>>>
>>> ErrorCatch:
>>> MsgBox "ga nemuken..?!"
>>>
>>> End Sub
>>>
>>>
>>
>
>
2.

Mengurutkan tanggal dan departement

Posted by: "jajang muhammad siddik" jajang_ms@yahoo.co.id   jajang_ms

Wed Jan 25, 2012 4:04 am (PST)



Dear Agan2 master excel..

Saya lagi butuh bantuan ni...
gimana caranya mengurutkan tanggal dan departement, seperti file terlampir...

Regards
Jajang Ms

================================================
Mods Note:
Mohon maaf pak Jajang, lampiran LBP_olah.xls terpaksa
kena cekal karena melebihi jatah yg diatur dlm UUD
milis (250KB) & tiada keterangan apapun dari bapak
tentang "kebesarannya" file tsb.

kami tunggu pengecilannya, misal di compress dgn zip
/7zip/rar, atau dihilangkan data / object yg tidak perlu

sbg info: workbook bapak berisi 23 sheet, 22 sheet di
antarnaya dlm status VeryHidden
sebaiknya bapak mengajukan sheet ug ditanyakan saja.
rows dan columns di luar dataarea walaupun kelihatan
kosong = didelete dulu; baru di save; kalau perlu
dikirim setelah di ZIP/RAR

maafkan permintaan kami...

-moderator piket-
==================================================

3.

Bagaimana Menentukan Tanggal Naik Gaji

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Wed Jan 25, 2012 4:18 am (PST)



Selamat malam,

Kepada segenap warga excel, mohon saya dibantu bagaimana menentukan saat seseorang naik gaji berdasarkan kriteria tertentu.

Keterangan selengkapnya silakan dilihat pada lampiran.

Terima kasih
4a.

Re: Fw: Program Laporan Keuangan dengan PivotTable

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

Wed Jan 25, 2012 6:33 am (PST)



Pepatah mengatakan: Banyak jalan menuju Roma, yang terbaik lah yang di depan.

Terima kasih Pak Sudarsono.

Salam,
Hendrik Karnadi

________________________________
From: jkssxls Sudarsono <jkssxls@hotmail.com>
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
Sent: Wednesday, 25 January 2012, 13:58
Subject: RE: [belajar-excel] Fw: Program Laporan Keuangan dengan PivotTable


 
Saya lebih memilih menggunakan ComboBox ActiveX daripada Form Control , karena lebih rapih tampilannya.

Private Sub ComboBox2_Change()
    If ActiveSheet.Name = "DATA" Then
        ActiveCell = ComboBox2.Value
        ComboBox2.Visible = False
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ComboBox2.Value = ActiveCell.Value
    ComboBox2.Visible = False  'agar tak tampil lagi jika sudah pilih item
    If Target.Count = 1 Then
        If Target.Column = 4 And Target.Row > 1 Then
            ComboBox2.Top = Target.Top
            ComboBox2.Left = Target.Left
            ComboBox2.Visible = True
            ComboBox2.DropDown
        End If
    End If
End Sub
 

________________________________
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Wed, 25 Jan 2012 04:58:26 +0000
Subject: RE: [belajar-excel] Fw: Program Laporan Keuangan dengan PivotTable

 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Or Target.Column = 6 Then
       If WorksheetFunction.SumIf(Range("No_Bukti"), _
          Cells(Target.Row, 2), Range("Debit")) <> _
          WorksheetFunction.SumIf(Range("NO_Bukti"), _
          Cells(Target.Row, 2), Range("Kredit")) Then
          Target.Select
          MsgBox "JUMLAH DEBIT dan KREDIT TIDAK SAMA" & _
             vbCrLf & "Lihat No BUKTI WARNA MERAH", _
             vbCritical + vbOKOnly, "P E S A N"
       End If
    End If
End Sub

pernyataan :
     If Target.Column = 5 And Target.Column = 6 Then 
jika mengisi kolom debet ( kolom ke 5 ) atau credit ( kolom ke 6 ) , maka lakukan pengecekan jumlah voucher/transaksi
sesuai nomor bukti ( kolom 2 ). Pernyataan AND akan selalu False
 
ActiveCell.Offset(-1, -4)  --> jika posisi aktif di kolom debet maka -4 menuju kolom tanggal ( ini tak sesuai )
                                   --> jika posisi aktif di kolom credit maka -4 menuju kolom no bukti ( ini sesuai yg diinginkan )
                                   --> jika posisi di luar kolom debet atau credit akan menghasilkan ketidak-akuratan.
Jadi lebih aman gunakan target sebagai acuan sel . dan kolom no bukti pasti di kolom ke 2 , maka gunakan
fungsi cells.
 
mungkin dapat menjelaskan knapa koding  perlu dimodif

________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Tue, 24 Jan 2012 20:30:47 -0800
Subject: [belajar-excel] Fw: Program Laporan Keuangan dengan PivotTable

 
Untuk rekan2 yang sudah menginstal Program tsb di atas, saya mohon maaf karena ada sedikit kesalahan yang menggangu pada ComboBox_Change sesuai penjelasan Pak Sudarsono.

Namun untuk WorkSheet_Change, hasil pengetesan atas program yang saya kirim sebelumnya masih OK jadi belum saya ubah (maaf Pak Sudarsono, bukan saya nekat menolak usulan Bapak).

Agar tidak membuat rekan2 semakin bingung, saya lampirkan file Jurnal yang telah saya revisi berikut pengambilan range secara otomatis (maaf MOD filenya sedikit lewat quota, namun demi kepentingan umum mohon jangan dicekal)

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com>
To: hendrikkarnadi@yahoo.com
Sent: Wednesday, 25 January 2012, 10:10
Subject: RE: Program Laporan Keuangan dengan PivotTable


Pak Hendrik di sheetData ada combobox1 ( akan tampak bila di Developer , design mode aktif  ). Karena sumber combobox yaitu property
ListFillRange mengambil dari range COA ( sebuah range dgn nama COA , meliputi/memiliki daerah COA!$A$1:$C$51).
Maka bila sheet COA dimodif ( add,edit ) , maka
combobox1 menghasilkan event Change
 
Private Sub ComboBox1_Change()
    ActiveCell = ComboBox1.Value
    ComboBox1.Visible = False
End Sub

 
Karena ComboBox1 berada di Sheet Data, maka event dapat menghasilkan error
maka perlu di modif
 
Private Sub ComboBox1_Change()
   If ActiveSheet.Name = "DATA" Then
       ActiveCell = ComboBox1.Value
       ComboBox1.Visible =
False
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
' sehrusnya bukan AND tapi OR
'    If Target.Column = 5 And Target.Column = 6 Then
    If ActiveSheet.Name = "DATA" And (Target.Column = 5 Or Target.Column = 6) Then
' Offset(-1,-4) erarti baris sebelumnya dan kolom tanggal
' seharusnya mungkin maksudnya
'     Offset(0,-3)
'If WorksheetFunction.SumIf(Range("No_Bukti"), _
        ActiveCell.Offset(-1, -4), Range("Debit")) <> _
        WorksheetFunction.SumIf(Range("NO_Bukti"), _
        ActiveCell.Offset(-1, -4), Range("Kredit"))
       
        If WorksheetFunction.SumIf(Range("No_Bukti"), _
        ActiveCell.Offset(0, -3), Range("Debit")) <> _
        WorksheetFunction.SumIf(Range("NO_Bukti"), _
        ActiveCell.Offset(0, -3), Range("Kredit")) Then
            Target.Select
            MsgBox "JUMLAH DEBIT dan KREDIT TIDAK SAMA" & _
            vbCrLf & "Lihat No BUKTI WARNA MERAH", _
            vbCritical + vbOKOnly, "P E S A N"
        End If
    End If
End Sub
 
 Mungkin itu yang bisa saya infokan
________________________________
Date: Tue, 24 Jan 2012 18:01:29 -0800
From: hendrikkarnadi@yahoo.com
Subject: Re: Program Laporan Keuangan dengan PivotTable
To: jkssxls@hotmail.com

Ini Pak saya kirimkan filenya.
Ada suatu masalah yang baru saya ketahui dan belum bisa saya pecahkan.

Ketika kita mengedit suatu sel pada Sheet COA file Jurnal maka bukan hasil edit yang muncul melainkan nilai dari ComboBox (ComboBox.Value), yang macronya ada di Sheet DATA (bukan di Module)

Barangkali anda dapat membantu memecahkannya.

Salam,
Hendrik Karnadi

Catatan: Folder/filenya diextract dulu ke satu foledr mis D:

________________________________
From: jkssbma <jkssxls@hotmail.com>
To: hendrikkarnadi@yahoo.com
Sent: Wednesday, 25 January 2012, 8:39
Subject: Program Laporan Keuangan dengan PivotTable

Pak Hendrik , saya tertarik dengan Program Laporan Keuangan dengan
PivotTable , saat memasuki situs dimanana file LapKeu.rar berada , ternyata tak ada respon download. Apakah bapak bersedia mengirim melalui japri.

Terima kasih
Sudrsono

5a.

Re: lacak nomor

Posted by: "YULIANTO PRIMA WIXLI" ywixli@yahoo.com

Wed Jan 25, 2012 6:36 am (PST)



Dear Pak Anton dan i-Haps

Terima kasih banyak.

________________________________
From: i Haps <hapsari.stlizbeth@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 25, 2012 5:40 AM
Subject: Re: [belajar-excel] lacak nomor


Masih mengikuti cara pak Anton, hanya berbeda sedikit: yaitu menggunakan COUNTIF 
COUNTIF($E$9:$E$58,C9)=0   sebagai  pengganti MATCH untuk "melacak" beradanya 
Missing Numbers.
(formula ini pun dapat dipakai untuk dijadikan kondisi pada Conditional Formatting;
sehingga para Missing-Numbers akan dapat di buat"mencolok" dengan format warna)

Jika COUNTIF menghasilkan 0 : berarti di posisi itulah Missing Number berada
POSISI itu memang sudah berupa angka (dan BOLEH dianggap HASIL yg benar;
jika saja data yg di rujuk adalah bilangan cacah, urutan 1 sampai n

Tetapi bila data/List yg diRujuk berupa DATA LAIN;  misal TEXT atau Angka lain yg 
bukan berupa bilangan CACAH urutan dari 1 ke n;  maka Angaka-angka POSISI tsb 
harus hanya dianggap sebagai ROW-INDEX nya saja
datanya sendiri bisa dipanggil (dengan fungsi INDEX atau OFFSET) berdasarkan
angka-Posisi (row-Index) tsb

=IFERROR(INDEX(C9:C58,SMALL(IF(COUNTIF(E9:E58,C9:C58)=0,ROW(1:50)),ROW(1:50))),"")

catatan:
IFFERROR hanya untuk menghilangkan hasil #NUM (cell yg berisi rumus yg sudah diluar array)

- i Haps -

2012/1/24 YULIANTO PRIMA WIXLI <ywixli@yahoo.com>
>
> Dear Para Pakar Excel yang saya Hormati,
> Mohon bantuannya, bagai mana melacak nomor di kolom (A) yg belum muncul 
>
> di kolom (B), data seperti terlampir, 
>
> mohon bantuannya ya..
> Terima kasih 
Recent Activity
Visit Your Group
Y! Groups blog

the best source

for the latest

scoop on Groups.

Yahoo! Groups

Small Business Group

Own a business?

Connect with others.

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

Tidak ada komentar:

Posting Komentar