Hasil dari macro nya sudah saya aplikasikan, dan sudah berjalan dengan baik,
terima kasih bantuannya
Saya masih ada beberapa pertanyaan :
1. Kalau di sheet report untuk PENJUMLAHAN RDM, saya ingin formulanya diganti
apakah bisa? (jadi di hasil penjumlahan RDM adalah rumusnya
hasil penjumlahan kristal dibagi dengan hasil penjumlahan tebu di kali 100,
formula ini hanya untuk hasil penjumlahan RDM)
2. Seandainya mau menambah daftar nomer petak di sheet "SUB DATA", bagaimana
caranya agar muncul di drop down list?
3. Data di sheet "contoh" atau data awal, jika saya tambah terus sampai lebih
dari 50000 baris apakah tidak akan menyebabkan file jadi hang?
Atau ada saran lain untuk mencegah supaya file tidak hang?
Terima kasih banyak atas bantuan dan informasi nya
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0,
191);">Rahagung Dananjoyo</span>
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0,
191);"> PTPN XI (Persero)</span>
________________________________
From: siti Vi <[email protected]>
To: [email protected]
Sent: Thu, January 21, 2010 3:37:24 PM
Subject: Re: [belajar-excel] Pengelompokkan data
Sambil melihat contoh
bgmana 'bentuk makro'nya jika Report Pengelompokan data
(dengan satu kriteria) dikerjakan dengan
vba;
mohon dicoba yg ini apakah
sesuai ...
Sub GenerateReport1( Kriteria
As String)
' siti Vi / 21 jan 2010 - for milis
[belajar-excel]
Dim
dtabel As Range
Dim Report As
Range
Dim nRow As Long
Dim nCol As Integer
Dim
vHa As Double
Dim
vKui As Double
Dim
vRdm As Double
Dim vKristal As
Double
Dim i As Long, n As Long
Set dtabel = Sheets("contoh" ).UsedRange. Offset(4, 0)
nRow =
dtabel.Rows. Count - 4
nCol =
dtabel.Columns. Count
Set dtabel = dtabel.Resize( nRow,
nCol)
Set Report = Sheets("Report" ).Range(" A6")
ClearReportArea
For i = 1 To
nRow
If dtabel(i, 7).Value = Kriteria
Then
n = n +
1
dtabel(i, 1).Resize(1,
nCol).Copy
Report(n,
1).PasteSpecial
xlPasteValuesAndNum berFormats
vHa = vHa + dtabel(i,
11)
vKui = vKui + dtabel(i,
12)
vRdm = vRdm + dtabel(i,
17)
vKristal = vKristal +
dtabel(i, 18)
Application. CutCopyMode = False
End
If
Next i
n = n + 2
Report(n,
11) = FormatNumber( vHa, 0)
Report(n, 12) = FormatNumber( vKui,
0)
Report(n, 17) = FormatNumber( vRdm, 2)
Report(n, 18) = FormatNumber( vKristal, 2)
Report.Parent. Activate
Report(1, 1).Select
End Sub
----- Original Message -----
>From: Rahagung
> Dananjoyo
>To: belajar-excel@ yahoogroups. com
>Sent: Thursday, January 21, 2010 12:53
> PM
>Subject: [belajar-excel] Pengelompokkan
> data
>
>
>Bantuan
> dan penjelasan yang sudah diberikan untuk permasalahan yang sebelumnya
> sangat
> bermanfaat sekali
>
>Kali ini saya ada permasalahan lagi mengenai
> pengelompokkan data juga, namun ada sedikit perbedaan. (Data selengkapnya
> terlampir di attachment)
>Setiap hari saya mendapat laporan dengan jumlah
> data 300an. data disitu akan saya kelompokkan berdasarkan nomer petak. nomer
> petaknya sendiri kira2 berjumlah 2500an.
>Saya menginginkan bisa memisahkan
> data itu sesuai dengan nomer petaknya (kolom G)
>sehingga saya bisa tahu
> sampai dengan hari ini sudah berapa hektar atau sudah berapa
> kuintal.
>Apakah hal ini juga bisa dikerjakan dengan satu sheet saja seperti
> yang kemarin atau harus membuat program macro excel?
>Mohon penjelasan dan
> informasi nya
>Terima kasih banyak
>
>
>
