Selasa, 06 September 2011

]] XL-mania [[ Digest Number 2244

Messages In This Digest (17 Messages)

Messages

1a.

Re: Jarak tempuh

Posted by: "supriyadiacc_YPMI@yamaha-motor.co.id" supriyadiacc_YPMI@yamaha-motor.co.id

Mon Sep 5, 2011 6:07 pm (PDT)



mungkin seperti ini yang diminta

regards




agus.suyanto@hino.co.id
Sent by: XL-mania@yahoogroups.com
08/18/2011 08:00 AM
Please respond to
XL-mania@yahoogroups.com


To
XL-mania@yahoogroups.com
cc

Subject
]] XL-mania [[ Jarak tempuh









Dear XL-mania,

Mohon bantuannya, saya kesulitan membuat rumus sederhana seperti pada
lampiran.

Terima kasih atas bantuannya

Thanks & Regards,

Agus Suyanto

PT. Hino Motors Sales Indonesia
Jl. Gatot Subroto Km 8,5 Tangerang
T : 6221-5918844
F : 6221-5917887
E : agus.suyanto@hino.co.id
W : www.hino.co.id



Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1b.

Re: Jarak tempuh

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

Mon Sep 5, 2011 9:29 pm (PDT)



ada dua bilangan misal 9 dan 11

untuk menebak bilangan mana yg terkecil, mengapa orang orang memilih rumus
= + IF( 9 < 11, 11, 9)

padahal ada rumus =MIN(9,11)
dan kasusnya adalah kasus hampir sebulan y.l. ?

*==========================
kutipan rumus dari sheet kiriman pak yamaha
=+IF(D4>=C4,C4,D4)
==========================
**2011/9/5 <supriyadiacc_YPMI@yamaha-motor.co.id>
> mungkin seperti ini yang diminta
> regards
> agus.suyanto@hino.co.id*
>

> 08/18/2011 08:00 AM
> To XL-mania@yahoogroups.com
> Subject ]] XL-mania [[ Jarak tempuh
>
> Dear XL-mania,
> Mohon bantuannya, saya kesulitan membuat rumus sederhana seperti pada
> lampiran.
> Terima kasih atas bantuannya
> Thanks & Regards,
> Agus Suyanto
> PT. Hino Motors Sales Indonesia
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2a.

Re: Mencetak semua sheet dalam format PDF

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

Mon Sep 5, 2011 6:08 pm (PDT)



1. Unduh & install PDF writer gratisan misal PDF Cute
2. Klik Office Button (klik1)
2. Cetak workbook (Klik2)
dengan pilihan
a. Printer : CutePDFWriter (klik3)
b PrintWhat : Entire workbbok (klik4)

[image: print to pdf.GIF]

Jika ingin *sekali klik *dengan tombol,
Gambar Tombol di assigned ke makro yg kira-kira spt ini

Sub CetakKePDF()
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,3,""CutePDF Writer on CPW2:"",,TRUE,,FALSE)"
End Sub

2011/9/5 Laturiuw, Arthur <Arthur.Laturiuw@nov.com>

> **
>
> Dear para pakar XL mania,****
>
> Saya ada tugas rutin tiap bulan untuk membuat laporan dalam format PDF yang
> data olahanya dalam format excel.
>
> Apakah dimungkinkan mencetak semua sheet sekaligus jika di sheet rekap saya
> tekan tombol "CETAK SEMUA SHEET" seperti terlampir.****
>
> Terima kasih atas bantuan pakar XL mania.
>
> Salam****
>
> Arthur****
>
> **
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.

Re: Mencetak semua sheet dalam format PDF

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

Mon Sep 5, 2011 6:09 pm (PDT)



mungkin,
 
Sub Cetak_PDF()
    'anton suryadi, 5/Sep/2011
    'print semua sheet excel ke format PDF
    Application.ScreenUpdating = False
    Shapes("PDF").Visible = False
    Sheets.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\user\Downloads\Cetak-SemuaSheet-KePDF.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    Sheets("Rekap").Select
    Shapes("PDF").Visible = True
    Application.ScreenUpdating = True
End Sub

File terlampir
 
 
>semoga bermanfaat

 
 
From: "Laturiuw, Arthur" <Arthur.Laturiuw@nov.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Monday, September 5, 2011 9:57 AM
Subject: ]] XL-mania [[ Mencetak semua sheet dalam format PDF

 

Dear para pakar XL mania,
 
Saya ada tugas rutin tiap bulan untuk membuat laporan dalam format PDF yang data olahanya dalam format excel.
Apakah dimungkinkan mencetak semua sheet sekaligus jika di sheet rekap saya tekan tombol “CETAK SEMUA SHEET” seperti terlampir.
 
Terima kasih atas bantuan pakar XL mania.
Salam
Arthur
 
 
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3a.

Re: Replace Text menjadi sebuah Formula

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

Mon Sep 5, 2011 6:09 pm (PDT)



Mungkin yg diinginkan oleh Mr. Mandor ini adalah: *Range Name*
http://tech.groups.yahoo.com/group/XL-mania/message/7048

Jika Range-range yg terlibat dlm FORMULA dapat diberi NAMA (apalagi kalau
range tsb dapat dibuat DINAMIS), maka formula akan lebih gampang dibuat
dan difahami

[image: image.png]

2011/9/5 Mandor <donitius_ferry@yahoo.com>

> **
>
> Dear para suhu XL-Mania
> Perkenal saya Doni (sidoarjo-Jatim),
> Salam sukses untuk semua member XL-Mania...
> Sebuah Contoh pengerjaan report berikut ini :
>
> sheet 1
>
> D E F
> 5 Fruits Qty (kg)Value (Rp)
> 6 Apel 10 100,000
> 7 Manggis 20 150,000
> 8 Jeruk 30 200,000
> 9 Manggis 40 250,000
> 10 Apel 50 300,000
> 11 Jeruk 60 350,000
> 12 Apel 70 400,000
> 13
> 14
> 15 Fruits Qty__kg Value__Rp
> 16 Apel 130 130
> 17 Manggis 60 60
> 18 Jeruk 90 90
>
> =SUMIF(INDIRECT($D$15),$D16,INDIRECT($E$15))
>
> sheet 2
>
> A B C
> 1 SUMIF(INDIRECT($D$15),$D16,INDIRECT($E$15))
> 2
> 3
> 4
> 5 Fruits Qty__kg Value__Rp
> 6 Apel ???
>
> Nah, kebetulan data sangat complexs, misal di cell B6, ketika dientry
> formula, character sudah tidak terpenuhi (menthok = bhs jawa) lagi sedangkan
> source data masih kurang untuk sebuah hasil kalkulasi dari formula, sampai
> saat ini saya mencari sebuah ide bagaimana merubah cell A1 (berupa text)
> menjadi formula di B6, andai ini bisa wah...nggak kebayang menjadi semakin
> mudah pengerjaan dengan excel.
> Mungkin rekan-rekan pernah mengalami hal ini dan berkenan berbagi
> pengalaman dalam forum ini, Terima kasih.
>
> Salam Satu Jiwa XL-Mania
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4a.

Re: Form Pop Up Calender

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

Mon Sep 5, 2011 6:09 pm (PDT)



Menampilkan Kalender di excel userform setahu saya ada 2 macam
1. dengan USERFORM + Calendar Control
2. dengan DTPicker (Date-Time_Picker) Control

Kedua cara ada di contoh sederhana pada workbook terlampir.

Secara gitu loch... Pemanfaatan DTPicker yg lebih advanced sudah ada
contohnya di milis ini
(belum sempat dibaca ya ?); lihat posting sekitar pertengahan Juli 2011
http://tech.groups.yahoo.com/group/XL-mania/message/18813

atau: sekitar Sept - Des 2008
http://tech.groups.yahoo.com/group/XL-mania/message/11537
http://tech.groups.yahoo.com/group/XL-mania/message/12151
http://tech.groups.yahoo.com/group/XL-mania/message/12235

Jika diperlukan lampiran, dapat diminta via japri kpd si siti, atau ke
sini:
http://www.box.net/shared/6l7k6l017hr5a1fn9t3f
atau
http://www.box.net/shared/utusrfnldzgo0tdg46so

Mohon maaf, Jika ternyata yg diinginkan bukan seperti di atas...

2011/9/2 juli hartawan <julihartawan@yahoo.co.id>
> Dear XL-Mania,
> Mohon bantuan VBA excel untuk menampilkan Pop up calender di form text
box.
> File attached.
> Terima kasih.
> Komang
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4b.

Re: Form Pop Up Calender

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

Mon Sep 5, 2011 6:09 pm (PDT)



maaf
lampiran ketinggalan
( Form Pop Up Calendar.xlsm )

2011/9/6 Haps <hapsari.stlizbeth@gmail.com>

> Menampilkan Kalender di excel userform setahu saya ada 2 macam
> 1. dengan USERFORM + Calendar Control
> 2. dengan DTPicker (Date-Time_Picker) Control
> Kedua cara ada di contoh sederhana pada workbook terlampir.
> Mohon maaf, Jika ternyata yg diinginkan bukan seperti di atas...
>
>
> 2011/9/2 juli hartawan <julihartawan@yahoo.co.id>
> > Dear XL-Mania,
> > Mohon bantuan VBA excel untuk menampilkan Pop up calender di form text
> box.
> > File attached.
> > Terima kasih.
> > Komang
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5a.

Re: Insert row diantara data tanggal & secara otomatis menambah data

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

Mon Sep 5, 2011 6:09 pm (PDT)



Solusi 'Pencet_Tombol' / hasil berupa tabel berisi konstanta
(diharapkan, jika tabel cukup besar, konstanta tidak akan membebani
kinerja worksheets)

'--------------
Sub SisipTanggalTakBerTransaksi(TBL As Range)
' Hapsari // 01 sep 2011
' courtesy of mbak siti
'----------------------
Dim HSL As Range, TglAkir As Integer
Dim i As Long, n As Long, r As Long
Dim tRow As Long, tCol As Integer, c As Integer
Dim TGL As Date, StrTgl As String, ArRec()

'-- tentukan letak dimensi Tabel yg akan diproses
On Error GoTo endd
Set TBL = Application.InputBox("Tentukan Tabel Sumber yg ada.", _
"Input Range Sumber", TBL.Address, , , , , 8)
tRow = TBL.Rows.Count: tCol = TBL.Columns.Count
'-- meyalin Header
TBL.Resize(2, tCol).Copy TBL(tRow + 7, 1)
Application.CutCopyMode = False

'--tentukan Tabel tanpa header
Set TBL = TBL.Offset(2, 0).Resize(tRow - 2, tCol)
Set HSL = TBL.Offset(tRow + 6, 0)

' tentukan Tgl patokan, tgl-akhir,
TGL = TBL(1, 2).Value: StrTgl = "|"
TglAkir = Day(DateSerial(Year(TGL), Month(TGL) + 1, 0))

' menon-aktifkan Calc otomatik & screenupdating
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
' tabel sumber di catat dlm array 6 X n
tRow = TBL.Rows.Count
For n = 1 To tRow
StrTgl = StrTgl & Day(TBL(n, 2)) & "|"
ReDim Preserve ArRec(1 To tCol, 1 To n)
ArRec(2, n) = TBL(n, 2): ArRec(3, n) = TBL(n, 3)
ArRec(4, n) = TBL(n, 4): ArRec(5, n) = TBL(n, 5)
ArRec(6, n) = "=R[-1]C+RC[-2]-RC[-1]"
Next n

' tgl lain masih (bulan yg sama), ditambahkan pada array
n = UBound(ArRec, 2)
For i = 1 To TglAkir
If InStr(1, StrTgl, "|" & i & "|", 1) = 0 Then
n = n + 1
ReDim Preserve ArRec(1 To tCol, 1 To n)
ArRec(2, n) = DateSerial(Year(TGL), Month(TGL), i)
ArRec(3, n) = "Tidak ada transaksi"
' ArRec(4, n) = 0: ' ArRec(5, n) = 0
ArRec(6, n) = "=R[-1]C+RC[-2]-RC[-1]"
End If
Next i

' Array hasil gabungan ditulis di range/tabel Hasil
For r = 1 To UBound(ArRec, 2)
For c = 1 To UBound(ArRec, 1)
HSL(r, c) = ArRec(c, r)
Next c
Next r

' perbaiki pengenalan letak & dimensi Tabel Hasil
Set HSL = HSL.CurrentRegion.Offset(2, 1)
Set HSL = HSL.Resize(UBound(ArRec, 2), UBound(ArRec, 1))
' Range Hasil di-SORT; kunci-sorting =kolom Tgl, urutan =menaik
*SortTbl HSL*

' tabel diberi nomor Urut (Records Index), di kolom 1
For i = 1 To UBound(ArRec, 2)
HSL(i, 0) = i
Next i
endd:
' reset Calc & ScreenUpdating
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
'------
mudah-mudhan ada manfaatnya

2011/8/30 Iwan Kesuma <iwan.kesuma@yahoo.com>
>
> Dear Para Master XL,
> Mohon bantuannya. Bagaimanakah caranya menyisipkan baris diantara 2
tanggal
> dan otomatis mengisi baris yg kosong dengan tanggal selanjutnya?
> Contoh terlampir.
>
> Regards,
> Iwan
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6a.

Re: Membuat Formula dengan kriteria tertentu

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

Mon Sep 5, 2011 6:09 pm (PDT)



Coba array formula :
=IFERROR(INDEX(TRANSAKSI!$B$4:$B$43,MATCH(1,(TRANSAKSI!$C$4:$C$43="Pelumas")*(COUNTIF(REPORT!A$6:A6,TRANSAKSI!$B$4:$B$43)=0),0)),"")

Kid.

2011/9/5 slamet sela <zhella_met@yahoo.com>

> **
>
>
>
> Dear para pakar XL-Mania
>
> Mohon petunjuknya dari para master XL-Mania bagaimana caranya membuat
> formula dengan kriteria tertentu. jika kriteria tersebut kita pilih maka
> semua data base yang mempunyai krireria yang sama akan muncul di report,
> attachments terlampir
>
> terimakasih,
>
> Slamet.
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6b.

Re: Membuat Formula dengan kriteria tertentu

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

Mon Sep 5, 2011 6:09 pm (PDT)



Memfilter dengan formula: sudah sangat sering di tayangkan di milis ini

** Array formula multi hasil
(mencari Records number ys memenuhi kriteria)
*=SMALL(IF(TRANSAKSI!C4:C56=REPORT!C4, ROW(1:53)), ROW(1:53))*

** Formula biasa
(memanggil data berdasarkan records number yg muncul)

*=IF(ISNUMBER($A7), OFFSET(TRANSAKSI!D$3, $A7, 0), "")*

-Haps-

2011/9/5 slamet sela <zhella_met@yahoo.com>

> **
> Dear para pakar XL-Mania
> Mohon petunjuknya dari para master XL-Mania bagaimana caranya membuat
> formula dengan kriteria tertentu. jika kriteria tersebut kita pilih maka
> semua data base yang mempunyai krireria yang sama akan muncul di report,
> attachments terlampir
> terimakasih,
> Slamet.
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6c.

Re: Membuat Formula dengan kriteria tertentu

Posted by: "Charles Rusli" charlesrusli@gmail.com   charlesrusli1

Mon Sep 5, 2011 9:29 pm (PDT)



Dear Pak Slamet,

Barangkali bisa dicoba juga cara alternatif dengan menggunakan Pivot Table.
Contoh nya sesuai attachment terlampir.

Salam,
Charles

2011/9/5 slamet sela <zhella_met@yahoo.com>

> **
>
>
>
> Dear para pakar XL-Mania
>
> Mohon petunjuknya dari para master XL-Mania bagaimana caranya membuat
> formula dengan kriteria tertentu. jika kriteria tersebut kita pilih maka
> semua data base yang mempunyai krireria yang sama akan muncul di report,
> attachments terlampir
>
> terimakasih,
>
> Slamet.
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7a.

Re: Satu Form untuk multiple Sheet

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

Mon Sep 5, 2011 6:09 pm (PDT)



*Bisa !*

Misal
~ data yg akan diinput ada di Sheet1 cell A1 (atau mungkin textbox1 di suatu
userform)
~ tempat yg akan menjadi Output ada di 5 cell yaitu
Cell F4 di Sheet2, sampai Sheet6

With Sheet1.Range("A1")
Sheet2.Range("F4").Value = .Value
Sheet3.Range("F4").Value = .Value
Sheet4.Range("F4").Value = .Value
Sheet5.Range("F4").Value = .Value
Sheet6.Range("F4").Value = .Value
End With

Mungkin yg pak Dedi Kom maksudkan adalah: pengisian akan terus berlanjut
ke bawah setiap kali ada INPUT BARU
Jika demikian, seperti biasanya, harus ada proses mencari BARIS TERAKHIR
di KOLOM F pada tiap Sheet2 sampai Sheet6 lebih dulu

Misa, *khusus di sheet2*
Pencarian Row Kosong pertama (salah satu cara dari banyak cara)
R = Sheet2.Range("F" & Cells.Count).End(xlUp).Row + 1

Pengisian di row tsb (Kolom F)
Sheet2.Range("F" & R).Value = Sheet1.Range("A1").Value

akan lebih jelas jika Bapak datang tidak bertangan kosong, tapi bawa sheet
data contoh..

-Hapsari-

2011/9/5 Dedi Komarudin <dedikom81@yahoo.co.id>

> **
> Dear pakar Xl-Mania mohon pencerahan
> *bisakah* menggunakan satu form untuk banyak sheet dalam sekali input.
> Terima kasih
> Salam
> Dedi CliP
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7b.

Bls: ]] XL-mania [[ Satu Form untuk multiple Sheet

Posted by: "Dedi Komarudin" dedikom81@yahoo.co.id   dedikom81

Mon Sep 5, 2011 9:30 pm (PDT)



Pak hapsari yang baik, terima kasih atas bantuannya, mohon maaf sebelumnya karena saya tidak menyertakan file yang sedang saya kerjakan, mohon bantuan ya pak. maklum masih belajar pak... ..
yang saya kehendaki adalah ketika input data di form Nomor semua cell f6 terisi diseluruh sheets yang sudah di kasih nama masing-masing.

mohon pencerahan codenya gimana ya pak, filenya sekarang saya sertakan.
Terima kasih banyak pak hapsari

Salam hormat

Dedi Komarudin

CLiP Ad

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Senin, 5 September 2011 19:24
Judul: Re: ]] XL-mania [[ Satu Form untuk multiple Sheet

 
Bisa !

Misal 
~ data yg akan diinput ada di Sheet1 cell A1 (atau mungkin textbox1 di suatu userform)
~ tempat yg akan menjadi Output ada di 5 cell yaitu 
Cell F4 di Sheet2, sampai Sheet6

With Sheet1.Range("A1")
Sheet2.Range("F4").Value = .Value
Sheet3.Range("F4").Value = .Value
Sheet4.Range("F4").Value = .Value
Sheet5.Range("F4").Value = .Value
Sheet6.Range("F4").Value = .Value
End With

Mungkin yg pak Dedi Kom maksudkan adalah: pengisian akan terus berlanjut 
ke bawah setiap kali ada INPUT BARU
Jika demikian, seperti biasanya, harus ada proses mencari BARIS TERAKHIR
di KOLOM F pada tiap Sheet2 sampai Sheet6 lebih dulu

Misa, khusus di sheet2 
Pencarian Row Kosong pertama (salah satu cara dari banyak cara)
R = Sheet2.Range("F" & Cells.Count).End(xlUp).Row + 1

Pengisian di row tsb (Kolom F)
Sheet2.Range("F" & R).Value = Sheet1.Range("A1").Value

akan lebih jelas jika Bapak datang tidak bertangan kosong, tapi bawa sheet data contoh..

-Hapsari-

2011/9/5 Dedi Komarudin <dedikom81@yahoo.co.id>

>Dear pakar Xl-Mania mohon pencerahan 
>bisakah menggunakan satu form untuk banyak sheet dalam sekali input.
>Terima kasih 
>
>Salam 
>Dedi CliP
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7c.

Re: Satu Form untuk multiple Sheet

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

Tue Sep 6, 2011 6:55 am (PDT)



'==module Userform==

Private Sub CommandButton1_Click()
' indri hapsari // sept 6. 2011
'------------------------------
Dim sht As Worksheet
If TxtNomor = vbNullString Then
MsgBox "Nomor Belum diisi !!", vbExclamation, "Media Order"
TxtNomor.SetFocus
Exit Sub
Else
For Each sht In Worksheets
sht.Range("F6") = TxtNomor.Value
Next
End If
Unload Me
End Sub

untuk menampilkan USERFORM:
(1) *Klik-Kanan* *salah satu cell di ROW1* (Sheet Mana Saja)
(2) *Klik* SubMenu *[Media Order Form]*
*
*
[image: PopUpMenu.PNG]

2011/9/6 Dedi Komarudin <dedikom81@yahoo.co.id>
> >
> > Pak hapsari yang baik, terima kasih atas bantuannya, mohon maaf
> sebelumnya karena saya tidak menyertakan file yang sedang saya kerjakan,
> mohon bantuan ya pak. maklum masih belajar pak... ..
> > yang saya kehendaki adalah ketika input data di form Nomor semua cell f6
> terisi diseluruh sheets yang sudah di kasih nama masing-masing.
> > mohon pencerahan codenya gimana ya pak, filenya sekarang saya sertakan.
> > Terima kasih banyak pak hapsari
> >
> > Salam hormat
> > Dedi Komarudin
> > CLiP Ad
> ------------------------------
> *Dari:* Haps <hapsari.stlizbeth@gmail.com>
> *Kepada:* XL-mania@yahoogroups.com
> *Dikirim:* Senin, 5 September 2011 19:24
> *Judul:* Re: ]] XL-mania [[ Satu Form untuk multiple Sheet
>
> *Bisa !*
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
8.

Tanya hasil dan validasi yang berbeda penamaannya

Posted by: "Subkhan Zaeni" subkhan.zaeni@id.panasonic.com

Tue Sep 6, 2011 6:53 am (PDT)



Dear Pakar Excel dan Excel mania

Terima kasih sebelumnya kepada Bu CTV dan Mr Kid yang telah membantu pertanyaan saya sebelumnya.

Mohon bantuannya sekali lagi untuk pemecahan hasil dan validasi
Dari contoh sya sebelumnya antara type dan kelas part penamaannya tidak jauh berbeda...( typical)
Type A Kelas A1, A2, A3 dst
Type B Kelas B1, B2 dst

mohon pencerahaanya apabila type dan kelas penamaannya tidak sama... contoh terlampir

sya sudah mencoba formula dari Bu CTV dan Mr Kid namun hasilnya tidak muncul

Terima kasih

Best regards,

Subkhan Zaeni

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

Ukuran Excel VBA Besar

Posted by: "mail4muja@yahoo.co.id" mail4muja@yahoo.co.id   muja_muje

Tue Sep 6, 2011 6:54 am (PDT)



Salam tuk para Master XL-Mania, aku mau nanya nih. Saat ini aku lagi bikin aplikasi excel VBA yang terintegrasi langsung dengan laporan(laporan sudah ada dalam Sheet aplikasi tsb. Aplikasi tsb rencananya akan dishare ke 30 user. Masalahnya baru stengah jalan save ukuran File membengkak hingga 15MB format .xls. Aku coba perkecil ukuran file dgn save as .xlsm bisa turun s/d 2MB. Trus aku save as ke .xla (untuk dijadikan Add-in) langsung bengkak s/d 50MB, akhirnya ak pilih format .xlsm.

Project aku lanjutkan, dengan penambahan Listbox setelah di save file langsung bengkak jd 7 MB.... Padahal aplikasi ini harus direkap setiap bulan... 7MB x 30 = 210 MB.... Mana sanggup dikirim via email...

Apa kira2 solusinya supaya ukuran file menjadi kecil? Mengingat aku punya file bermakro .xla (buatan orang lain) dengan userform plus banyak komponen toolbox serta source code panjang bgt ukuran filenya cuma 1,6 MB.....
Tks buat responnya.....

Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
10.

VBA run in OpenOffice 3.0

Posted by: "dhai" f12eshf12uit@yahoo.co.id   f12eshf12uit

Tue Sep 6, 2011 6:54 am (PDT)



Dear XL Mania

Saya mau tanya kenapa VBA macro ga bisa dijalankan di Oppenoffice ya , semua komponennya menjadi tidak muncul dan syntaxnya pun tidak bisa di execude , apa ada settingan yang mesti diatur terlebih dahulu di VBA atau di openoffice?

Mohon Bantuanya XL mania
Thanks n' Regards

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
Recent Activity
Visit Your Group
Check out the

Y! Groups blog

Stay up to speed

on all things Groups!

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Improve your business

by community exchange

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
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin...                 |
| www.linkedin.com/company/xl-mania                                 |
| ayo pesan buku "mengapa boss benci chart anda"  :D :D :D          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE
A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 07.09

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)