[belajar-excel] Digest Number 1495

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1a.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak From: jkssxls Sudarsono

1b.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak From: Isti Astro

1c.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak From: o' Seno

1d.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak From: Isti Astro

1e.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak From: summonery

2a.

Filter Dengan Makro From: Mansor

2b.

Re: Filter Dengan Makro From: Ki Semprul

2c.

Re: Filter Dengan Makro From: Mansor

2d.

Re: Filter Dengan Makro From: Ki Semprul

3a.

Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg baru From: Contract Mining Assistant, Asam-Asam

3b.

Re: Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg bar From: jkssxls Sudarsono

4a.

Re: Bagaimana Mengcopy Data Antar Sheet From: guru muda

5a.

REKAP TANGGAL From: Ahmad Fauzi

5b.

Re: REKAP TANGGAL From: Kid Mr.

5c.

Bls: [belajar-excel] REKAP TANGGAL From: Ahmad Fauzi

6a.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna From: Mulki

6b.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna From: Kid Mr.

6c.

Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell a From: Prodev SIMPLE PB

6d.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna From: Kid Mr.

6e.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce From: hendrik karnadi

6f.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna From: Mulki

6g.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna From: Kid Mr.

6h.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce From: Mulki

6i.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce From: Ki Semprul

6j.

Bls: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka c From: Prodev SIMPLE PB

View All Topics | Create New Topic

Messages

1a.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak

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

Mon Jan 30, 2012 12:56 am (PST)

coba : Sub CopyPaste()
Dim dataTbl As Range, dataRekap As Range, Rng As Range
Dim Row As Integer, Col As Integer
Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet berubah sesuai dengan data tabel sumber
Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
For Row = 1 To dataTbl.Rows.Count - 1 ' karena offset(1,0)
Cari = dataTbl(Row, 1)
Set Rng = dataRekap.Find(Cari, LookIn:=xlValues)
If Rng Is Nothing Then
GoTo Lab_NextRow
End If
For Col = 2 To dataTbl.Columns.Count
baris = Rng.Row - 1 'offset (1,0)
dataRekap(baris, Col) = dataTbl(Row, Col) ' Jika pakai coding ini hanya value saja yang ke paste, maunya plus comment
dataTbl(Row, Col).Copy
dataRekap(baris, Col).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next Col
Lab_NextRow:
Next Row
End Sub

To: belajar-excel@yahoogroups.com
From: milisastro@gmail.com
Date: Mon, 30 Jan 2012 14:12:32 +0700
Subject: [belajar-excel] Tanya: Bagaimana cara copy paste value plus comment saja via makro

Dear All Master,

Mohon bantuannya makro untuk copy paste tapi hanya value plus commentnya saja, untuk format dan lainnya tidak ikut ter-paste di cell yang dituju. Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan sedikit modifikasi tapi masih bingung juga, berikut makronya:

====================================================================================
Sub CopyPaste()
Dim dataTbl As Range, dataRekap As Range, Rng As Range
Dim Row As Integer, Col As Integer
Dim i As Long

Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet berubah sesuai dengan data tabel sumber
Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)

For Row = 2 To dataTbl.Rows.Count

For Col = 2 To dataTbl.Columns.Count
Set Rng = Sheet2.Range("B1:D1").Find(Col, LookIn:=xlValues)
i = Rng.Column
dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai coding ini hanya value saja yang ke paste, maunya plus

' commentnya
Next Col
Next Row
End Sub
===========================================================================================

Tabel kasus terlaimpir. Terima kasih.

regards,
Isti

Back to top

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

1b.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak

Posted by: "Isti Astro" milisastro@gmail.com   isti_astro

Mon Jan 30, 2012 1:06 am (PST)

Mantap pak rumusnya, berhasil...berhasil. Terima kasih banyak atas
bantuannya pak Sudarsono.

TOP banget

regards,
Isti

On Mon, Jan 30, 2012 at 3:56 PM, jkssxls Sudarsono <jkssxls@hotmail.com>wrote:

> **
>
>
> coba :
>
>
> Sub CopyPaste()
> Dim dataTbl As Range, dataRekap As Range, Rng As Range
> Dim Row As Integer, Col As Integer
> Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet
> berubah sesuai dengan data tabel sumber
> Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
> For Row = 1 To dataTbl.Rows.Count - 1 ' karena offset(1,0)
> Cari = dataTbl(Row, 1)
> Set Rng = dataRekap.Find(Cari, LookIn:=xlValues)
> If Rng Is Nothing Then
> GoTo Lab_NextRow
> End If
>
> For Col = 2 To dataTbl.Columns.Count
> baris = Rng.Row - 1 'offset (1,0)
> dataRekap(baris, Col) = dataTbl(Row, Col) ' Jika pakai coding
> ini hanya value saja yang ke paste, maunya plus comment
> dataTbl(Row, Col).Copy
> dataRekap(baris, Col).PasteSpecial Paste:=xlPasteComments,
> Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
> Next Col
> Lab_NextRow:
> Next Row
> End Sub
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: milisastro@gmail.com
> Date: Mon, 30 Jan 2012 14:12:32 +0700
> Subject: [belajar-excel] Tanya: Bagaimana cara copy paste value plus
> comment saja via makro
>
>
>
>
> Dear All Master,
>
>
> Mohon bantuannya makro untuk copy paste tapi hanya value plus commentnya
> saja, untuk format dan lainnya tidak ikut ter-paste di cell yang dituju.
> Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan
> sedikit modifikasi tapi masih bingung juga, berikut makronya:
>
> ====================================================================================
> Sub CopyPaste()
> Dim dataTbl As Range, dataRekap As Range, Rng As Range
> Dim Row As Integer, Col As Integer
> Dim i As Long
>
> Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet
> berubah sesuai dengan data tabel sumber
> Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
>
> For Row = 2 To dataTbl.Rows.Count
> For Col = 2 To dataTbl.Columns.Count
> Set Rng = Sheet2.Range("B1:D1").Find(Col, LookIn:=xlValues)
> i = Rng.Column
> dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai coding
> ini hanya value saja yang ke paste, maunya plus
>
> ' commentnya
> Next Col
> Next Row
> End Sub
>
> ===========================================================================================
>
> Tabel kasus terlaimpir. Terima kasih.
>
> regards,
> Isti
>
>
>
>

Back to top

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

1c.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak

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

Mon Jan 30, 2012 2:21 am (PST)

cara sedikit lain: mencari AngkaPOSISI (index) Label Baris

Jika pak sudarsono sudah mencontohkan menggunakan Method FIND;
mari Kita cuba menggunakan fungsi MATCH

Cara ini saya lihat pernah dipamerkan juga oleh Haps di suatu kasus

Sub CopyPaste()
' code racikan dari o'SEno
' memanfaatkan fungsi MATCH
'--------------------------
Dim dataTABEL As Range, dataREKAP As Range
Dim TBL_ColHeadr As Range, TBL_RowLabel As Range
Dim iRow As Integer, iCol As Integer
Dim xRow As Integer, xCol As Integer

Set dataTABEL = Sheet1.Cells(1).CurrentRegion ' (sht Data)
Set dataREKAP = Sheet2.Cells(1).CurrentRegion ' (sht Hasil)
Set TBL_ColHeadr = dataTABEL.Resize(1, dataTABEL.Columns.Count)
Set TBL_RowLabel = dataTABEL.Resize(dataTABEL.Rows.Count, 1)

For iRow = 2 To dataREKAP.Rows.Count
'mencari posisi Baris
xRow = 0: On Error Resume Next
xRow = WorksheetFunction.Match(dataREKAP(iRow, 1), TBL_RowLabel, 0)

For iCol = 2 To dataREKAP.Columns.Count
' mencari posisi Kolom
xCol = 0: On Error Resume Next
xCol = WorksheetFunction.Match(dataREKAP(1, iCol), TBL_ColHeadr, 0)
'sumber data dicopy
dataTABEL(xRow, xCol).Copy
' dipaste special ke Rekap/hasil
dataREKAP(iRow, iCol).PasteSpecial xlPasteValues
dataREKAP(iRow, iCol).PasteSpecial xlPasteComments
Next iCol
Next iRow
Application.CutCopyMode = False
End Sub

*o'Seno*

2012/1/30 Isti Astro <milisastro@gmail.com>

> **
> Dear All Master,
>
> Mohon bantuannya makro untuk copy paste tapi hanya value plus commentnya
> saja, untuk format dan lainnya tidak ikut ter-paste di cell yang dituju.
> Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan
> sedikit modifikasi tapi masih bingung juga, berikut makronya:
>
> ====================================================================================
> Sub CopyPaste()
> Dim dataTbl As Range, dataRekap As Range, Rng As Range
> Dim Row As Integer, Col As Integer
> Dim i As Long
>
> Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' *Sheet
> berubah* sesuai dengan data tabel sumber
> Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
>
> For Row = 2 To dataTbl.Rows.Count
> For Col = 2 To dataTbl.Columns.Count
> Set Rng = Sheet2.Range("B1:D1").Find(Col, LookIn:=xlValues)
> i = Rng.Column
> dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai coding
> ini hanya value saja yang ke paste, maunya plus
>
> ' commentnya
> Next Col
> Next Row
> End Sub
> ============================================================
> Tabel kasus terlaimpir. Terima kasih.
>
> regards,
> Isti
>

Back to top

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

1d.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak

Posted by: "Isti Astro" milisastro@gmail.com   isti_astro

Mon Jan 30, 2012 2:34 am (PST)

Mantap juga nih rumus dari Pak Seno...nambah ilmu maning asyik. Lanjutkan
pak jika ada cara lainnya yang lebih simple atau bisa untuk data yang lebih
kompleks.

2012/1/30 o' Seno <ontoseno84@gmail.com>

> **
>
>
> cara sedikit lain: mencari AngkaPOSISI (index) Label Baris
>
> Jika pak sudarsono sudah mencontohkan menggunakan Method FIND;
> mari Kita cuba menggunakan fungsi MATCH
>
> Cara ini saya lihat pernah dipamerkan juga oleh Haps di suatu kasus
>
> Sub CopyPaste()
> ' code racikan dari o'SEno
> ' memanfaatkan fungsi MATCH
> '--------------------------
> Dim dataTABEL As Range, dataREKAP As Range
> Dim TBL_ColHeadr As Range, TBL_RowLabel As Range
> Dim iRow As Integer, iCol As Integer
> Dim xRow As Integer, xCol As Integer
>
> Set dataTABEL = Sheet1.Cells(1).CurrentRegion ' (sht Data)
> Set dataREKAP = Sheet2.Cells(1).CurrentRegion ' (sht Hasil)
> Set TBL_ColHeadr = dataTABEL.Resize(1, dataTABEL.Columns.Count)
> Set TBL_RowLabel = dataTABEL.Resize(dataTABEL.Rows.Count, 1)
>
> For iRow = 2 To dataREKAP.Rows.Count
> 'mencari posisi Baris
> xRow = 0: On Error Resume Next
> xRow = WorksheetFunction.Match(dataREKAP(iRow, 1), TBL_RowLabel, 0)
>
> For iCol = 2 To dataREKAP.Columns.Count
> ' mencari posisi Kolom
> xCol = 0: On Error Resume Next
> xCol = WorksheetFunction.Match(dataREKAP(1, iCol), TBL_ColHeadr,
> 0)
> 'sumber data dicopy
> dataTABEL(xRow, xCol).Copy
> ' dipaste special ke Rekap/hasil
> dataREKAP(iRow, iCol).PasteSpecial xlPasteValues
> dataREKAP(iRow, iCol).PasteSpecial xlPasteComments
> Next iCol
> Next iRow
> Application.CutCopyMode = False
> End Sub
>
>
> *o'Seno*
>
>
>
> 2012/1/30 Isti Astro <milisastro@gmail.com>
>
>> **
>> Dear All Master,
>>
>> Mohon bantuannya makro untuk copy paste tapi hanya value plus commentnya
>> saja, untuk format dan lainnya tidak ikut ter-paste di cell yang dituju.
>> Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan
>> sedikit modifikasi tapi masih bingung juga, berikut makronya:
>>
>> ====================================================================================
>> Sub CopyPaste()
>> Dim dataTbl As Range, dataRekap As Range, Rng As Range
>> Dim Row As Integer, Col As Integer
>> Dim i As Long
>>
>> Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' *Sheet
>> berubah* sesuai dengan data tabel sumber
>> Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
>>
>> For Row = 2 To dataTbl.Rows.Count
>> For Col = 2 To dataTbl.Columns.Count
>> Set Rng = Sheet2.Range("B1:D1").Find(Col, LookIn:=xlValues)
>> i = Rng.Column
>> dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai
>> coding ini hanya value saja yang ke paste, maunya plus
>>
>> ' commentnya
>> Next Col
>> Next Row
>> End Sub
>> ============================================================
>> Tabel kasus terlaimpir. Terima kasih.
>>
>> regards,
>> Isti
>>
>
>

Back to top

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

1e.

Re: Tanya: Bagaimana cara copy paste value plus comment saja via mak

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

Mon Jan 30, 2012 4:08 am (PST)

Coba juga yang berbeda berikut ini,
Sub CopySpecial() 'anton suryadi, 30/Jan/2012 Dim Z As String, nh
As Long, nd As Long, x As Range, K nh = Sheet2.Cells(Rows.Count,
1).End(3).Row nd = Sheet1.Cells(Rows.Count, 1).End(3).Row For Each
x In Sheet2.Range("A1:A" & nh) If x.Value <> "" Then Z
= x.Value Set K = Sheet1.Range("A1:A" & nd).Find(What:=Z,
LookIn:=xlValues, LookAt:=xlWhole) If Not K Is Nothing Then
K.Offset(, 1).Resize(, 3).Copy With x.Offset(, 1)
.PasteSpecial xlPasteValues .PasteSpecial
xlPasteComments End With
Application.CutCopyMode = 0 End If End If NextEnd
Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Isti Astro <milisastro@...> wrote:
>
> Dear All Master,
>
>
> Mohon bantuannya makro untuk copy paste tapi hanya value plus
commentnya
> saja, untuk format dan lainnya tidak ikut ter-paste di cell yang
dituju.
> Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan
> sedikit modifikasi tapi masih bingung juga, berikut makronya:
>
========================================================================\
============
> Sub CopyPaste()
> Dim dataTbl As Range, dataRekap As Range, Rng As Range
> Dim Row As Integer, Col As Integer
> Dim i As Long
>
> Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet
> berubah sesuai dengan data tabel sumber
> Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
>
> For Row = 2 To dataTbl.Rows.Count
> For Col = 2 To dataTbl.Columns.Count
> Set Rng = Sheet2.Range("B1:D1").Find(Col,
LookIn:=xlValues)
> i = Rng.Column
> dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai
coding
> ini hanya value saja yang ke paste, maunya plus
>
> ' commentnya
> Next Col
> Next Row
> End Sub
>
========================================================================\
===================
>
> Tabel kasus terlaimpir. Terima kasih.
>
> regards,
> Isti
>

Back to top

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

2a.

Filter Dengan Makro

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Mon Jan 30, 2012 2:00 am (PST)

Para guru BeExcel,

saya mau belajar gimana makronya supaya data dalam table asli difilter
seperti advance filter, dengan memilih bulan dan nama perusahaan langsung
terfilter dan dipindahkan ke table hasil di sheet filter.

Kalau dengan pivot, fungsi nya sangat terbatas.

Tujuan table ini ialah sebagai reference mail merge ms Word.

Surat di ms Word adalah standard, saya tinggal ganti nama bulan dalam
format( tanggal Indonesia) karena suratnya dalam Bahasa Indonesia,

Selain itu yang akan diganti Nama Perusahaan, alamat dan j

jumlah uangnya.

Saya udah coba amaun dalam format number, yang keluar di ms Word justeru
format text.

Contoh: 75,377.00 yang keluar di ms Word ialah 75377.

Mohon bantuan, teman dan guru BeExcel.

File dilampirkan.
Terima kasih.

-Mansor

Back to top

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

2b.

Re: Filter Dengan Makro

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Mon Jan 30, 2012 5:04 am (PST)

Saya bukan guru BeExcel, hanya member biasa seperti anda

Sangat disayangkan bahwai pak mansor desi permatasari tidak
menginformasikan
SETTING PADA "REGIONAL & LANGUAGE OPTIONS" DI PC NYA

Dlm mengoprex data date dan format bilangan informasi ini sangat berguna

Makro ini sudah dicoba di Regional Setting = English(US)
Jika makro ini tidak bagus jalannya di pc pak mansor berarti kemungkinan
besar
Regional Setting pak mansor = Indonesian / atau regional lain yg
menghasilkan
simbol pemisah disimal = KOMA (bukan TITIK)

Sub *FilterBulan*(KriTGL As Date)
* ' Ki Semprul - 30 jan 2012*
* ' REGIONAL SETTING = English(US)*
* ' atau regional yg pemisah desimalnya = TITIK*
* ' --------------------------------------------*
Dim RefTbl As Range, Report As Range
Dim n As Long, r As Long, TxtNum As String

Set RefTbl = Sheets("Data Asli").Cells(1).CurrentRegion
Set Report = Sheets("Filter").Cells(9, 1)
Report(0, 1).CurrentRegion.Offset(1, 0).ClearContents

For n = 2 To RefTbl.Rows.Count
If Month(RefTbl(n, 3)) = Month(KriTGL) Then
If Year(RefTbl(n, 3)) = Year(KriTGL) Then
r = r + 1
Report(r, 1) = WorksheetFunction. _
Text(RefTbl(n, 3), "[$-421]mmmm yyyy")
Report(r, 2) = RefTbl(n, 1)
Report(r, 3) = RefTbl(n, 2)
TxtNum = CStr(Replace(Format(RefTbl(n, 4), "#,##0.00"), ",",
"|"))
Report(r, 4) = Replace(Replace(TxtNum, ".", ","), "|", ".")
End If
End If
Next n
End Sub

*2012/1/30 Mansor <dbpermatasari@gmail.com>
>
> Para guru BeExcel,
> saya mau belajar gimana makronya supaya data dalam table asli difilter
seperti advance filter, dengan memilih bulan dan nama perusahaan langsung
terfilter dan dipindahkan ke table hasil di sheet filter.
>
> Kalau dengan pivot, fungsi nya sangat terbatas.
> Tujuan table ini ialah sebagai reference mail merge ms Word.
> Surat di ms Word adalah standard, saya tinggal ganti nama bulan dalam
format( tanggal Indonesia) karena suratnya dalam Bahasa Indonesia,
> Selain itu yang akan diganti Nama Perusahaan, alamat dan j jumlah uangnya.
>
> Saya udah coba amaun dalam format number, yang keluar di ms Word justeru
format text.
> Contoh: 75,377.00 yang keluar di ms Word ialah 75377.
>
> Mohon bantuan, teman dan guru BeExcel.
>
> File dilampirkan.
> Terima kasih.
>
> -Mansor*

Back to top

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

2c.

Re: Filter Dengan Makro

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Mon Jan 30, 2012 11:38 am (PST)

2012/1/30 Mansor <dbpermatasari@gmail.com>

> Terima Pak Ki Semprul atas response anda yang sangat bagus.
>
> Saya ingin memahami lebih detail tentang format number.
> 1) Apa yang dimaksudkan dgn kode ini?
> Adakah "#,##0.00" = 1,000.00?
> Trus , ",", "|")) apa artinya?
>
> Bagaimana pula dgn Replace(Replace(TxtNum, ".", ","), "|", ".")
>
>
> 2) Maaf pak kalau permintaan saya merepotkan, saya maunya format angka
> dalam TEXT tapi seperti setting English US, kebetulan computer saya
> juga settingnya English US. Oleh karena angka angka nya dalam USD,lebih
> sesuai pakai format bagini 1,000.00.
>
> 3) Masalah format tanggal Indonesia, udah Ok.
>
> Terima kasih sekali lagi atas bantuan bapak, saya harap bantuan
> selanjutnya untuk dibetulkan date format.
>
> 4) Pada setiap bulan nama perusahaan hanya muncul 1 kali sahaja. Contoh
> bulan Jan 2012, PT John Corp ada 2 kali. saya mau jumlah kedua duanya
>
menjadi satu amaun, seperti dalam fungsi SUMPRODUCT

TEXT FORMAT

TEXT FORMAT Januari 2012 PT John Corp Kelapa, Gading, Jkt
6,689.00 Januari 2012 PT Coswindo Tg Priok, Jkt
580.00 Januari 2012 PT Permatasari Pramuka, Jkt
22.00 Januari 2012 PT Indah Fajar Blok M, Jkt
1,007.00
Terima kasih atas bantuanya.

-Mansor

>
> 2012/1/30 Ki Semprul <semprul.ki@gmail.com>
>
>> **
>>
>>
>> Saya bukan guru BeExcel, hanya member biasa seperti anda
>>
>> Sangat disayangkan bahwai pak mansor desi permatasari tidak
>> menginformasikan
>> SETTING PADA "REGIONAL & LANGUAGE OPTIONS" DI PC NYA
>>
>> Dlm mengoprex data date dan format bilangan informasi ini sangat berguna
>>
>> Makro ini sudah dicoba di Regional Setting = English(US)
>> Jika makro ini tidak bagus jalannya di pc pak mansor berarti kemungkinan
>> besar
>> Regional Setting pak mansor = Indonesian / atau regional lain yg
>> menghasilkan
>> simbol pemisah disimal = KOMA (bukan TITIK)
>>
>> Sub *FilterBulan*(KriTGL As Date)
>> * ' Ki Semprul - 30 jan 2012*
>> * ' REGIONAL SETTING = English(US)*
>> * ' atau regional yg pemisah desimalnya = TITIK*
>> * ' --------------------------------------------*
>> Dim RefTbl As Range, Report As Range
>> Dim n As Long, r As Long, TxtNum As String
>>
>> Set RefTbl = Sheets("Data Asli").Cells(1).CurrentRegion
>> Set Report = Sheets("Filter").Cells(9, 1)
>> Report(0, 1).CurrentRegion.Offset(1, 0).ClearContents
>>
>> For n = 2 To RefTbl.Rows.Count
>> If Month(RefTbl(n, 3)) = Month(KriTGL) Then
>> If Year(RefTbl(n, 3)) = Year(KriTGL) Then
>> r = r + 1
>> Report(r, 1) = WorksheetFunction. _
>> Text(RefTbl(n, 3), "[$-421]mmmm yyyy")
>> Report(r, 2) = RefTbl(n, 1)
>> Report(r, 3) = RefTbl(n, 2)
>> TxtNum = CStr(Replace(Format(RefTbl(n, 4), "#,##0.00"), ",",
>> "|"))
>> Report(r, 4) = Replace(Replace(TxtNum, ".", ","), "|", ".")
>> End If
>> End If
>> Next n
>> End Sub
>>
>>
>> *2012/1/30 Mansor <dbpermatasari@gmail.com>
>> >
>> > Para guru BeExcel,
>> > saya mau belajar gimana makronya supaya data dalam table asli difilter
>> seperti advance filter, dengan memilih bulan dan nama perusahaan langsung
>> terfilter dan dipindahkan ke table hasil di sheet filter.
>> >
>> > Kalau dengan pivot, fungsi nya sangat terbatas.
>> > Tujuan table ini ialah sebagai reference mail merge ms Word.
>> > Surat di ms Word adalah standard, saya tinggal ganti nama bulan dalam
>> format( tanggal Indonesia) karena suratnya dalam Bahasa Indonesia,
>> > Selain itu yang akan diganti Nama Perusahaan, alamat dan j jumlah
>> uangnya.
>> >
>> > Saya udah coba amaun dalam format number, yang keluar di ms Word
>> justeru format text.
>> > Contoh: 75,377.00 yang keluar di ms Word ialah 75377.
>> >
>> > Mohon bantuan, teman dan guru BeExcel.
>> >
>> > File dilampirkan.
>> > Terima kasih.
>> >
>> > -Mansor*
>>
>>
>>
>
>

Back to top

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

2d.

Re: Filter Dengan Makro

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Mon Jan 30, 2012 4:21 pm (PST)

*(1)*
sebelum dilanjutkan, Ki Semprul tetap minta kerelaan informasi dan pak
Mansor
SETTING KOMPUTER pak Mansor Regional & Language nya di set APA ??
English(US) ataukah Indonesian
( dapat di cek di Control_Panel > Regional & Language Options )

[image: Regional Setting Eng and Ind.PNG]

informasi ini sangat berpengaruh pada coding yg akan dituliskan

*(2)*
Solusi yg diajukan kemarin tetap mengikuti permintaan pak Mansor yaitu
hanya *MEMFILTER !*
Ternyata sekarang permintaannya bukan lagi MEMFILTER melainkan* MEMBUAT
SUMMARY*
*/ membuat REKAP*, yaitu ditandai customer yg muncul beberapa kali di tabel
"JURNAL"
akan dimunculkan HANYA SATU KALI tetapi NILAINYA merupakan penjumlahan dari
SEMUA
record mengenai Customer tsb

Ini akan melibatkan keperluan adanya: UNIQUE-LIST ot Customer / Customer_ID

Begitulah pak,
Coding baru (Meng"generate" Summary dengan format tanggal dan format
bilangan aneh) akan
di posted kemilis setelah bapak berkenan memberi info REGIONAL SETTING yg
berlaku
di Komputer yg bapak pakai...

(idealnya semua penanya, selain mengajukan pertanyaan juga
menyajikan info yg berhubungan dengan pertanyaannya)

catatan:
ini hanya sekedar celetuk spontan, jangan diambil maknanya...

*- format TANGGAL = diinginkan: format bahasa indonesia*
di tabel yg sama
*- format BILANGAN = diinginkan format: English !!*
comment: sebaiknya HASIL jangan disajikan kepada umum, daripada mengundang
kritik

*(3)*

*Tafsir Al Semprul* :
*TxtNum = CStr(Replace(Format(RefTbl(n, 4), "#,##0.00"), ",", "|"))*
** data bilangan di kolom 4 (ex TabelRujukan) di konversi ke text dengan
penampakan
*format english* (yaitu format default yg berlaku di VBA)
** lalu karakter KOMA (pemisah ribuan) diganti dengan karakter "|"
** hasilnya disimpan di variable TextNum

*Report(r, 4) = Replace(Replace(TxtNum, ".", ","), "|", ".")*
** di dalam *TextNum* jika ada karakter . (TITIK) >> diganti dengan KOMA
** selain itu, karakter "|" ( yg dulunya berupa KOMA) >> diganti dengan
TITIK
** Hasilnya dituliskan pada Range REPORT pada baris R pada kolom 4

salam kompak
sesama BeExcellers
*Semprul.., Ki !!*

2012/1/30 Mansor <dbpermatasari@gmail.com>
>
>> Terima Pak Ki Semprul atas response anda yang sangat bagus.
>> Saya ingin memahami lebih detail tentang format number.
>> 1) Apa yang dimaksudkan dgn kode ini?
>> Adakah "#,##0.00" = 1,000.00?
>> Trus , ",", "|")) apa artinya?
>>
>> Bagaimana pula dgn Replace(Replace(TxtNum, ".", ","), "|", ".")
>>
>> 2) Maaf pak kalau permintaan saya merepotkan, saya maunya format angka
>> dalam TEXT tapi seperti setting English US, kebetulan computer saya
>> juga settingnya English US. Oleh karena angka angka nya dalam USD,lebih
>> sesuai pakai format bagini 1,000.00.
>>
>> 3) Masalah format tanggal Indonesia, udah Ok.
>>
>> Terima kasih sekali lagi atas bantuan bapak, saya harap bantuan
>> selanjutnya untuk dibetulkan date format.
>>
>> 4) Pada setiap bulan nama perusahaan hanya muncul 1 kali sahaja. Contoh
>> bulan Jan 2012, PT John Corp ada 2 kali. saya mau jumlah kedua duanya
>>
> menjadi satu amaun, seperti dalam fungsi SUMPRODUCT
>
> TEXT FORMAT
>
> TEXT FORMAT Januari 2012 PT John Corp Kelapa, Gading, Jkt
> 6,689.00 Januari 2012 PT Coswindo Tg Priok, Jkt
> 580.00 Januari 2012 PT Permatasari Pramuka, Jkt
> 22.00 Januari 2012 PT Indah Fajar Blok M, Jkt
> 1,007.00
> Terima kasih atas bantuanya.
>
> -Mansor
>
>>
>> 2012/1/30 Ki Semprul <semprul.ki@gmail.com>
>>
>>> **
>>>
>>>
>>> Saya bukan guru BeExcel, hanya member biasa seperti anda
>>>
>>> Sangat disayangkan bahwai pak mansor desi permatasari tidak
>>> menginformasikan
>>> SETTING PADA "REGIONAL & LANGUAGE OPTIONS" DI PC NYA
>>>
>>> Dlm mengoprex data date dan format bilangan informasi ini sangat berguna
>>>
>>> Makro ini sudah dicoba di Regional Setting = English(US)
>>> Jika makro ini tidak bagus jalannya di pc pak mansor berarti kemungkinan
>>> besar
>>> Regional Setting pak mansor = Indonesian / atau regional lain yg
>>> menghasilkan
>>> simbol pemisah disimal = KOMA (bukan TITIK)
>>>
>>> Sub *FilterBulan*(KriTGL As Date)
>>> * ' Ki Semprul - 30 jan 2012*
>>> * ' REGIONAL SETTING = English(US)*
>>> * ' atau regional yg pemisah desimalnya = TITIK*
>>> * ' --------------------------------------------*
>>> Dim RefTbl As Range, Report As Range
>>> Dim n As Long, r As Long, TxtNum As String
>>>
>>> Set RefTbl = Sheets("Data Asli").Cells(1).CurrentRegion
>>> Set Report = Sheets("Filter").Cells(9, 1)
>>> Report(0, 1).CurrentRegion.Offset(1, 0).ClearContents
>>>
>>> For n = 2 To RefTbl.Rows.Count
>>> If Month(RefTbl(n, 3)) = Month(KriTGL) Then
>>> If Year(RefTbl(n, 3)) = Year(KriTGL) Then
>>> r = r + 1
>>> Report(r, 1) = WorksheetFunction. _
>>> Text(RefTbl(n, 3), "[$-421]mmmm yyyy")
>>> Report(r, 2) = RefTbl(n, 1)
>>> Report(r, 3) = RefTbl(n, 2)
>>> TxtNum = CStr(Replace(Format(RefTbl(n, 4), "#,##0.00"),
>>> ",", "|"))
>>> Report(r, 4) = Replace(Replace(TxtNum, ".", ","), "|", ".")
>>> End If
>>> End If
>>> Next n
>>> End Sub
>>>
>>>

Back to top

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

3a.

Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg baru

Posted by: "Contract Mining Assistant, Asam-Asam" apassistant@arutmin.com

Mon Jan 30, 2012 2:01 am (PST)

Dear rekan rekan Pecinta Excel,
Listing dibawah hanya mempaste berdasarkan value, format dan lebar
colom,
tetapi objek seperti gambar, wordArt maupun grafik tidak ikut terkopi.

Asumsi gambar, wordArt dan Grafik berada di sekitar area Range yang di
Copy ("A1:L100")

Bagaimana agar objek tersebut ikut terkopy ke workbooks.



Workbooks.Add
ThisWorkbook.ActiveSheet.Range("A1:L100").Copy
With ActiveWorkbook.Sheets(1).Cells(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteColumnWidths


End With
Application.CutCopyMode = False


Terima kasih


Salam: |Rasyid|

Disclaimer - This message including any attachments and information contained
herein ("Message" ) may contain privileged information or otherwise is protected
from disclosure. Any unauthorized use of this Message by any person may lead to
legal consequences. If you receive this Message in error, or if the recipient
of this Message is not the intended recipient or the employee or agent authorized
for delivering this Message to the intended recipient you are hereby notified that
any disclosure, dissemination, distribution or copying of this Message or let or
cause this Message to be disclosed,disseminated, distributed, or copied is strictly
prohibited, and please notify the sender by return message and immediately delete
this Message from your system. Incoming and outgoing communications using this
electronic mail may be monitored by PT Arutmin Indonesia,as permitted by applicable
law and regulations. Unless it is made by the authorized person,any views expressed
in this Message are those of the individual sender and may not necessarily reflect
the views of PT Arutmin Indonesia.
You should check attachments for viruses and defects before opening or using them.
We are not liable to recover any injuries caused by virused or defected attachments.

Back to top

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

3b.

Re: Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg bar

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

Mon Jan 30, 2012 7:48 pm (PST)

Sub cui()
Dim daerah As Range
Set daerah = ThisWorkbook.ActiveSheet.Range("A1:L100")
daerah.Copy Workbooks.Add
Dim tujuan As Range
Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
tujuan.Activate
ActiveSheet.Paste
End Sub

To: belajar-excel@yahoogroups.com
CC: apassistant@arutmin.com
From: apassistant@arutmin.com
Date: Mon, 30 Jan 2012 13:44:16 +0700
Subject: [belajar-excel] Gambar WordArd dan Grafik juga ikut terPaste ke Workbooks yg baru

Dear rekan rekan Pecinta Excel,
Listing dibawah hanya mempaste berdasarkan
value, format dan lebar colom,
tetapi objek seperti gambar, wordArt maupun
grafik tidak ikut terkopi.

Asumsi gambar, wordArt dan Grafik berada di sekitar
area Range yang di Copy ("A1:L100")

Bagaimana agar objek tersebut ikut terkopy ke
workbooks.



Workbooks.Add

ThisWorkbook.ActiveSheet.Range("A1:L100").Copy
With
ActiveWorkbook.Sheets(1).Cells(1)

.PasteSpecial xlPasteValues
.PasteSpecial
xlPasteFormats
.PasteSpecial
xlPasteColumnWidths



End With
Application.CutCopyMode = False


Terima kasih

Salam:
|Rasyid|
Disclaimer - This message including any attachments and information contained

herein ("Message" ) may contain privileged information or otherwise is protected

from disclosure. Any unauthorized use of this Message by any person may lead to

legal consequences. If you receive this Message in error, or if the recipient

of this Message is not the intended recipient or the employee or agent authorized

for delivering this Message to the intended recipient you are hereby notified that

any disclosure, dissemination, distribution or copying of this Message or let or

cause this Message to be disclosed,disseminated, distributed, or copied is strictly

prohibited, and please notify the sender by return message and immediately delete

this Message from your system. Incoming and outgoing communications using this

electronic mail may be monitored by PT Arutmin Indonesia,as permitted by applicable

law and regulations. Unless it is made by the authorized person,any views expressed

in this Message are those of the individual sender and may not necessarily reflect

the views of PT Arutmin Indonesia.

You should check attachments for viruses and defects before opening or using them.

We are not liable to recover any injuries caused by virused or defected attachments.

Back to top

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

4a.

Re: Bagaimana Mengcopy Data Antar Sheet

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

Mon Jan 30, 2012 2:52 am (PST)

Terima kasih untuk semua yg telah memberikan bantuan.

Reparasi code dari Pak Sudarsono sangat bermanfaat bagi saya.

Kasus ditutup

Terima kasih

Back to top

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

5a.

REKAP TANGGAL

Posted by: "Ahmad Fauzi" fauzietha@yahoo.co.id   fauzietha

Mon Jan 30, 2012 7:47 pm (PST)

Dear Para Master Excel

Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan 
Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...

Terima kasih atas bantuannya....  

Back to top

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

5b.

Re: REKAP TANGGAL

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

Mon Jan 30, 2012 8:03 pm (PST)

Dear Ahmad,

Coba formula : D3
=SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *( MONTH( $A$1:$A$14 ) = ROW(
$C1 ) )* )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.

Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan

Regards,
Kid.

2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>

> **
>
>
> Dear Para Master Excel
>
> Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
> Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A
> sehingga menghasilkan output seperti pada file terlampir...
>
>
> Terima kasih atas bantuannya....
>
>
>
>

Back to top

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

5c.

Bls: [belajar-excel] REKAP TANGGAL

Posted by: "Ahmad Fauzi" fauzietha@yahoo.co.id   fauzietha

Mon Jan 30, 2012 8:31 pm (PST)

Terima kasih Mr. Kid, problem solved.... :D

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:03
Judul: Re: [belajar-excel] REKAP TANGGAL


 
Dear Ahmad,

Coba formula : D3
=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.

Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan

Regards,
Kid.

2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>

> 
>Dear Para Master Excel
>
>
>Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan 
>Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...
>
>
>
>
>Terima kasih atas bantuannya....  
>

Back to top

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

6a.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna

Posted by: "Mulki" mulki@aop.component.astra.co.id   mulki_akbar

Mon Jan 30, 2012 8:13 pm (PST)

mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat cell tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.

mohon pencerahannya mr. kid.

thx & wassalam,
mulki

----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 31, 2012 11:03 AM
Subject: Re: [belajar-excel] REKAP TANGGAL

Dear Ahmad,

Coba formula : D3
=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.

Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan

Regards,
Kid.

2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>

Dear Para Master Excel

Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...

Terima kasih atas bantuannya....

Back to top

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

6b.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna

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

Mon Jan 30, 2012 8:20 pm (PST)

Umumnya menggunakan fitur Conditional Formatting.
Pada Excel 2007 ke atas : menu Home -> grup Styles -> Conditional
Formatting -> Highlight Cells Rules -> pilih kriterianya -> isi nilai-nilai
batasnya -> atur formatnya

Jika yang akan diberi warna adalah nilainya (bukan fill cell nya), bisa
juga dengan mengatur format number custom menjadi :
[blue]General;;

Regards.
Kid.

2012/1/31 Mulki <mulki@aop.component.astra.co.id>

> **
>
>
> **
> mr. kid, numpang thread yg sama.
> saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat
> cell tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.
>
> mohon pencerahannya mr. kid.
>
>
> thx & wassalam,
> mulki
>
>
>
> ----- Original Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 31, 2012 11:03 AM
> *Subject:* Re: [belajar-excel] REKAP TANGGAL
>
>
>
> Dear Ahmad,
>
> Coba formula : D3
> =SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *( MONTH( $A$1:$A$14 ) =
> ROW( $C1 ) )* )
> Kemudian, format number custom General;;
> Copy ke cell lain di kanan dan bawahnya.
>
> Warna biru adalah kriteria berdasar tanggal
> Warna hijau adalah kriteria berdasar bulan
>
> Regards,
> Kid.
>
> 2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>
>
>> **
>>
>>
>> Dear Para Master Excel
>>
>> Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
>> Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A
>> sehingga menghasilkan output seperti pada file terlampir...
>>
>>
>> Terima kasih atas bantuannya....
>>
>>
>>
>
>
>

Back to top

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

6c.

Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell a

Posted by: "Prodev SIMPLE PB" prodev_simple@yahoo.com   prodev_simple

Mon Jan 30, 2012 8:22 pm (PST)

Assalamu'alaikum Wr. Wb.

ikut nimbrung juga untuk soal yang sama :)
bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0, cukup dg cell kosong saja? atau garis spasi ( - )
Thanks b4 :)

Wassalam

 
- prodev simple -

________________________________
Dari: Mulki <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:05
Judul: Re: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)


 
mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg
sama, bagaimana jika saat cell tersbt ada nilainya (lebih dari 0)maka cell
tersbt dibuat berwarna.
 
mohon pencerahannya mr. kid.
 
 
thx & wassalam,
mulki
 
 
----- Original Message -----
>From: Kid Mr.
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, January 31, 2012 11:03 AM
>Subject: Re: [belajar-excel] REKAP TANGGAL
>
> 
>Dear Ahmad,
>
>Coba formula : D3
>=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
>Kemudian, format number custom General;;
>Copy ke cell lain di kanan
dan bawahnya.
>
>Warna biru adalah kriteria berdasar tanggal
>Warna
hijau adalah kriteria berdasar bulan
>
>Regards,
>Kid.
>
>
>2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>
>
>
>> 
>>Dear Para Master Excel
>>
>>
>>Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan 
>>Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...
>>
>>
>>
>>
>>Terima kasih atas bantuannya....  
>>
>

Back to top

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

6d.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna

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

Mon Jan 30, 2012 8:30 pm (PST)

Waalaikumussalam Wr. Wb.

Salah satu caranya sudah diungkapkan tadi, yaitu :
*>> Kemudian, format number custom General;;*
Jadi, blok rangenya, klik kanan pilih Format Cells -> pilih tab Number ->
pilih Custom -> ketik di text box yang ada tulisan berikut :
General;;

Jika ingin diberi warna biru seluruh nilai yang gak nol, tulisan format
numbernya adalah :
[blue]General;;

Jika yang nol akan diganti dengan dash ( - )
[blue]General;;"-"

Jika akan diganti kalimat tertentu, ganti - dengan teks yang diinginkan,
misal :
[blue]General;;"KID"

Cara diatas berlaku untuk data yang bertipe numerik. Cara diatas akan
menjaga nilai hasil tetap sebagai nilai bertipe *numerik*.

Cara lainnya adalah dengan mengubah formula. Cara ini umumnya akan
menghasilkan nilai bertipe untuk hasil yang bukan nol, dan sebagai data
teks untuk nilai menghasilkan nol.
=IF( SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *( MONTH( $A$1:$A$14 ) =
ROW( $C1 ) )* ) = 0 , "-" , =SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *(
MONTH( $A$1:$A$14 ) = ROW( $C1 ) )* ) )

Wassalamualaikum Wr. Wb.
Kid.

2012/1/31 Prodev SIMPLE PB <prodev_simple@yahoo.com>

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> ikut nimbrung juga untuk soal yang sama :)
> bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0,
> cukup dg cell kosong saja? atau garis spasi ( - )
> Thanks b4 :)
>
> Wassalam
>
> - prodev simple -
>
> ------------------------------
> *Dari:* Mulki <mulki@aop.component.astra.co.id>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 31 Januari 2012 11:05
> *Judul:* Re: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka
> cell akan berubah warna??)
>
>
> mr. kid, numpang thread yg sama.
> saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat
> cell tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.
>
> mohon pencerahannya mr. kid.
>
>
> thx & wassalam,
> mulki
>
>
>
> ----- Original Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 31, 2012 11:03 AM
> *Subject:* Re: [belajar-excel] REKAP TANGGAL
>
>
> Dear Ahmad,
>
> Coba formula : D3
> =SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *( MONTH( $A$1:$A$14 ) =
> ROW( $C1 ) )* )
> Kemudian, format number custom General;;
> Copy ke cell lain di kanan dan bawahnya.
>
> Warna biru adalah kriteria berdasar tanggal
> Warna hijau adalah kriteria berdasar bulan
>
> Regards,
> Kid.
>
> 2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>
>
> **
>
> Dear Para Master Excel
>
> Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
> Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A
> sehingga menghasilkan output seperti pada file terlampir...
>
>
> Terima kasih atas bantuannya....
>
>
>
>
>
>
>

Back to top

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

6e.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce

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

Mon Jan 30, 2012 8:33 pm (PST)

Jika anda pakai Excel 2007 maka langkah2nya adalah sbb:
- Klik simbol Windows pada pojok kiri atas
- Klik Excel Options
- Klik Advance
- Klik Display Options for this Worksheet
- Batalkan (cabut) centang "Show a Zero in Cells that have zero value"

Salam,
Hendrik Karnadi

________________________________
From: Prodev SIMPLE PB <prodev_simple@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 31 January 2012, 11:21
Subject: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)


 
Assalamu'alaikum Wr. Wb.

ikut nimbrung juga untuk soal yang sama :)
bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0, cukup dg cell kosong saja? atau garis spasi ( - )
Thanks b4 :)

Wassalam
 
- prodev simple -

________________________________
Dari: Mulki <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:05
Judul: Re: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)


 
mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg
sama, bagaimana jika saat cell tersbt ada nilainya (lebih dari 0)maka cell
tersbt dibuat berwarna.
 
mohon pencerahannya mr. kid.
 
 
thx & wassalam,
mulki
 
 
----- Original Message -----
>From: Kid Mr.
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, January 31, 2012 11:03 AM
>Subject: Re: [belajar-excel] REKAP TANGGAL
>
> 
>Dear Ahmad,
>
>Coba formula : D3
>=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
>Kemudian, format number custom General;;
>Copy ke cell lain di kanan
dan bawahnya.
>
>Warna biru adalah kriteria berdasar tanggal
>Warna
hijau adalah kriteria berdasar bulan
>
>Regards,
>Kid.
>
>
>2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>
>
>
>> 
>>Dear Para Master Excel
>>
>>
>>Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan 
>>Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...
>>
>>
>>
>>
>>Terima kasih atas bantuannya....  
>>
>

Back to top

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

6f.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna

Posted by: "Mulki" mulki@aop.component.astra.co.id   mulki_akbar

Mon Jan 30, 2012 8:37 pm (PST)

wa'alaikumsalam wr. wb.

jawaban mr. kid dibawah ini sudah cukup mewakili.
barusan saya coba dg format custom >> [blue]General;;
dan hasilnya semua yg nilainya 0 tidak muncul.

+++++++++++++++++++
solusi mr. kid :

Umumnya menggunakan fitur Conditional Formatting.
Pada Excel 2007 ke atas : menu Home -> grup Styles -> Conditional Formatting -> Highlight Cells Rules -> pilih kriterianya -> isi nilai-nilai batasnya -> atur formatnya

Jika yang akan diberi warna adalah nilainya (bukan fill cell nya), bisa juga dengan mengatur format number custom menjadi :
[blue]General;;

++++++++++++++++

thx mr. kid atas pencerahannya.

thx & wassalam,
mulki

----- Original Message -----
From: Prodev SIMPLE PB
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 31, 2012 11:21 AM
Subject: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)

Assalamu'alaikum Wr. Wb.

ikut nimbrung juga untuk soal yang sama :)
bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0, cukup dg cell kosong saja? atau garis spasi ( - )
Thanks b4 :)

Wassalam

- prodev simple -

----------------------------------------------------------
Dari: Mulki <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:05
Judul: Re: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)

mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat cell tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.

mohon pencerahannya mr. kid.

thx & wassalam,
mulki

----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 31, 2012 11:03 AM
Subject: Re: [belajar-excel] REKAP TANGGAL

Dear Ahmad,

Coba formula : D3
=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.

Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan

Regards,
Kid.

2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>

Dear Para Master Excel

Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...

Terima kasih atas bantuannya....

Back to top

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

6g.

Re: REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna

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

Mon Jan 30, 2012 8:41 pm (PST)

Jika ingin berkreasi lebih banyak dengan format cell number, coba
jalan-jalan ke :
http://www.ozgrid.com/Excel/CustomFormats.htm

Selamat mencoba.

Wassalamualaikum Wr. Wb.
Kid.

2012/1/31 Mulki <mulki@aop.component.astra.co.id>

> **
>
>
> **
> wa'alaikumsalam wr. wb.
>
> jawaban mr. kid dibawah ini sudah cukup mewakili.
> barusan saya coba dg format custom >> [blue]General;;
> dan hasilnya semua yg nilainya 0 tidak muncul.
>
> +++++++++++++++++++
> solusi mr. kid :
>
> Umumnya menggunakan fitur Conditional Formatting.
> Pada Excel 2007 ke atas : menu Home -> grup Styles -> Conditional
> Formatting -> Highlight Cells Rules -> pilih kriterianya -> isi nilai-nilai
> batasnya -> atur formatnya
>
> Jika yang akan diberi warna adalah nilainya (bukan fill cell nya), bisa
> juga dengan mengatur format number custom menjadi :
> [blue]General;;
> ++++++++++++++++
>
>
> thx mr. kid atas pencerahannya.
>
>
> thx & wassalam,
> mulki
>
>
> ----- Original Message -----
> *From:* Prodev SIMPLE PB <prodev_simple@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, January 31, 2012 11:21 AM
> *Subject:* Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka
> cell akan berubah warna??)
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> ikut nimbrung juga untuk soal yang sama :)
> bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0,
> cukup dg cell kosong saja? atau garis spasi ( - )
> Thanks b4 :)
>
> Wassalam
>
> - prodev simple -
>
> ------------------------------
> **
>
>

Back to top

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

6h.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce

Posted by: "Mulki" mulki@aop.component.astra.co.id   mulki_akbar

Mon Jan 30, 2012 8:42 pm (PST)

Pak hendrik, saya menggunakan excel 2007 dan posisi "Show a Zero in Cells that have zero value" adalah tercentang tp nilai 0-nya tidak muncul di cell tersbt.

saya cuma menggunakan cara dari mr. kid dg mengatur format number custom menjadi :
[blue]General;;

ini mungkin yg dsebut banyak jalan menuju pintar ya :)

thx & wassalam,
mulki

----- Original Message -----
From: hendrik karnadi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 31, 2012 11:33 AM
Subject: Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)

Jika anda pakai Excel 2007 maka langkah2nya adalah sbb:
- Klik simbol Windows pada pojok kiri atas
- Klik Excel Options
- Klik Advance
- Klik Display Options for this Worksheet
- Batalkan (cabut) centang "Show a Zero in Cells that have zero value"

Salam,
Hendrik Karnadi

----------------------------------------------------------
From: Prode v SIMPLE PB <prodev_simple@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 31 January 2012, 11:21
Subject: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)

Assalamu'alaikum Wr. Wb.

ikut nimbrung juga untuk soal yang sama :)
bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0, cukup dg cell kosong saja? atau garis spasi ( - )
Thanks b4 :)

Wassalam

- prodev simple -

----------------------------------------------------------
Dari: Mulki <mulki@aop.component.astra.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:05
Judul: Re: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka cell akan berubah warna??)

mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat cell tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.

mohon pencerahannya mr. kid.

thx & wassalam,
mulki

----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, January 31, 2012 11:03 AM
Subject: Re: [belajar-excel] REKAP TANGGAL

Dear Ahmad,

Coba formula : D3
=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MONTH( $A$1:$A$14 ) = ROW( $C1 ) ) )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.

Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan

Regards,
Kid.

2012/1/31 Ahmad Fauzi <fauzietha@yahoo.co.id>

Dear Para Master Excel

Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga menghasilkan output seperti pada file terlampir...

Terima kasih atas bantuannya....

Back to top

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

6i.

Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka ce

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Mon Jan 30, 2012 9:19 pm (PST)

di komputer lain dengan setting spt itu (show ....... = enabled)
maka 0 tampak utuh sebagai 0

kalau di komputer nak Mulki malah tidak tampak, tentunya nak mulki
sudah memberlakukan fitur lain terhadap cells / range itu, misal dengan
diberi custom number formatting *0;-0;;@*
atau mungkin conditional formatting, atau formula yg senada dengan
=IF(A1=0,"",A1)

jangan dibuat bingung lah nak...
*
*
*
*
*
(Semprul.., Ki!)

2012/1/31 Mulki <mulki@aop.component.astra.co.id>
>
> Pak hendrik, saya menggunakan excel 2007
> dan posisi "Show a Zero in Cells that have zero value" adalah tercentang
tp nilai 0-nya tidak muncul di cell tersbt.
> saya cuma menggunakan cara dari mr. kid dg mengatur format number custom
menjadi :
> [blue]General;;
> ini mungkin yg dsebut banyak jalan menuju pintar ya :)
>
> thx & wassalam,
> mulki
>
> ----- Original Message -----
> From: hendrik karnadi
> To: belajar-excel@yahoogroups.com
> Sent: Tuesday, January 31, 2012 11:33 AM
> Subject: Re: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya
maka cell akan berubah warna??)
>
> Jika anda pakai Excel 2007 maka langkah2nya adalah sbb:
> - Klik simbol Windows pada pojok kiri atas
> - Klik Excel Options
> - Klik Advance
> - Klik Display Options for this Worksheet
> - Batalkan (cabut) centang "Show a Zero in Cells that have zero value"
>
> Salam,
> Hendrik Karnadi*
*
*

Back to top

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

6j.

Bls: Bls: [belajar-excel] REKAP TANGGAL (jika ketemu nilainya maka c

Posted by: "Prodev SIMPLE PB" prodev_simple@yahoo.com   prodev_simple

Mon Jan 30, 2012 9:42 pm (PST)

Oke, terima kasih atas pencerahan dari para master.
para murid mesti banyak belajar.

... pengen pinter ??? Makanya belajar ... :)
 
- prodev simple -

________________________________
Dari: Mulki <mulki@aop.component.astra.co.id>
Dikirim: Selasa, 31 Januari 2012 11:36

Pak hendrik, saya menggunakan excel 2007 dan posisi
"Show a Zero in Cells that have zero value" adalah tercentang
tp nilai 0-nya tidak muncul di cell tersbt.
 
saya cuma menggunakan cara dari mr. kid
dg mengatur format number custom menjadi :
[blue]General;;

ini mungkin yg dsebut banyak jalan menuju pintar ya :)
 
thx & wassalam,
mulki

Back to top

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

Recent Activity

•  12
  New Members

Visit Your Group

Yahoo! Groups

Mental Health Zone

Mental Health

Learn More

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

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