Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

[NangAgus nanga...@gmail.com [belajar-excel]]

Dear Yusuf:

Coba cekrip:

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date 
you want


diubah menjadi:

Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the 
date you want


Jabat erat
NangAgus


On 4/13/2018 1:51 PM, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:

Hai Yusuf,
Skg kan sdh 2018...jadi workbook ga bisa dibuka.
Kalau mau jalankan macroya...date yang ada di komputer dimundurin dulu.

Salam,
HK


On Friday, 13 April 2018, 1:20:16 PM GMT+7, y.ron...@yahoo.com 
[belajar-excel]  wrote:



Saya sudah script berikut namun tidak bisa digunakan:


Private Sub Workbook_Open()

Dim Edate As Date

Edate = Format("*31/08/2009*", "DD/MM/") ' Replace this with 
the date you want


If Date > Edate Then

MsgBox ("This worksheet was valid upto " & Format(Edate, 
"dd-mmm-") & " and will be closed")


*ActiveWorkbook.Close*

End If

If Edate - Date < 30 Then

MsgBox ("This worksheet expires on " & Format(Edate, 
"dd-mmm-") & " You have " & Edate - Date & " Days left ")


End If

End Sub


Mohon dibantu scrip untuk experied date untuk Office 2010?


Terimakasih.



Yusuf

Re: Bls: [belajar-excel] Penggunaan formula SUMIF untuk data Horisontal [1 Attachment]

[NangAgus nanga...@gmail.com [belajar-excel]]

Dear Wahyu, / Ade,

Selain SumIf; masih dapat digunakan formula lainnya misalnya: 
SumProduct; Sum; SumIfs; dan berbagai formula gabungan lainnya, namun 
yang paling sederhana (paling pendek formulanya) menggunakan sumif atau 
sumifs


Salam

NangAgus


On 4/13/2018 11:23 AM, ghozi alkatiri ghozialkat...@yahoo.co.id 
[belajar-excel] wrote:

di F10

=SUMIF($C$4:$T$4,E10,$C$5:$T$5)

copy ke bawah

wassalam

ghozi alkatiri

Pada Jumat, 13 April 2018 10.41.18 GMT+7, odong nando 
odongna...@yahoo.com [belajar-excel]  
menulis:



sangat bisa, bila anda terbiasa menggunakan fungsi sumif ini yang 
biasa nya kebawah jadi kesamping saja utk range dan sum range nya..


silakan di coba...
br,

odong nando*
*





*Dari:* "Wahyu Eko abi_esc...@yahoo.com [belajar-excel]" 


*Kepada:* belajar-excel@yahoogroups.com
*Dikirim:* Jumat, 13 April 2018 10:29
*Judul:* [belajar-excel] Penggunaan formula SUMIF untuk data 
Horisontal [1 Attachment]


Assalamu alaikum Wr. Wb.

Saya ingin meminta bantuan ke teman teman Be Exceler tentang 
penggunaan Formula SUMIF untuk data Horisontal. BIsa atau tidak? Saya 
mengalami kendala mengenai hal tersebut. saya harap teman2 be Exceler 
bersedia untuk membantu.

File Terlampir.

Sebelumnya saya ucapkan banyak terima kasih..

Wassalam.







Tanya-Tanya-1.xlsx
Description: MS-Excel 2007 spreadsheet

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

[NangAgus nanga...@gmail.com [belajar-excel]]

Dear Yusuf:

Coba cekrip:

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date 
you want


diubah menjadi:

Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the 
date you want


Jabat erat
NangAgus


On 4/13/2018 11:47 AM, y.ron...@yahoo.com [belajar-excel] wrote:


Saya sudah script berikut namun tidak bisa digunakan:


Private Sub Workbook_Open()

Dim Edate As Date

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the 
date you want


If Date > Edate Then

MsgBox ("This worksheet was valid upto " & Format(Edate, 
"dd-mmm-") & " and will be closed")


ActiveWorkbook.Close

End If

If Edate - Date < 30 Then

MsgBox ("This worksheet expires on " & Format(Edate, 
"dd-mmm-") & " You have " & Edate - Date & " Days left ")


End If

End Sub


Mohon dibantu scrip untuk experied date untuk Office 2010?


Terimakasih.



Yusuf

Re: Bls: [belajar-excel] Re: average cost/unit [1 Attachment]

[NangAgus nanga...@gmail.com [belajar-excel]]

Dear Kana,

saya coba pakai file yang lama saja yaa...

coba di M3 di ketikkan formula:

=(D3*E3+IFERROR((SUM($D$2:D2)-SUM($K$2:K2))*M2+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)*M2-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0)*M2;0))/(D3+SUM($D$2:D2)-SUM($K$2:K2)+IFERROR(INDEX(Table134[Qty];MATCH(I3;Table134[Tggl];0));0)-IFERROR(INDEX(Table1345[Qty];MATCH(I3;Table1345[Tggl];0));0))

formula tersebut hanya dicoba pada data sesuai lampiran, belum dicoba 
untuk berbagai kreteria,


silahkan dicoba dahulu, kalau masih ada kesulitan dapat diposting kembali

Jabat Erat

NangAgus


On 3/22/2018 1:16 PM, odong nando odongna...@yahoo.com [belajar-excel] 
wrote:

hai kana,

ini saran saja, utk kedepannya mungkin bisa memperhalus lagi bahasa 
dalam email yang di tulis kemilis, jgn sampai ada tulisan yang 
"mendesak" utk di respon, saya pernah kok 1 bln lebih bertanya ke 
milis baru ada yang jawab...


oiya, balik lagi ke masalah yang di hadapi, coba di buatkan dulu / 
coba anda gabungkan dulu setiap tabel yang ada, dari tabel pembelian, 
penjualan, retur itu anda buatkan dulu menjadi 1 tabel...


mungkin setelah tabelnya di gabungkan, banyak yang merespon...
br,

odong nando*
*



*Dari:* "kanadhasen...@yahoo.com [belajar-excel]" 


*Kepada:* belajar-excel@yahoogroups.com
*Dikirim:* Rabu, 21 Maret 2018 13:06
*Judul:* [belajar-excel] Re: average cost/unit

Kepada master semuanya,


Dengan ini saya lampirkan file excel saya yang sudah saya sederhanakan 
sehingga memudahkan untuk


memahaminya. Mohon untuk membantu saya memecahkan masalah ini. 
Walaupun sampai sekarang belum


ada respon apapun dari para master excel.



Terima Kasih


Kana








average cost-unit.xls
Description: MS-Excel spreadsheet

Re: RE: [belajar-excel] MEMBUAT LIST DARI RANGE

[hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]]

 Sebagai alternatif...Listnya bisa pakai UDF (User Defined Function) mbak Siti 
yang bernama LOUV (List of Unique Values).
UDF nya spt ini:Function LOUV(D As Range)   
'-   ' 
membuat daftar unique value (sorted) berdasarkan range data   ' coded by siti 
Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt   
'-   Dim 
A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer   ReDim A(1 
To D.Cells.Count)   For n = 1 To UBound(A): A(n) = D.Cells(n): Next n   For n = 
1 To UBound(A) - 1      For q = UBound(A) To n + 1 Step -1         p = q - 1    
     If A(p) > A(q) Then            v = A(p): A(p) = A(q): A(q) = v         
Else            If A(p) = A(q) Then A(q) = ""         End If      Next q   Next 
n   For n = 1 To UBound(A)      If Not A(n) = "" Then         r = r + 1: ReDim 
Preserve x(1 To r): x(r) = A(n)      End If   Next n   LOUV = 
WorksheetFunction.Transpose(x)End Function
UDF nya bisa dibuat di module dan filenya disimpan sebagai file berMacro 
(.xlsm) atau Binary file (.xlsb)atau UDFnya disimpan tersendiri sebagai file 
Add-Ins (.xla), kemudian Fungsi LOUV diaktifkan melalui Add-Ins (Buka Add-Ins, 
Browse dan cari file (.xla) nya).
Jumlahnya bilangan cacahnya tetap pakai Fungsi CountIf.
Salam,HK

On Friday, 13 April 2018, 4:20:25 PM GMT+7, 'M.Ade Alfarid' q...@kkmi.co.id 
[belajar-excel]  wrote:  
 
     


Kalo formula jadinya panjang buanget atau ribet Mr Kid?

 

From: belajar-ex...@yahoogroups..com [mailto:belajar-excel@yahoogroups.com] 
Sent: Friday, April 13, 2018 2:41 PM
To: BeExcel
Subject: Re: [belajar-excel] MEMBUAT LIST DARI RANGE

 

  

Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh barisnya, 
seperti 'Kid'

Setelah itu manfaatkan pivot consolidation seperti yang ada diposting beberapa 
waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,

Kid

 

2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] 
:

  

Dear, 

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan menggunakan 
formula seperti apa?

Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.

Terlampir file excelnya.

Contoh:



 

Terimakasih,

Ade