13 New Messages
Digest #2579
1a
Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) she by "Ahmad Habibillah" abiel_1108
1b
Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) by "hendrik karnadi" hendrikkarnadi
1c
Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown by "Ahmad Habibillah" abiel_1108
1d
Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (break by "hendrik karnadi" hendrikkarnadi
1f
Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (brea by "Ahmad Habibillah" abiel_1108
1g
Re: Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste ( by "hendrik karnadi" hendrikkarnadi
2a
Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) shee by "Ahmad Habibillah" abiel_1108
2c
Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) shee by "Ahmad Habibillah" abiel_1108
3a
Bls: [belajar-excel] Memindahkan data ke dalam slip gaji [1 Attachme by "Kusnadi Bin zain" kbinzain
Messages
Fri Oct 4, 2013 12:09 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 12:33 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperba
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 12:58 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperba
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 1:53 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Sheets("rekap detail").Activate
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail".
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Sheets("
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail"
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperba
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 3:03 am (PDT) . Posted by:
"De Premor" de.premor
ikutan nimbrung ya mas HK
Buat error yang sebelumnya bisa tanpa berpindah sheet dulu dengan cara
begini
Set SrcData = Sheets("rekap detail").Range("E2", Sheets("rekap
detail").Range("E2").End(xlDown))
berikut kode buat ngefilter per pt, kemudian mengkopy ke sheet baru,
lalu dipindah ke workbook baru, selanjutnya disimpen, setelah itu di
close workbook barunya.
/kalau perlu ditambahi kode buat ngirim email ke masing2 tujuan
sekalian, jadi tinggal pencet tombol trus duduk manis atau "//*ngerjain
*//*yang lain*//" hehehe/
Sub ExportPerPT()
Dim SrcData As Range, Rng As Range, cKode As New Collection
Dim LRow As Long, Sh As Worksheet, Fld As String, NamaFile as String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set SrcData = Sheets("rekap detail").Range("E2", Sheets("rekap
detail").Range("E2").End(xlDown))
On Error Resume Next 'Proses setelah ini akan menghasilkan error
jika ada data duplikat, maka buat error handlernya
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng) 'Buat List Unique Nama2 PT
Next
Fld = ThisWorkbook.Path & "\Buat Dikirim\" 'Lokasi Pulder buat
nyimpen data export'an
If Dir(Fld, vbDirectory) = "" Then MkDir Fld 'Jika belum ada
foldernya, dibuat ajah
Set Rng = SrcData.CurrentRegion.Resize(SrcData.Rows.Count, 6)
'Inget2 lokasi Data yang mau dicopy
For LRow = 1 To cKode.Count
SrcData.CurrentRegion.AutoFilter Field:=5,
Criteria1:=cKode.Item(LRow) 'AutoFilter
Worksheets.Add 'Buat Sheet Baru
Set Sh = ActiveSheet 'Ingat2 Sheet barunya
Sh.Name = Left(cKode.Item(LRow), 31) 'Ganti Nama Sheet baru
menjadi nama PT (Max 31 Karakter)
Rng.SpecialCells(xlCellTypeVisible).Copy Sh.Range("A1") 'Copy
Data Dari Rekap Detail ke Sheet Baru
Sh.Range("A1:F1").EntireColumn.AutoFit 'Pas kan lebar kolom
Sh.Move 'Pindahkan Sheetbaru ke workbook baru
NamaFile = Fld & ActiveSheet.[E2] & ".xlsx"
ActiveWorkbook.SaveAs NamaFile 'Simpen workbook barunya sesuai
nama PT
ActiveWorkbook.Close 'Kalau udah kesimpen, Tutup Aje
SrcData.CurrentRegion.AutoFilter 'Buang fitur autopilternya
'Disini bisa diisi kode buat nyisipin kode mengirimkan email
kemasing2
'tujuan sesuai dengan file hasil export terakhir
'Ex:
'SendEmail "Email@gw.com","Email@lu.net","Bro, Ini Rekap PT
Lu","Liat Aja dilampiran", NamaFile
'Kalau memang mau langsung dikirim seperti ini, berarti perlu
sebuah tabel lagi yang berisi alamat email dan nama PT :D
Next
MsgBox "Export selesai, Target folder -> " & Fld, vbInformation
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Contoh kode sederhana (*Jika email server tidak memerlukan authentikasi
buat kirim emailnya*) seperti berikut :
Function SendMail(ePengirim As String, eTujuan As String, eSubject As
String, ByVal eBody As String, eLampiran As String)
Set oEmail = CreateObject("CDO.Message")
With oEmail
.From = ePengirim
.To = eTujuan
.Subject = eSubject
.Textbody = eBody
.AddAttachment eLampiran
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"192.168.7.7"
.Item("http://schemas.microsoft.com/cdo/configuration/authenticate") = 1
.Update
End With
.Send
End With
Set oEmail = Nothing
End Function
On 04-10-2013 15:53, hendrik karnadi wrote:
> Jangan putus asa dulu.
> Coba copas lagi macro ini pada VBE Sheet (Module1).
>
> Sub Masukin()
> Dim SrcData As Range, Rng As Range
> Dim cKode As New Collection
> Dim LRow As Long
>
> Application.ScreenUpdating = False
> Sheets("rekap detail").Activate
> Set SrcData = Sheets("rekap detail").Range("E2",
> Range("E2").End(xlDown))
> On Error Resume Next
> For Each Rng In SrcData
> cKode.Add Trim(Rng), CStr(Rng)
> Next
> For LRow = 1 To cKode.Count
> Set Rng = SrcData.CurrentRegion.Offset(1,
> 0).Resize(SrcData.Rows.Count, 6)
> SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
> Rng.SpecialCells(xlCellTypeVisible).Copy
> Sheets(cKode.Item(LRow)).Range("A2")
> SrcData.CurrentRegion.AutoFilter
> Next
> Application.ScreenUpdating = True
> End Sub
>
> Mengapa timbul run time error ?
> Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail".
>
> Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah
> macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna
> merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
>
> Salam,
> HK
>
>
> ----------------------------------------------------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 4 October 2013, 14:54
> *Subject:* Bls: Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet [1 Attachment]
>
> Dear bro Hendrik,
>
> sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya
> newbe and juga pengen tau bisa gimana caranya.
>
> kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa
> buat ngerjain yang lain.. hehehe
>
> terlampir format data yang biasa digunakan.
>
>
>
> many thanks
> Ahmad H
>
>
>
> ----------------------------------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 4 Oktober 2013 14:33
> *Judul:* Re: Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Saya sdh tes dan filenya masih disimpan.
>
> Coba kirim file yang ada "run time errornya" karena dengan
> mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami
> dan menikmati macro.
>
> JIka anda mau email satu persatu (balasan email anda kepada Miss Jan)
> kenapa ga langung disave sebagai workbook (pada Dir yang sama) per
> nama PT ?
>
> Salam,
> HK
>
> ----------------------------------------------------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 4 October 2013, 14:02
> *Subject:* Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Dear Bro Hendrik,
>
> kok nggak bisa ya.. "run time error"
>
> maaf newbe nih... hihihihiihi
>
> mohon bantuannya lagi ya bro...
>
>
> many thanks,
> cheers
> Ahmad H
>
>
>
> ----------------------------------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 4 Oktober 2013 12:36
> *Judul:* Re: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Pak De, boleh pinjam codenya ya ?
> Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1
> (diambil dari kasus filtering sebelumnya),
>
> Sub Masukin()
> Dim SrcData As Range, Rng As Range
> Dim cKode As New Collection
> Dim LRow As Long
>
> Application.ScreenUpdating = False
> Set SrcData = Sheets("rekap
> detail").Range("E2", Range("E2").End(xlDown))
> On Error Resume Next
> For Each Rng In SrcData
> cKode.Add Trim(Rng), CStr(Rng)
> Next
> For LRow = 1 To cKode.Count
> Set Rng = SrcData.CurrentRegion.Offset(1,
> 0).Resize(SrcData.Rows.Count, 6)
> SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
> Rng.SpecialCells(xlCellTypeVisible).Copy
> Sheets(cKode.Item(LRow)).Range("A2")
> SrcData.CurrentRegion.AutoFilter
> Next
> Application.ScreenUpdating = True
> End Sub
>
> Warna merah adalah bagian yang disesuaikan.
>
> Salam,
> HK
>
>
> ----------------------------------------------------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 4 October 2013, 10:57
> *Subject:* [belajar-excel] Need Help melakukan copy paste (breakdown)
> sheet to sheet [1 Attachment]
>
> Selamat Pagi,
>
> mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan
> keberkahan dalam hidup. amin
>
> dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang
> saya alami,
>
> dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat
> membantu jika dapat di lakukan otomasi by vb or macro.
>
> dalam 1 file excel terdapat sheet file detail dan beberapa sheet
> breakdown nya.
>
> berikut saya lampirkan file yang dimaksud.
>
> atas perhatian dan bantuannya terima kasih
>
> cheers,
> Ahmad H
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Buat error yang sebelumnya bisa tanpa berpindah sheet dulu dengan cara
begini
Set SrcData = Sheets("
detail"
berikut kode buat ngefilter per pt, kemudian mengkopy ke sheet baru,
lalu dipindah ke workbook baru, selanjutnya disimpen, setelah itu di
close workbook barunya.
/kalau perlu ditambahi kode buat ngirim email ke masing2 tujuan
sekalian, jadi tinggal pencet tombol trus duduk manis atau "//*ngerjain
*//*yang lain*//" hehehe/
Sub ExportPerPT(
Dim SrcData As Range, Rng As Range, cKode As New Collection
Dim LRow As Long, Sh As Worksheet, Fld As String, NamaFile as String
Application.
Application.
Set SrcData = Sheets("
detail"
On Error Resume Next 'Proses setelah ini akan menghasilkan error
jika ada data duplikat, maka buat error handlernya
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng) 'Buat List Unique Nama2 PT
Next
Fld = ThisWorkbook.
nyimpen data export'an
If Dir(Fld, vbDirectory) = "" Then MkDir Fld 'Jika belum ada
foldernya, dibuat ajah
Set Rng = SrcData.CurrentRegi
'Inget2 lokasi Data yang mau dicopy
For LRow = 1 To cKode.Count
SrcData.CurrentRegi
Criteria1:=cKode.
Worksheets.Add 'Buat Sheet Baru
Set Sh = ActiveSheet 'Ingat2 Sheet barunya
Sh.Name = Left(cKode.Item(
menjadi nama PT (Max 31 Karakter)
Rng.SpecialCells(
Data Dari Rekap Detail ke Sheet Baru
Sh.Range("
Sh.Move 'Pindahkan Sheetbaru ke workbook baru
NamaFile = Fld & ActiveSheet.
ActiveWorkbook.
nama PT
ActiveWorkbook.
SrcData.CurrentRegi
'Disini bisa diisi kode buat nyisipin kode mengirimkan email
kemasing2
'tujuan sesuai dengan file hasil export terakhir
'Ex:
'SendEmail "Email@gw.com","Email@lu.net","
Lu","
'Kalau memang mau langsung dikirim seperti ini, berarti perlu
sebuah tabel lagi yang berisi alamat email dan nama PT :D
Next
MsgBox "Export selesai, Target folder -> " & Fld, vbInformation
Application.
Application.
End Sub
Contoh kode sederhana (*Jika email server tidak memerlukan authentikasi
buat kirim emailnya*) seperti berikut :
Function SendMail(ePengirim As String, eTujuan As String, eSubject As
String, ByVal eBody As String, eLampiran As String)
Set oEmail = CreateObject(
With oEmail
.From = ePengirim
.To = eTujuan
.Subject = eSubject
.Textbody = eBody
.AddAttachment eLampiran
With .Configuration.
.Item("http://schemas.
.Item("http://schemas.
"192.168.
.Item("http://schemas.
.Update
End With
.Send
End With
Set oEmail = Nothing
End Function
On 04-10-2013 15:53, hendrik karnadi wrote:
> Jangan putus asa dulu.
> Coba copas lagi macro ini pada VBE Sheet (Module1).
>
> Sub Masukin()
> Dim SrcData As Range, Rng As Range
> Dim cKode As New Collection
> Dim LRow As Long
>
> Application.
> Sheets("
> Set SrcData = Sheets("
> Range("
> On Error Resume Next
> For Each Rng In SrcData
> cKode.Add Trim(Rng), CStr(Rng)
> Next
> For LRow = 1 To cKode.Count
> Set Rng = SrcData.CurrentRegi
> 0).Resize(SrcData.
> SrcData.CurrentRegi
> Rng.SpecialCells(
> Sheets(cKode.
> SrcData.CurrentRegi
> Next
> Application.
> End Sub
>
> Mengapa timbul run time error ?
> Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail"
>
> Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah
> macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna
> merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
>
> Salam,
> HK
>
>
> ------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.
> *To:* belajar-excel@
> *Sent:* Friday, 4 October 2013, 14:54
> *Subject:* Bls: Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet [1 Attachment]
>
> Dear bro Hendrik,
>
> sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya
> newbe and juga pengen tau bisa gimana caranya.
>
> kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa
> buat ngerjain yang lain.. hehehe
>
> terlampir format data yang biasa digunakan.
>
>
>
> many thanks
> Ahmad H
>
>
>
> ------------
> *Dari:* hendrik karnadi <hendrikkarnadi@
> *Kepada:* "belajar-excel@
> *Dikirim:* Jumat, 4 Oktober 2013 14:33
> *Judul:* Re: Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Saya sdh tes dan filenya masih disimpan.
>
> Coba kirim file yang ada "run time errornya" karena dengan
> mengetahui/memperba
> dan menikmati macro.
>
> JIka anda mau email satu persatu (balasan email anda kepada Miss Jan)
> kenapa ga langung disave sebagai workbook (pada Dir yang sama) per
> nama PT ?
>
> Salam,
> HK
>
> ------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.
> *To:* belajar-excel@
> *Sent:* Friday, 4 October 2013, 14:02
> *Subject:* Bls: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Dear Bro Hendrik,
>
> kok nggak bisa ya.. "run time error"
>
> maaf newbe nih... hihihihiihi
>
> mohon bantuannya lagi ya bro...
>
>
> many thanks,
> cheers
> Ahmad H
>
>
>
> ------------
> *Dari:* hendrik karnadi <hendrikkarnadi@
> *Kepada:* "belajar-excel@
> *Dikirim:* Jumat, 4 Oktober 2013 12:36
> *Judul:* Re: [belajar-excel] Need Help melakukan copy paste
> (breakdown) sheet to sheet
>
> Pak De, boleh pinjam codenya ya ?
> Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1
> (diambil dari kasus filtering sebelumnya),
>
> Sub Masukin()
> Dim SrcData As Range, Rng As Range
> Dim cKode As New Collection
> Dim LRow As Long
>
> Application.
> Set SrcData = Sheets("
> detail"
> On Error Resume Next
> For Each Rng In SrcData
> cKode.Add Trim(Rng), CStr(Rng)
> Next
> For LRow = 1 To cKode.Count
> Set Rng = SrcData.CurrentRegi
> 0).Resize(SrcData.
> SrcData.CurrentRegi
> Rng.SpecialCells(
> Sheets(cKode.
> SrcData.CurrentRegi
> Next
> Application.
> End Sub
>
> Warna merah adalah bagian yang disesuaikan.
>
> Salam,
> HK
>
>
> ------------
> *From:* Ahmad Habibillah <abiel_1108@yahoo.
> *To:* belajar-excel@
> *Sent:* Friday, 4 October 2013, 10:57
> *Subject:* [belajar-excel] Need Help melakukan copy paste (breakdown)
> sheet to sheet [1 Attachment]
>
> Selamat Pagi,
>
> mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan
> keberkahan dalam hidup. amin
>
> dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang
> saya alami,
>
> dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat
> membantu jika dapat di lakukan otomasi by vb or macro.
>
> dalam 1 file excel terdapat sheet file detail dan beberapa sheet
> breakdown nya.
>
> berikut saya lampirkan file yang dimaksud.
>
> atas perhatian dan bantuannya terima kasih
>
> cheers,
> Ahmad H
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Fri Oct 4, 2013 3:37 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
Dear Bro hendrik.....
Mantaaaaaaaapppppp, Its Work......
tengkyuuuuuu so much...
Best Regards,
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 15:53
Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Sheets("rekap detail").Activate
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail".
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Mantaaaaaaaapppppp, Its Work......
tengkyuuuuuu so much...
Best Regards,
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 15:53
Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Sheets("
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail"
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperba
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 4:00 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sama2 pak, terima kasih juga kepada Pak De Premor yang telah membuat code asinya.
Coba juga ramuan Pak De dalam email terakhir yang bisa langsung copy sheet sebagai workbook (sdh saya coba) dan langsung kirim email (yang ini silakan anda coba dan bagi2 hasil tesnya).
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 4 October 2013, 16:44
Subject: Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro hendrik.....
Mantaaaaaaaapppppp, Its Work......
tengkyuuuuuu so much...
Best Regards,
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 15:53
Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Sheets("rekap detail").Activate
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail".
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
SrcData.CurrentRegion.AutoFilter
Next
Application.ScreenUpdating = True
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Coba juga ramuan Pak De dalam email terakhir yang bisa langsung copy sheet sebagai workbook (sdh saya coba) dan langsung kirim email (yang ini silakan anda coba dan bagi2 hasil tesnya).
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: "belajar-excel@
Sent: Friday, 4 October 2013, 16:44
Subject: Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro hendrik.....
Mantaaaaaaaapppppp, Its Work......
tengkyuuuuuu so much...
Best Regards,
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 15:53
Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Sheets("
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Mengapa timbul run time error ?
Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail"
Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:54
Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Dear bro Hendrik,
sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya.
kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe
terlampir format data yang biasa digunakan.
many thanks
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 14:33
Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperba
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ?
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 14:02
Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Dear Bro Hendrik,
kok nggak bisa ya.. "run time error"
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 12:36
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.
Set SrcData = Sheets("
On Error Resume Next
For Each Rng In SrcData
cKode.Add Trim(Rng), CStr(Rng)
Next
For LRow = 1 To cKode.Count
Set Rng = SrcData.CurrentRegi
SrcData.CurrentRegi
Rng.SpecialCells(
SrcData.CurrentRegi
Next
Application.
End Sub
Warna merah adalah bagian yang disesuaikan.
Salam,
HK
____________
From: Ahmad Habibillah <abiel_1108@yahoo.
To: belajar-excel@
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
Selamat Pagi,
mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
berikut saya lampirkan file yang dimaksud.
atas perhatian dan bantuannya terima kasih
cheers,
Ahmad H
Fri Oct 4, 2013 12:12 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
hai juga Miss Jan,
waduh... many thanks untuk solusinya, mantaaapppp.
tapi masih ada tapi nya nih... :(
kalau yang seperti itu saya gunakan untuk diinternal,
sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya kirimkan by mail ke masing-masing PT,
kalau masih dengan format pivot kan bisa di filter nya select all terbuka deh semua PT nya.
mohon bantuannya ya Miss.
many thanks
cheers,
Ahmad H
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 4 Oktober 2013 13:20
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
hai Ahmad Habibillah,
Jan bantu solus tapi gak pakai vba ya.. cukup hanya menggunakan fitur Pivot Table-nya excel
alasannya:
1. lebih mudah dibuatnya
2. lebih ringan saat proses dengan data yang sangat banyak
cara buatnya:
1. ubah data dalam sheet "rekap detail" menjadi tabel
>>> blok seluruh data
>>> riboon "Home"
>>> frame "Styles"
>>> klik "Format as Table"
>>> pilih jenis tabel yang diinginkan
Q: Kenapa kok harus diubah ke format tabel?
A: Agar data bisa lebih dinamis, setiap perubahan yang terjadi akan dapat diolah Pivot Tabel dengan lebih mudah
2. Buat Pivot Tablenya:
>>> Blok seluruh tabel hasil dari langkah 1
>>> ribbon "Insert"
>>> frame "Tables"
>>> klik "Pivot Table"
>>> pilih "Insert Pivot Tabel"
>>> pada kotak "Table/Range" otomatis akan terisi berdasarkan tabel yang telah dipilh
>>> kalo sudah ada lokasi penulisan data, beri tanda pada "Existing Worksgeet", kalo belum ada, pilih "New Worksheet"
>>> pilih lokasi penulisan data, sebaiknya pojok kiri paling atas
>>> setelah itu klik "OK"
>>> drag & drop field berikut ke kotak Row Labels
>>> PO Number
>>> User Name
>>> City Name
>>> PR/PO Status
>>> Keterangan
>>> drag & drop field Vendor Name ke kotak Report Filter
>>> drag & drop field PO Number ke kotak Values
>>> klik kanan di area Pivot Tabel, pilih Pivot Table Options
>>> klik tab "Display"
>>> beri tanda centang pada kotak "Classic Pivot Table layout"
>>> klik "OK"
>>> klik salah satu area pada Pivot Table
>>> ribbon "Design"
>>> pada frame "Layout"
>>> klik "Sub Totals", lalu pilih "Do Not Show Sub Totals"
>>> klik "Grand Totals", lalu pilih "Off for Rows and Colums"
>>> klik tanda segitiga pada "Vendor Name"
>>> beri tanda centang pada kotak "Select Multiple Items"
>>> pilih vendor yang sesuai
>>> klik "OK"
>>> copas Pivot Table tersebut ke sheet yang lain, dan sesuaikan filter yang ada
>>> hide kolom yang tidak diperlukan
Jika ada perubahan data pada sheet "rekap detail", cukup klik kanan di Pivot Table yang pertama lalu pilih Refresh, maka seluruh data pada Pivot Table yang lain akan terupdate secara otomatis.
Semoga dongeng pengantar tidur siang ini bermanfaat untuk Be-Exceller..
oia, kalo mau belajar lebih lengkap tentang Pivot Table, silakan buka blognya mr Kid, pembahasannya sampai saat ini tentang Pivot Table sudah sampai seri ke 3,
seri pertamanya bisa dilihat pada link berikut ini
File terlampir
Salam,
-Miss Jan Raisin-
Pada 4 Oktober 2013 10.57, Ahmad Habibillah <abiel_1108@yahoo.com> menulis:
>
>Selamat Pagi,
>
>
>mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
>
>
>dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
>
>
>dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
>
>
>dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
>
>
>berikut saya lampirkan file yang dimaksud.
>
>
>atas perhatian dan bantuannya terima kasih
>
>
>cheers,
>Ahmad H
>
waduh... many thanks untuk solusinya, mantaaapppp.
tapi masih ada tapi nya nih... :(
kalau yang seperti itu saya gunakan untuk diinternal,
sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya kirimkan by mail ke masing-masing PT,
kalau masih dengan format pivot kan bisa di filter nya select all terbuka deh semua PT nya.
mohon bantuannya ya Miss.
many thanks
cheers,
Ahmad H
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 13:20
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]
hai Ahmad Habibillah,
Jan bantu solus tapi gak pakai vba ya.. cukup hanya menggunakan fitur Pivot Table-nya excel
alasannya:
1. lebih mudah dibuatnya
2. lebih ringan saat proses dengan data yang sangat banyak
cara buatnya:
1. ubah data dalam sheet "rekap detail" menjadi tabel
>>> blok seluruh data
>>> riboon "Home"
>>> frame "Styles"
>>> klik "Format as Table"
>>> pilih jenis tabel yang diinginkan
Q: Kenapa kok harus diubah ke format tabel?
A: Agar data bisa lebih dinamis, setiap perubahan yang terjadi akan dapat diolah Pivot Tabel dengan lebih mudah
2. Buat Pivot Tablenya:
>>> Blok seluruh tabel hasil dari langkah 1
>>> ribbon "Insert"
>>> frame "Tables"
>>> klik "Pivot Table"
>>> pilih "Insert Pivot Tabel"
>>> pada kotak "Table/
>>> kalo sudah ada lokasi penulisan data, beri tanda pada "Existing Worksgeet"
>>> pilih lokasi penulisan data, sebaiknya pojok kiri paling atas
>>> setelah itu klik "OK"
>>> drag & drop field berikut ke kotak Row Labels
>>> PO Number
>>> User Name
>>> City Name
>>> PR/PO Status
>>> Keterangan
>>> drag & drop field Vendor Name ke kotak Report Filter
>>> drag & drop field PO Number ke kotak Values
>>> klik kanan di area Pivot Tabel, pilih Pivot Table Options
>>> klik tab "Display"
>>> beri tanda centang pada kotak "Classic Pivot Table layout"
>>> klik "OK"
>>> klik salah satu area pada Pivot Table
>>> ribbon "Design"
>>> pada frame "Layout"
>>> klik "Sub Totals"
>>> klik "Grand Totals"
>>> klik tanda segitiga pada "Vendor Name"
>>> beri tanda centang pada kotak "Select Multiple Items"
>>> pilih vendor yang sesuai
>>> klik "OK"
>>> copas Pivot Table tersebut ke sheet yang lain, dan sesuaikan filter yang ada
>>> hide kolom yang tidak diperlukan
Jika ada perubahan data pada sheet "rekap detail"
Semoga dongeng pengantar tidur siang ini bermanfaat untuk Be-Exceller.
oia, kalo mau belajar lebih lengkap tentang Pivot Table, silakan buka blognya mr Kid, pembahasannya sampai saat ini tentang Pivot Table sudah sampai seri ke 3,
seri pertamanya bisa dilihat pada link berikut ini
File terlampir
Salam,
-Miss Jan Raisin-
Pada 4 Oktober 2013 10.57, Ahmad Habibillah <abiel_1108@yahoo.
>
>Selamat Pagi,
>
>
>mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin
>
>
>dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,
>
>
>dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.
>
>
>dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.
>
>
>berikut saya lampirkan file yang dimaksud.
>
>
>atas perhatian dan bantuannya terima kasih
>
>
>cheers,
>Ahmad H
>
Fri Oct 4, 2013 12:23 am (PDT) . Posted by:
"Jan Raisin"
owh.. jadi nanti hasilnya mau dicopas ke workbook lain
lalu workbook tersebut akan dikirim ke masing-masing perusahaan ya..
maaf deh.. Jan kan gak tau.. xixixixi ^_^
bai de wei... eni wei... bas wei..
pernah dengar istilah paste special? ^_^
caranya waktu mau paste ke sheet yang diinginkan, jangan tekan tombol CTRL
+ V atau klik Paste
tetapi.... klik kanan tombol kanan mouse, pilih Paste Special..
lalu pilih jenis pastenya seperti apa..
kalo dalam kasus ini berarti seperti gambar di bawah ini:
[image: Gambar sisip 1]
karena yang diinginkan hanya nilai dan format angkanya saja, maka pilih
Values and number formats
setelah itu klik OK
kalo yang diinginkan beda.. tinggal dipilih saja yang sesuai.. karena di
situ banyak pilihannya kok..
tetap semangat.. ^_^
-Miss Jan Raisin-
Pada 4 Oktober 2013 14.00, Ahmad Habibillah <abiel_1108@yahoo.com> menulis:
> **
>
>
> hai juga Miss Jan,
>
> waduh... many thanks untuk solusinya, mantaaapppp.
>
> tapi masih ada tapi nya nih... :(
>
> kalau yang seperti itu saya gunakan untuk diinternal,
>
> sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing
> sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya
> kirimkan by mail ke masing-masing PT,
>
> kalau masih dengan format pivot kan bisa di filter nya select all terbuka
> deh semua PT nya.
>
> mohon bantuannya ya Miss.
>
> many thanks
> cheers,
> Ahmad H
>
>
lalu workbook tersebut akan dikirim ke masing-masing perusahaan ya..
maaf deh.. Jan kan gak tau.. xixixixi ^_^
bai de wei... eni wei... bas wei..
pernah dengar istilah paste special? ^_^
caranya waktu mau paste ke sheet yang diinginkan, jangan tekan tombol CTRL
+ V atau klik Paste
tetapi.... klik kanan tombol kanan mouse, pilih Paste Special..
lalu pilih jenis pastenya seperti apa..
kalo dalam kasus ini berarti seperti gambar di bawah ini:
[image: Gambar sisip 1]
karena yang diinginkan hanya nilai dan format angkanya saja, maka pilih
Values and number formats
setelah itu klik OK
kalo yang diinginkan beda.. tinggal dipilih saja yang sesuai.. karena di
situ banyak pilihannya kok..
tetap semangat.. ^_^
-Miss Jan Raisin-
Pada 4 Oktober 2013 14.00, Ahmad Habibillah <abiel_1108@yahoo.
> **
>
>
> hai juga Miss Jan,
>
> waduh... many thanks untuk solusinya, mantaaapppp.
>
> tapi masih ada tapi nya nih... :(
>
> kalau yang seperti itu saya gunakan untuk diinternal,
>
> sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing
> sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya
> kirimkan by mail ke masing-masing PT,
>
> kalau masih dengan format pivot kan bisa di filter nya select all terbuka
> deh semua PT nya.
>
> mohon bantuannya ya Miss.
>
> many thanks
> cheers,
> Ahmad H
>
>
Fri Oct 4, 2013 2:00 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
dear Miss Jan,
thanks atas bantuannya Miss,
yes miss dengan cara itu ok sip, its work..
tapi kalau aja.. hehehhehe bisa by command button..
hasil nya pastinya akan lebih sempurna dengan format atau bentuk data yang sesuai dengan yang diinginkan.
bai de wei... eni wei... bas wei... tengkyuuu pisan...
thanks
Ahmad H
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 4 Oktober 2013 14:22
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
owh.. jadi nanti hasilnya mau dicopas ke workbook lain
lalu workbook tersebut akan dikirim ke masing-masing perusahaan ya..
maaf deh.. Jan kan gak tau.. xixixixi ^_^
bai de wei... eni wei... bas wei..
pernah dengar istilah paste special? ^_^
caranya waktu mau paste ke sheet yang diinginkan, jangan tekan tombol CTRL + V atau klik Paste
tetapi.... klik kanan tombol kanan mouse, pilih Paste Special..
lalu pilih jenis pastenya seperti apa..
kalo dalam kasus ini berarti seperti gambar di bawah ini:
karena yang diinginkan hanya nilai dan format angkanya saja, maka pilih Values and number formats
setelah itu klik OK
kalo yang diinginkan beda.. tinggal dipilih saja yang sesuai.. karena di situ banyak pilihannya kok..
tetap semangat.. ^_^
-Miss Jan Raisin-
Pada 4 Oktober 2013 14.00, Ahmad Habibillah <abiel_1108@yahoo.com> menulis:
>
>hai juga Miss Jan,
>
>
>waduh... many thanks untuk solusinya, mantaaapppp.
>
>
>tapi masih ada tapi nya nih... :(
>
>
>kalau yang seperti itu saya gunakan untuk diinternal,
>
>
>sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya kirimkan by mail ke masing-masing PT,
>
>
>kalau masih dengan format pivot kan bisa di filter nya select all terbuka deh semua PT nya.
>
>
>mohon bantuannya ya Miss.
>
>
>many thanks
>cheers,
>Ahmad H
>
>
thanks atas bantuannya Miss,
yes miss dengan cara itu ok sip, its work..
tapi kalau aja.. hehehhehe bisa by command button..
hasil nya pastinya akan lebih sempurna dengan format atau bentuk data yang sesuai dengan yang diinginkan.
bai de wei... eni wei... bas wei... tengkyuuu pisan...
thanks
Ahmad H
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 14:22
Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
owh.. jadi nanti hasilnya mau dicopas ke workbook lain
lalu workbook tersebut akan dikirim ke masing-masing perusahaan ya..
maaf deh.. Jan kan gak tau.. xixixixi ^_^
bai de wei... eni wei... bas wei..
pernah dengar istilah paste special? ^_^
caranya waktu mau paste ke sheet yang diinginkan, jangan tekan tombol CTRL + V atau klik Paste
tetapi.... klik kanan tombol kanan mouse, pilih Paste Special..
lalu pilih jenis pastenya seperti apa..
kalo dalam kasus ini berarti seperti gambar di bawah ini:
karena yang diinginkan hanya nilai dan format angkanya saja, maka pilih Values and number formats
setelah itu klik OK
kalo yang diinginkan beda.. tinggal dipilih saja yang sesuai.. karena di situ banyak pilihannya kok..
tetap semangat.. ^_^
-Miss Jan Raisin-
Pada 4 Oktober 2013 14.00, Ahmad Habibillah <abiel_1108@yahoo.
>
>hai juga Miss Jan,
>
>
>waduh... many thanks untuk solusinya, mantaaapppp.
>
>
>tapi masih ada tapi nya nih... :(
>
>
>kalau yang seperti itu saya gunakan untuk diinternal,
>
>
>sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing sheet PT A, PT B dst bakalan saya move or copy satu satu, dan akan saya kirimkan by mail ke masing-masing PT,
>
>
>kalau masih dengan format pivot kan bisa di filter nya select all terbuka deh semua PT nya.
>
>
>mohon bantuannya ya Miss.
>
>
>many thanks
>cheers,
>Ahmad H
>
>
Fri Oct 4, 2013 12:12 am (PDT) . Posted by:
"Kusnadi Bin zain" kbinzain
memakai formula sederhana Sumproduct saja kayaknya bisa....
syaratnya data GajiPokok, Tunjangan dll harus dlm format Numeric ( jgn diisi text ) atau dikosongi saja
wassalam
kz
________________________________
Dari: Tjahya Hartono <tjahyahartono@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 4 Oktober 2013 11:08
Judul: [belajar-excel] Memindahkan data ke dalam slip gaji [1 Attachment]
Salam Be exceler's
Saya kembali bertanya, kali ini mengenai keinginan saya untuk memindahkan data saya Sheet "Daftar gaji" untuk membuat slip gaji yang ada pada sheet "Slip gaji". Berulang kali saya memindahkan secara manual, bisakah saya memindahkan secara otomatis, dan apabila ada penambahan bulan kerja, apakah bisa ikut terupdate pula. Mohon dibantu ya para master Excel dan teman2 be Excelers
Hormat saya,
Tjahya Hartono
syaratnya data GajiPokok, Tunjangan dll harus dlm format Numeric ( jgn diisi text ) atau dikosongi saja
wassalam
kz
____________
Dari: Tjahya Hartono <tjahyahartono@
Kepada: belajar-excel@
Dikirim: Jumat, 4 Oktober 2013 11:08
Judul: [belajar-excel] Memindahkan data ke dalam slip gaji [1 Attachment]
Salam Be exceler'
Saya kembali bertanya, kali ini mengenai keinginan saya untuk memindahkan data saya Sheet "Daftar gaji" untuk membuat slip gaji yang ada pada sheet "Slip gaji". Berulang kali saya memindahkan secara manual, bisakah saya memindahkan secara otomatis, dan apabila ada penambahan bulan kerja, apakah bisa ikut terupdate pula. Mohon dibantu ya para master Excel dan teman2 be Excelers
Hormat saya,
Tjahya Hartono
Fri Oct 4, 2013 12:26 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Fungsinya, jika ada kesalahan (On error), contohnya seperti macro yang baru saja dirilis oleh Pak De mengenai filtering, lanjutkan saja (resume next).
Salam,
HK
________________________________
From: neza ibaneza <nezaibaneza@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 13:26
Subject: [belajar-excel] Fungsi code
Dear all
B-excel
Boleh tau fungsi dari code
On error resume next, apa ya?
Salam
Neza
Dikirim dari Yahoo! Mail pada Android
Salam,
HK
____________
From: neza ibaneza <nezaibaneza@
To: belajar-excel@
Sent: Friday, 4 October 2013, 13:26
Subject: [belajar-excel] Fungsi code
Dear all
B-excel
Boleh tau fungsi dari code
On error resume next, apa ya?
Salam
Neza
Dikirim dari Yahoo! Mail pada Android
Fri Oct 4, 2013 12:57 am (PDT) . Posted by:
"Jan Raisin"
Hai Marone.. ikutan ya.. boleh kan.. tapi gak ikut urun solusi ya..
kalo mau memunculkan kata2 DATA SAMA di user form.. tinggal ketik saja di
kotak Caption milik si user form..
ini Jan kutip dari pertanyaan sebelumnya:
"
tolong saya dibantu untuk membuat system untuk bisa memberi warning jika
data sama dan menampilkan data sama
sebelumnya... (file terlampir)
"
dan contoh yang diberikan adalah tampilan pada worksheet bukan tampilan
pada user form, yang ternyata tidak sesuai dengan keinginan sdr Marone..
kalo bisa nih ya.. biar diskusinya bisa lebih nyambung dan gak seperti
minta sekedar jadinya saja.. dengan cara tebak-tebakann..
bisa dikasih tau contoh tampilan yang diinginkannya di user form itu
seperti apa?
kalo pencet tombol ini maka tampilan di user formnya seperti ini.. dan
tampilan di sheetnya seperti ini..
kalo pencet tombol itu maka tampilan di user formnya seperti itu.. dan
tampilan di sheetnya seperti itu..
terus ada yang baru nih.. tombol Normal.. itu untuk apa ya?
kalo tombol itu ditekan.. perubahan seperti apa yang terjadi? di user form?
atau di sheet?
terus itu tombol mau ditaruh di mana? di user form? apa di sheet?
Kasihan Be-Exceller yang udah capek2 bantu bikin solusi tapi ternyata gak
sesuai dengan keinginan..
karena tampilan akhir yang diinginkannya juga gak ada..
gitu dulu aja deh dari Jan..
tetap semangat ya..
-Miss Jan Raisin-
Pada 4 Oktober 2013 11.20, marone oke <maroneoke940@yahoo.com> menulis:
> **
>
>
> Dear DWINT RUSWANTO....
> terima kasih atas solusinya...tapi sepertinya masih ada kendala, antara
> lain :
>
> - jika data sama, maka pada tampilan user form tertulis kata "DATA SAMA" lalu
> ditampilkan seluruh data yang sama
> (yg diblok kuning) pada user form
>
> - jika klik tombol LANJUT, maka input data dibolehkan dan tampilan
> normal kembali
>
> - jika klik tombol BATAL. maka input data tidak boleh
>
> begitu clue nya...mohon maaf sudah merepotkan, karna saya masih belajar VB
> terima kasih atas bantuannya
>
> best regard
>
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@yahoo.co.id>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 2 Oktober 2013 15:02
> *Judul:* Bls: [belajar-excel] warning data sama dan tampilkan data sama
> sebelumnya [1 Attachment]
>
>
> Hai Marone,
>
> Sekedar pendapat pribadi saya, pada kasus ini hanya diperlukan 2 buah
> tombol saja yaitu Batal dan Lanjut, karena pada saat ada nilai yang sama
> secara otomatis akan ditampilkan nilai-nilai yang sama, sehingga user hanya
> perlu untuk melanjutkan atau membatalkan inputan data.
>
> scriptnya sbb:
>
> ditulis pada sheet1:
> ====================
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim rgNilai As Range, celNilai As Range
> Dim lRow As Long
> Dim iCount As Integer
>
> With Target
> If .Count = 1 Then
> If .Column = 3 And .Row > 2 Then
> lRow = Cells(Rows.Count, 3).End(xlUp).Row
> Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3))
> iCount = Application.WorksheetFunction.CountIf(rgNilai, .Value)
> If iCount > 1 Then
> For Each celNilai In rgNilai
> If celNilai.Value = .Value Then
> Range(celNilai.Offset(, -1), celNilai).Font.Size =
> 15
> Range(celNilai.Offset(, -1), celNilai).Font.Bold =
> True
> Range(celNilai.Offset(, -1),
> celNilai).Interior.Color = vbYellow
> End If
> Next celNilai
> UserForm1.Show
> End If
> End If
> End If
> End With
> End Sub
>
>
> ditulis pada user form:
> =======================
> Private Sub cmdLanjut_Click()
> NormalLagi
> Cells(lRow + 1, 2).Select
> Unload Me
> End Sub
>
> Private Sub cmdStop_Click()
> NormalLagi
> Range(Cells(lRow, 2), Cells(lRow, 3)).ClearContents
> Cells(lRow, 2).Select
> Unload Me
> End Sub
>
> ditulis pada sebuah modul:
> ==========================
> Public lRow As Long
>
> Sub NormalLagi()
> Dim rgNilai As Range, celNilai As Range
>
> Application.ScreenUpdating = False
> lRow = Cells(Rows.Count, 3).End(xlUp).Row
> Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3))
> For Each celNilai In rgNilai
> If celNilai.Font.Bold = True Then
> Range(celNilai.Offset(, -1), celNilai).Font.Bold = False
> Range(celNilai.Offset(, -1), celNilai).Font.Size = 11
> Range(celNilai.Offset(, -1), celNilai).Interior.Color = vbWhite
> End If
> Next celNilai
> Application.ScreenUpdating = True
> End Sub
>
> semoga sesuai dengan harapan.
>
> Salam,
>
> -dwint-
> ------------------------------
> *Dari:* marone oke <maroneoke940@yahoo.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 2 Oktober 2013 11:28
> *Judul:* [belajar-excel] warning data sama dan tampilkan data sama
> sebelumnya [1 Attachment]
>
>
> Dear pakar Excel...
>
> tolong saya dibantu untuk membuat system untuk bisa memberi warning jika
> data sama dan menampilkan data sama
> sebelumnya... (file terlampir)
>
> terima kasih sebelumnya...
>
> best regard
>
kalo mau memunculkan kata2 DATA SAMA di user form.. tinggal ketik saja di
kotak Caption milik si user form..
ini Jan kutip dari pertanyaan sebelumnya:
"
tolong saya dibantu untuk membuat system untuk bisa memberi warning jika
data sama dan menampilkan data sama
sebelumnya..
"
dan contoh yang diberikan adalah tampilan pada worksheet bukan tampilan
pada user form, yang ternyata tidak sesuai dengan keinginan sdr Marone..
kalo bisa nih ya.. biar diskusinya bisa lebih nyambung dan gak seperti
minta sekedar jadinya saja.. dengan cara tebak-tebakann.
bisa dikasih tau contoh tampilan yang diinginkannya di user form itu
seperti apa?
kalo pencet tombol ini maka tampilan di user formnya seperti ini.. dan
tampilan di sheetnya seperti ini..
kalo pencet tombol itu maka tampilan di user formnya seperti itu.. dan
tampilan di sheetnya seperti itu..
terus ada yang baru nih.. tombol Normal.. itu untuk apa ya?
kalo tombol itu ditekan.. perubahan seperti apa yang terjadi? di user form?
atau di sheet?
terus itu tombol mau ditaruh di mana? di user form? apa di sheet?
Kasihan Be-Exceller yang udah capek2 bantu bikin solusi tapi ternyata gak
sesuai dengan keinginan..
karena tampilan akhir yang diinginkannya juga gak ada..
gitu dulu aja deh dari Jan..
tetap semangat ya..
-Miss Jan Raisin-
Pada 4 Oktober 2013 11.20, marone oke <maroneoke940@
> **
>
>
> Dear DWINT RUSWANTO....
> terima kasih atas solusinya...
> lain :
>
> - jika data sama, maka pada tampilan user form tertulis kata "DATA SAMA" lalu
> ditampilkan seluruh data yang sama
> (yg diblok kuning) pada user form
>
> - jika klik tombol LANJUT, maka input data dibolehkan dan tampilan
> normal kembali
>
> - jika klik tombol BATAL. maka input data tidak boleh
>
> begitu clue nya...mohon maaf sudah merepotkan, karna saya masih belajar VB
> terima kasih atas bantuannya
>
> best regard
>
>
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* "belajar-excel@
> *Dikirim:* Rabu, 2 Oktober 2013 15:02
> *Judul:* Bls: [belajar-excel] warning data sama dan tampilkan data sama
> sebelumnya [1 Attachment]
>
>
> Hai Marone,
>
> Sekedar pendapat pribadi saya, pada kasus ini hanya diperlukan 2 buah
> tombol saja yaitu Batal dan Lanjut, karena pada saat ada nilai yang sama
> secara otomatis akan ditampilkan nilai-nilai yang sama, sehingga user hanya
> perlu untuk melanjutkan atau membatalkan inputan data.
>
> scriptnya sbb:
>
> ditulis pada sheet1:
> ============
> Private Sub Worksheet_Change(
> Dim rgNilai As Range, celNilai As Range
> Dim lRow As Long
> Dim iCount As Integer
>
> With Target
> If .Count = 1 Then
> If .Column = 3 And .Row > 2 Then
> lRow = Cells(Rows.Count, 3).End(xlUp)
> Set rgNilai = Range(Cells(
> iCount = Application.
> If iCount > 1 Then
> For Each celNilai In rgNilai
> If celNilai.Value = .Value Then
> Range(celNilai.
> 15
> Range(celNilai.
> True
> Range(celNilai.
> celNilai).Interior.
> End If
> Next celNilai
> UserForm1.Show
> End If
> End If
> End If
> End With
> End Sub
>
>
> ditulis pada user form:
> ============
> Private Sub cmdLanjut_Click(
> NormalLagi
> Cells(lRow + 1, 2).Select
> Unload Me
> End Sub
>
> Private Sub cmdStop_Click(
> NormalLagi
> Range(Cells(
> Cells(lRow, 2).Select
> Unload Me
> End Sub
>
> ditulis pada sebuah modul:
> ============
> Public lRow As Long
>
> Sub NormalLagi()
> Dim rgNilai As Range, celNilai As Range
>
> Application.
> lRow = Cells(Rows.Count, 3).End(xlUp)
> Set rgNilai = Range(Cells(
> For Each celNilai In rgNilai
> If celNilai.Font.
> Range(celNilai.
> Range(celNilai.
> Range(celNilai.
> End If
> Next celNilai
> Application.
> End Sub
>
> semoga sesuai dengan harapan.
>
> Salam,
>
> -dwint-
> ------------
> *Dari:* marone oke <maroneoke940@
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 2 Oktober 2013 11:28
> *Judul:* [belajar-excel] warning data sama dan tampilkan data sama
> sebelumnya [1 Attachment]
>
>
> Dear pakar Excel...
>
> tolong saya dibantu untuk membuat system untuk bisa memberi warning jika
> data sama dan menampilkan data sama
> sebelumnya..
>
> terima kasih sebelumnya..
>
> best regard
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar