Messages In This Digest (14 Messages)

1a.: Cara Set Page Break Base On Kriteria Tertentu From: Nicodemus Rusdiyanto
1b.: Re: Cara Set Page Break Base On Kriteria Tertentu From: Franciscus SOG
1c.: Re: Cara Set Page Break Base On Kriteria Tertentu From: Sudarsono Suhenk
1d.: Re: Cara Set Page Break Base On Kriteria Tertentu From: Franciscus SOG
1e.: Re: Cara Set Page Break Base On Kriteria Tertentu From: summonery
1f.: Re: Cara Set Page Break Base On Kriteria Tertentu From: Nicodemus Rusdiyanto

2a.: Copy data dari satu file ke file lain dalam folder yang berbeda From: Sinode G Sinaga
2b.: Re: Copy data dari satu file ke file lain dalam folder yang berbeda From: Mr. Kid
2c.: Re: Copy data dari satu file ke file lain dalam folder yang berbeda From: Sinode G Sinaga

3a.: nubie minta tolong copy data beda tempat From: Irham M
3b.: Re: nubie minta tolong copy data beda tempat From: Franciscus SOG
3c.: Bls: [belajar-excel] nubie minta tolong copy data beda tempat From: Irham M
3d.: Bls: [belajar-excel] nubie minta tolong copy data beda tempat From: Undang Satrianie

4a.: Re: Formula Average dengan Kriteria ganda From: agung_widodo@sanyo.com

View All Topics | Create New Topic

Messages

1a.: Cara Set Page Break Base On Kriteria Tertentu

Posted by: "Nicodemus Rusdiyanto" nicodemus@cj.net tjahdjokja234

Fri Jun 17, 2011 2:21 am (PDT)

Dear All,

Ada yang punya pengalaman dan cara meng-otomatiskan print area range sesuai
dengan data yang dikehendaki, tanpa harus drag per page ?
Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO => LOCATION
=> CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE NO
atau tidak ?
Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi 4
page, dengan page terakhir hanya berisi 10 product tidak masalah.

Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D

Thanks,
Anto

The message is ready to be sent with the following file or link attachments:

SET_PRINT_AREA_AUTO

Note: To protect against computer viruses, e-mail programs may prevent
sending or receiving certain types of file attachments. Check your e-mail
security settings to determine how attachments are handled.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1b.: Re: Cara Set Page Break Base On Kriteria Tertentu

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

Fri Jun 17, 2011 6:13 am (PDT)

Dear Anto,

Permintaan Anda itu mungkin dilakukan.

Untuk set print area, jika Anda menginginkan setiap 30 baris data
menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").

Dampak dari insert row tersebut bisa mempengaruhi hasil di worksheet
Anda. Apalagi jika cells Anda sudah tidak sehat (misalnya di merge
cells).

Maaf, saya belum bisa memberikan solusi, karena saya terbentur dengan
logika memecah range ("A1:A100") menjadi
("A1:A30","A32:A61","A63:A92","A94:A103").

Untuk codingnya sendiri, defaultnya seperti ini :

ActiveSheet.PageSetup.PrintArea = Areaku

Areaku merupakan lokasi yang diselect dan sudah dipecah seperti contoh diatas.

Blessings,

Fran'z

On 6/17/11, Nicodemus Rusdiyanto <nicodemus@cj.net> wrote:
> Dear All,
>
> Ada yang punya pengalaman dan cara meng-otomatiskan print area range sesuai
> dengan data yang dikehendaki, tanpa harus drag per page ?
> Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO => LOCATION
> => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
> Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE NO
> atau tidak ?
> Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi 4
> page, dengan page terakhir hanya berisi 10 product tidak masalah.
>
> Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
>
> Thanks,
> Anto
>
> The message is ready to be sent with the following file or link attachments:
>
> SET_PRINT_AREA_AUTO
>
>
> Note: To protect against computer viruses, e-mail programs may prevent
> sending or receiving certain types of file attachments. Check your e-mail
> security settings to determine how attachments are handled.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1c.: Re: Cara Set Page Break Base On Kriteria Tertentu

Posted by: "Sudarsono Suhenk" jkssbma@gmail.com jkssbma

Fri Jun 17, 2011 8:45 am (PDT)

Sub uf_PageBreak(ByVal strdaerah As String, antarbaris As Long)
Dim awalbaris As Long
Dim jumbaris, kali_PB As Long
Dim daerah As Range

Set daerah = Range(strdaerah)
awalbaris = daerah.Row

jumbaris = daerah.Rows.Count

kali_PB = Excel.WorksheetFunction.RoundUp(jumbaris / antarbaris, 0)
ActiveSheet.ResetAllPageBreaks
For I = 1 To kali_PB
Range("A" & awalbaris + (I * antarbaris) + 1).Select

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
Next I
End Sub
Sub test()
Call uf_PageBreak("A10:C82", 15)
End Sub

Pada 17 Juni 2011 06:13, Franciscus SOG <jclugbu@gmail.com> menulis:

>
>
> Dear Anto,
>
> Permintaan Anda itu mungkin dilakukan.
>
> Untuk set print area, jika Anda menginginkan setiap 30 baris data
> menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
> Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").
>
> Dampak dari insert row tersebut bisa mempengaruhi hasil di worksheet
> Anda. Apalagi jika cells Anda sudah tidak sehat (misalnya di merge
> cells).
>
> Maaf, saya belum bisa memberikan solusi, karena saya terbentur dengan
> logika memecah range ("A1:A100") menjadi
> ("A1:A30","A32:A61","A63:A92","A94:A103").
>
> Untuk codingnya sendiri, defaultnya seperti ini :
>
> ActiveSheet.PageSetup.PrintArea = Areaku
>
> Areaku merupakan lokasi yang diselect dan sudah dipecah seperti contoh
> diatas.
>
> Blessings,
>
> Fran'z
>
>
> On 6/17/11, Nicodemus Rusdiyanto <nicodemus@cj.net> wrote:
> > Dear All,
> >
> > Ada yang punya pengalaman dan cara meng-otomatiskan print area range
> sesuai
> > dengan data yang dikehendaki, tanpa harus drag per page ?
> > Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO =>
> LOCATION
> > => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
> > Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE NO
> > atau tidak ?
> > Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi 4
> > page, dengan page terakhir hanya berisi 10 product tidak masalah.
> >
> > Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
> >
> > Thanks,
> > Anto
> >
> > The message is ready to be sent with the following file or link
> attachments:
> >
> > SET_PRINT_AREA_AUTO
> >
> >
> > Note: To protect against computer viruses, e-mail programs may prevent
> > sending or receiving certain types of file attachments. Check your e-mail
> > security settings to determine how attachments are handled.
> >
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1d.: Re: Cara Set Page Break Base On Kriteria Tertentu

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

Fri Jun 17, 2011 8:12 pm (PDT)

Dear Anto,

Setelah membaca kamus, ternyata ada cara lebih praktis. Cara manual
sebelumnya mohon diabaikan. Berikut cuplikan vba-nya :

Sub ManualPagebreaks()
Dim vAwal, vAkhir, vJumlah, i As Variant
Dim Areaku As String
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "A2:F571"
Areaku = ActiveSheet.PageSetup.PrintArea
vAwal = Range(Left(Areaku, Application.Find(":", Areaku) - 1)).Row
vAkhir = Range(Mid(Areaku, Application.Find(":", Areaku) + 1, 99)).Row
vJumlah = WorksheetFunction.RoundUp(Range(Areaku).Rows.Count / 30, 0)
For i = 1 To vJumlah
If vAwal + 30 < vAkhir Then
ActiveSheet.Rows(vAwal + 30).PageBreak = xlPageBreakManual
vAwal = vAwal + 30
End If
Next i
ActiveSheet.VPageBreaks(1).DragOff xlToRight, 1
End Sub

Asumsi range print area = "A2:F571"
Asumsi setiap pages mempunyai 30 row

Hal diatas dapat dibuat dinamis menggunakan deklarasi variabel ke
range di activesheet atau melalui input box.

CMIIW

Blessings,

Fran'z

On 6/17/11, Sudarsono Suhenk <jkssbma@gmail.com> wrote:
> Sub uf_PageBreak(ByVal strdaerah As String, antarbaris As Long)
> Dim awalbaris As Long
> Dim jumbaris, kali_PB As Long
> Dim daerah As Range
>
> Set daerah = Range(strdaerah)
> awalbaris = daerah.Row
>
> jumbaris = daerah.Rows.Count
>
> kali_PB = Excel.WorksheetFunction.RoundUp(jumbaris / antarbaris, 0)
> ActiveSheet.ResetAllPageBreaks
> For I = 1 To kali_PB
> Range("A" & awalbaris + (I * antarbaris) + 1).Select
>
> ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
> Next I
> End Sub
> Sub test()
> Call uf_PageBreak("A10:C82", 15)
> End Sub
>
>
> Pada 17 Juni 2011 06:13, Franciscus SOG <jclugbu@gmail.com> menulis:
>
>>
>>
>> Dear Anto,
>>
>> Permintaan Anda itu mungkin dilakukan.
>>
>> Untuk set print area, jika Anda menginginkan setiap 30 baris data
>> menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
>> Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").
>>
>> Dampak dari insert row tersebut bisa mempengaruhi hasil di worksheet
>> Anda. Apalagi jika cells Anda sudah tidak sehat (misalnya di merge
>> cells).
>>
>> Maaf, saya belum bisa memberikan solusi, karena saya terbentur dengan
>> logika memecah range ("A1:A100") menjadi
>> ("A1:A30","A32:A61","A63:A92","A94:A103").
>>
>> Untuk codingnya sendiri, defaultnya seperti ini :
>>
>> ActiveSheet.PageSetup.PrintArea = Areaku
>>
>> Areaku merupakan lokasi yang diselect dan sudah dipecah seperti contoh
>> diatas.
>>
>> Blessings,
>>
>> Fran'z
>>
>>
>> On 6/17/11, Nicodemus Rusdiyanto <nicodemus@cj.net> wrote:
>> > Dear All,
>> >
>> > Ada yang punya pengalaman dan cara meng-otomatiskan print area range
>> sesuai
>> > dengan data yang dikehendaki, tanpa harus drag per page ?
>> > Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO =>
>> LOCATION
>> > => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
>> > Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE
>> > NO
>> > atau tidak ?
>> > Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi 4
>> > page, dengan page terakhir hanya berisi 10 product tidak masalah.
>> >
>> > Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
>> >
>> > Thanks,
>> > Anto
>> >
>> > The message is ready to be sent with the following file or link
>> attachments:
>> >
>> > SET_PRINT_AREA_AUTO
>> >
>> >
>> > Note: To protect against computer viruses, e-mail programs may prevent
>> > sending or receiving certain types of file attachments. Check your
>> > e-mail
>> > security settings to determine how attachments are handled.
>> >
>>
>>
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1e.: Re: Cara Set Page Break Base On Kriteria Tertentu

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

Fri Jun 17, 2011 10:01 pm (PDT)

coba,
Sub PageBreakSetup()'anton suryadi, 18/Juni/2011 With
Worksheets("DATA") Set x = .Cells(1).CurrentRegion
.ResetAllPageBreaks With .PageSetup .Orientation =
xlLandscape 'atau xlPortrait .PrintArea = x.Address
.PrintTitleRows = "$1:$1" .FitToPagesWide = 1
.FitToPagesTall = False End With For i = 1 To x.Rows.Count
Step 30 .VPageBreaks.Add Before:=Columns("G")
.HPageBreaks.Add Before:=Rows(i + 30 + 1) Next End WithEnd Sub

>semoga bermanfat

--- In belajar-excel@yahoogroups.com, Nicodemus Rusdiyanto
<nicodemus@...> wrote:
>
> Dear All,
>
> Ada yang punya pengalaman dan cara meng-otomatiskan print area range
sesuai
> dengan data yang dikehendaki, tanpa harus drag per page ?
> Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO =>
LOCATION
> => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
> Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE
NO
> atau tidak ?
> Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi
4
> page, dengan page terakhir hanya berisi 10 product tidak masalah.
>
> Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
>
> Thanks,
> Anto
>
> The message is ready to be sent with the following file or link
attachments:
>
> SET_PRINT_AREA_AUTO
>
>
> Note: To protect against computer viruses, e-mail programs may prevent
> sending or receiving certain types of file attachments. Check your
e-mail
> security settings to determine how attachments are handled.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1f.: Re: Cara Set Page Break Base On Kriteria Tertentu

Posted by: "Nicodemus Rusdiyanto" nicodemus@cj.net tjahdjokja234

Fri Jun 17, 2011 11:44 pm (PDT)

Dear Pak Franz,

Sebenarnya indikasi 30 rows per page adalah sample,

Hanya untuk mengindikasikan sisa di page terakhir, apa bila ada sisa dalam
satu criteria, harus tetap di cetak.

Misal di zone RA-E-1 ada 51, misal 1 page 50, maka sisa 1 page tetap
mencetak 1 row itu.

Tapi dipisahkan dengan zone RA-F-1. Karena pembatas-nya adalah zone yang
berbeda.

Seperti itu.

Thanks,

Anto

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Franciscus SOG
Sent: Saturday, June 18, 2011 10:11 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Cara Set Page Break Base On Kriteria Tertentu

Dear Anto,

Setelah membaca kamus, ternyata ada cara lebih praktis. Cara manual
sebelumnya mohon diabaikan. Berikut cuplikan vba-nya :

Sub ManualPagebreaks()
Dim vAwal, vAkhir, vJumlah, i As Variant
Dim Areaku As String
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "A2:F571"
Areaku = ActiveSheet.PageSetup.PrintArea
vAwal = Range(Left(Areaku, Application.Find(":", Areaku) - 1)).Row
vAkhir = Range(Mid(Areaku, Application.Find(":", Areaku) + 1, 99)).Row
vJumlah = WorksheetFunction.RoundUp(Range(Areaku).Rows.Count / 30, 0)
For i = 1 To vJumlah
If vAwal + 30 < vAkhir Then
ActiveSheet.Rows(vAwal + 30).PageBreak = xlPageBreakManual
vAwal = vAwal + 30
End If
Next i
ActiveSheet.VPageBreaks(1).DragOff xlToRight, 1
End Sub

Asumsi range print area = "A2:F571"
Asumsi setiap pages mempunyai 30 row

Hal diatas dapat dibuat dinamis menggunakan deklarasi variabel ke
range di activesheet atau melalui input box.

CMIIW

Blessings,

Fran'z

On 6/17/11, Sudarsono Suhenk <jkssbma@gmail.com <mailto:jkssbma%40gmail.com>
> wrote:
> Sub uf_PageBreak(ByVal strdaerah As String, antarbaris As Long)
> Dim awalbaris As Long
> Dim jumbaris, kali_PB As Long
> Dim daerah As Range
>
> Set daerah = Range(strdaerah)
> awalbaris = daerah.Row
>
> jumbaris = daerah.Rows.Count
>
> kali_PB = Excel.WorksheetFunction.RoundUp(jumbaris / antarbaris, 0)
> ActiveSheet.ResetAllPageBreaks
> For I = 1 To kali_PB
> Range("A" & awalbaris + (I * antarbaris) + 1).Select
>
> ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
> Next I
> End Sub
> Sub test()
> Call uf_PageBreak("A10:C82", 15)
> End Sub
>
>
> Pada 17 Juni 2011 06:13, Franciscus SOG <jclugbu@gmail.com
<mailto:jclugbu%40gmail.com> > menulis:
>
>>
>>
>> Dear Anto,
>>
>> Permintaan Anda itu mungkin dilakukan.
>>
>> Untuk set print area, jika Anda menginginkan setiap 30 baris data
>> menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
>> Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").
>>
>> Dampak dari insert row tersebut bisa mempengaruhi hasil di worksheet
>> Anda. Apalagi jika cells Anda sudah tidak sehat (misalnya di merge
>> cells).
>>
>> Maaf, saya belum bisa memberikan solusi, karena saya terbentur dengan
>> logika memecah range ("A1:A100") menjadi
>> ("A1:A30","A32:A61","A63:A92","A94:A103").
>>
>> Untuk codingnya sendiri, defaultnya seperti ini :
>>
>> ActiveSheet.PageSetup.PrintArea = Areaku
>>
>> Areaku merupakan lokasi yang diselect dan sudah dipecah seperti contoh
>> diatas.
>>
>> Blessings,
>>
>> Fran'z
>>
>>
>> On 6/17/11, Nicodemus Rusdiyanto <nicodemus@cj.net
<mailto:nicodemus%40cj.net> > wrote:
>> > Dear All,
>> >
>> > Ada yang punya pengalaman dan cara meng-otomatiskan print area range
>> sesuai
>> > dengan data yang dikehendaki, tanpa harus drag per page ?
>> > Misal di data ini saya mau cetak dengan kriteria sorting ZONE NO =>
>> LOCATION
>> > => CATEGORY => PRODUCT NO (ini baru urutan datanya dulu)
>> > Setelah itu pada saat cetak, bisa diotomatiskan dipisahkan sesuai ZONE
>> > NO
>> > atau tidak ?
>> > Jadi kalau 1 zone punya 100 product, per page harus 30, maka akan jadi
4
>> > page, dengan page terakhir hanya berisi 10 product tidak masalah.
>> >
>> > Mohon pencerahan dan complainnya kalau case-nya kurang jelas :D
>> >
>> > Thanks,
>> > Anto
>> >
>> > The message is ready to be sent with the following file or link
>> attachments:
>> >
>> > SET_PRINT_AREA_AUTO
>> >
>> >
>> > Note: To protect against computer viruses, e-mail programs may prevent
>> > sending or receiving certain types of file attachments. Check your
>> > e-mail
>> > security settings to determine how attachments are handled.
>> >
>>
>>
>>
>

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

2a.: Copy data dari satu file ke file lain dalam folder yang berbeda

Posted by: "Sinode G Sinaga" sinodesinaga@gmail.com sinodesinaga

Fri Jun 17, 2011 2:22 am (PDT)

Salam Be-Excel

Saya sudah pernah mendapat kan pencerahan copy (sebar data) antar file dalam
folder yang sama dengan kode VB sbb:

Private Sub CommandButton1_Click()

Dim shTuj As Worksheet

Dim rwTuj As Long

On Error Resume Next

If Workbooks("SPVRM.xls") Is Nothing Then

Workbooks.Open Filename:=ThisWorkbook.Path & "\SPVRM.xls"

End If

On Error GoTo 0

Set shTuj = Workbooks("SPVRM.xls").Worksheets("JournalSJ")

rwTuj = shTuj.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

With ThisWorkbook.Worksheets("JournalSJ")

shTuj.Cells(rwTuj, 1) = .[A50]

shTuj.Cells(rwTuj, 2) = .[B50]

shTuj.Cells(rwTuj, 3) = .[C50]

shTuj.Cells(rwTuj, 4) = .[D50]

shTuj.Cells(rwTuj, 5) = .[E50]

shTuj.Cells(rwTuj, 6) = .[F50]

shTuj.Cells(rwTuj, 7) = .[G50]

shTuj.Cells(rwTuj, 8) = .[H50]

shTuj.Cells(rwTuj, 9) = .[I50]

shTuj.Cells(rwTuj, 10) = .[J50]

shTuj.Cells(rwTuj, 11) = .[K50]

shTuj.Cells(rwTuj, 12) = .[L50]

shTuj.Cells(rwTuj, 13) = .[M50]

shTuj.Cells(rwTuj, 14) = .[N50]

shTuj.Cells(rwTuj, 15) = .[O50]

shTuj.Cells(rwTuj, 16) = .[P50]

shTuj.Cells(rwTuj, 17) = .[Q50]

shTuj.Cells(rwTuj, 18) = .[R50]

shTuj.Cells(rwTuj, 19) = .[S50]

shTuj.Cells(rwTuj, 20) = .[T50]

End With

Range("B7").Select

ActiveWorkbook.Save

ActiveWorkbook.Close

End Sub

Q : Mohon bantuan para pakar dimana saya ingin menyebar data dalam folder yg
berbeda. Terimakasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.: Re: Copy data dari satu file ke file lain dalam folder yang berbeda

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

Fri Jun 17, 2011 2:28 am (PDT)

Mungkin maksud dari sebar, akan membuka file yang tidak se-folder.
Bagian ThisWorkbook.Path berarti path-nya si workbook aktif, yang hasilnya
bisa seperti : G:\Data\AplikasiUtama
Jika data ada pada folder lainnya, misal di H:\Data\Data si anu

maka bagian ThisWorkbook.Path diubah menjadi "H:\Data\Data si anu"

Kid.

On Fri, Jun 17, 2011 at 16:09, Sinode G Sinaga <sinodesinaga@gmail.com>wrote:

> **
>
>
> Salam Be-Excel****
>
> ** **
>
> Saya sudah pernah mendapat kan pencerahan copy (sebar data) antar file
> dalam folder yang sama dengan kode VB sbb:****
>
> ** **
>
> Private Sub CommandButton1_Click()****
>
> Dim shTuj As Worksheet****
>
> Dim rwTuj As Long****
>
> ****
>
> On Error Resume Next****
>
> If Workbooks("SPVRM.xls") Is Nothing Then****
>
> Workbooks.Open Filename:=ThisWorkbook.Path & "\SPVRM.xls"****
>
> End If****
>
> On Error GoTo 0****
>
> ** **
>
> Set shTuj = Workbooks("SPVRM.xls").Worksheets("JournalSJ")****
>
> ****
>
> rwTuj = shTuj.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1****
>
> ****
>
> With ThisWorkbook.Worksheets("JournalSJ")****
>
> shTuj.Cells(rwTuj, 1) = .[A50]****
>
> shTuj.Cells(rwTuj, 2) = .[B50]****
>
> shTuj.Cells(rwTuj, 3) = .[C50]****
>
> shTuj.Cells(rwTuj, 4) = .[D50]****
>
> shTuj.Cells(rwTuj, 5) = .[E50]****
>
> shTuj.Cells(rwTuj, 6) = .[F50]****
>
> shTuj.Cells(rwTuj, 7) = .[G50]****
>
> shTuj.Cells(rwTuj, 8) = .[H50]****
>
> shTuj.Cells(rwTuj, 9) = .[I50]****
>
> shTuj.Cells(rwTuj, 10) = .[J50]****
>
> shTuj.Cells(rwTuj, 11) = .[K50]****
>
> shTuj.Cells(rwTuj, 12) = .[L50]****
>
> shTuj.Cells(rwTuj, 13) = .[M50]****
>
> shTuj.Cells(rwTuj, 14) = .[N50]****
>
> shTuj.Cells(rwTuj, 15) = .[O50]****
>
> shTuj.Cells(rwTuj, 16) = .[P50]****
>
> shTuj.Cells(rwTuj, 17) = .[Q50]****
>
> shTuj.Cells(rwTuj, 18) = .[R50]****
>
> shTuj.Cells(rwTuj, 19) = .[S50]****
>
> shTuj.Cells(rwTuj, 20) = .[T50]****
>
> ****
>
> ****
>
> End With****
>
> Range("B7").Select****
>
> ActiveWorkbook.Save****
>
> ActiveWorkbook.Close****
>
> End Sub****
>
> ** **
>
> Q : Mohon bantuan para pakar dimana saya ingin menyebar data dalam folder
> yg berbeda. Terimakasih****
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2c.: Re: Copy data dari satu file ke file lain dalam folder yang berbeda

Posted by: "Sinode G Sinaga" sinodesinaga@gmail.com sinodesinaga

Sat Jun 18, 2011 12:02 am (PDT)

Dear Mr. Kid,

Terimakasih mr. Kid atas bantuannya.ternyata sederhana juga ya?
Saya hanya buta bahasa VB nya.Program sudah berjalan baik.
Sekali lagi terimakasih banyak

Salam Be-Excel

Sinode

From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
Sent: Friday, June 17, 2011 4:28 PM

Mungkin maksud dari sebar, akan membuka file yang tidak se-folder.
Bagian ThisWorkbook.Path berarti path-nya si workbook aktif,
yang hasilnya bisa seperti : G:\Data\AplikasiUtama
Jika data ada pada folder lainnya, misal di H:\Data\Data si anu
maka bagian ThisWorkbook.Path diubah menjadi "H:\Data\Data si anu"

Kid.

On Fri, Jun 17, 2011 at 16:09, Sinode G Sinaga sinodesinaga@gmail.com> wrote:

Salam Be-Excel
Saya sudah pernah mendapat kan pencerahan copy (sebar data) antar file dalam folder yang sama dengan kode VB sbb:

Private Sub CommandButton1_Click()
Dim shTuj As Worksheet
Dim rwTuj As Long
On Error Resume Next
If Workbooks("SPVRM.xls") Is Nothing Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\SPVRM.xls"
End If
On Error GoTo 0
Set shTuj = Workbooks("SPVRM.xls").Worksheets("JournalSJ")
rwTuj = shTuj.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
With ThisWorkbook.Worksheets("JournalSJ")
shTuj.Cells(rwTuj, 1) = .[A50]
shTuj.Cells(rwTuj, 2) = .[B50]
shTuj.Cells(rwTuj, 3) = .[C50]
shTuj.Cells(rwTuj, 4) = .[D50]
shTuj.Cells(rwTuj, 5) = .[E50]
shTuj.Cells(rwTuj, 6) = .[F50]
shTuj.Cells(rwTuj, 7) = .[G50]
shTuj.Cells(rwTuj, 8) = .[H50]
shTuj.Cells(rwTuj, 9) = .[I50]
shTuj.Cells(rwTuj, 10) = .[J50]
shTuj.Cells(rwTuj, 11) = .[K50]
shTuj.Cells(rwTuj, 12) = .[L50]
shTuj.Cells(rwTuj, 13) = .[M50]
shTuj.Cells(rwTuj, 14) = .[N50]
shTuj.Cells(rwTuj, 15) = .[O50]
shTuj.Cells(rwTuj, 16) = .[P50]
shTuj.Cells(rwTuj, 17) = .[Q50]
shTuj.Cells(rwTuj, 18) = .[R50]
shTuj.Cells(rwTuj, 19) = .[S50]
shTuj.Cells(rwTuj, 20) = .[T50]
End With
Range("B7").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Q : Mohon bantuan para pakar dimana saya ingin menyebar data dalam folder yg berbeda. Terimakasih

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

3a.: nubie minta tolong copy data beda tempat

Posted by: "Irham M" irham_noel@yahoo.co.id irham_noel

Fri Jun 17, 2011 8:49 pm (PDT)

Dear masters Excel
sekali lagi newbie minta saran dan batuan
bagaimana y mencopy data yang ada namun tempatnya berbeda
contoh terlampir
Jadi data yang ada pada sheet database ingin dicopy ke sheet daftar pengambilan namun dalam bentuk menurun sesuai dengan nama dan mata pelajarannya
mohon pencerahannya
thanks alot

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3b.: Re: nubie minta tolong copy data beda tempat

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

Fri Jun 17, 2011 9:32 pm (PDT)

Dear Irham,

Semoga membantu, pemanfaatan kolom dan row bantu.

Blessings,

Fran'z

On 6/18/11, Irham M <irham_noel@yahoo.co.id> wrote:
> Dear masters Excel
> sekali lagi newbie minta saran dan batuan
> bagaimana y mencopy data yang ada namun tempatnya berbeda
> contoh terlampir
> Jadi data yang ada pada sheet database ingin dicopy ke sheet daftar
> pengambilan namun dalam bentuk menurun sesuai dengan nama dan mata
> pelajarannya
> mohon pencerahannya
> thanks alot

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3c.: Bls: [belajar-excel] nubie minta tolong copy data beda tempat

Posted by: "Irham M" irham_noel@yahoo.co.id irham_noel

Fri Jun 17, 2011 10:26 pm (PDT)

Dear master Franciscus
terima kasih banyak y
bantuan anda sangat membantu saya

________________________________
Dari: Franciscus SOG <jclugbu@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 18 Juni 2011 11:32
Judul: Re: [belajar-excel] nubie minta tolong copy data beda tempat

Dear Irham,

Semoga membantu, pemanfaatan kolom dan row bantu.

Blessings,

Fran'z

On 6/18/11, Irham M <irham_noel@yahoo.co.id> wrote:
> Dear masters Excel
> sekali lagi newbie minta saran dan batuan
> bagaimana y mencopy data yang ada namun tempatnya berbeda
> contoh terlampir
> Jadi data yang ada pada sheet database ingin dicopy ke sheet daftar
> pengambilan namun dalam bentuk menurun sesuai dengan nama dan mata
> pelajarannya
> mohon pencerahannya
> thanks alot

------------------------------------

----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links

http://docs.yahoo.com/info/terms/

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3d.: Bls: [belajar-excel] nubie minta tolong copy data beda tempat

Posted by: "Undang Satrianie" und4nk@rocketmail.com und4nk@rocketmail.com

Fri Jun 17, 2011 10:35 pm (PDT)

Coba juga Penggunaan Array Formula
=INDEX(DATABASE!$F$4:$BB$129;MATCH('DAFTAR PENGAMBILAN'!$C3;DATABASE!$E$4:$E$129;0);MATCH('DAFTAR PENGAMBILAN'!$F3&'DAFTAR PENGAMBILAN'!G$1;DATABASE!$F$2:$BB$2&DATABASE!$F$3:$BB$3;0))+ error handling
Seperti Lampiran Berikut

Salam
D4nk

________________________________
Dari: Irham M <irham_noel@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 18 Juni 2011 10:49
Judul: [belajar-excel] nubie minta tolong copy data beda tempat

Dear masters Excel
sekali lagi newbie minta saran dan batuan
bagaimana y mencopy data yang ada namun tempatnya berbeda
contoh terlampir
Jadi data yang ada pada sheet database ingin dicopy ke sheet daftar pengambilan namun dalam bentuk menurun sesuai dengan nama dan mata pelajarannya
mohon pencerahannya
thanks alot

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

4a.: Re: Formula Average dengan Kriteria ganda

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Sat Jun 18, 2011 12:06 am (PDT)

Dear para Excellers,

Akhir-akhir ini sering diangkat topik tentang Average,
Melanjutkan topik lama yang belum ketemu solusinya,

Berikut ini terlampir kasus lama/senada dengan penjelasan yang(mungkin) lebih gamblang.
(karena di milis memang sering yang salah adalah Penanya yang nggak tahu Gimana bentuk pertanyaan yang jelas)
Bukan Gurunya yang salah kasih jawaban.
(Maaf Mr. Kid yang sudah coba beri solusi)

Pertanyaan :
Bagaimana menghitung rata-rata dari jumlah-jumlah data yang berkriteria (ganda) dimana jumlah-jumlah tersebut berubah secara progressive.

Perincian dalam lampiran

Wassalam
Agung Widodo
________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Friday, June 10, 2011 11:39 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Formula Average dengan Kriteria ganda

Mungkin tanda reference absolut belum disesuaikan dengan kebutuhan.
Misal :
=SUM(IF(($A$2:$A$53=$A55)*($D$2:$D$53="OT"),$E$2:G$53))/SUM(($A$2:$A$53=$A55)*($D$2:$D$53="OT")*(LEN($E$2:G$53)>0))
Sedangkan hasil sorot average di status bar hanya dari 1 kolom saja.

Kid.

2011/6/10 <agung_widodo@sanyo.com<mailto:agung_widodo@sanyo.com>>

Terimakasih Mr Kid, atas sumbangan formulanya.
Namun saya menemukan kejanggalan saat formula ini diaplikasikan dalam sel kuning dalam lampiran.
Ada angka rata-rata bernilai 4,5 pada hari itu, padahal tiap hari kerja (normal) angka maksimum adalah 3.
Dan ada formula lain masih saya butuhkan.
(terlampir)

Dan sebagai gambaran,
Metode yang saat ini kami pakai sebagai berikut:
1. Setiap karyawan ditotal (SUM) dulu ke samping, nilai OTnya hingga hari ini akan berubah progressive tiap hari.
2. Dilakukan Filter terhadap OT dan Direct/Indirect
3. Disorot nilai Totalnya, Dilihat dipojok bawah layar, berapa Averagenya.

Bagaimanakah formula untuk melakukan tahapan ini?

Salam
Agung W

________________________________
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>] On Behalf Of Mr. Kid
Sent: Friday, June 10, 2011 6:46 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] Formula Average dengan Kriteria ganda

Coba array formula :
=SUM(IF(($A$2:$A$53=$A55)*($D$2:$D$53="OT"),E$2:$E$53))/SUM(($A$2:$A$53=$A55)*($D$2:$D$53="OT")*(LEN(E$2:$E$53)>0))

Untuk average seperti hasil status bar, maka yang dikalkulasi hanya yang punya item saja.

Bagian yang hijau adalah jumlah total seluruh item sesuai kriteria
Pada bagian yang hijau, digunakan IF karena ada nilai non numerik pada kolom nilai (kolom E).

Bagian yang biru untuk menghitung jumlah item yang tidak blank, dan angka 0 adalah sebuah item (tidak blank)
Bagian yang biru dan di bold adalah penentu penghitung jumlah item berdasar isi kolom nilai (kolom E)

Regard,
Kid.

2011/6/9 <agung_widodo@sanyo.com<mailto:agung_widodo@sanyo.com>>

Para Exceler,

Bagaimana formula untuk menghitung Rata-rata dengan kriteria berganda,
Hasil Formula Average dari teman dimilis disini berbeda dibanding dihitung dengan mengaktifkan Filter dan di Sort - Average Mode ON

Perincian lebih lanjut ada pada lampiran.
Maaf kalau diposting ulang, berhubung kasus belum tuntas.

Mohon Bantuannya,

Terima kasih

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

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

Sabtu, 18 Juni 2011

Messages In This Digest (14 Messages)

Messages

Posted by: "Nicodemus Rusdiyanto" nicodemus@cj.net tjahdjokja234

Fri Jun 17, 2011 2:21 am (PDT)

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

Fri Jun 17, 2011 6:13 am (PDT)

Posted by: "Sudarsono Suhenk" jkssbma@gmail.com jkssbma

Fri Jun 17, 2011 8:45 am (PDT)

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

Fri Jun 17, 2011 8:12 pm (PDT)

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

Fri Jun 17, 2011 10:01 pm (PDT)

Posted by: "Nicodemus Rusdiyanto" nicodemus@cj.net tjahdjokja234

Fri Jun 17, 2011 11:44 pm (PDT)

Posted by: "Sinode G Sinaga" sinodesinaga@gmail.com sinodesinaga

Fri Jun 17, 2011 2:22 am (PDT)

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

Fri Jun 17, 2011 2:28 am (PDT)

Posted by: "Sinode G Sinaga" sinodesinaga@gmail.com sinodesinaga

Sat Jun 18, 2011 12:02 am (PDT)

Posted by: "Irham M" irham_noel@yahoo.co.id irham_noel

Fri Jun 17, 2011 8:49 pm (PDT)

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

Fri Jun 17, 2011 9:32 pm (PDT)

Posted by: "Irham M" irham_noel@yahoo.co.id irham_noel

Fri Jun 17, 2011 10:26 pm (PDT)

Posted by: "Undang Satrianie" und4nk@rocketmail.com und4nk@rocketmail.com

Fri Jun 17, 2011 10:35 pm (PDT)

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Sat Jun 18, 2011 12:06 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me