[belajar-excel] Digest Number 1548

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1a.

Re: Simple Invoicing System NYANGKUT!!!! From: jkssxls Sudarsono

1b.

Re: Simple Invoicing System NYANGKUT!!!! From: jkssxls Sudarsono

1c.

Bls: [belajar-excel] Simple Invoicing System NYANGKUT!!!! From: irwan wijaya

2a.

Re: Bgmana Cara Pembulatan Keatas di Excel...? From: o' Seno

2b.

Re: Bgmana Cara Pembulatan Keatas di Excel...? From: Aliif Akbar

2c.

Re: Bgmana Cara Pembulatan Keatas di Excel...? From: -uhr-

2d.

Re: Bgmana Cara Pembulatan Keatas di Excel...? From: o' Seno

3a.

Re: Formula SUM dengan range otomatis From: jkssxls Sudarsono

3b.

Re: Formula SUM dengan range otomatis From: o' Seno

4a.

Re: Tanya : input kertas kerja sampai jurnal secara otomatis From: Kid Mr.

5a.

Re: Tanya VBA delete row dg kriteria tertentu From: Suyatno

6a.

Re: rumus apakah untuk menyembunyikan hasil rumus link? From: Wewith Isme

6b.

Re: rumus apakah untuk menyembunyikan hasil rumus link? From: HerrSoe

6c.

Re: rumus apakah untuk menyembunyikan hasil rumus link? From: jkssxls Sudarsono

6d.

Re: rumus apakah untuk menyembunyikan hasil rumus link? From: jkssxls Sudarsono

6e.

Re: rumus apakah untuk menyembunyikan hasil rumus link? From: Wewith Isme

7a.

Bls: [belajar-excel] copy formula From: Sam Mun

8a.

Otomatis mencari dan mengisi data From: Winda Miranti

8b.

Re: Otomatis mencari dan mengisi data From: hendrik karnadi

9.

Sumproduct kriteria ganda From: Simonne Manuella

10a.

menampilkan laporan bulanan From: Saifudin Mnp

10b.

Re: menampilkan laporan bulanan From: hendrik karnadi

10c.

Fw: [belajar-excel] menampilkan laporan bulanan From: hendrik karnadi

11.

Sumproduct menggunakan makro From: Aia Satria

12.

Saat Loading Form Trouble From: Mr Pecut

View All Topics | Create New Topic

Messages

1a.

Re: Simple Invoicing System NYANGKUT!!!!

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

Wed Mar 14, 2012 12:44 am (PDT)

isi CmdSave_Click dipindahkan ke module dan ganti namanya menjadi Savingdan ubah menjadi :
Private Sub CmdSave_Click()
Call Saving
End Sub
pindahkan MainTblHeight ke module dimana sub rutin Saving beradaPindahkan DefineSubTBL ke module dimana sub rutin Saving berada
Ubah kode dari Saving dan DefineSubTBL Sub Saving()' kode diambil dari CmdSave_Click
' ganti JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count' menjadi :
Range("A9").Activate
If Range("A9").Offset(1) <> "" Then
JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
Else
JmlItem = 1
End If
End Sub Private Sub DefineSubTBL() ' Yang di ubah' Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))' menjadi
If SubTbl.Offset(1) <> "" Then
Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
End If End Sub

sehingga menjadi : Private Sub Saving()
'----------------------------------
' siti Vi / simple-data-entry
'--------------------21-09-2008----
Dim TblDat As Range
Dim TblSub As Range
Dim NewRow As Long
Dim NewSub As Long
Dim InvItm As Integer
Dim r As Long, c As Integer
Set TblDat = Sheets("DataInv").Range("B3")
Set TblSub = Sheets("DataSub").Range("B3")
With WorksheetFunction
InvItm = .Count(Sheets("InvForm").[c9:c28])
NewRow = .CountA(Sheets("DataInv").[B3:B10000]) + 1
NewSub = .CountA(Sheets("DataSub").Range("B3:B40000"))
End With
Application.Calculation = xlCalculationManual
With Sheets("InvForm")
If .[B5] = "" Then
MsgBox "Nama Pelanggan Belum diisi", 48, "INV Data Entry"
.[B5].Select
Exit Sub
End If
If .[A9] = "" Then
MsgBox "Items Belum diisi", 48, "INV Data Entry"
.[A9].Select
Exit Sub
End If
'--- mengisi tabel induk ----
TblDat(NewRow, 0) = NewRow ' # urut data
TblDat(NewRow, 1) = .[B2] ' nr.inv
TblDat(NewRow, 2) = .[B3] ' inv date
TblDat(NewRow, 2).NumberFormat = "dd mmm yy"
TblDat(NewRow, 3) = .[B5] ' nama
TblDat(NewRow, 4) = .[B6] ' alamat
TblDat(NewRow, 5) = .[D29] ' subTtl
TblDat(NewRow, 6) = .[D30] ' ppn
TblDat(NewRow, 7) = .[D31] ' total
TblDat(NewRow, 8) = InvItm ' juml jenis produk
'--- mengisi tabel anak ----
Dim JmlItem As Byte
' Koreksi
Range("A9").Activate
If Range("A9").Offset(1) <> "" Then
JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
Else
JmlItem = 1
End If
For r = 1 To JmlItem
If .[A9:D28].Cells(r, 1) = "" Then Exit For
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[B2] ' Nr Inv
TblSub(NewSub + r, 2) = .[B3] ' Tg Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[B5] ' Nm Cust
For c = 4 To 7
' NmProduk, Harga, Qty, TotalHarga
TblSub(NewSub + r, c) = .[A9:D28].Cells(r, c - 3)
Next c
Next r
'--- reset form
[isian] = "" ' kosongkan isian
.[G2] = .[B2].Value ' inv terakhir di update
.[B3] = Date ' tgl hari ini
.[B5].Select
End With
Call MainTblHeight: Call DefineSubTBL
Application.Calculation = xlCalculationAutomaticEnd Sub
Private Sub DefineSubTBL()
Dim SubTbl As Range
Set SubTbl = Sheets("DataSub").Range("A3")
If SubTbl.Offset(1) <> "" Then
Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
End If Set SubTbl = Range(SubTbl, SubTbl.End(xlToRight))
SubTbl.Name = "SubTBL"
End Sub

To: belajar-excel@yahoogroups.com
From: irwan2307@yahoo.com
Date: Tue, 13 Mar 2012 17:32:50 +0800
Subject: [belajar-excel] Simple Invoicing System NYANGKUT!!!!

> saya sedang mempelajari file yang pernah diberikan contoh oleh ba siti..... sedang asik asik coba belajar, tetapi ada eror pada filenya....> apakah ada yang bisa membantu membenarkan vbanya atau mencerahkan kenapa bisa terjadi masalah ? saya coba mengganti cara kerja kami diperusahaan sekarang yang melakukan rekap penjualan dan pembuatan faktur secara manual...... mohon bantuannya teman teman,>>> irwan wijaya

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

1b.

Re: Simple Invoicing System NYANGKUT!!!!

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

Wed Mar 14, 2012 12:52 am (PDT)

koreksi :

isi CmdSave_Click dicopy ke module dan ganti namanya menjadi Saving
dan kode aslinya ubah menjadi :

Private Sub CmdSave_Click()
Call Saving
End Sub

pindahkan MainTblHeight ke module dimana sub rutin Saving berada
Pindahkan DefineSubTBL ke module dimana sub rutin Saving berada

Ubah kode dari Saving dan DefineSubTBL

Sub Saving()
' kode diambil dari CmdSave_Click

' ganti JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
' menjadi :
Range("A9").Activate
If Range("A9").Offset(1) <> "" Then
JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
Else
JmlItem = 1
End If

End Sub


Private Sub DefineSubTBL()

' Yang di ubah
' Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
' menjadi
If SubTbl.Offset(1) <> "" Then
Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
End If

End Sub

sehingga menjadi :


Private Sub Saving()
'----------------------------------
' siti Vi / simple-data-entry
'--------------------21-09-2008----
Dim TblDat As Range
Dim TblSub As Range
Dim NewRow As Long
Dim NewSub As Long
Dim InvItm As Integer
Dim r As Long, c As Integer
Set TblDat = Sheets("DataInv").Range("B3")
Set TblSub = Sheets("DataSub").Range("B3")
With WorksheetFunction
InvItm = .Count(Sheets("InvForm").[c9:c28])
NewRow = .CountA(Sheets("DataInv").[B3:B10000]) + 1
NewSub = .CountA(Sheets("DataSub").Range("B3:B40000"))
End With
Application.Calculation = xlCalculationManual
With Sheets("InvForm")
If .[B5] = "" Then
MsgBox "Nama Pelanggan Belum diisi", 48, "INV Data Entry"
.[B5].Select
Exit Sub
End If
If .[A9] = "" Then
MsgBox "Items Belum diisi", 48, "INV Data Entry"
.[A9].Select
Exit Sub
End If
'--- mengisi tabel induk ----
TblDat(NewRow, 0) = NewRow ' # urut data
TblDat(NewRow, 1) = .[B2] ' nr.inv
TblDat(NewRow, 2) = .[B3] ' inv date
TblDat(NewRow, 2).NumberFormat = "dd mmm yy"
TblDat(NewRow, 3) = .[B5] ' nama
TblDat(NewRow, 4) = .[B6] ' alamat
TblDat(NewRow, 5) = .[D29] ' subTtl
TblDat(NewRow, 6) = .[D30] ' ppn
TblDat(NewRow, 7) = .[D31] ' total
TblDat(NewRow, 8) = InvItm ' juml jenis produk
'--- mengisi tabel anak ----
Dim JmlItem As Byte
' Koreksi
Range("A9").Activate
If Range("A9").Offset(1) <> "" Then
JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
Else
JmlItem = 1
End If
For r = 1 To JmlItem
If .[A9:D28].Cells(r, 1) = "" Then Exit For
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[B2] ' Nr Inv
TblSub(NewSub + r, 2) = .[B3] ' Tg Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[B5] ' Nm Cust
For c = 4 To 7
' NmProduk, Harga, Qty, TotalHarga
TblSub(NewSub + r, c) = .[A9:D28].Cells(r, c - 3)
Next c
Next r
'--- reset form
[isian] = "" ' kosongkan isian
.[G2] = .[B2].Value ' inv terakhir di update
.[B3] = Date ' tgl hari ini
.[B5].Select
End With
Call MainTblHeight: Call DefineSubTBL
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub DefineSubTBL()
Dim SubTbl As Range
Set SubTbl = Sheets("DataSub").Range("A3")
If SubTbl.Offset(1) <> "" Then
Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
End If
Set SubTbl = Range(SubTbl, SubTbl.End(xlToRight))
SubTbl.Name = "SubTBL"
End Sub

To: belajar-excel@yahoogroups.com
From: irwan2307@yahoo.com
Date: Tue, 13 Mar 2012 17:32:50 +0800
Subject: [belajar-excel] Simple Invoicing System NYANGKUT!!!!

> saya sedang mempelajari file yang pernah diberikan contoh oleh ba siti..... sedang asik asik coba belajar, tetapi ada eror pada filenya....> apakah ada yang bisa membantu membenarkan vbanya atau mencerahkan kenapa bisa terjadi masalah ? saya coba mengganti cara kerja kami diperusahaan sekarang yang melakukan rekap penjualan dan pembuatan faktur secara manual...... mohon bantuannya teman teman,>>> irwan wijaya

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

1c.

Bls: [belajar-excel] Simple Invoicing System NYANGKUT!!!!

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

Wed Mar 14, 2012 2:23 am (PDT)

BERHASIL, BERHASIL, BERHASIL..... makasih ya mas Sudarsono.....

Semangat Terus......

________________________________
Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
Kepada: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 14 Maret 2012 14:44
Judul: RE: [belajar-excel] Simple Invoicing System NYANGKUT!!!!


 
isi CmdSave_Click dipindahkan ke module dan ganti namanya menjadi Saving
dan ubah menjadi :

Private Sub CmdSave_Click()
     Call Saving
End Sub

 
pindahkan MainTblHeight  ke module dimana sub rutin Saving berada
Pindahkan  DefineSubTBL ke module dimana sub rutin Saving berada

 
Ubah kode dari Saving dan DefineSubTBL
 
Sub Saving()
' kode diambil dari CmdSave_Click

' ganti       JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
' menjadi :
    Range("A9").Activate
    If Range("A9").Offset(1) <> "" Then
        JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
    Else
        JmlItem = 1
    End If
       
End Sub
 
 
Private Sub DefineSubTBL()

' Yang di ubah
' Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
' menjadi
If SubTbl.Offset(1) <> "" Then
Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
End If

End Sub

sehingga menjadi :
 
 
Private Sub Saving()
   '----------------------------------
   ' siti Vi / simple-data-entry
   '--------------------21-09-2008----
   Dim TblDat As Range
   Dim TblSub As Range
   Dim NewRow As Long
   Dim NewSub As Long
   Dim InvItm As Integer
   Dim r As Long, c As Integer
   Set TblDat = Sheets("DataInv").Range("B3")
   Set TblSub = Sheets("DataSub").Range("B3")
   With WorksheetFunction
      InvItm = .Count(Sheets("InvForm").[c9:c28])
      NewRow = .CountA(Sheets("DataInv").[B3:B10000]) + 1
      NewSub = .CountA(Sheets("DataSub").Range("B3:B40000"))
   End With
   Application.Calculation = xlCalculationManual
   With Sheets("InvForm")
      If .[B5] = "" Then
         MsgBox "Nama Pelanggan Belum diisi", 48, "INV Data Entry"
         .[B5].Select
         Exit Sub
      End If
      If .[A9] = "" Then
         MsgBox "Items Belum diisi", 48, "INV Data Entry"
         .[A9].Select
         Exit Sub
      End If
      '--- mengisi tabel induk ----
      TblDat(NewRow, 0) = NewRow  ' # urut data
      TblDat(NewRow, 1) = .[B2]   ' nr.inv
      TblDat(NewRow, 2) = .[B3]   ' inv date
      TblDat(NewRow, 2).NumberFormat = "dd mmm yy"
      TblDat(NewRow, 3) = .[B5]   ' nama
      TblDat(NewRow, 4) = .[B6]   ' alamat
      TblDat(NewRow, 5) = .[D29]  ' subTtl
      TblDat(NewRow, 6) = .[D30]  ' ppn
      TblDat(NewRow, 7) = .[D31]  ' total
      TblDat(NewRow, 8) = InvItm  ' juml jenis produk
      '--- mengisi tabel anak ----
      Dim JmlItem As Byte
' Koreksi 
    Range("A9").Activate
    If Range("A9").Offset(1) <> "" Then
        JmlItem = Range(Range("A9"), Range("A9").End(xlDown)).Rows.Count
    Else
        JmlItem = 1
    End If
      For r = 1 To JmlItem
         If .[A9:D28].Cells(r, 1) = "" Then Exit For
         TblSub(NewSub + r, 0) = NewSub + r   '# urut
         TblSub(NewSub + r, 1) = .[B2]        ' Nr Inv
         TblSub(NewSub + r, 2) = .[B3]        ' Tg Inv
         TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
         TblSub(NewSub + r, 3) = .[B5]        ' Nm Cust
         For c = 4 To 7
            ' NmProduk, Harga, Qty, TotalHarga
            TblSub(NewSub + r, c) = .[A9:D28].Cells(r, c - 3)
         Next c
      Next r
      '--- reset form
      [isian] = ""             ' kosongkan isian
      .[G2] = .[B2].Value      ' inv terakhir di update
      .[B3] = Date             ' tgl hari ini
      .[B5].Select
   End With
   Call MainTblHeight: Call DefineSubTBL
   Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub DefineSubTBL()
    Dim SubTbl As Range
    Set SubTbl = Sheets("DataSub").Range("A3")
   If SubTbl.Offset(1) <> "" Then
        Set SubTbl = Range(SubTbl, SubTbl.End(xlDown))
    End If
    Set SubTbl = Range(SubTbl, SubTbl.End(xlToRight))
    SubTbl.Name = "SubTBL"
End Sub

 

________________________________
To: belajar-excel@yahoogroups.com
From: irwan2307@yahoo.com
Date: Tue, 13 Mar 2012 17:32:50 +0800
Subject: [belajar-excel] Simple Invoicing System NYANGKUT!!!!

 
> saya sedang mempelajari file yang pernah diberikan contoh oleh ba siti..... sedang asik asik coba belajar, tetapi ada eror pada filenya....
> apakah ada yang bisa membantu membenarkan vbanya atau mencerahkan kenapa bisa terjadi masalah ? saya coba mengganti cara kerja kami diperusahaan sekarang yang melakukan rekap penjualan dan pembuatan faktur secara manual...... mohon bantuannya teman teman,
>
>
> irwan wijaya 

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

2a.

Re: Bgmana Cara Pembulatan Keatas di Excel...?

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

Wed Mar 14, 2012 12:45 am (PDT)

Dear para Be Excellers...

Lhoh.. kita kok disebut "teman-teman Excel Mania" nih, wah gawat-darurat
nih...

Sepertinya (maaf) pak Dehem ini perlu daftar fungsi serta contoh-2-nya
Bila berkenaaaaan, terlampir dikirimkan 7 kategori fungsi
kategori :
TEXT;
INFO,
LOGIKA,
LOOKUP & RUJUKAN,
MATEMETIK & TRIGONOMETRI,
DATABASE & MANAGEMENT TABEL, dan
TANGGAL & JAM

Tiap fungsi diberikan contoh-contoh penggunaannya secara sederhana

Bila tidak berkenaaan.. tidak perlu komentar, langsung di DEL saja...

Kalau mau lebih lengkap, file-file tutorial (berbahasa indonesia) seperti
ini
dapat diunduh (gratis, gak pake nunggu iklan), di.. aduh saya lupa...

atau gini saja... bagi rakyat yg berminat kirimlah email ke "saya" untuk
mendapatkan Link/URLnya (dengan menyertakan email ini sbg footernya)
Ditunggu sampai hari Sabtu 10 menit sebelum qobliyah Dzuhur

*o'Seno*

*2012/3/14 dehen adam <dehen_na@yahoo.com>
>
> Teman-teman excel mania. Bgmana cara pembulatan ketas angka sbb:
> Rp.91.779.600 menjadi 91.800.000,-
> Mohon bantuan teman-teman sekalian. Terima kasih...*

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2b.

Re: Bgmana Cara Pembulatan Keatas di Excel...?

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

Wed Mar 14, 2012 1:16 am (PDT)

Saya pernah pak,
Pake rumus

=round(91.800.000,-)
Misal nilai ada di A1, maka rumusnya =round(A1)

Cmiiw

Asr


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

-----Original Message-----
From: dehen adam <dehen_na@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Mar 2012 22:11:10
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Bgmana Cara Pembulatan Keatas di Excel...?

Teman-teman excel mania. Bgmana cara pembulatan ketas angka sbb:
Rp.91.779.600 menjadi 91.800.000,-
Mohon bantuan teman-teman sekalian. Terima kasih...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2c.

Re: Bgmana Cara Pembulatan Keatas di Excel...?

Posted by: "-uhr-" uharyanto@gmail.com   lover_intermezzo

Wed Mar 14, 2012 1:22 am (PDT)

Misal nilai di A1 = 91.779.600 maka rumus di A2 adalah =ROUNDUP(A1,-4)

Tks.
Sent from my BlackBerry� dapat pinjem

-----Original Message-----
From: "Aliif Akbar" <aliif.akbar@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 14 Mar 2012 06:57:29
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Bgmana Cara Pembulatan Keatas di Excel...?

Saya pernah pak,
Pake rumus

=round(91.800.000,-)
Misal nilai ada di A1, maka rumusnya =round(A1)

Cmiiw

Asr


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

-----Original Message-----
From: dehen adam <dehen_na@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Mar 2012 22:11:10
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Bgmana Cara Pembulatan Keatas di Excel...?

Teman-teman excel mania. Bgmana cara pembulatan ketas angka sbb:
Rp.91.779.600 menjadi 91.800.000,-
Mohon bantuan teman-teman sekalian. Terima kasih...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2d.

Re: Bgmana Cara Pembulatan Keatas di Excel...?

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

Wed Mar 14, 2012 1:42 am (PDT)

maaf, saya ikutan ngePost lagi, demi pak dehem agar tidak bingung...

Contoh yg diberikan oleh pak asror sepertinya belum dicoba di sheet tapi
sudah di siarkan ke milis.

Di excel 2003 maupun 2007, fungsi Round diisi *1 buah argument* saja
(seperti
contoh dari pak asror) akan menolak; karena fungsi round mempunyai *dua *
*argument*
*
*
=ROUND( *Expresi_Bilangan_Yg_akan_diBulatken*, *CacahDigit*)

CacahDigit adalah banyaknya digit pembulatan, bisa Positip bisa Negatip.
bila positip menghitung digitnya dimulai dari setelah Tanda-pemisah-Desimal
ke KANAN
(yg dibulatkan bagian pecahannya)
bila negatip menghitung digitnya dimulai dari sebelum Tanda pemisah Desimal
ke kiri
(yg dibulatkan bagian utuhnya, bnsa satuannya, puluhannya, ratusannya,
ribuannya dst)

Pembulatan dlm fungsi ROUND pun = pembulatan proporsional misal pembulatan
di PULUHAN :
5 dianggap 10 ; 4,9999 dianggap 0

Contoh pun diisi dengan Bilangan yg ingin dihasilkan, padahal pak Dehem
ingin-nya
* 91.779.600* menjadi *91.800.000*
tanpa mencontohkan kalau *91.729,100* ingin menjadi berapa !
91.800.000 kah ? (pembulatan ke atas dlm puluhan)
atau
91.700.000 kah ? (pembulatan proporsional dlm puluhan ribu)

*o'Seno*

2012/3/14 Aliif Akbar <aliif.akbar@yahoo.co.id>

> **
>
> Saya pernah pak,
> Pake rumus
> *=round(91.800.000,-)*
> Misal nilai ada di A1, maka rumusnya =round(A1)
>
> Cmiiw
>
> Asr
>
>
> ------------------------------
> *From: * dehen adam <dehen_na@yahoo.com>
> *Date: *Tue, 13 Mar 2012 22:11:10 -0700 (PDT)
> Teman-teman excel mania. Bgmana cara pembulatan ketas angka sbb:
> Rp.91.779.600 menjadi 91.800.000,-
> Mohon bantuan teman-teman sekalian. Terima kasih...
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.

Re: Formula SUM dengan range otomatis

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

Wed Mar 14, 2012 1:01 am (PDT)

gunakan rumus : =SUM( INDIRECT( ADDRESS(ROW(),1+H5) &":"& ADDRESS(ROW(),1+I5) ) )
To: belajar-excel@yahoogroups.com
From: seismica@yahoo.com
Date: Wed, 14 Mar 2012 00:01:44 -0700
Subject: [belajar-excel] Formula SUM dengan range otomatis

Salam xls
Mohon pencerahannya kembali, mohon maaf jika pertanyaan saya mungkin sedikit repost.Adakah caranya untuk membuat range otomatis pada formula SUM?
Makasih bgt ya..
Seismica

Back to top

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

3b.

Re: Formula SUM dengan range otomatis

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

Wed Mar 14, 2012 1:08 am (PDT)

keperluan seperti itu (merujuk RANGE yg diketahui, cell pertamanya, tinggi
range, lebar range)
dapat dikerjakan dengan baik oleh fungsi OFFSET

=SUM(OFFSET($A5,0,H5,1,I5-H5+1))

*o'Seno*

bacaan khusus fungsi offset:
http://www.box.com/shared/m8xzyafe5g

2012/3/14 Zerlinda Seismica <seismica@yahoo.com>

> **
> Salam xls
> Mohon pencerahannya kembali, mohon maaf jika pertanyaan saya mungkin
> sedikit repost.
> Adakah caranya untuk membuat range otomatis pada formula SUM?
> Makasih bgt ya..
> Seismica
>
>
>

Back to top

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

4a.

Re: Tanya : input kertas kerja sampai jurnal secara otomatis

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

Wed Mar 14, 2012 2:31 am (PDT)

Pak Adi,

Bagaimana jika seperti file terlampir saja ?
Sedikit diubah alurnya.

Dari sheet input -> masuk ke sheet myData yang berkaidah database -> bisa
disusun berbagai macam output.

Salam,
Kid.

On Sat, Mar 10, 2012 at 10:32, achmad adi <didon13@ymail.com> wrote:

> **
>
>
> Kepada
> Master Exel semua,
>
> salam hormat,,,
> saya Adi...
>
> Mohon informasi dan penjelasan akan
> pertanyaan saya dengan situasi dan kondisi sebagai berikut:
>
> saya mempunayai laporan Bulanan dimana yang saya inginkan sbb:
> 1. apabila Kita mengisi form di Kertas kerja,,secara otomatis
> langsung tersimpan di masing2 sheet sesuai dengan bagianya
> dan masing2 sheet terdapaty button print untuk langsung masuk
> ke print area
>
> unutk lebih jelasnya saya lampirkasn file...
>
> atas bimbingan dan penjelasanya saya ucapkan terima kasih.
>
>

Back to top

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

5a.

Re: Tanya VBA delete row dg kriteria tertentu

Posted by: "Suyatno" ocha.yatno@gmail.com

Wed Mar 14, 2012 3:28 am (PDT)

Makasih Pak atas pencerahannya.sangat mebantu

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of jkssxls Sudarsono
Sent: 14 Maret 2012 9:57
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] Tanya VBA delete row dg kriteria tertentu

Misal di worksheet , dimana ada data yang akan dihapus. mulai Sel A2 :




JENIS NAMA

HARGA



1

MINUMAN JUS JERUK

10,000

1

2

MINUMAN JUS JAMBU

12,000

2

3

MAKANAN SOTO AYAM

10,000

3

4

MINUMAN ES TEH

5,000

4

5

BUAH STRAWBERRY

25,000

5

6

MAKANAN BAKSO

10,000

6


72,000




Kriteria di worksheet Filternya , mulai sel B2 :




JENIS NAMA

HARGA


*MINUMAN*

>=6000

Maka yang akan di hapus ( memenuhi kriteria ) :




JENIS NAMA

HARGA



1

MINUMAN JUS JERUK

10,000

1

2

MINUMAN JUS JAMBU

12,000

2


22,000



hasil Data setelah penghapusan :



JENIS NAMA

HARGA



1

MAKANAN SOTO AYAM

10,000

1

2

MINUMAN ES TEH

5,000

2

3

BUAH STRAWBERRY

25,000

3

4

MAKANAN BAKSO

10,000

4

5

50,000

5

6

6

Adapun macronya :


Sub Mc_AdvFilterDelete_1()
' UNTUK MENCEGAH WORKSHEET YG TIDAK SEHARUSNYA
Dim worksheetnya As Worksheet
Set worksheetnya = ActiveSheet
If UCase(worksheetnya.Name) <> "HAPUS" Then Exit Sub

Dim daerahfilter As Range
Sheets("Filternya").Activate
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set daerahfilter = Selection

Dim daerahData As Range
worksheetnya.Activate
Range("B2").Select
If ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set daerahData = Selection

Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
daerahfilter, Unique:=False

Dim jumbaris, jumkolom As Long
jumbaris = daerahData.Rows.Count - 1
jumkolom = daerahData.Columns.Count

Set daerahData = daerahData.Offset(1, 0).Resize(jumbaris, jumkolom)
Dim sel As Range

Dim bAlerts As Boolean
bAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
Dim strRow As String
For Each sel In daerahData.Rows
If Not (sel.Height = 0 Or sel.Hidden) Then
strRow = strRow & "," & sel.Address
End If
Next
If ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
' Tampilkan semua Data
ActiveSheet.ShowAllData
If strRow <> "" Then
Range(Mid(strRow, 2)).Select
Selection.Delete Shift:=xlUp
End If

Application.DisplayAlerts = bAlerts

End Sub

Kalau ingin hapus yang mengandung kol, tomat , dst , maka isi Filternya :




Nama




*kol*



*tomat*



*mangga*



*rambutan*



*kobis*



*bayam*



*jambu*



_____

To: belajar-excel@yahoogroups.com

From: ocha.yatno@gmail.com
Date: Tue, 13 Mar 2012 18:46:19 +0700
Subject: [belajar-excel] Tanya VBA delete row dg kriteria tertentu

Dear Pakar

Bagaimana cara delete row yg mengandung kata tertentu

Missal di sheet 1 kolom B saya pingin menhapus row yg mengandung kata buah

kol

tomat

mangga

rambutan

kobis

bayam

jambu

Sebelum dan sesudahnya terima kasih

Salam

Ocha

--- Mods ---
Contoh workbook berisi data secukupnya akan lebih membantu.
Terutama, daftar nama buah yang menjadi kriteria.
------------

_____

No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1424 / Virus Database: 2113/4869 - Release Date: 03/13/12

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

6a.

Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "Wewith Isme" wewithisme@ymail.com   wewithism

Wed Mar 14, 2012 8:54 am (PDT)

hampir dikit lagi seperti yg diharapkan, mungkin kali ini filenya lebih menjelaskan lagi.

-- Mods ---
Bapak sertakan saja hasil kerja manual (tanpa formulanya)
-----------

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

6b.

Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "HerrSoe" herrsoe@gmail.com   herrsoe

Wed Mar 14, 2012 9:10 am (PDT)

cappe de..
=IF(SUM(DTB!A2:O2)*DTB!A2,
SUBSTITUTE(TEXT(SUMPRODUCT(DTB!A2:H2*10^(8-COLUMN(DTB!A2:H2))),
"#,###,###")&"."&TEXT(SUMPRODUCT(DTB!I2:O2*10^(7-COLUMN(DTB!A2:G2))),
"#,###,###"),",","."),"00.000.000.0.000.000")
repot amat...

udah gitu keapa ya..email kok tidak menyertakan /mengQuote: email terakhir
/email yg ditanggapi !!

On Wed, Mar 14, 2012 at 22:13, Wewith Isme <wewithisme@ymail.com> wrote:

> **
>
> hampir dikit lagi seperti yg diharapkan, mungkin kali ini filenya lebih
> menjelaskan lagi.
>
> -- Mods ---
> Bapak sertakan saja hasil kerja manual (tanpa formulanya)
> -----------
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

6c.

Re: rumus apakah untuk menyembunyikan hasil rumus link?

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

Wed Mar 14, 2012 7:31 pm (PDT)

2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000




9
3
2
3
0
4












.932.3.04 . .






















. . .
. .






















. . .
. .


Kosong maka akan disisipkan 1 spasi ?jika ya , rumusnta =CONCATENATE(IF(A2=""," ",A2),IF(B2=""," ",B2),".",IF(C2= "", " ",C2),IF(D2= "", " ",D2),IF(E2= "", " ",E2),".",IF(F2= "", " ",F2),".",IF(G2= "", " ",G2),IF(H2= "", " ",H2),IF(I2= "", " ",I2),".",IF(J2= "", " ",J2),IF(K2= "", " ",K2),IF(L2= "", " ",L2),".",IF(M2= "", " ",M2),IF(N2= "", " ",N2),IF(O2= "", " ",O2)) To: belajar-excel@yahoogroups.com
From: wewithisme@ymail.com
Date: Wed, 14 Mar 2012 08:13:19 -0700
Subject: [belajar-excel] Re: rumus apakah untuk menyembunyikan hasil rumus link?

hampir dikit lagi seperti yg diharapkan, mungkin kali ini filenya lebih menjelaskan lagi.

-- Mods ---

Bapak sertakan saja hasil kerja manual (tanpa formulanya)

-----------

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

6d.

Re: rumus apakah untuk menyembunyikan hasil rumus link?

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

Wed Mar 14, 2012 7:43 pm (PDT)

2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000




9
3
2
3
0
4




















































































jika seperti diatas : =IF(COUNTIF(DTB!A2:O2,"")>0,"",CONCATENATE(DTB!A2,DTB!B2,".",DTB!C2,DTB!D2,DTB!E2,".",DTB!F2,".",DTB!G2,DTB!H2,DTB!I2,".",DTB!J2,DTB!K2,DTB!L2,".",DTB!M2,DTB!N2,DTB!O2))
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Thu, 15 Mar 2012 02:31:36 +0000
Subject: RE: [belajar-excel] Re: rumus apakah untuk menyembunyikan hasil rumus link?

2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


0
0
0
0
0
0
0
0
0
0
0
0
0
0
0





00.000.0.000.000.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000


2
5
9
3
2
3
0
4
6
9
0
3
0
0
0





25.932.3.046.903.000




9
3
2
3
0
4












.932.3.04 . .






















. . .
. .






















. . .
. .


Kosong maka akan disisipkan 1 spasi ?
jika ya , rumusnta

=CONCATENATE(IF(A2=""," ",A2),IF(B2=""," ",B2),".",IF(C2= "", " ",C2),IF(D2= "", " ",D2),IF(E2= "", " ",E2),".",IF(F2= "", " ",F2),".",IF(G2= "", " ",G2),IF(H2= "", " ",H2),IF(I2= "", " ",I2),".",IF(J2= "", " ",J2),IF(K2= "", " ",K2),IF(L2= "", " ",L2),".",IF(M2= "", " ",M2),IF(N2= "", " ",N2),IF(O2= "", " ",O2))


To: belajar-excel@yahoogroups.com
From: wewithisme@ymail.com
Date: Wed, 14 Mar 2012 08:13:19 -0700
Subject: [belajar-excel] Re: rumus apakah untuk menyembunyikan hasil rumus link?

hampir dikit lagi seperti yg diharapkan, mungkin kali ini filenya lebih menjelaskan lagi.

-- Mods ---

Bapak sertakan saja hasil kerja manual (tanpa formulanya)

-----------

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

6e.

Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "Wewith Isme" wewithisme@ymail.com   wewithism

Wed Mar 14, 2012 8:40 pm (PDT)

ternyata rumus baru itu sepertinya tidak bisa untuk excel 2007, mohon pencerahannya kembali (terlampir)

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

7a.

Bls: [belajar-excel] copy formula

Posted by: "Sam Mun" samkawi59@yahoo.com   samkawi59

Wed Mar 14, 2012 3:56 pm (PDT)

Dear Fan,

Thanks atas formulanya. The problem now solved.

Sekali lagi makasih

Syam

________________________________
Dari: Fano The Miner <fano.theminer@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 14 Maret 2012 7:12
Judul: Re: [belajar-excel] copy formula


 
Dear Syam.

Mudah-mudahan dengan file lampiran bisa membantu.

File lampiran terdapat module untuk fungsi GetFormula.

'=======================================
Public Function GetFormula(Cell As Range) As String
   GetFormula = Cell.Formula
End Function
'=======================================

dengan formula berikut, bisa mendapatkan formula tanpa tanda "sama dengan" (=)

=REPLACE((GetFormula(A1)),1,1,"")

Semoga Membantu.
Mungkin ada solusi lain dari teman-teman Be Exceler

Salam

Fano The Miner.

2012/3/14 Sam Mun <samkawi59@yahoo.com>

> 
>Teman2
>
>
>mohon bantuannya bagaimana meng-copas formula yang ada dalam satu cell ke cell lainnya dengan hasil formula juga (bukan results)
>
>
>contoh :
>
>
> cell a1 berisi formula =2+3. Formula ini akan dicopas special ke cell b1 dengan hasil BUKAN angka 5 tapi tampilan =2+3 atau 2+3 (tanpa tanda =)
>
>
>Terima kasih atas bantuannya
>
>
>syam

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

8a.

Otomatis mencari dan mengisi data

Posted by: "Winda Miranti" winda_1504@yahoo.co.id   winda_1504

Wed Mar 14, 2012 8:39 pm (PDT)

Dear Master Excel..

Salam kenal,saya masi baru di dunia perexcelan,mohon pencerahan dan jurus2 ampuh dari para master excel ni..

Saya mempunyai prolem seperti data terlampir..
Selama ini masi dikerjaakan secara manual,sort data manual,copi paste secara manual..
Mohon pencerahannya supaya ketika kita memasukan No WBS yang dikehendaki pada sheet hasil,
data yang dibutuhkan pada table dibawahnya terisi secara otomatis..

Mohon maaf apabila sudah pernah dibahas sebelumnya..
Mohon bantuannya master2 excel sekalian..

Regards,
Winda

Back to top

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

8b.

Re: Otomatis mencari dan mengisi data

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

Wed Mar 14, 2012 9:16 pm (PDT)

Memang sudah pernah.
Terlampir adalah "Formula duplikasi" dari yang pernah ada di milis ini.

Salam,
Hendrik Karnadi

________________________________
From: Winda Miranti <winda_1504@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 March 2012, 9:42
Subject: [belajar-excel] Otomatis mencari dan mengisi data


 
Dear Master Excel..

Salam kenal,saya masi baru di dunia perexcelan,mohon pencerahan dan jurus2 ampuh dari para master excel ni..

Saya mempunyai prolem seperti data terlampir..
Selama ini masi dikerjaakan secara manual,sort data manual,copi paste secara manual..
Mohon pencerahannya supaya ketika kita memasukan No WBS yang dikehendaki pada sheet hasil,
data yang dibutuhkan pada table dibawahnya terisi secara otomatis..

Mohon maaf apabila sudah pernah dibahas sebelumnya..
Mohon bantuannya master2 excel sekalian..

Regards,
Winda

Back to top

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

9.

Sumproduct kriteria ganda

Posted by: "Simonne Manuella" simonne_manuella@yahoo.co.uk   simonne_manuella

Wed Mar 14, 2012 8:41 pm (PDT)

Selamat siang, mohon saya bisa dibantu untuk menyelesaikan permasalahan dibawah ini:

Saya punya tabel dengan kolom BO di sheet Proses yang menghitung apakah kondisi dibawah
ini terpenuhi:
1. Kolom BJ >= Nilai_Diklat (di sheet rules)
2. Kolom BK >= Nilai_Profesi (di sheet rules)
3. Kolom BL >= Nilai_UT_TTL (di sheet rules)
4. Kolom BN >= Nilai (di sheet rules)

Keempat syarat ini harus dipenuhi dgn angka yg melebihi syarat wajib yang ada di sheet Rules.
Hanya jika keempatnya terpenuhi maka Kolom BO akan menghasilkan jabatan yang akan dituju (Kriteria 2 di sheet rules) untuk melanjutkan proses di kolom BP s.d. BV.  

Terima kasih atas bantuannya.

Simonne Manuella
Sekretariat Widyaiswara PPPPTK BOE Malang
(P)+62 817 389 800
(M)simonne_manuella@vedcmalang.or.id
(M)simonne_manuella@yahoo.co.uk

Back to top

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

10a.

menampilkan laporan bulanan

Posted by: "Saifudin Mnp" saifmnp@ymail.com   saifmnp@ymail.com

Wed Mar 14, 2012 8:43 pm (PDT)

dear para guru VBA,
saya mempunyai deretan data yg sudah tersusun (insya allah sesuai dg kaidah penyusunan data).
Bagaimana cara menyisipkan data tersebut ke dalam sebuah wadah berupa sheet "Laporan" sesuai dengan kriteria tanggal yg dicantumkan.
saya kesulitan menggunakan fitur formula maupun pivot table karena pada wadah dimaksud ada semacam footer untuk tanda tangan pak boss, sementara jumlah row untuk setiap tanggal bervariasi.
terima kasih

Back to top

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

10b.

Re: menampilkan laporan bulanan

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

Wed Mar 14, 2012 9:34 pm (PDT)

Untuk memenuhi keinginan anda, ada 3 tahap yang perlu dilakukan:
- Memfilter dengan formula (lihat jawaban saya untuk Sdri Winda pada email  berjudul "otomatis mencari dan mengisi data")
- Menulis total dan jumlahnya
- Menulis footer untuk tanda tangan boss

Coba dulu langkah pertama dengan mengadopsi email tersebut di atas. Untuk sementara, langkah kedua dan ketiga dengan manual dulu.

Salam,
Hendrik Karnadi

________________________________
From: Saifudin Mnp <saifmnp@ymail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 March 2012, 10:43
Subject: [belajar-excel] menampilkan laporan bulanan


 
dear para guru VBA,
saya mempunyai deretan data yg sudah tersusun (insya allah sesuai dg kaidah penyusunan data).
Bagaimana cara menyisipkan data tersebut ke dalam sebuah wadah berupa sheet "Laporan" sesuai dengan kriteria tanggal yg dicantumkan.
saya kesulitan menggunakan fitur formula maupun pivot table karena pada wadah dimaksud ada semacam footer untuk tanda tangan pak boss, sementara jumlah row untuk setiap tanggal bervariasi.
terima kasih

Back to top

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

10c.

Fw: [belajar-excel] menampilkan laporan bulanan

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

Wed Mar 14, 2012 9:53 pm (PDT)

Yang ini dengan Pivot (versi 2010). Coba anda tes di versi 2003.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 15 March 2012, 11:34
Subject: Re: [belajar-excel] menampilkan laporan bulanan


 
Untuk memenuhi keinginan anda, ada 3 tahap yang perlu dilakukan:
- Memfilter dengan formula (lihat jawaban saya untuk Sdri Winda pada email  berjudul "otomatis mencari dan mengisi data")
- Menulis total dan jumlahnya
- Menulis footer untuk tanda tangan boss

Coba dulu langkah pertama dengan mengadopsi email tersebut di atas. Untuk sementara, langkah kedua dan ketiga dengan manual dulu.

Salam,
Hendrik Karnadi

________________________________
From: Saifudin Mnp <saifmnp@ymail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 March 2012, 10:43
Subject: [belajar-excel] menampilkan laporan bulanan


 
dear para guru VBA,
saya mempunyai deretan data yg sudah tersusun (insya allah sesuai dg kaidah penyusunan data).
Bagaimana cara menyisipkan data tersebut ke dalam sebuah wadah berupa sheet "Laporan" sesuai dengan kriteria tanggal yg dicantumkan.
saya kesulitan menggunakan fitur formula maupun pivot table karena pada wadah dimaksud ada semacam footer untuk tanda tangan pak boss, sementara jumlah row untuk setiap tanggal bervariasi.
terima kasih

Back to top

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

11.

Sumproduct menggunakan makro

Posted by: "Aia Satria" aia.satria@yahoo.com   aia.satria

Wed Mar 14, 2012 8:50 pm (PDT)

Dear master Excel,

salam kenal
Mohon pencerahannya bagaimanakah membuat rumus sumproduct menggunakan makro,

karena sebelumnya saya manggunakan rumus sumproduct dan datanya buanyak sekali sehingga proses nya menjadi lama (lemot)
sebelumnya saya ucapkan terimakasih

salam
satria

Back to top

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

12.

Saat Loading Form Trouble

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

Wed Mar 14, 2012 11:32 pm (PDT)

B-excel...Kalau saat loading untuk menampilkan suatu form, error dengan pesan :                                 _________________
                                  Can not find Library                                 _________________
Ada apa dengan cinta yah eh dengan laptopku ....?

Back to top

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

Recent Activity

•  22
  New Members

Visit Your Group

Y! Groups blog

The place to go

to stay informed

on Groups news!

Yahoo! Groups

Small Business Group

Ask questions,

share experiences

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

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe