Messages In This Digest (25 Messages)

1.: (no subject) From: kusdianto teguh

2a.: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macr From: kusdianto teguh
2b.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: summonery
2c.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: kusdianto teguh
2d.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: Sofyan Efendi
2e.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: kusdianto teguh
2f.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: STDEV(i)
2g.: Re: Tombol cetak ke printer atau tombol cetak ke PDF From: kusdianto teguh
2h.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: summonery
2i.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: summonery
2j.: Re: Tombol cetak semua kedalam 1 file pdf. From: kusdianto teguh
2k.: Re: Tombol cetak semua kedalam 1 file pdf. From: summonery
2l.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/ From: kusdianto teguh
2m.: Re: Tombol cetak semua kedalam 1 file pdf. From: kusdianto teguh

3.1.: Re: (unknown) From: Sofyan Efendi

4a.: Re: mencari data yg tidak ada & diwarnai From: Mulki Akbar
4b.: Re: mencari data yg tidak ada & diwarnai From: Mr. Kid
4c.: Re: mencari data yg tidak ada & diwarnai From: Mulki Akbar
4d.: Re: mencari data yg tidak ada & diwarnai From: Mr. Kid

5a.: Bls: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel From: akbar arsyad
5b.: Re: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel From: Mr. Kid
5c.: Re: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel From: STDEV(i)
5d.: Bls: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel From: akbar arsyad

6a.: Menghitung pemakaian user From: Tony Bexcel
6b.: Re: Menghitung pemakaian user From: Franciscus SOG

View All Topics | Create New Topic

Messages

1.: (no subject)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 12:38 pm (PDT)

Assalamualaikum.

Yang terhormat, para Pakar Excel di Forum ini

Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
perlukan adalah bagaimana

membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.

Untuk jelasnya kami lampirkan daftar nilai tersebut.

Atas bantuannya kami ucapkan terima kasih.

Wassalam

Teguh.

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

2a.: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macr

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 1:07 pm (PDT)

----- Forwarded Message ----
From: kusdianto teguh <teruri2000@yahoo.com>
To: belajar-excel@yahoogroups.com
Cc: STDEV(i) <setiyowati.devi@gmail.com>
Sent: Thu, June 2, 2011 10:38:11 PM
Subject:

Assalamualaikum.

Yang terhormat, para Pakar Excel di Forum ini

Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
perlukan adalah bagaimana

membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.

Untuk jelasnya kami lampirkan daftar nilai tersebut.

Atas bantuannya kami ucapkan terima kasih.

Wassalam

Teguh.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2b.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

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

Thu Jun 2, 2011 7:09 pm (PDT)

Silakan dikembangkan,

Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _ "D:\Folder1\Folder2\NamaFile.pdf",
Quality:= _ xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, _ OpenAfterPublish:=TrueEnd Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...>
wrote:
>
>
>
>
>
> ----- Forwarded Message ----
> From: kusdianto teguh teruri2000@...
> To: belajar-excel@yahoogroups.com
> Cc: STDEV(i) setiyowati.devi@...
> Sent: Thu, June 2, 2011 10:38:11 PM
> Subject:
>
>
> Assalamualaikum.
>
> Yang terhormat, para Pakar Excel di Forum ini
>
> Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan
lembaran
> daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang
kami
> perlukan adalah bagaimana
>
> membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>
> Untuk jelasnya kami lampirkan daftar nilai tersebut.
>
> Atas bantuannya kami ucapkan terima kasih.
>
> Wassalam
>
> Teguh.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2c.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 7:53 pm (PDT)

Terima kasih sudah membantu saya.
Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar sesuai
dengan jumlah murid.

Terima kasih.

________________________________
From: summonery <summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 5:09:09 AM
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

Silakan dikembangkan,

Sub Macro1_PDF_Excel2007()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_
OpenAfterPublish:=True
End Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...> wrote:
>
>
>
>
>
> ----- Forwarded Message ----
> From: kusdianto teguh teruri2000@...
> To: belajar-excel@yahoogroups.com
> Cc: STDEV(i) setiyowati.devi@...
> Sent: Thu, June 2, 2011 10:38:11 PM
> Subject:
>
>
> Assalamualaikum.
>
> Yang terhormat, para Pakar Excel di Forum ini
>
> Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
> daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
> perlukan adalah bagaimana
>
> membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>
> Untuk jelasnya kami lampirkan daftar nilai tersebut.
>
> Atas bantuannya kami ucapkan terima kasih.
>
> Wassalam
>
> Teguh.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2d.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu Jun 2, 2011 8:11 pm (PDT)

Dear Mas Teguh, yg diinginkan apakah 13 lembar ini di print menjadi 1 file pdf yg didalamnya ada 13 halaman (berisi data 13 murid), atau menjadi 13 file pdf dengan masing2 hanya berisi data 1 murid saja?

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
From: kusdianto teguh
To: belajar-excel@yahoogroups.com
Sent: Friday, June 03, 2011 9:53 AM
Subject: Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

Terima kasih sudah membantu saya.
Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar sesuai dengan jumlah murid.

Terima kasih.

----------------------------------------------------------
From: summonery <summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 5:09:09 AM
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/macro.

Silakan dikembangkan,

Sub Macro1_PDF_Excel2007()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...> wrote:
>
>
>
>
>
> ----- Forwarded Message ----
> From: kusdianto teguh teruri2000@...
> To: belajar-excel@yahoogroups.com
> Cc: STDEV(i) setiyowati.devi@...
> Sent: Thu, June 2, 2011 10:38:11 PM
> Subject:
>
>
> Assalamualaikum.
>
> Yang terhormat, para Pakar Excel di Forum ini
>
> Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
> daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
> perlukan adalah bagaimana
>
> membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>
> Untuk jelasnya kami lampirkan daftar nilai tersebut.
>
> Atas bantuannya kami ucapkan terima kasih.
>
> Wassalam
>
> Teguh.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2e.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 8:45 pm (PDT)

Yth. Mas Sofyan Efendi

Ya mas saya menginginkan 13 lembar ini di print menjadi 1 file pdf yg
didalamnya ada 13 halaman (berisi data 13 murid).
Ini mas yang saya belum bisa, bisanya hanya i lembar saja untuk 1 data murid,
maklum nggak pernah kursus komputer, jadi ya try and error saja belajarnya.
Untung saya
bisa mengikuti forum excel ini yang manfaatnya sangat berguna bagi saya.
Terima kasih mas atas bantuannya.

Wassalam

Teguh

________________________________
From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 6:12:35 AM
Subject: Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

Dear Mas Teguh, yg diinginkan apakah 13 lembar ini di print menjadi 1 file pdf
yg didalamnya ada 13 halaman (berisi data 13 murid), atau menjadi 13 file pdf
dengan masing2 hanya berisi data 1 murid saja?

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
>From: kusdianto teguh
>To: belajar-excel@yahoogroups.com
>Sent: Friday, June 03, 2011 9:53 AM
>Subject: Re: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke
>PDF beserta kodenya/macro.
>
>
>Terima kasih sudah membantu saya.
>Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
>saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar
>sesuai dengan jumlah murid.
>
>Terima kasih.
>
>
>
>
>
>
________________________________
From: summonery <summonery@yahoo.com>
>To: belajar-excel@yahoogroups.com
>Sent: Fri, June 3, 2011 5:09:09 AM
>Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
>beserta kodenya/macro.
>
>
>Silakan dikembangkan,
>
>
>
>
>Sub Macro1_PDF_Excel2007()
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True,
>IgnorePrintAreas:=False, _
> OpenAfterPublish:=True
>End Sub
>
>
>
>
>>semoga bermanfaat
>
>
>
>--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...>
wrote:
>>
>>
>>
>>
>>
>> ----- Forwarded Message ----
>> From: kusdianto teguh teruri2000@...
>> To: belajar-excel@yahoogroups.com
>> Cc: STDEV(i) setiyowati.devi@...
>> Sent: Thu, June 2, 2011 10:38:11 PM
>> Subject:
>>
>>
>> Assalamualaikum.
>>
>> Yang terhormat, para Pakar Excel di Forum ini
>>
>> Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
>> Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
>> daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
>> perlukan adalah bagaimana
>>
>> membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>>
>> Untuk jelasnya kami lampirkan daftar nilai tersebut.
>>
>> Atas bantuannya kami ucapkan terima kasih.
>>
>> Wassalam
>>
>> Teguh.
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2f.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Jun 2, 2011 9:22 pm (PDT)

makro cetak yg sudah ada dapat diganti seperti ini
diperingkas dan dinamis (mengikuti banyaknya records dlm tabel)

Sub Cetak()
' Cetak Macro
' Tombol cetak lembaran nilai

Dim TbNR As Range, nRow As Long
Set TbNR = Sheets("NR").Range("A13").CurrentRegion.Offset(3, 0)
Set TbNR = TbNR.Resize(TbNR.Rows.Count - 3, TbNR.Columns.Count)

For nRow = 1 To *TbNR.Rows.Count*
Range("K9").Value = nRow
ActiveWindow.SelectedSheets.PrintPreview
Next

End Sub

note:

1.
nilai *TbNR.Rows.Count *
akan berubah ubah ostosmastiss sesuai banyaknya records di tabel NR

2.
untuk posting y.a.d. dimohon tidak perlu CrossPosting,
cuku dialamatkan ke milis saja (lihat peraturan milis)

2011/6/3 kusdianto teguh <teruri2000@yahoo.com>

>
> ----- Forwarded Message ----
> *From:* kusdianto teguh <teruri2000@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Cc:* STDEV(i) <setiyowati.devi@gmail.com>
> *Sent:* Thu, June 2, 2011 10:38:11 PM
> *Subject:*
>
> Assalamualaikum.
> Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
> daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
> perlukan adalah bagaimana
> membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>
> Untuk jelasnya kami lampirkan daftar nilai tersebut.
>
> Atas bantuannya kami ucapkan terima kasih.
>
> Wassalam
>
> Teguh.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2g.: Re: Tombol cetak ke printer atau tombol cetak ke PDF

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 9:50 pm (PDT)

Yth. Mbak Devi

Terima kasih atas bantuan dan nasehatnya.
Alhamdulillah saya sudah mencobanya dan berhasil,
lalu bagaimana agar file pdf tadi terkumpul menjadi satu file saja yang terdiri
atas 13 lembar (13 data murid/record).

Wassalam

Teguh

________________________________
From: STDEV(i) <setiyowati.devi@gmail.com>
To: belajar-excel <belajar-excel@yahoogroups.com>
Sent: Fri, June 3, 2011 7:20:49 AM
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

makro cetak yg sudah ada dapat diganti seperti ini
diperingkas dan dinamis (mengikuti banyaknya records dlm tabel)

Sub Cetak()
' Cetak Macro
' Tombol cetak lembaran nilai

Dim TbNR As Range, nRow As Long
Set TbNR = Sheets("NR").Range("A13").CurrentRegion.Offset(3, 0)
Set TbNR = TbNR.Resize(TbNR.Rows.Count - 3, TbNR.Columns.Count)

For nRow = 1 To TbNR.Rows.Count
Range("K9").Value = nRow
ActiveWindow.SelectedSheets.PrintPreview
Next

End Sub

note:

1.
nilai TbNR.Rows.Count
akan berubah ubah ostosmastiss sesuai banyaknya records di tabel NR

2.
untuk posting y.a.d. dimohon tidak perlu CrossPosting,
cuku dialamatkan ke milis saja (lihat peraturan milis)

2011/6/3 kusdianto teguh <teruri2000@yahoo.com>

>
>----- Forwarded Message ----
>From: kusdianto teguh <teruri2000@yahoo.com>
>To: belajar-excel@yahoogroups.com
>Cc: STDEV(i) <setiyowati.devi@gmail.com>
>Sent: Thu, June 2, 2011 10:38:11 PM
>Subject:
>
>
>Assalamualaikum.
>Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
>Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
>daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
>perlukan adalah bagaimana
>
>membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
>
>Untuk jelasnya kami lampirkan daftar nilai tersebut.
>
>Atas bantuannya kami ucapkan terima kasih.
>
>Wassalam
>
>Teguh.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2h.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

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

Thu Jun 2, 2011 11:25 pm (PDT)

coba,
Sub Print_To_PDF()'anton suryadi
3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\
23Dim x As WorksheetApplication.ScreenUpdating =
FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan
berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy
After:=ActiveSheetEnd WithActiveSheet.Name = "numero" & iNext iFor Each
x In Worksheets If InStr(x.Name, "numero") <> 0 Then x.Select
(False) End IfNext
xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\
nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_ OpenAfterPublish:=TrueEnd Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...>
wrote:
>
> Terima kasih sudah membantu saya.
> Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
> saya menginginkan sekali klik tombol cetak, langsung tercetak 13
lembar sesuai
> dengan jumlah murid.
>
> Terima kasih.
>
>
>
>
>
> ________________________________
> From: summonery summonery@...
> To: belajar-excel@yahoogroups.com
> Sent: Fri, June 3, 2011 5:09:09 AM
> Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak
ke PDF
> beserta kodenya/macro.
>
>
> Silakan dikembangkan,
>
>
> Sub Macro1_PDF_Excel2007()
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False,
> _
> OpenAfterPublish:=True
> End Sub
>
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@
wrote:
> >
> >
> >
> >
> >
> > ----- Forwarded Message ----
> > From: kusdianto teguh teruri2000@
> > To: belajar-excel@yahoogroups.com
> > Cc: STDEV(i) setiyowati.devi@
> > Sent: Thu, June 2, 2011 10:38:11 PM
> > Subject:
> >
> >
> > Assalamualaikum.
> >
> > Yang terhormat, para Pakar Excel di Forum ini
> >
> > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan
lembaran
> > daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang
kami
> > perlukan adalah bagaimana
> >
> > membuat tombol dan kodenya agar maksud saya tersebut dapat
duwujudkan.
> >
> > Untuk jelasnya kami lampirkan daftar nilai tersebut.
> >
> > Atas bantuannya kami ucapkan terima kasih.
> >
> > Wassalam
> >
> > Teguh.
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2i.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

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

Thu Jun 2, 2011 11:38 pm (PDT)

koreksi untuk update tiap siswa :)silakan dicoba,
Sub Print_To_PDF()'anton suryadi
3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\
23Dim x As WorksheetApplication.ScreenUpdating =
FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan
berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy
After:=ActiveSheetEnd WithWith ActiveSheet .Name = "numero" & i
.Range("K9").Value = iEnd WithNext iFor Each x In Worksheets If
InStr(x.Name, "numero") <> 0 Then x.Select (False) End IfNext
xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\
nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_ OpenAfterPublish:=TrueEnd Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "summonery" <summonery@...> wrote:
>
> coba,
> Sub Print_To_PDF()'anton suryadi
>
3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\
\
> 23Dim x As WorksheetApplication.ScreenUpdating =
> FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan
> berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy
> After:=ActiveSheetEnd WithActiveSheet.Name = "numero" & iNext iFor
Each
> x In Worksheets If InStr(x.Name, "numero") <> 0 Then x.Select
> (False) End IfNext
>
xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\
\
> nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
> Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
> Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False,
> _ OpenAfterPublish:=TrueEnd Sub
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@
> wrote:
> >
> > Terima kasih sudah membantu saya.
> > Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
> > saya menginginkan sekali klik tombol cetak, langsung tercetak 13
> lembar sesuai
> > dengan jumlah murid.
> >
> > Terima kasih.
> >
> >
> >
> >
> >
> > ________________________________
> > From: summonery summonery@
> > To: belajar-excel@yahoogroups.com
> > Sent: Fri, June 3, 2011 5:09:09 AM
> > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol
cetak
> ke PDF
> > beserta kodenya/macro.
> >
> >
> > Silakan dikembangkan,
> >
> >
> > Sub Macro1_PDF_Excel2007()
> > ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> > "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> > xlQualityStandard, IncludeDocProperties:=True,
> IgnorePrintAreas:=False,
> > _
> > OpenAfterPublish:=True
> > End Sub
> >
> >
> > >semoga bermanfaat
> >
> > --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@
> wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: belajar-excel@yahoogroups.com
> > > Cc: STDEV(i) setiyowati.devi@
> > > Sent: Thu, June 2, 2011 10:38:11 PM
> > > Subject:
> > >
> > >
> > > Assalamualaikum.
> > >
> > > Yang terhormat, para Pakar Excel di Forum ini
> > >
> > > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> > > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan
> lembaran
> > > daftar nilai sekaligus baik langsung ke printer maupun ke PDF.
Yang
> kami
> > > perlukan adalah bagaimana
> > >
> > > membuat tombol dan kodenya agar maksud saya tersebut dapat
> duwujudkan.
> > >
> > > Untuk jelasnya kami lampirkan daftar nilai tersebut.
> > >
> > > Atas bantuannya kami ucapkan terima kasih.
> > >
> > > Wassalam
> > >
> > > Teguh.
> > >
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2j.: Re: Tombol cetak semua kedalam 1 file pdf.

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 12:49 am (PDT)

Terima kasih atas kepeduliannya terhadap saya.
Saya sudah mencobanya dan berhasil, namun lembaran-lembaran tersebut berisi satu
record yang sama.
Saya menginginkan lembaran-lembaran yang tercetak berisi semua record yang ada.

Dalam contoh tersebut ada 13 lembar daftar nilai jika input box diisi nomor 1
s.d 13.

Terima kasih sudah membantu saya.

Salam

Teguh

________________________________
From: summonery <summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 9:25:25 AM
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

coba,

Sub Print_To_PDF()
'anton suryadi 3/Juni/2011
'http://tech.groups.yahoo.com/group/belajar-excel/message/10723
Dim x As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
n = InputBox("satu sampai dengan berapa?")
If n = "" Then End
For i = 1 To n
With ActiveSheet
.Copy After:=ActiveSheet
End With
ActiveSheet.Name = "numero" & i
Next i
For Each x In Worksheets
If InStr(x.Name, "numero") <> 0 Then
x.Select (False)
End If
Next x
Macro1_PDF_Excel2007
ActiveWindow.SelectedSheets.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub Macro1_PDF_Excel2007()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_
OpenAfterPublish:=True
End Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...> wrote:
>
> Terima kasih sudah membantu saya.
> Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
> saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar sesuai

> dengan jumlah murid.
>
> Terima kasih.
>
>
>
>
>
> ________________________________
> From: summonery summonery@...
> To: belajar-excel@yahoogroups.com
> Sent: Fri, June 3, 2011 5:09:09 AM
> Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
> beserta kodenya/macro.
>
>
> Silakan dikembangkan,
>
>
> Sub Macro1_PDF_Excel2007()
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
>
> _
> OpenAfterPublish:=True
> End Sub
>
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@ wrote:
> >
> >
> >
> >
> >
> > ----- Forwarded Message ----
> > From: kusdianto teguh teruri2000@
> > To: belajar-excel@yahoogroups.com
> > Cc: STDEV(i) setiyowati.devi@
> > Sent: Thu, June 2, 2011 10:38:11 PM
> > Subject:
> >
> >
> > Assalamualaikum.
> >
> > Yang terhormat, para Pakar Excel di Forum ini
> >
> > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
> > daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
> > perlukan adalah bagaimana
> >
> > membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
> >
> > Untuk jelasnya kami lampirkan daftar nilai tersebut.
> >
> > Atas bantuannya kami ucapkan terima kasih.
> >
> > Wassalam
> >
> > Teguh.
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2k.: Re: Tombol cetak semua kedalam 1 file pdf.

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

Fri Jun 3, 2011 12:55 am (PDT)

coba,
Sub Print_To_PDF()'anton suryadi
3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\
23Dim x As WorksheetApplication.ScreenUpdating =
FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan
berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy
After:=ActiveSheetEnd WithWith ActiveSheet .Name = "numero" & i
.Range("K9").Value = iEnd WithNext iFor Each x In Worksheets If
InStr(x.Name, "numero") <> 0 Then x.Select (False) End IfNext
xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\
nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_ OpenAfterPublish:=TrueEnd Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...>
wrote:>> Terima kasih atas kepeduliannya terhadap saya.> Saya sudah
mencobanya dan berhasil, namun lembaran-lembaran tersebut berisi satu >
record yang sama.> Saya menginginkan lembaran-lembaran yang tercetak
berisi semua record yang ada.> > Dalam contoh tersebut ada 13 lembar
daftar nilai jika input box diisi nomor 1 > s.d 13.> > Terima kasih
sudah membantu saya.> > Salam> > Teguh> > > > > >
________________________________> From: summonery <summonery@...>> To:
belajar-excel@yahoogroups.com> Sent: Fri, June 3, 2011 9:25:25 AM>
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke
PDF > beserta kodenya/macro.> > > coba,> > Sub Print_To_PDF()> 'anton
suryadi 3/Juni/2011>
'http://tech.groups.yahoo.com/group/belajar-excel/message/10723> Dim x
As Worksheet> Application.ScreenUpdating = False>
Application.DisplayAlerts = False> n = InputBox("satu sampai dengan
berapa?")> If n = "" Then End> For i = 1 To n> With ActiveSheet>
.Copy After:=ActiveSheet> End With> ActiveSheet.Name = "numero" & i>
Next i> For Each x In Worksheets> If InStr(x.Name, "numero") <> 0
Then> x.Select (False)> End If> Next x> Macro1_PDF_Excel2007>
ActiveWindow.SelectedSheets.Delete> Application.ScreenUpdating = True>
Application.DisplayAlerts = True> End Sub> > Sub Macro1_PDF_Excel2007()>
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _>
"D:NamaFile.pdf", Quality:= _> xlQualityStandard,
IncludeDocProperties:=True, IgnorePrintAreas:=False, > _>
OpenAfterPublish:=True> End Sub> > > >semoga bermanfaat> > --- In
belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@> wrote:> >>
> Terima kasih sudah membantu saya.> > Saya sudah mencobanya dan
berhasil, namun hanya 1 lembar saja, > > saya menginginkan sekali klik
tombol cetak, langsung tercetak 13 lembar sesuai > > > dengan jumlah
murid.> > > > Terima kasih.> > > > > > > > > > > >
________________________________> > From: summonery summonery@> > To:
belajar-excel@yahoogroups.com> > Sent: Fri, June 3, 2011 5:09:09 AM> >
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke
PDF > > beserta kodenya/macro.> > > > > > Silakan dikembangkan,> > > > >
> Sub Macro1_PDF_Excel2007()> > ActiveSheet.ExportAsFixedFormat
Type:=xlTypePDF, Filename:= _> >
"D:\Folder1\Folder2\NamaFile.pdf", Quality:= _> >
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
> >> > _> > OpenAfterPublish:=True> > End Sub> > > > > > >semoga
bermanfaat> > > > --- In belajar-excel@yahoogroups.com, kusdianto teguh
teruri2000@ wrote:> > >> > > > > > > > > > > > > > > ----- Forwarded
Message ----> > > From: kusdianto teguh teruri2000@> > > To:
belajar-excel@yahoogroups.com> > > Cc: STDEV(i) setiyowati.devi@> > >
Sent: Thu, June 2, 2011 10:38:11 PM> > > Subject: > > > > > > > > >
Assalamualaikum.> > > > > > Yang terhormat, para Pakar Excel di Forum
ini> > > > > > Saya seorang guru yang sebentar lagi akan mengerjakan
nilai ujian.> > > Mohon bantuannya agar kami dapat menghemat waktu untuk
pencetakan lembaran> > > daftar nilai sekaligus baik langsung ke printer
maupun ke PDF. Yang kami > > > perlukan adalah bagaimana > > > > > >
membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.>
> > > > > Untuk jelasnya kami lampirkan daftar nilai tersebut.> > > > >
> Atas bantuannya kami ucapkan terima kasih.> > > > > > Wassalam> > > >
> > Teguh.> > >> >>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2l.: Re: Tombol cetak ke printer dan tombol cetak ke PDF beserta kodenya/

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 12:56 am (PDT)

Terima kasih banyak atas bantuannya.
Saya senang sudah berhasil membuat tombol cetak ke PDF semua record menjadi satu
halaman.

Forum Belajar-Excel memang OK.
Salam, Teguh.

________________________________
From: summonery <summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 9:36:56 AM
Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
beserta kodenya/macro.

koreksi untuk update tiap siswa :)
silakan dicoba,

Sub Print_To_PDF()
'anton suryadi 3/Juni/2011
'http://tech.groups.yahoo.com/group/belajar-excel/message/10723
Dim x As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
n = InputBox("satu sampai dengan berapa?")
If n = "" Then End
For i = 1 To n
With ActiveSheet
.Copy After:=ActiveSheet
End With
With ActiveSheet
.Name = "numero" & i
.Range("K9").Value = i
End With
Next i
For Each x In Worksheets
If InStr(x.Name, "numero") <> 0 Then
x.Select (False)
End If
Next x
Macro1_PDF_Excel2007
ActiveWindow.SelectedSheets.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub Macro1_PDF_Excel2007()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_
OpenAfterPublish:=True
End Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "summonery" <summonery@...> wrote:
>
> coba,
> Sub Print_To_PDF()'anton suryadi
> 3/Juni/2011'http://tech.groups.yahoo.com/group/belajar-excel/message/107\
> 23Dim x As WorksheetApplication.ScreenUpdating =
> FalseApplication.DisplayAlerts = Falsen = InputBox("satu sampai dengan
> berapa?")If n = "" Then EndFor i = 1 To nWith ActiveSheet .Copy
> After:=ActiveSheetEnd WithActiveSheet.Name = "numero" & iNext iFor Each
> x In Worksheets If InStr(x.Name, "numero") <> 0 Then x.Select
> (False) End IfNext
> xMacro1_PDF_Excel2007ActiveWindow.SelectedSheets.DeleteApplication.Scree\
> nUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
> Sub Macro1_PDF_Excel2007() ActiveSheet.ExportAsFixedFormat
> Type:=xlTypePDF, Filename:= _ "D:NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
> _ OpenAfterPublish:=TrueEnd Sub
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@
> wrote:
> >
> > Terima kasih sudah membantu saya.
> > Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
> > saya menginginkan sekali klik tombol cetak, langsung tercetak 13
> lembar sesuai
> > dengan jumlah murid.
> >
> > Terima kasih.
> >
> >
> >
> >
> >
> > ________________________________
> > From: summonery summonery@
> > To: belajar-excel@yahoogroups.com
> > Sent: Fri, June 3, 2011 5:09:09 AM
> > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak
> ke PDF
> > beserta kodenya/macro.
> >
> >
> > Silakan dikembangkan,
> >
> >
> > Sub Macro1_PDF_Excel2007()
> > ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> > "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> > xlQualityStandard, IncludeDocProperties:=True,
> IgnorePrintAreas:=False,
> > _
> > OpenAfterPublish:=True
> > End Sub
> >
> >
> > >semoga bermanfaat
> >
> > --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@
> wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: belajar-excel@yahoogroups.com
> > > Cc: STDEV(i) setiyowati.devi@
> > > Sent: Thu, June 2, 2011 10:38:11 PM
> > > Subject:
> > >
> > >
> > > Assalamualaikum.
> > >
> > > Yang terhormat, para Pakar Excel di Forum ini
> > >
> > > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> > > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan
> lembaran
> > > daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang
> kami
> > > perlukan adalah bagaimana
> > >
> > > membuat tombol dan kodenya agar maksud saya tersebut dapat
> duwujudkan.
> > >
> > > Untuk jelasnya kami lampirkan daftar nilai tersebut.
> > >
> > > Atas bantuannya kami ucapkan terima kasih.
> > >
> > > Wassalam
> > >
> > > Teguh.
> > >
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2m.: Re: Tombol cetak semua kedalam 1 file pdf.

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 1:00 am (PDT)

Terima kasih Pak Anton
Kodenya sudah saya ganti dengan kode revisi yang terakhir bapak kirimkan.
Dan berhasil sesuai dengan keinginan saya.

Sekali lagi terima kasih banyak.

Salam

Teguh

________________________________
From: summonery <summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, June 3, 2011 10:55:50 AM
Subject: [belajar-excel] Re: Tombol cetak semua kedalam 1 file pdf.

coba,

Sub Print_To_PDF()
'anton suryadi 3/Juni/2011
'http://tech.groups.yahoo.com/group/belajar-excel/message/10723
Dim x As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
n = InputBox("satu sampai dengan berapa?")
If n = "" Then End
For i = 1 To n
With ActiveSheet
.Copy After:=ActiveSheet
End With
With ActiveSheet
.Name = "numero" & i
.Range("K9").Value = i
End With
Next i
For Each x In Worksheets
If InStr(x.Name, "numero") <> 0 Then
x.Select (False)
End If
Next x
Macro1_PDF_Excel2007
ActiveWindow.SelectedSheets.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub Macro1_PDF_Excel2007()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:NamaFile.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
_
OpenAfterPublish:=True
End Sub

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@...> wrote:
>
> Terima kasih atas kepeduliannya terhadap saya.
> Saya sudah mencobanya dan berhasil, namun lembaran-lembaran tersebut berisi
>satu
> record yang sama.
> Saya menginginkan lembaran-lembaran yang tercetak berisi semua record yang
ada.
>
> Dalam contoh tersebut ada 13 lembar daftar nilai jika input box diisi nomor 1
> s.d 13.
>
> Terima kasih sudah membantu saya.
>
> Salam
>
> Teguh
>
>
>
>
>
> ________________________________
> From: summonery <summonery@...>
> To: belajar-excel@yahoogroups.com
> Sent: Fri, June 3, 2011 9:25:25 AM
> Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke PDF
> beserta kodenya/macro.
>
>
> coba,
>
> Sub Print_To_PDF()
> 'anton suryadi 3/Juni/2011
> 'http://tech.groups.yahoo.com/group/belajar-excel/message/10723
> Dim x As Worksheet
> Application.ScreenUpdating = False
> Application.DisplayAlerts = False
> n = InputBox("satu sampai dengan berapa?")
> If n = "" Then End
> For i = 1 To n
> With ActiveSheet
> .Copy After:=ActiveSheet
> End With
> ActiveSheet.Name = "numero" & i
> Next i
> For Each x In Worksheets
> If InStr(x.Name, "numero") <> 0 Then
> x.Select (False)
> End If
> Next x
> Macro1_PDF_Excel2007
> ActiveWindow.SelectedSheets.Delete
> Application.ScreenUpdating = True
> Application.DisplayAlerts = True
> End Sub
>
> Sub Macro1_PDF_Excel2007()
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> "D:NamaFile.pdf", Quality:= _
> xlQualityStandard, IncludeDocProperties:=True,
>IgnorePrintAreas:=False,
> _
> OpenAfterPublish:=True
> End Sub
>
>
> >semoga bermanfaat
>
> --- In belajar-excel@yahoogroups.com, kusdianto teguh <teruri2000@> wrote:
> >
> > Terima kasih sudah membantu saya.
> > Saya sudah mencobanya dan berhasil, namun hanya 1 lembar saja,
> > saya menginginkan sekali klik tombol cetak, langsung tercetak 13 lembar
>sesuai
>
> > dengan jumlah murid.
> >
> > Terima kasih.
> >
> >
> >
> >
> >
> > ________________________________
> > From: summonery summonery@
> > To: belajar-excel@yahoogroups.com
> > Sent: Fri, June 3, 2011 5:09:09 AM
> > Subject: [belajar-excel] Re: Tombol cetak ke printer dan tombol cetak ke
PDF
> > beserta kodenya/macro.
> >
> >
> > Silakan dikembangkan,
> >
> >
> > Sub Macro1_PDF_Excel2007()
> > ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
> > "D:\Folder1\Folder2\NamaFile.pdf", Quality:= _
> > xlQualityStandard, IncludeDocProperties:=True,
>IgnorePrintAreas:=False,
> >
> > _
> > OpenAfterPublish:=True
> > End Sub
> >
> >
> > >semoga bermanfaat
> >
> > --- In belajar-excel@yahoogroups.com, kusdianto teguh teruri2000@ wrote:
> > >
> > >
> > >
> > >
> > >
> > > ----- Forwarded Message ----
> > > From: kusdianto teguh teruri2000@
> > > To: belajar-excel@yahoogroups.com
> > > Cc: STDEV(i) setiyowati.devi@
> > > Sent: Thu, June 2, 2011 10:38:11 PM
> > > Subject:
> > >
> > >
> > > Assalamualaikum.
> > >
> > > Yang terhormat, para Pakar Excel di Forum ini
> > >
> > > Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
> > > Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
> > > daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami
> > > perlukan adalah bagaimana
> > >
> > > membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.
> > >
> > > Untuk jelasnya kami lampirkan daftar nilai tersebut.
> > >
> > > Atas bantuannya kami ucapkan terima kasih.
> > >
> > > Wassalam
> > >
> > > Teguh.
> > >
> >
>

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

3.1.: Re: (unknown)

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu Jun 2, 2011 6:46 pm (PDT)

Dear Mas Teguh, ada sample bagus tentang print langsung ke PDF dari Excel :
http://www.biopdf.com/guide/examples/microsoft_excel/

Kita tinggal set nama file nya dengan kode:
.SetValue "Output", sFileName'Dimana "sFileName" nya diisi dengan nama file PDF nya.Sebelumnya harus diinstall dahulu Ghostscript dan BioPDF. Dengan demikian kita tidak perlu lagi membuat sendiri kode untuk export report ke PDF, tinggal memanfaatkan command line dari gui nya BioPDF. Setting command line nya bisa dilihat di: http://www.biopdf.com/guide/settings.php

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
From: kusdianto teguh
To: belajar-excel@yahoogroups.com
Cc: STDEV(i)
Sent: Friday, June 03, 2011 2:38 AM
Subject: [belajar-excel] (unknown)

Assalamualaikum.

Yang terhormat, para Pakar Excel di Forum ini

Saya seorang guru yang sebentar lagi akan mengerjakan nilai ujian.
Mohon bantuannya agar kami dapat menghemat waktu untuk pencetakan lembaran
daftar nilai sekaligus baik langsung ke printer maupun ke PDF. Yang kami perlukan adalah bagaimana
membuat tombol dan kodenya agar maksud saya tersebut dapat duwujudkan.

Untuk jelasnya kami lampirkan daftar nilai tersebut.

Atas bantuannya kami ucapkan terima kasih.

Wassalam

Teguh.

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

4a.: Re: mencari data yg tidak ada & diwarnai

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

Thu Jun 2, 2011 8:54 pm (PDT)

Terimakasih atas pencerahan Pak Ghozi, Pak Angga & Pak Kid.

Pak Kid, saya menggunakan excel 2007, metode use formula itu ada dimana ya, dimenu formula saya tidak keliatan ?
Mohon pencerahannya.

Thx & wassalam,
mulki

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 02, 2011 12:50 PM
Subject: Re: [belajar-excel] mencari data yg tidak ada & diwarnai

Wa alaikum salam Wr. Wb. Pak Mulki,

File terlampir meletakkan array formula hasil mulai cell F12, yang bunyinya :
=INDEX($B$12:$B$60,MATCH(1,(COUNTIF($C$12:$C$43,$B$12:$B$60)=0)*(COUNTIF(F$11:F11,$B$12:$B$60)=0),0))

Yang diambil datanya adalah data kolom B, maka Index merujuk ke kolom B
Posisi baris data yang akan diambil, didapat melalui fungsi Match.
Fungsi Match menggunakan array_lookup (lokasi pencarian data yang dilookup) menggunakan array hasil perkalian 2 fungsi CountIF.
CountIF pertama untuk cek apakah data kolom B tidak ada di kolom C
CountIF kedua untuk cek apakah data kolom B tersebut belum ada di kolom hasil (kolom F)
Jadi, jika hasil countif pertama dan kedua seluruhnya benar (TRUE * TRUE) maka harus diambil datanya. Match akan mencari hasil (TRUE * TRUE) pertama atau item array yang bernilai 1 (hasil TRUE * TRUE seluruh countif yang digunakan) dengan match_type adalah 0 (exact match)

Jika bertemu hasil yang berupa error value, dapat diartikan bahwa sudah tidak ada lagi data kolom B yang tidak ada di kolom C yang belum ditulis di kolom F.

Wassalamu alaikum wr. wb.

Kid.

2011/6/1 Mulki Akbar <mulki@aop.component.astra.co.id>

Assalamu'alaikum Be-Xl-ers,

Mohon pencerahannya, saya punya dua kelompok data invoice yg terbagi ke dlm 2 kolom.
Kolom B sebagai data sumber (rujukan) utk dicocokan dengan data dikolom C. Jika data invoice di kolom C tidak ada, maka akan ditampilkan pada kolom D sebagai hasil dan juga hasil yg ketemu tersbt akan berwarna dikolom B (rujukan).

Mohon bimbingan dan pencerahannya.

Terimakasih & wassalam,
mulki

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
4b.: Re: mencari data yg tidak ada & diwarnai

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

Thu Jun 2, 2011 9:25 pm (PDT)

Maksud dari metode formula, yaitu metode yang dipilih dalam pembuatan
Conditional Formatting.
Jadi, pada Home -> Conditional Formatting -> New -> akan muncul pilihan
metode yang bisa digunakan. Pilih yang berbunyi-bunyi mendengung seperti ada
kata formula gitu. hehehehehe....

Wassalamualaikum wr.wb.
Kid.

2011/6/3 Mulki Akbar <mulki@aop.component.astra.co.id>

>
>
> Terimakasih atas pencerahan Pak Ghozi, Pak Angga & Pak Kid.
>
> Pak Kid, saya menggunakan excel 2007, metode use formula itu ada dimana ya,
> dimenu formula saya tidak keliatan ?
> Mohon pencerahannya.
>
> Thx & wassalam,
> mulki
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 02, 2011 12:50 PM
> *Subject:* Re: [belajar-excel] mencari data yg tidak ada & diwarnai
>
>
>
> Wa alaikum salam Wr. Wb. Pak Mulki,
>
> File terlampir meletakkan array formula hasil mulai cell F12, yang bunyinya
> :
> =INDEX(*$B$12:$B$60*,MATCH(1,(*COUNTIF($C$12:$C$43,$B$12:$B$60)=0*)*(*
> COUNTIF(F$11:F11,$B$12:$B$60)=0*),0))
>
> Yang diambil datanya adalah data kolom B, maka Index merujuk ke kolom B
> Posisi baris data yang akan diambil, didapat melalui fungsi Match.
> Fungsi Match menggunakan array_lookup (lokasi pencarian data yang dilookup)
> menggunakan array hasil perkalian 2 fungsi CountIF.
> *CountIF pertama* untuk cek apakah data kolom B tidak ada di kolom C
> *CountIF kedua* untuk cek apakah data kolom B tersebut belum ada di kolom
> hasil (kolom F)
> Jadi, jika hasil countif pertama dan kedua seluruhnya benar (TRUE * TRUE)
> maka harus diambil datanya. Match akan mencari hasil (TRUE * TRUE) pertama
> atau item array yang bernilai 1 (hasil TRUE * TRUE seluruh countif yang
> digunakan) dengan match_type adalah 0 (exact match)
>
> Jika bertemu hasil yang berupa error value, dapat diartikan bahwa sudah
> tidak ada lagi data kolom B yang tidak ada di kolom C yang belum ditulis di
> kolom F.
>
> Wassalamu alaikum wr. wb.
>
> Kid.
>
>
> 2011/6/1 Mulki Akbar <mulki@aop.component.astra.co.id>
>
>>
>>
>> Assalamu'alaikum Be-Xl-ers,
>>
>> Mohon pencerahannya, saya punya dua kelompok data invoice yg terbagi ke
>> dlm 2 kolom.
>> Kolom B sebagai data sumber (rujukan) utk dicocokan dengan data dikolom C.
>> Jika data invoice di kolom C tidak ada, maka akan ditampilkan pada kolom D
>> sebagai hasil dan juga hasil yg ketemu tersbt akan berwarna dikolom B
>> (rujukan).
>>
>> Mohon bimbingan dan pencerahannya.
>>
>>
>> Terimakasih & wassalam,
>> mulki
>>
>>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
4c.: Re: mencari data yg tidak ada & diwarnai

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

Thu Jun 2, 2011 11:26 pm (PDT)

hehee ... jadi malu nih P Kid, ketauan masih ijonya saya sama XL :)

oia saya coba lakuin langkah2 yg P kid jelaskan utk pewarnaan dengan kondisional formating tp hasilnya ga' berwarna ya n tak ada pesan error.

Mohon pencerahannya.

thx & wassalam,
mulki

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Friday, June 03, 2011 11:25 AM
Subject: Re: [belajar-excel] mencari data yg tidak ada & diwarnai

Maksud dari metode formula, yaitu metode yang dipilih dalam pembuatan Conditional Formatting.
Jadi, pada Home -> Conditional Formatting -> New -> akan muncul pilihan metode yang bisa digunakan. Pilih yang berbunyi-bunyi mendengung seperti ada kata formula gitu. hehehehehe....

Wassalamualaikum wr.wb.
Kid.

2011/6/3 Mulki Akbar <mulki@aop.component.astra.co.id>

Terimakasih atas pencerahan Pak Ghozi, Pak Angga & Pak Kid.

Pak Kid, saya menggunakan excel 2007, metode use formula itu ada dimana ya, dimenu formula saya tidak keliatan ?
Mohon pencerahannya.

Thx & wassalam,
mulki

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 02, 2011 12:50 PM
Subject: Re: [belajar-excel] mencari data yg tidak ada & diwarnai

Wa alaikum salam Wr. Wb. Pak Mulki,

File terlampir meletakkan array formula hasil mulai cell F12, yang bunyinya :
=INDEX($B$12:$B$60,MATCH(1,(COUNTIF($C$12:$C$43,$B$12:$B$60)=0)*(COUNTIF(F$11:F11,$B$12:$B$60)=0),0))

Yang diambil datanya adalah data kolom B, maka Index merujuk ke kolom B
Posisi baris data yang akan diambil, didapat melalui fungsi Match.
Fungsi Match menggunakan array_lookup (lokasi pencarian data yang dilookup) menggunakan array hasil perkalian 2 fungsi CountIF.
CountIF pertama untuk cek apakah data kolom B tidak ada di kolom C
CountIF kedua untuk cek apakah data kolom B tersebut belum ada di kolom hasil (kolom F)
Jadi, jika hasil countif pertama dan kedua seluruhnya benar (TRUE * TRUE) maka harus diambil datanya. Match akan mencari hasil (TRUE * TRUE) pertama atau item array yang bernilai 1 (hasil TRUE * TRUE seluruh countif yang digunakan) dengan match_type adalah 0 (exact match)

Jika bertemu hasil yang berupa error value, dapat diartikan bahwa sudah tidak ada lagi data kolom B yang tidak ada di kolom C yang belum ditulis di kolom F.

Wassalamu alaikum wr. wb.

Kid.

2011/6/1 Mulki Akbar <mulki@aop.component.astra.co.id>

Assalamu'alaikum Be-Xl-ers,

Mohon pencerahannya, saya punya dua kelompok data invoice yg terbagi ke dlm 2 kolom.
Kolom B sebagai data sumber (rujukan) utk dicocokan dengan data dikolom C. Jika data invoice di kolom C tidak ada, maka akan ditampilkan pada kolom D sebagai hasil dan juga hasil yg ketemu tersbt akan berwarna dikolom B (rujukan).

Mohon bimbingan dan pencerahannya.

Terimakasih & wassalam,
mulki

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
4d.: Re: mencari data yg tidak ada & diwarnai

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

Fri Jun 3, 2011 12:32 am (PDT)

Coba lagi pak.
Ikuti dengan seksama setiap gambarnya.
File terlampir disusun dengan xl2007. Pada xl2003 perlu penyesuaian pada
lokasi menu dan pilihan dialog box, tetapi itemnya sama, yaitu COnditional
Formatting, Formula, Format, dsb

Kid.

2011/6/3 Mulki Akbar <mulki@aop.component.astra.co.id>

>
>
> hehee ... jadi malu nih P Kid, ketauan masih ijonya saya sama XL :)
>
> oia saya coba lakuin langkah2 yg P kid jelaskan utk pewarnaan dengan
> kondisional formating tp hasilnya ga' berwarna ya n tak ada pesan error.
>
> Mohon pencerahannya.
>
>
> thx & wassalam,
> mulki
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, June 03, 2011 11:25 AM
> *Subject:* Re: [belajar-excel] mencari data yg tidak ada & diwarnai
>
>
>
> Maksud dari metode formula, yaitu metode yang dipilih dalam pembuatan
> Conditional Formatting.
> Jadi, pada Home -> Conditional Formatting -> New -> akan muncul pilihan
> metode yang bisa digunakan. Pilih yang berbunyi-bunyi mendengung seperti ada
> kata formula gitu. hehehehehe....
>
> Wassalamualaikum wr.wb.
> Kid.
>
> 2011/6/3 Mulki Akbar <mulki@aop.component.astra.co.id>
>
>>
>>
>> Terimakasih atas pencerahan Pak Ghozi, Pak Angga & Pak Kid.
>>
>> Pak Kid, saya menggunakan excel 2007, metode use formula itu ada dimana
>> ya, dimenu formula saya tidak keliatan ?
>> Mohon pencerahannya.
>>
>> Thx & wassalam,
>> mulki
>>
>>
>> ----- Original Message -----
>> *From:* Mr. Kid <mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Thursday, June 02, 2011 12:50 PM
>> *Subject:* Re: [belajar-excel] mencari data yg tidak ada & diwarnai
>>
>>
>>
>> Wa alaikum salam Wr. Wb. Pak Mulki,
>>
>> File terlampir meletakkan array formula hasil mulai cell F12, yang
>> bunyinya :
>> =INDEX(*$B$12:$B$60*,MATCH(1,(*COUNTIF($C$12:$C$43,$B$12:$B$60)=0*)*(*
>> COUNTIF(F$11:F11,$B$12:$B$60)=0*),0))
>>
>> Yang diambil datanya adalah data kolom B, maka Index merujuk ke kolom B
>> Posisi baris data yang akan diambil, didapat melalui fungsi Match.
>> Fungsi Match menggunakan array_lookup (lokasi pencarian data yang
>> dilookup) menggunakan array hasil perkalian 2 fungsi CountIF.
>> *CountIF pertama* untuk cek apakah data kolom B tidak ada di kolom C
>> *CountIF kedua* untuk cek apakah data kolom B tersebut belum ada di kolom
>> hasil (kolom F)
>> Jadi, jika hasil countif pertama dan kedua seluruhnya benar (TRUE * TRUE)
>> maka harus diambil datanya. Match akan mencari hasil (TRUE * TRUE) pertama
>> atau item array yang bernilai 1 (hasil TRUE * TRUE seluruh countif yang
>> digunakan) dengan match_type adalah 0 (exact match)
>>
>> Jika bertemu hasil yang berupa error value, dapat diartikan bahwa sudah
>> tidak ada lagi data kolom B yang tidak ada di kolom C yang belum ditulis di
>> kolom F.
>>
>> Wassalamu alaikum wr. wb.
>>
>> Kid.
>>
>>
>> 2011/6/1 Mulki Akbar <mulki@aop.component.astra.co.id>
>>
>>>
>>>
>>> Assalamu'alaikum Be-Xl-ers,
>>>
>>> Mohon pencerahannya, saya punya dua kelompok data invoice yg terbagi ke
>>> dlm 2 kolom.
>>> Kolom B sebagai data sumber (rujukan) utk dicocokan dengan data dikolom
>>> C. Jika data invoice di kolom C tidak ada, maka akan ditampilkan pada kolom
>>> D sebagai hasil dan juga hasil yg ketemu tersbt akan berwarna dikolom B
>>> (rujukan).
>>>
>>> Mohon bimbingan dan pencerahannya.
>>>
>>>
>>> Terimakasih & wassalam,
>>> mulki
>>>
>>>
>>
>
>

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

5a.: Bls: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

Posted by: "akbar arsyad" akbar_arsyad@yahoo.co.id akbar_arsyad

Thu Jun 2, 2011 9:19 pm (PDT)

Dear Pak Eka dan Mr. Kid,
Terima kasih, problemnya dah solve,
Cuman ada yang saya mau tanyain nih, di rumus yang anda berikan

Mr. Kid =VLOOKUP(B2,'Kode + Deskripsi'! $ A $ 2: $ B $ 14, 2, FALSE)

Pak Eka =VLOOKUP(B2,'Kode + Deskripsi'! $ A $ 2: $ B $14, 2, 0)

Dirumus tersebut ada lambang $ diantara nama kolom, pada saat saya me range
tabel yang saya inginkan lambang $ tidak muncul, sehingga saya harus menambahkan
secara manual. Apakah ada yang salah dengan apa yang saya lakukan? Atau memang
prosedurnya begitu?

Terus, setelah range itu ada angka 2 itu artinya apa ya?

Setelah itu juga ada dua pilihan yaitu true atau false, itu masing2 artinya apa?
terus yang digunakan Pak Eka itu angka 0, itu artinya apa?

Mohon pencerahannya...

Terima Kasih,
Akbar Jamaluddin Arsyad

________________________________
Dari: akbar arsyad <akbar_arsyad@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Kam, 2 Juni, 2011 13:49:30
Judul: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

Wah, terima kasih Pak Eka dan Mr. Kid, sya coba dl,
Semoga berhasil...

Terima Kasih,
Akbar Jamaluddin Arsyad

________________________________
Dari: Eka Subyantara <eka.subyantara@widyatama.ac.id>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Kam, 2 Juni, 2011 12:33:32
Judul: Re: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

Kalau saya tidak salah mengartikan kebutuhan Pak Akbar, maka jawaban yang
dimaksud adalah fungsi VLOOKUP.

Fungsi VLOOKUP digunakan untuk mengambil data dari tabel lain berdasarkan kunci
tertentu. Kunci tersebut harus ada di tabel sumber. Data mana yang akan diambil
kuncinya harus disebutkan di tabel pemanggil. Jadi kunci akan sebagai penghubung
kedua tabel.

Dalam kasus Pak Akbar yang bertindak sebagai kunci penghubung adalah Code.

Tabel yang telah diberi kolom jawaban telah saya lampirkan.

Senang berbagi dan dibagi
= eka =

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)
5b.: Re: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

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

Thu Jun 2, 2011 9:35 pm (PDT)

1. Dirumus tersebut ada lambang *$ *diantara nama kolom, pada saat saya *me
range tabel* yang saya inginkan lambang *$ *tidak muncul, sehingga saya
harus menambahkan secara manual. Apakah ada yang salah dengan apa yang saya
lakukan? Atau memang prosedurnya begitu?
>> ketika selesai *me range tabel*, langsung tekan F4. Sesuaikan dengan
kebutuhan dengan berulang-ulang menekan F4.
Tanda $ adalah tanda bagian cell yang dikunci agar tidak bergerak berganti
menjadi item lain saat cell di-copy ke cell lain. Sering disebut absolute
reference.
Jika ada di depan huruf kolom, maka kolom dikunci. Jadi cell dicopy ke cell
lain yang beda kolom, rujukan kolomnya tetap akibat dikunci. Begitu juga
jika diletakkan di depan baris, maka yang dikunci adalah barisnya.

2. Terus, setelah range itu ada angka *2* itu artinya apa ya?
>> Terus,
lebih lengkap ada di-Help.
2 adalah kolom ke-2 dari range yang di-select dalam lookup range.
Sila pelajari fungsi VLookUp pada Excel Help

3. Setelah itu juga ada dua pilihan yaitu true atau false, itu masing2
artinya apa?
>> TRUE atau 1 artinya cara mencari nya adalah nilai pada lookup_range yang
kira-kira kurang dari atau sama dengan nilai lookup (yang di cari).
Kalau FALSE atau 1, artinya cari persis sama.

4. terus yang digunakan Pak Eka itu angka 0, itu artinya apa?
>> 0 itu setara FALSE. Supaya lebih simple daripada nulis FALSE.

Kid.

2011/6/3 akbar arsyad <akbar_arsyad@yahoo.co.id>

>
>
> Dear Pak Eka dan Mr. Kid,
> Terima kasih, problemnya dah solve,
> Cuman ada yang saya mau tanyain nih, di rumus yang anda berikan
>
> Mr. Kid =VLOOKUP(B2,'Kode + Deskripsi'! *$* A *$* 2: *$* B *$* 14, *2*,
> FALSE)
>
> Pak Eka =VLOOKUP(B2,'Kode + Deskripsi'! *$* A *$* 2: *$* B *$*14, *2*, 0)
> Dirumus tersebut ada lambang *$ *diantara nama kolom, pada saat saya me
> range tabel yang saya inginkan lambang *$ *tidak muncul, sehingga saya
> harus menambahkan secara manual. Apakah ada yang salah dengan apa yang saya
> lakukan? Atau memang prosedurnya begitu?
>
> Terus, setelah range itu ada angka *2* itu artinya apa ya?
>
> Setelah itu juga ada dua pilihan yaitu true atau false, itu masing2 artinya
> apa? terus yang digunakan Pak Eka itu angka 0, itu artinya apa?
>
> Mohon pencerahannya...
>
>
> Terima Kasih,
>
> Akbar Jamaluddin Arsyad
>
>
> ------------------------------
> *Dari:* akbar arsyad <akbar_arsyad@yahoo.co.id>
>
> *Kepada:* belajar-excel@yahoogroups.com
> *Terkirim:* Kam, 2 Juni, 2011 13:49:30
> *Judul:* Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel
>
>
>
> Wah, terima kasih Pak Eka dan Mr. Kid, sya coba dl,
> Semoga berhasil...
>
>
> Terima Kasih,
>
> Akbar Jamaluddin Arsyad
>
>
> ------------------------------
> *Dari:* Eka Subyantara <eka.subyantara@widyatama.ac.id>
> *Kepada:* belajar-excel@yahoogroups.com
> *Terkirim:* Kam, 2 Juni, 2011 12:33:32
> *Judul:* Re: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel
>
>
>
> Kalau saya tidak salah mengartikan kebutuhan Pak Akbar, maka jawaban yang
> dimaksud adalah fungsi VLOOKUP.
>
> Fungsi VLOOKUP digunakan untuk mengambil data dari tabel lain berdasarkan
> kunci tertentu. Kunci tersebut harus ada di tabel sumber. Data mana yang
> akan diambil kuncinya harus disebutkan di tabel pemanggil. Jadi kunci akan
> sebagai penghubung kedua tabel.
>
> Dalam kasus Pak Akbar yang bertindak sebagai kunci penghubung adalah *Code
> *.
>
> Tabel yang telah diberi kolom jawaban telah saya lampirkan.
>
> Senang berbagi dan dibagi
> = eka =
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)
5c.: Re: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Jun 2, 2011 9:52 pm (PDT)

file lampiran posting th 2007
barangkali ada gunanya

sedikit saran
jika anda bekerja menggunakan excel tidak hanya untuk hari ini saja,
tetapi akan
menggunakan tiap hari, *jangan tidak punya* buku standar panduan
mengoperasikan excel,

kalau tidak,,... ya kelamaan prosesnya... seperti ceritak tentang nakoda
baru yg berlayar tanpa
membawa kompas dan peta.
pulau yg dekat / jarak 7 jam akan dicapai dlm 7 tahun, setelah mengitari 7
samudera...

milis akan melengkapi /meningkatkan hal -hal standar yg sudah anda ketahui.

2011/6/3 akbar arsyad <akbar_arsyad@yahoo.co.id>

> Dear Pak Eka dan Mr. Kid,
> Terima kasih, problemnya dah solve,
> Cuman ada yang saya mau tanyain nih, di rumus yang anda berikan
>
> Mr. Kid =VLOOKUP(B2,'Kode + Deskripsi'! *$* A *$* 2: *$* B *$* 14, *2*,
> FALSE)
>
> Pak Eka =VLOOKUP(B2,'Kode + Deskripsi'! *$* A *$* 2: *$* B *$*14, *2*, 0)
> Dirumus tersebut ada lambang *$ *diantara nama kolom, pada saat saya me
> range tabel yang saya inginkan lambang *$ *tidak muncul, sehingga saya
> harus menambahkan secara manual. Apakah ada yang salah dengan apa yang saya
> lakukan? Atau memang prosedurnya begitu?
>
> Terus, setelah range itu ada angka *2* itu artinya apa ya?
>
> Setelah itu juga ada dua pilihan yaitu true atau false, itu masing2 artinya
> apa? terus yang digunakan Pak Eka itu angka 0, itu artinya apa?
>
> Mohon pencerahannya...
> Terima Kasih,
>
> Akbar Jamaluddin Arsyad
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)
5d.: Bls: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

Posted by: "akbar arsyad" akbar_arsyad@yahoo.co.id akbar_arsyad

Thu Jun 2, 2011 11:22 pm (PDT)

Sip, terima kasih Mr. Kid dan STDEV(i)
Baru masuk kerja nih, jadi kaget2 juga dengan operasi2 baru yang harus saya
jalani.
Mang harus beli buku nih. Makasih atas saran2nya.

Salam,
Akbar Jamaluddin Arsyad

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Jum, 3 Juni, 2011 11:52:35
Judul: Re: Bls: [belajar-excel] Trs: [ASK] Kasus Khusus Kopi Paste Excel

file lampiran posting th 2007
barangkali ada gunanya

sedikit saran
jika anda bekerja menggunakan excel tidak hanya untuk hari ini
saja, tetapi akan
menggunakan tiap hari, jangan tidak punya buku standar panduan mengoperasikan
excel,

kalau tidak,,... ya kelamaan prosesnya... seperti ceritak tentang nakoda baru yg
berlayar tanpa
membawa kompas dan peta.
pulau yg dekat / jarak 7 jam akan dicapai dlm 7 tahun, setelah mengitari 7
samudera...

milis akan melengkapi /meningkatkan hal -hal standar yg sudah anda ketahui.

2011/6/3 akbar arsyad <akbar_arsyad@yahoo.co.id>

Dear Pak Eka dan Mr. Kid,
>Terima kasih, problemnya dah solve,
>Cuman ada yang saya mau tanyain nih, di rumus yang anda berikan
>
>Mr. Kid =VLOOKUP(B2,'Kode + Deskripsi'! $ A $ 2: $ B $ 14, 2, FALSE)
>
>Pak Eka =VLOOKUP(B2,'Kode + Deskripsi'! $ A $ 2: $ B $14, 2, 0)
>
>Dirumus tersebut ada lambang $ diantara nama kolom, pada saat saya me range
>tabel yang saya inginkan lambang $ tidak muncul, sehingga saya harus menambahkan
>secara manual. Apakah ada yang salah dengan apa yang saya lakukan? Atau memang
>prosedurnya begitu?
>
>Terus, setelah range itu ada angka 2 itu artinya apa ya?
>
>Setelah itu juga ada dua pilihan yaitu true atau false, itu masing2 artinya apa?
>terus yang digunakan Pak Eka itu angka 0, itu artinya apa?
>
>Mohon pencerahannya...
>Terima Kasih,
>Akbar Jamaluddin Arsyad
>
>

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

6a.: Menghitung pemakaian user

Posted by: "Tony Bexcel" tonybexcel@yahoo.co.id

Thu Jun 2, 2011 10:06 pm (PDT)

Dear Pakar yang budiman,

Mohon bantuan dalam kasus saya, yang ternyata membingungkan buat saya..
Saya ingin menghitung jumlah transaksi User dengan kondisi berdasarkan Area dan Jenis User dan Kode barang..
Terimakasih banyak atas support dan waktu nya ya temanz...
O'iya...pada email ini saya lampirkan file nya agar teman yang masih belajar bisa ikut memahami nya.

Salam kompak selalu,
Tony

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6b.: Re: Menghitung pemakaian user

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Thu Jun 2, 2011 11:57 pm (PDT)

Dear Tony,

Pake rumus SUMPRODUCT (da lama ga nongol ya pak zumproduct..). Untuk
value Q1 & Q2 tanpa tabel bantu. Untuk Total Nama User dan Total Kode
Barang menggunakan tabel bantu. Semoga berkenan. Ada beberapa hasil
yang tidak cocok (mungkin ada kecelakaan pengetikan).

Total Nama User :
=SUMPRODUCT((SUMBER!$B$4:$B$91=SUMM!$B7)*(SUMBER!$D$4:$D$91=SUMM!$C7)*(SUMBER!$J$4:$J$91))
Total Kode Barang :
=SUMPRODUCT((SUMBER!$B$4:$B$91=SUMM!$B7)*(SUMBER!$D$4:$D$91=SUMM!$C7)*(SUMBER!$K$4:$K$91))
Value Q1 : =SUMPRODUCT((SUMBER!$B$4:$B$91=SUMM!$B7)*(SUMBER!$D$4:$D$91=SUMM!$C7)*(SUMBER!$F$4:$F$91))
Value Q2 : =SUMPRODUCT((SUMBER!$B$4:$B$91=SUMM!$B7)*(SUMBER!$D$4:$D$91=SUMM!$C7)*(SUMBER!$G$4:$G$91))

CMIIW

Blessings,

Fran'z

On 6/3/11, Tony Bexcel <tonybexcel@yahoo.co.id> wrote:
> Dear Pakar yang budiman,
>
> Mohon bantuan dalam kasus saya, yang ternyata membingungkan buat saya..
> Saya ingin menghitung jumlah transaksi User dengan kondisi berdasarkan Area
> dan Jenis User dan Kode barang..
> Terimakasih banyak atas support dan waktu nya ya temanz...
> O'iya...pada email ini saya lampirkan file nya agar teman yang masih belajar
> bisa ikut memahami nya.
>
> Salam kompak selalu,
> Tony

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

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

Jumat, 03 Juni 2011

Messages In This Digest (25 Messages)

Messages

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 12:38 pm (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 1:07 pm (PDT)

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

Thu Jun 2, 2011 7:09 pm (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 7:53 pm (PDT)

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu Jun 2, 2011 8:11 pm (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 8:45 pm (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Jun 2, 2011 9:22 pm (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Thu Jun 2, 2011 9:50 pm (PDT)

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

Thu Jun 2, 2011 11:25 pm (PDT)

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

Thu Jun 2, 2011 11:38 pm (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 12:49 am (PDT)

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

Fri Jun 3, 2011 12:55 am (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 12:56 am (PDT)

Posted by: "kusdianto teguh" teruri2000@yahoo.com teruri2000

Fri Jun 3, 2011 1:00 am (PDT)

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu Jun 2, 2011 6:46 pm (PDT)

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

Thu Jun 2, 2011 8:54 pm (PDT)

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

Thu Jun 2, 2011 9:25 pm (PDT)

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

Thu Jun 2, 2011 11:26 pm (PDT)

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

Fri Jun 3, 2011 12:32 am (PDT)

Posted by: "akbar arsyad" akbar_arsyad@yahoo.co.id akbar_arsyad

Thu Jun 2, 2011 9:19 pm (PDT)

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

Thu Jun 2, 2011 9:35 pm (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Thu Jun 2, 2011 9:52 pm (PDT)

Posted by: "akbar arsyad" akbar_arsyad@yahoo.co.id akbar_arsyad

Thu Jun 2, 2011 11:22 pm (PDT)

Posted by: "Tony Bexcel" tonybexcel@yahoo.co.id

Thu Jun 2, 2011 10:06 pm (PDT)

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Thu Jun 2, 2011 11:57 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me